Changeset 2ab830 in git for Singular/LIB/paraplanecurves.lib

Timestamp:

Mar 24, 2011, 11:23:15 AM (12 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

e4e153d5324f38b1cf9800650dbe4e7257b2a6f9

Parents:

1628b149b92bdbe06e7d660a7fd23fea4f95ad3e

Message:

duplicated w_deg in paraplanecurves.lib (need it there too but do not want it to be non-static)

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

File:

• Singular/LIB/paraplanecurves.lib (modified) (1 diff)

Singular/LIB/paraplanecurves.lib

@@ -410 +410 @@
   setring Rp2;
   PARA;
+}
+
+///////////////////////////////////////////////////////////////////////////////
+// compute the weighted degree of p;
+// this code is an exact copy of the proc in paraplanecurves.lib
+// (since we do not want to make it non-static)
+static proc w_deg(poly p, intvec v)
+{
+   if(p==0){return(-1);}
+   int d=0;
+   while(jet(p,d,v)==0){d++;}
+   d=(transpose(leadexp(jet(p,d,v)))*v)[1];
+   return(d);
 }