Changeset 72382c2 in git

Timestamp:

Dec 12, 2008, 6:27:01 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

73b186d5bc4b455e4e5d630d447f6d74c3cb0f80

Parents:

148455ccfcf8b41197478663486901ebf24ab661

Message:

*hannes: dupl. proc: num_of_vars->surf.lib


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

Location:

Singular/LIB

Files:

• surf.lib (modified) (3 diffs)
• surfex.lib (modified) (3 diffs)

Singular/LIB/surf.lib

@@ -1 +1 @@
 // last modified 21.07.2005, Oliver Wienand
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: surf.lib,v 1.28 2007-07-13 12:31:06 Singular Exp $";
+version="$Id: surf.lib,v 1.29 2008-12-12 17:27:01 Singular Exp $";
 category="Visualization";
 info="
@@ -24 +24 @@
 
 ///////////////////////////////////////////////////////////////////////////////
-static proc num_of_vars(ideal I)
+proc num_of_vars(ideal I)
+"USAGE: num_of_vars(ideal I)
+
+RETURN: an intvec containing one entry for each ring variable.
+each contains the sums of all degrees in this variable of all monomials
+occuring in the ideal.
+An entry is zero iff the corresponding variable does not occur in the ideal.
+"
 {
   intvec v;
   int i;
   poly p;
-  for(i=size(I);i>0;i--)
+  for(i=ncols(I);i>0;i--)
   {
     p=I[i];
@@ -39 +46 @@
   }
   return(v);
+}
+example
+{
+  "EXAMPLE:"; echo = 2;
+  ring r = 0, (x,y,z),dp;
+  ideal j0 = x^2-x*y;
+  num_of_vars(j0);
+  ideal j1 = x^2-x*y-y;
+  num_of_vars(j1);
+  ideal j2 = x^2-x*y-y, x^3-2*y;
+  num_of_vars(j2);
 }
 

Singular/LIB/surfex.lib

@@ -1 +1 @@
 //last change: 2007/07/06 (Oliver Labs)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: surfex.lib,v 1.7 2008-10-13 21:32:53 keilen Exp $";
+version="$Id: surfex.lib,v 1.8 2008-12-12 17:27:01 Singular Exp $";
 category="Visualization";
 info="
@@ -36 +36 @@
 LIB "primdec.lib";
 LIB "sing.lib";
+LIB "surf.lib";
 
 ///////////////////////////////////////////////////////////
@@ -1100 +1101 @@
 
 
-proc num_of_vars(ideal I)
-"
-USAGE: num_of_vars(ideal I)
-
-RETURN: an intvec containing one entry for each ring variable.
-each contains the sums of all degrees in this variable of all monomials
-occuring in the ideal.
-An entry is zero iff the corresponding variable does not occur in the ideal.
-"
-{
-  intvec v;
-  int i;
-  poly p;
-  for(i=size(I);i>0;i--)
-  {
-    p=I[i];
-    while(p!=0)
-    {
-        v=v+leadexp(p);
-        p=p-lead(p);
-    }
-  }
-  return(v);
-}
-example {
-    "EXAMPLE:"; echo = 2;
-    ring r = 0, (x,y,z),dp;
-    ideal j0 = x^2-x*y;
-    num_of_vars(j0);
-    ideal j1 = x^2-x*y-y;
-    num_of_vars(j1);
-    ideal j2 = x^2-x*y-y, x^3-2*y;
-    num_of_vars(j2);
-}
-
-
 proc num_vars_id(ideal I)
 "