Changeset b96bfa in git

Timestamp:

Jul 25, 2007, 12:02:08 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

35468408f99e640b45941429275be4d3b72d2bf1

Parents:

b0f4bd50b8b8a9cba3c859e64af5d2990d30f91d

Message:

*hannes: substitute


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

File:

• Singular/LIB/poly.lib (modified) (2 diffs)

Singular/LIB/poly.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: poly.lib,v 1.45 2007-07-05 12:32:12 Singular Exp $";
+version="$Id: poly.lib,v 1.46 2007-07-25 10:02:08 Singular Exp $";
 category="General purpose";
 info="
@@ -131 +131 @@
     ideal v = #[1];
     ideal f = #[2];
-    int mi = size(v);
+    int mi = ncols(v);
     if(ncols(f)<mi)
     {
       mi = ncols(f);
     }
-    m[rvar(v[1])]=f[1];
+    def J = I;
+    for (ii=1; ii<=mi; ii++)
+    {
+      m[rvar(v[ii])]=f[ii];
+    }
     map phi = bas,m;
-    def J = phi(I);
-    for (ii=2; ii<=mi; ii++)
-    {
-      m = maxideal(1);
-      m[rvar(v[ii])]=f[ii];
-      phi = bas,m;
-      J = phi(J);
-    }
+    J = phi(I);
     return(J);
   }