Changeset 2ab830 in git

Timestamp:

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

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

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

Location:

Singular/LIB

Files:

• normal.lib (modified) (1 diff)
• paraplanecurves.lib (modified) (1 diff)

Singular/LIB/normal.lib

@@ -2804 +2804 @@
 }
 ///////////////////////////////////////////////////////////////////////////////
-// compute the weighted degree of p
+// 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)
 {

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);
 }