Changeset cdd778 in git

Timestamp:

May 19, 2000, 12:24:33 PM (24 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

7cdd73b2a69c10b6802dc762aed4db13ad0f8f42

Parents:

b49b894ff4ce8577af08f6a78a8e02f07eee6663

Message:

zerodec kosmetisch verbessert


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

File:

• Singular/LIB/primdec.lib (modified) (5 diffs)

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.67 2000-05-19 10:07:06 pfister Exp $
+// $Id: primdec.lib,v 1.68 2000-05-19 10:24:33 pfister Exp $
 ///////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                               //
@@ -11 +11 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.67 2000-05-19 10:07:06 pfister Exp $";
+version="$Id: primdec.lib,v 1.68 2000-05-19 10:24:33 pfister Exp $";
 info="
 LIBRARY: primdec.lib   PROCEDURES FOR PRIMARY DECOMPOSITION
@@ -4592 +4592 @@
    def R=basering;
    poly q;
+   int j;
+   matrix m;
+   list re;
    poly va=var(1);
-   int j;
    ideal J=groebner(I);
+   ideal ba=kbase(J);
    int d=vdim(J);
-   ideal ba=kbase(J);
-   ideal jmap=randomLast(100);
-   poly p=jmap[size(jmap)]+random(-50,50);
-   matrix m;
+   int e=nvars(basering);
+   poly p=randomLast(100)[e]+random(-50,50);
    matrix n[d][d];
-   list re;
-
-   for(j=2;j<=nvars(basering);j++)
+
+   for(j=2;j<=e;j++)
    {
       va=va*var(j);
@@ -4624 +4624 @@
      map psi=P,p;
      list rfac=psi(fac);
-     list re;
 
      option(redSB);
@@ -4640 +4639 @@
   }
 }
-
 example
 { "EXAMPLE:";  echo = 2;