Changeset 2d19a1b in git for Singular/polys1.cc

Timestamp:

Feb 27, 2001, 7:06:35 PM (23 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0936ad6711f0a6991a14ecc189209f979f6054df

Parents:

8cfee1c3269a440dc074eae208795fd4da490c0e

Message:

*mschulze: redNF with paramters, MinDegW


git-svn-id: file:///usr/local/Singular/svn/trunk@5286 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/polys1.cc (modified) (3 diffs)

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.64 2001-02-08 13:46:36 Singular Exp $ */
+/* $Id: polys1.cc,v 1.65 2001-02-27 18:06:35 mschulze Exp $ */
 
 /*
@@ -1185 +1185 @@
 }
 
+int pMinDegW(poly p,intvec *w)
+{
+  if(p==NULL)
+    return -1;
+  int n=0;
+  if(w!=NULL)
+    n=w->length();
+  if(pVariables<n)
+    n=pVariables;
+  int d=-1;
+  while(p!=NULL)
+  {
+    int d0=0;
+    for(int j=0;j<n;j++)
+      d0+=(*w)[j]*pGetExp(p,j+1);
+    if(d0<d||d==-1)
+      d=d0;
+    pIter(p);
+  }
+  return d;
+}
+
 poly pSeries(int n,poly p,poly u=NULL)
 {
@@ -1205 +1227 @@
   if(n==0)
     return v;
-  /* u0 is pGetCoeff(v) */  
   poly u1=pJet(pSub(pOne(),pMult_nn(u,u0)),n);
   if(u1==NULL)