Changeset 3402256 in git

Timestamp:

Oct 15, 2014, 3:35:05 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

aae39ff8fa54782d523b9983a7da5214d076b206

Parents:

92b7f0252e0f83a54f33a92c9ec02a5f832d2d1f

Message:

chg: activate internal matrix op. for eigenvalues

File:

• Singular/LIB/linalg.lib (modified) (3 diffs)

Singular/LIB/linalg.lib

@@ -1251 +1251 @@
 static proc rowcolswap(matrix M,int i,int j)
 {
+  if(system("with","eigenval"))
+  {
+    return(system("rowcolswap",M,i,j));
+  }
+  //--------------------------------------------
   if(i==j)
   {
@@ -1274 +1279 @@
 static proc rowelim(matrix M,int i,int j,int k)
 {
+  if(system("with","eigenval"))
+  {
+    return(system("rowelim",M,i,j,k));
+  }
+  // -----------------------
   if(jet(M[i,k],0)==0||jet(M[j,k],0)==0)
   {
@@ -1491 +1501 @@
 RETURN:  list l:
             l[1] an ideal, the generators of a; sorted and with multiple entries displayed only once@*
-            l[2] and intvec, l[2][i] provides the multiplicity of l[1][i]
+            l[2] an intvec, l[2][i] provides the multiplicity of l[1][i]
 EXAMPLE: example spnf; shows examples
 "