Changeset 8396178 in git

Timestamp:

Mar 10, 2000, 11:32:36 AM (24 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

e9468ab49f6cf20253eeff372310866a7d5c541b

Parents:

4f2df6676cc0528237d5cb0589fb0e773fdadcd6

Message:

*** empty log message ***


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

File:

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

Singular/LIB/jordan.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: jordan.lib,v 1.16 1999-11-12 11:21:27 mschulze Exp $";
+version="$Id: jordan.lib,v 1.17 2000-03-10 10:32:36 mschulze Exp $";
 info="
 LIBRARY: jordan.lib  PROCEDURES TO COMPUTE THE JORDAN NORMAL FORM
@@ -194 +194 @@
             return(list());
           }
-          eM0[j]=-(eM0[j][2]/var(1))/eM0[j][1];
+          if(eM0[j][1]==0)
+          {
+            eM0[j]=0;
+          }
+          else
+          {
+            eM0[j]=-eM0[j][2]/(eM0[j][1]/var(1));
+          }
         }
       }
@@ -206 +213 @@
             return(list());
           }
-          eM0[j]=-eM0[j][1]/(eM0[j][2]/var(1));
+          if(eM0[j][2]==0)
+          {
+            eM0[j]=0;
+          }
+          else
+          {
+            eM0[j]=-eM0[j][1]/(eM0[j][2]/var(1));
+          }
         }
       }