Changeset ecd512 in git for Singular/LIB

Timestamp:

Jul 28, 1998, 12:35:55 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

abc51389bf9c2352373f106f0d7efbf8d2220f0d

Parents:

845cb346d589050091f1268ae76f99b09425504c

Message:

* new bug fixes


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

File:

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

Singular/LIB/normal.lib

@@ -6 +6 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: normal.lib,v 1.8 1998-07-27 09:13:02 obachman Exp $";
+version="$Id: normal.lib,v 1.9 1998-07-28 10:35:55 obachman Exp $";
 info="
 LIBRARY: normal.lib: PROCEDURE FOR NORMALIZATION (I)
@@ -1218 +1218 @@
    int ii,jj;
    map phi = basering,maxideal(1);
+
+   //endid=diagon(endid);
+
    list Le = elimpart(endid);
            //this proc and the next loop try to
@@ -1229 +1232 @@
       endid = Le[1];
       map ps = newRing,Le[5];
+
       phi = ps(phi);
+      for(ii=1;ii<=size(Le[2])-1;ii++)
+      {
+         phi=phi(phi);
+      }
+      //eingefuegt wegen x2-y2z2+z3
       kill ps;
 
@@ -1287 +1296 @@
 }
 
-
+proc diagon(ideal i)
+{
+   matrix m;
+   option(redSB);
+   ideal j=liftstd(jet(i,1),m);
+   option(noredSB);
+   return(ideal(matrix(i)*m));
+}
 /////////////////////////////////////////////////////////////////////////////
 /*