Changeset 9526639 in git for Singular/LIB

Timestamp:

Feb 12, 2002, 3:35:24 PM (22 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

6d07e39974898a3c343d0298c4eb25a179334ab7

Parents:

bd59178f61b0d020cc0cf4b16a448d78a242dfce

Message:

*** empty log message ***


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

File:

• Singular/LIB/gaussman.lib (modified) (11 diffs)

Singular/LIB/gaussman.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: gaussman.lib,v 1.65 2002-01-24 13:32:33 mschulze Exp $";
+version="$Id: gaussman.lib,v 1.66 2002-02-12 14:35:24 mschulze Exp $";
 category="Singularities";
 
@@ -118 +118 @@
   matrix gmsmatrix;  matrix(gmsjacob)*gmsmatrix==matrix(gmsstd)
   ideal gmsbasis;  monomial vector space basis of Jacobian algebra
-  int gmsmaxweight;  maximal weight of variables
+  int gmsmaxdeg;  maximal weight of variables
 @end format
 KEYWORDS: singularities; Gauss-Manin connection; Brieskorn lattice
@@ -151 +151 @@
     }
   }  
-  matrix a=l[2];
+  matrix B=l[2];
   ideal m=kbase(g);
 
-  int gmsmaxweight;
+  int gmsmaxdeg;
   for(i=nvars(R);i>=1;i--)
   {
-    if(deg(var(i))>gmsmaxweight)
-    {
-      gmsmaxweight=deg(var(i));
+    if(deg(var(i))>gmsmaxdeg)
+    {
+      gmsmaxdeg=deg(var(i));
     }
   }
@@ -183 +183 @@
 
   execute("ring G="+string(charstr(R))+",("+s+","+varstr(R)+"),(ws("+
-    string(deg(highcorner(g))+2*gmsmaxweight)+"),"+os+",c);");
+    string(deg(highcorner(g))+2*gmsmaxdeg)+"),"+os+",c);");
 
   poly gmspoly=imap(R,t);
   ideal gmsjacob=imap(R,dt);
   ideal gmsstd=imap(R,g);
-  matrix gmsmatrix=imap(R,a);
+  matrix gmsmatrix=imap(R,B);
   ideal gmsbasis=imap(R,m);
 
   attrib(gmsstd,"isSB",1);
-  export gmspoly,gmsjacob,gmsstd,gmsmatrix,gmsbasis,gmsmaxweight;
+  export gmspoly,gmsjacob,gmsstd,gmsmatrix,gmsbasis,gmsmaxdeg;
 
   return(G);
@@ -207 +207 @@
   print(gmsmatrix);
   print(gmsbasis);
-  gmsmaxweight;
+  gmsmaxdeg;
 }
 ///////////////////////////////////////////////////////////////////////////////
@@ -243 +243 @@
   if(Kmax>=0)
   {
-    p=jet(jet(p,K,v),(Kmax+1)*deg(var(1))-2*gmsmaxweight);
+    p=jet(jet(p,K,v),(Kmax+1)*deg(var(1))-2*gmsmaxdeg);
   }
 
@@ -272 +272 @@
             p[k]=p[k]+
               jet(jet(diff(s*gmsmatrix[j,i],var(j+1))*var(1),Kmax,v),
-                (Kmax+1)*deg(var(1))-2*gmsmaxweight);
+                (Kmax+1)*deg(var(1))-2*gmsmaxdeg);
           }
           else
@@ -285 +285 @@
         p[k]=p[k]-lead(p[k]);
       }
-      while(deg(lead(p[k]))>(K+1)*deg(var(1))-2*gmsmaxweight&&
+      while(deg(lead(p[k]))>(K+1)*deg(var(1))-2*gmsmaxdeg&&
         deg(lead(p[k]),v)<=K)
       {
@@ -577 +577 @@
   setring(R);
   list l=imap(G,l);
-  kill G,gmsmaxweight;
+  kill G,gmsmaxdeg;
 
   return(l);
@@ -909 +909 @@
   setring(R);
   list l=imap(G,l);
-  kill G,gmsmaxweight;
+  kill G,gmsmaxdeg;
   attrib(l[5],"isSB",1);
 
@@ -973 +973 @@
   module H0=imap(G,H0);
   ideal e=imap(G,e);
-  kill G,gmsmaxweight;
+  kill G,gmsmaxdeg;
 
   dbprint(printlevel-voice+2,"// transform to Jordan basis");