Changeset 17cfb4 in git

Timestamp:

Jun 3, 2005, 4:51:43 PM (19 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

16ad4404bdd0ef5dc63b04f38025aac1ae3e116b

Parents:

c17384948216ff969f90d0d01cf3d4fdb77c90ae

Message:

*bricken: new version from Enrique A. Tobis


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

File:

• Singular/LIB/rootsur.lib (modified) (3 diffs)

Singular/LIB/rootsur.lib

@@ -1 @@
-// $Id: rootsur.lib,v 1.1 2005-05-11 16:06:11 Singular Exp $
+// $Id: rootsur.lib,v 1.2 2005-06-03 14:51:43 bricken Exp $
 // E. Tobis  12.Nov.2004, April 2004
 // last change 5. May 2005 (G.-M. Greuel)
@@ -595 +595 @@
   stseq[1] = p;
   stseq[2] = diff(p,variable);
-  poly q = stseq[2];
+
+  poly q = -reduce(stseq[1],std(stseq[2]));
   i = 3;
 
-  while (q <>0) {
-    q=reduce(stseq[i-2],std(stseq[i-1]));
-    if (q<>0) {
-      stseq[i] = q;
-    }
+  while (q <> 0) {
+    stseq[i] = q;
+    q = -reduce(stseq[i-1],std(stseq[i]));
     i++;
   }
@@ -1031 +1030 @@
 
 
+