Changeset 6a81f8 in git
 Timestamp:
 Jul 16, 2001, 10:51:48 AM (22 years ago)
 Branches:
 (u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')
 Children:
 ab9b401ab1d48c10050bca4ee28dbd6dcde72b18
 Parents:
 409020f4846b2e67e3e541d8288ef4e479652c98
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/matpol.cc
r409020 r6a81f8 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: matpol.cc,v 1.4 1 20010405 15:41:09Singular Exp $ */4 /* $Id: matpol.cc,v 1.42 20010716 08:51:48 Singular Exp $ */ 5 5 6 6 /* … … 40 40 static poly minuscopy (poly p); 41 41 static poly pInsert(poly p1, poly p2); 42 static poly mpExdiv ( poly m, poly d );42 static poly mpExdiv ( poly m, poly d, poly vars); 43 43 static poly mpSelect (poly fro, poly what); 44 44 … … 841 841 if (i!=pos_of_1) 842 842 { 843 h = mpExdiv(f, MATELEM(co,1,i) );843 h = mpExdiv(f, MATELEM(co,1,i),vars); 844 844 if (h!=NULL) 845 845 { … … 853 853 if (pos_of_1 != 1) 854 854 { 855 h = mpExdiv(f, MATELEM(co,1,pos_of_1) );855 h = mpExdiv(f, MATELEM(co,1,pos_of_1),vars); 856 856 if (h!=NULL) 857 857 { … … 871 871 *exact divisor: let d == x^i*y^j, m is thought to have only one term; 872 872 * return m/d iff d divides m, and no x^k*y^l (k>i or l>j) divides m 873 */ 874 static poly mpExdiv ( poly m, poly d) 873 * consider all variables in vars 874 */ 875 static poly mpExdiv ( poly m, poly d, poly vars) 875 876 { 876 877 int i; … … 878 879 for (i=1; i<=pVariables; i++) 879 880 { 880 if (pGetExp( d,i) > 0)881 if (pGetExp(vars,i) > 0) 881 882 { 882 883 if (pGetExp(d,i) != pGetExp(h,i)) … … 937 938 if (mp!=NULL) 938 939 { 939 h = mpExdiv(v, mp /*MATELEM(*m,j,i)*/ );940 h = mpExdiv(v, mp /*MATELEM(*m,j,i)*/, mp); 940 941 if (h!=NULL) 941 942 {
Note: See TracChangeset
for help on using the changeset viewer.