Changeset 15d67db in git

Timestamp:

Feb 20, 2002, 6:32:12 PM (21 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

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

Children:

2ca72f72ba5811479c336c3a36c9d120db4edfc7

Parents:

a7c2dbcae69f5b83fdb67594276913303071d020

Message:

*** empty log message ***


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

Location:

Singular

Files:

• eigenval.cc (modified) (5 diffs)
• gms.cc (modified) (1 diff)

Singular/eigenval.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: eigenval.cc,v 1.10 2002-02-20 15:50:34 mschulze Exp $ */
+/* $Id: eigenval.cc,v 1.11 2002-02-20 17:32:12 mschulze Exp $ */
 /*
 * ABSTRACT: eigenvalues of constant square matrices
@@ -82 +82 @@
 
   poly p=pNSet(nDiv(pGetCoeff(MATELEM(M,i,k)),pGetCoeff(MATELEM(M,j,k))));
+  pNormalize(p);
 
   for(int l=1;l<=MATCOLS(M);l++)
+  {
     MATELEM(M,i,l)=pSub(MATELEM(M,i,l),ppMult_qq(p,MATELEM(M,j,l)));
-
+    pNormalize(MATELEM(M,i,l));
+  }
   for(int l=1;l<=MATROWS(M);l++)
+  {
     MATELEM(M,l,j)=pAdd(MATELEM(M,l,j),ppMult_qq(p,MATELEM(M,l,i)));
+    pNormalize(MATELEM(M,l,j));
+  }
 
   pDelete(&p);
@@ -135 +141 @@
 
   poly p=pNSet(nDiv(pGetCoeff(MATELEM(M,k,i)),pGetCoeff(MATELEM(M,k,j))));
+  pNormalize(p);
 
   for(int l=1;l<=MATROWS(M);l++)
+  {
     MATELEM(M,l,i)=pSub(MATELEM(M,l,i),ppMult_qq(p,MATELEM(M,l,j)));
-
+    pNormalize(MATELEM(M,l,i));
+  }
   for(int l=1;l<=MATCOLS(M);l++)
+  {
     MATELEM(M,j,l)=pAdd(MATELEM(M,j,l),ppMult_qq(p,MATELEM(M,i,l)));
+    pNormalize(MATELEM(M,j,l));
+  }
 
   pDelete(&p);
@@ -284 +296 @@
             e->m[k]=pNSet(nDiv(e1,pGetCoeff(pNext(e0->m[i]))));
           nDelete(&e1);
+          pNormalize(e->m[k]);
           (*m)[k]=(*m0)[i];
           k++;
@@ -290 +303 @@
         {
           e->m[k]=e0->m[i];
+          pNormalize(e->m[k]);
           e0->m[i]=NULL;
           (*m)[k]=(*m0)[i];

Singular/gms.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: gms.cc,v 1.6 2002-02-20 15:50:34 mschulze Exp $ */
+/* $Id: gms.cc,v 1.7 2002-02-20 17:32:12 mschulze Exp $ */
 /*
 * ABSTRACT: Gauss-Manin system normal form