Changeset 6396811 in git

Timestamp:

Feb 4, 2007, 12:37:35 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

9d963d1214d7ce4074d080698dd5f8e8015045bd

Parents:

83783ebb580d5bc290e32bc3e46524ca07777ce8

Message:

*hannes: groebner(ideal/module)


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

File:

• Singular/LIB/standard.lib (modified) (4 diffs)

Singular/LIB/standard.lib

@@ -2 +2 @@
 //major revision Jan/Feb. 2007, GMG
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: standard.lib,v 1.86 2007-02-03 14:11:52 Singular Exp $";
+version="$Id: standard.lib,v 1.87 2007-02-04 11:37:35 Singular Exp $";
 category="Miscellaneous";
 info="
@@ -712 +712 @@
 
 //////////////////////////////////////////////////////////////////////////////
-proc groebner(def i, list #)
+proc groebner(def i_par, list #)
 "SYNTAX: @code{groebner (} ideal_expression @code{)} @*
          @code{groebner (} module_expression @code{)} @*
@@ -792 +792 @@
 
   def P=basering;
+  if ((typeof(i_par)=="vector")||(typeof(i_par)=="module")) {module i=i_par;}
+  else {ideal i=i_par; }
+  kill i_par;
 //----------------------- save the given method ---------------------------
   string method;
@@ -1037 +1040 @@
      if ( algorithm=="std" || (algorithm=="stdorslimgb" && char(P)>0) )
      {
-           if (p_opt) { "std in " + string(P); }
-           i = std(i);
-           return(i);
+       if (p_opt) { "std in " + string(P); }
+       return(std(i));
      }
      if ( algorithm=="slimgb" || (algorithm=="stdorslimgb" && char(P)==0) )
      {
-           i = qslimgb(i);
-           return(i);
+       return(qslimgb(i));
      }
   }