Changeset a39a07 in git for Singular/LIB/primdec.lib

Timestamp:

May 13, 1998, 12:54:07 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

edf0e9681a3d776622b3fefcdd261407d1a25780

Parents:

546de146b5808486dd0067fe60ba45a307acd96b

Message:

* changed varname lres to lres0 -- lres is now a command


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.15 1998-05-13 07:38:35 obachman Exp $
+// $Id: primdec.lib,v 1.16 1998-05-13 10:54:07 obachman Exp $
 ///////////////////////////////////////////////////////
 // primdec.lib
@@ -11 +11 @@
 //////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.15 1998-05-13 07:38:35 obachman Exp $";
+version="$Id: primdec.lib,v 1.16 1998-05-13 10:54:07 obachman Exp $";
 info="
 LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION (I)
@@ -844 +844 @@
   int nva = nvars(basering);
   int @k,@s,@n,@k1,zz;
-  list primary,lres,lres1,act,@lh,@wh;
+  list primary,lres0,lres1,act,@lh,@wh;
   map phi,psi,phi1,psi1;
   ideal jmap,jmap1,jmap2,helpprim,@qh,@qht,ser1;
@@ -1082 +1082 @@
        
        
-       kill lres;
-       list lres;
+       kill lres0;
+       list lres0;
        if(size(@lh)==2)
        {
           helpprim=@lh[2];
-          lres[1]=primary[2*@k-1];
+          lres0[1]=primary[2*@k-1];
           ser1=psi(helpprim);
-          lres[2]=psi1(ser1);
-          if(size(reduce(lres[2],lres[1],1))==0)
+          lres0[2]=psi1(ser1);
+          if(size(reduce(lres0[2],lres0[1],1))==0)
           {
              primary[2*@k]=primary[2*@k-1];
@@ -1105 +1105 @@
                 @f=act[1][@n]^act[2][@n];
                 ser1=psi(@f);
-                lres[2*@n-1]=interred(primary[2*@k-1]+psi1(ser1));
+                lres0[2*@n-1]=interred(primary[2*@k-1]+psi1(ser1));
                 helpprim=@lh[2*@n];
                 ser1=psi(helpprim);
-                lres[2*@n]=psi1(ser1);
+                lres0[2*@n]=psi1(ser1);
              }
           }
@@ -1114 +1114 @@
           {
              lres1=psi(@lh);
-             lres=psi1(lres1);
+             lres0=psi1(lres1);
           }
        }
@@ -1130 +1130 @@
        execute(@ri);
        list @lvec;
-       list @lr=imap(@P,lres);
+       list @lr=imap(@P,lres0);
        ideal @lr1;
 
@@ -1196 +1196 @@
        kill @lvec;
        setring @P;
-       lres=imap(@Phelp1,@lr);
+       lres0=imap(@Phelp1,@lr);
        kill @Phelp1;
-       for(@n=1;@n<=size(lres);@n++)
+       for(@n=1;@n<=size(lres0);@n++)
        {
-          lres[@n]=clearSB(lres[@n]);
-          attrib(lres[@n],"isSB",1);
+          lres0[@n]=clearSB(lres0[@n]);
+          attrib(lres0[@n],"isSB",1);
        }
 
-       primary[2*@k-1]=lres[1];
-       primary[2*@k]=lres[2];
+       primary[2*@k-1]=lres0[1];
+       primary[2*@k]=lres0[2];
        @s=size(primary)/2;
-       for(@n=1;@n<=size(lres)/2-1;@n++)
+       for(@n=1;@n<=size(lres0)/2-1;@n++)
        {
-         primary[2*@s+2*@n-1]=lres[2*@n+1];
-         primary[2*@s+2*@n]=lres[2*@n+2];
+         primary[2*@s+2*@n-1]=lres0[2*@n+1];
+         primary[2*@s+2*@n]=lres0[2*@n+2];
        }
        @k--;