Changeset 7248478 in git

Timestamp:

Mar 8, 2002, 11:30:56 AM (21 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

a99e317cf573a2980db13d1793dcffa22cb1d37c

Parents:

a8ddefa37127dd97a188f5d1739f73d7cec979dd

Message:

*** empty log message ***


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

Location:

Singular/LIB

Files:

• gaussman.lib (modified) (5 diffs)
• linalg.lib (modified) (3 diffs)

Singular/LIB/gaussman.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: gaussman.lib,v 1.76 2002-03-08 09:40:23 mschulze Exp $";
+version="$Id: gaussman.lib,v 1.77 2002-03-08 10:30:56 mschulze Exp $";
 category="Singularities";
 
@@ -391 +391 @@
 
   dbprint(printlevel-voice+2,"// transform H'' to saturation of H''");
-  H0=division(freemodule(mu)*s^k,H,k,intvec(1))[1];
+  H0=division(freemodule(mu)*s^k,H,k*deg(s))[1];
 
   return(A0,r,H,H0,k);
@@ -405 +405 @@
   C,r=l[1..2];
   A0=A0+C;
-
   dbprint(printlevel-voice+2,"// transform A to saturation of H''");
-  matrix A=division(A0*H+s^2*diff(matrix(H),s),H,K+1,intvec(1))[1]/s;
+  matrix A=division(A0*H+s^2*diff(matrix(H),s),H,(K+1)*deg(s))[1]/s;
 
   return(A,A0,r);
@@ -1124 +1123 @@
   dbprint(printlevel-voice+2,"// transform to V-splitting basis");
   A=jet(A,0);
-  H=std(division(H,U,k0+k1,intvec(1))[1]);
+  H=std(division(H,U,(k0+k1)*deg(s))[1]);
 
   dbprint(printlevel-voice+2,"// compute V-leading terms of H''");
@@ -1235 +1234 @@
 
   dbprint(printlevel-voice+2,"// compute matrix A0+sA1 of t");
-  A=division(s*A*H+s^2*diff(matrix(H),s),H,1,intvec(1))[1];
+  A=division(s*A*H+s^2*diff(matrix(H),s),H,deg(s))[1];
   A0=jet(A,0);
   A=jet(A,1)/s;

Singular/LIB/linalg.lib

@@ -1 +1 @@
 //GMG last modified: 04/25/2000
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: linalg.lib,v 1.27 2002-03-08 09:40:44 mschulze Exp $";
+version="$Id: linalg.lib,v 1.28 2002-03-08 10:30:56 mschulze Exp $";
 category="Linear Algebra";
 info="
@@ -27 +27 @@
  hessenberg(M);       Hessenberg form of M
  evnf(e[,m]);         eigenvalues normal form of (e[,m])
- eigenvals(M);        eigenvalues and multiplicities of M
+ eigenvals(M);        eigenvalues with multiplicities of M
  jordan(M);           Jordan data of M
  jordanbasis(M);      Jordan basis and weight filtration of M
@@ -1428 +1428 @@
   if(system("with","eigenval"))
   {
-   return(system("eigenvals",M));
+   return(system("eigenvals",jet(M,0)));
   }