Changeset eb55f8a in git for libpolys/polys/ext_fields
- Timestamp:
- Sep 16, 2014, 4:56:19 PM (10 years ago)
- Branches:
- (u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')
- Children:
- 5b45a4ff15d0998cc64c730af75c1c1f773d4a77
- Parents:
- 4ec0f01d431893a4c0997d2bdfab87cb8d37e03e
- git-author:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2014-09-16 16:56:19+02:00
- git-committer:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2014-09-23 20:10:49+02:00
- Location:
- libpolys/polys/ext_fields
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/ext_fields/algext.cc
r4ec0f0 reb55f8a 936 936 } 937 937 definiteReduce(p, dst->extRing->qideal->m[0], dst); 938 assume (p_Test (p, dst->extRing));938 p_Test (p, dst->extRing); 939 939 if (!DENIS1(fa)) 940 940 { 941 941 definiteReduce(q, dst->extRing->qideal->m[0], dst); 942 assume (p_Test (q, dst->extRing));942 p_Test (q, dst->extRing); 943 943 if (q != NULL) 944 944 { … … 999 999 poly g = prMapR(f, nMap, rSrc, rDst); 1000 1000 1001 assume(n_Test((number)g, dst));1001 n_Test((number)g, dst); 1002 1002 return (number)g; 1003 1003 } … … 1029 1029 result=(number)g; 1030 1030 1031 assume(n_Test((number)result, dst));1031 n_Test((number)result, dst); 1032 1032 return (number)result; 1033 1033 } -
libpolys/polys/ext_fields/transext.cc
r4ec0f0 reb55f8a 80 80 81 81 #ifdef LDEBUG 82 #define ntTest(a) assume(ntDBTest(a,__FILE__,__LINE__,cf))82 #define ntTest(a) ntDBTest(a,__FILE__,__LINE__,cf) 83 83 BOOLEAN ntDBTest(number a, const char *f, const int l, const coeffs r); 84 84 #else … … 193 193 const poly num = NUM(t); 194 194 assume(num != NULL); /**< t != 0 ==> numerator(t) != 0 */ 195 assume( _p_Test(num, ntRing,1) ); 195 196 p_Test(num, ntRing); 196 197 197 198 const poly den = DEN(t); … … 199 200 if (den != NULL) // !DENIS1(f) 200 201 { 201 assume( _p_Test(den, ntRing,1));202 p_Test(den, ntRing); 202 203 203 204 if(p_IsConstant(den, ntRing) && (n_IsOne(pGetCoeff(den), ntCoeffs))) … … 1760 1761 { 1761 1762 if (n_IsZero(a, src)) return NULL; 1762 assume(n_Test(a, src));1763 n_Test(a, src); 1763 1764 assume(src->rep == dst->extRing->cf->rep); 1764 1765 if ((SR_HDL(a) & SR_INT) || (a->s==3)) … … 1782 1783 { 1783 1784 if (n_IsZero(a, src)) return NULL; 1784 assume(n_Test(a, src));1785 n_Test(a, src); 1785 1786 nMapFunc nMap=n_SetMap(src,dst->extRing->cf); 1786 1787 poly p=p_NSet(nMap(a, src,dst->extRing->cf), dst->extRing); … … 1796 1797 { 1797 1798 if (n_IsZero(a, src)) return NULL; 1798 assume(n_Test(a, src));1799 n_Test(a, src); 1799 1800 /* mapping via intermediate int: */ 1800 1801 int n = n_Int(a, src); … … 1834 1835 COM(result) = COM(f); 1835 1836 //check_N((number)result,dst); 1836 assume(n_Test((number)result, dst));1837 n_Test((number)result, dst); 1837 1838 return (number)result; 1838 1839 } … … 1861 1862 COM(result) = COM(f); 1862 1863 //check_N((number)result,dst); 1863 assume(n_Test((number)result, dst));1864 n_Test((number)result, dst); 1864 1865 return (number)result; 1865 1866 } … … 1867 1868 number ntCopyAlg(number a, const coeffs cf, const coeffs dst) 1868 1869 { 1869 assume( n_Test(a, cf) );1870 n_Test(a, cf) ; 1870 1871 if (n_IsZero(a, cf)) return NULL; 1871 1872 return ntInit(prCopyR((poly)a, cf->extRing, dst->extRing),dst); … … 1874 1875 number ntGenAlg(number a, const coeffs cf, const coeffs dst) 1875 1876 { 1876 assume( n_Test(a, cf) );1877 n_Test(a, cf) ; 1877 1878 if (n_IsZero(a, cf)) return NULL; 1878 1879 … … 1884 1885 number ntMap0P(number a, const coeffs src, const coeffs dst) 1885 1886 { 1886 assume( n_Test(a, src) );1887 n_Test(a, src) ; 1887 1888 if (n_IsZero(a, src)) return NULL; 1888 1889 // int p = rChar(dst->extRing); … … 1899 1900 fraction f = (fraction)omAlloc0Bin(fractionObjectBin); 1900 1901 NUM(f) = g; // DEN(f) = NULL; COM(f) = 0; 1901 assume(n_Test((number)f, dst));1902 n_Test((number)f, dst); 1902 1903 //check_N((number)f,dst); 1903 1904 return (number)f; … … 1907 1908 number ntMapPP(number a, const coeffs src, const coeffs dst) 1908 1909 { 1909 assume( n_Test(a, src) );1910 n_Test(a, src) ; 1910 1911 if (n_IsZero(a, src)) return NULL; 1911 1912 assume(src == dst->extRing->cf); … … 1914 1915 fraction f = (fraction)omAlloc0Bin(fractionObjectBin); 1915 1916 NUM(f) = p; // DEN(f) = NULL; COM(f) = 0; 1916 assume(n_Test((number)f, dst));1917 n_Test((number)f, dst); 1917 1918 //check_N((number)f,dst); 1918 1919 return (number)f; … … 1922 1923 number ntMapUP(number a, const coeffs src, const coeffs dst) 1923 1924 { 1924 assume( n_Test(a, src) );1925 n_Test(a, src) ; 1925 1926 if (n_IsZero(a, src)) return NULL; 1926 1927 /* mapping via intermediate int: */ … … 1937 1938 fraction f = (fraction)omAlloc0Bin(fractionObjectBin); 1938 1939 NUM(f) = p; // DEN(f) = NULL; COM(f) = 0; 1939 assume(n_Test((number)f, dst));1940 n_Test((number)f, dst); 1940 1941 //check_N((number)f,dst); 1941 1942 return (number)f;
Note: See TracChangeset
for help on using the changeset viewer.