Changeset 8de0ce in git for Singular/LIB/lejeune.lib

Timestamp:

Jul 4, 2005, 9:58:23 AM (19 years ago)

Author:

Nadine Cremer <cremer@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2f6f3ee6e6cc26011f65dd0589eebe383ae68f81

Parents:

0540757afbdc88eb339dd7280833cf529b3d7010

Message:

*cremer:removed another bug in g_set


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

File:

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

Singular/LIB/lejeune.lib

@@ -1 +1 @@
 
 //-*- mode:C++;-*-
-// $Id: lejeune.lib,v 1.15 2005-07-01 10:32:24 cremer Exp $
+// $Id: lejeune.lib,v 1.16 2005-07-04 07:58:23 cremer Exp $
 
 
@@ -109 +109 @@
   matrix coe=Coe;                     // gives the t-coeff. after plugging in 
   poly fkv;                           // need this stuff for the following
-  ideal m;                            // loops...
-  ideal m1,m2,J,resultdiff;
+  ideal m; 
+  ideal m1=maxidealstep(i,startvar); // computes the corresponding ideal
+  ideal m3,m2,J,resultdiff;
   for(v=1;v<=k;v++)                   // consider the different t-coeff.
    { 
@@ -118 +119 @@
      for(s=1;s<=k-v;s++)
        {
-         m1=maxidealstep(i,startvar); // computes the corresponding ideal
-         m1=m1^s;
-         u=size(m1);
+         m3=m1^s;
+         u=size(m3);
          for(t=1;t<=u;t++)
           {
-            m2=contract(m1[t],m);     // actual differentiation
+            m2=contract(m3[t],m);     // actual differentiation
             J=J,m2;
           }
@@ -312 +312 @@
   ideal m; 
   ideal m1=maxidealstep(i,startvar); 
-  ideal m2,J,g_resultdiff;
+  ideal m3,m2,J,g_resultdiff;
   for(v=1;v<=k;v++)                   // consider the different t-coeff.
     { 
@@ -320 +320 @@
      for(s=1;s<=k-v+1;s++)           // remark: "s<=k-v+1" special!for G!!!
        { 
-         m1=m1^s;
-         u=size(m1);
+         m3=m1^s;
+         u=size(m3);
          for(t=1;t<=u;t++)
           {
-            m2=contract(m1[t],m);     // actual differentiation
+            m2=contract(m3[t],m);     // actual differentiation
             J=J,m2;
           }