Changeset 72382c2 in git for Singular/LIB/surf.lib

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

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

File:

• Singular/LIB/surf.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);
 }