Changeset 705ba5 in git

Timestamp:

Aug 20, 2014, 5:30:27 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '91e5db82acc17434e4062bcfa44e6efa7d41fd30')

Children:

6ad99e7c39ca610a481551fb953ca0e05ebcc064

Parents:

7356be2612621d8b3031d999de1546e80391c9aa

Message:

doc: reference eigenvalue

Files:

• Singular/LIB/linalg.lib (modified) (1 diff)
• Singular/eigenval_ip.cc (modified) (7 diffs)
• doc/reference.doc (modified) (previous)
• kernel/linear_algebra/eigenval.cc (modified) (1 diff)

Singular/LIB/linalg.lib

@@ -1363 +1363 @@
 @end format
 EXAMPLE: example eigenvals; shows examples
+KEYWORDS: eigenvalue
 "
 {

Singular/eigenval_ip.cc

@@ -76 +76 @@
             res->data=(void *)evRowElim(mp_Copy(M, currRing),i,j,k);
             return FALSE;
-          }
+          }
         }
       }
@@ -109 +109 @@
             res->data=(void *)evColElim(mp_Copy(M, currRing),i,j,k);
             return FALSE;
-          }
+          }
         }
       }
@@ -191 +191 @@
       {
         if(pNext(e0->m[i])==NULL)
-        {
+        {
           (*m)[k]=(*m0)[i];
           k++;
@@ -198 +198 @@
         if(pGetExp(e0->m[i],1)<2&&pGetExp(pNext(e0->m[i]),1)<2&&
            pNext(pNext(e0->m[i]))==NULL)
-        {
+        {
           number e1=nInpNeg(nCopy(pGetCoeff(e0->m[i])));
           if(pGetExp(pNext(e0->m[i]),1)==0)
             e->m[k]=pNSet(nDiv(pGetCoeff(pNext(e0->m[i])),e1));
           else
-            e->m[k]=pNSet(nDiv(e1,pGetCoeff(pNext(e0->m[i]))));
+            e->m[k]=pNSet(nDiv(e1,pGetCoeff(pNext(e0->m[i]))));
           nDelete(&e1);
           pNormalize(e->m[k]);
@@ -210 +210 @@
         }
         else
-        {
+        {
           e->m[k]=e0->m[i];
           pNormalize(e->m[k]);
@@ -216 +216 @@
           (*m)[k]=(*m0)[i];
           k++;
-        }
+        }
       }
 
@@ -240 +240 @@
         if(e->m[i0]==NULL&&!nGreaterZero(pGetCoeff(e->m[i1]))||
            e->m[i1]==NULL&&
-          (nGreaterZero(pGetCoeff(e->m[i0]))||pNext(e->m[i0])!=NULL)||
+          (nGreaterZero(pGetCoeff(e->m[i0]))||pNext(e->m[i0])!=NULL)||
            e->m[i0]!=NULL&&e->m[i1]!=NULL&&
           (pNext(e->m[i0])!=NULL&&pNext(e->m[i1])==NULL||

kernel/linear_algebra/eigenval.cc

@@ -103 +103 @@
   for(int k=1,j=2;k<n-1;k++,j=k+1)
   {
-    while(j<=n&&MATELEM(M,j,k)==0)
+    while(j<=n&&MATELEM(M,j,k)==NULL)
       j++;