Changeset ca51f3 in git

Timestamp:

Mar 12, 2019, 4:48:12 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

78231d7139b2194b384eff921c267d7838ebfba8

Parents:

0561fc58af61d0d8b4a15e3d4ea172191a712c49

Message:

fix: doc - redefine in VecField.lib

File:

• Singular/LIB/VecField.lib (modified) (6 diffs)

Singular/LIB/VecField.lib

@@ -469 +469 @@
 
     list W;
+    VecField temp;
     for(i=1;i<=size(l);i++)
     {
-        VecField temp = changeCoordinates(l[i],coordChange);
+        temp = changeCoordinates(l[i],coordChange);
         W = insert(W,temp,size(W));
     }
@@ -821 +822 @@
 
         // find out how to write this in the basis again by brute force:
+        poly mon,lcoef;
         while(p != 0)
         {
-            poly mon = leadmonom(p);
-            poly lcoef = leadcoef(p);
+            mon = leadmonom(p);
+            lcoef = leadcoef(p);
             p = p-mon*lcoef;
             for(int h=1;h<=ncols(W);h++)
@@ -1069 +1071 @@
     int pos=1;
     int i,j,k;
+    module M;
+    matrix m;
     for(i=1;i<=size(spaces);i++)
     {
-        module M = spaces[i];
-        matrix m = M;
+        M = spaces[i];
+        m = M;
         for(j=1;j<=ncols(m);j++)
         {
@@ -1220 +1224 @@
     // we compute this by brute force: for each monomial in H,
     // check whether it is wh of lambda,weights.
+    poly mon;
+    matrix res;
     for(int j=1;j<=ncols(H);j++)
     {
-        poly mon = H[j];
+        mon = H[j];
         matrix expos[nvars(basering)][1] = leadexp(mon);
         expos = transpose(expos);
-        matrix res = expos*w;
+        res = expos*w;
+        kill expos;
         if(res[1,1] == lambda)
         {
@@ -1259 +1266 @@
     ideal W;
     matrix w[nvars(basering)][1] = weights;
+    poly mon;
+    matrix res;
     for(int j=1;j<=ncols(H);j++)
     {
-        poly mon = H[j];
+        mon = H[j];
         matrix expos[nvars(basering)][1] = leadexp(mon);
         expos = transpose(expos);
-        matrix res = expos*w;
+        res = expos*w;
+        kill expos;
         if(res[1,1] != lambda) // this line is the only difference to weaklyHomogeneousSpace()
         {
@@ -1424 +1434 @@
     poly c = 0;
     int origSize = size(g);
+    poly mon;
     for(int j=1;j <= origSize;j++)
     {
-        poly mon = leadmonom(g);
+        mon = leadmonom(g);
         mon = mon*leadcoef(g);
         g = g-mon;