Changeset 8396178 in git


Ignore:
Timestamp:
Mar 10, 2000, 11:32:36 AM (24 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
e9468ab49f6cf20253eeff372310866a7d5c541b
Parents:
4f2df6676cc0528237d5cb0589fb0e773fdadcd6
Message:
*** empty log message ***


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/jordan.lib

    r4f2df66 r8396178  
    11///////////////////////////////////////////////////////////////////////////////
    22
    3 version="$Id: jordan.lib,v 1.16 1999-11-12 11:21:27 mschulze Exp $";
     3version="$Id: jordan.lib,v 1.17 2000-03-10 10:32:36 mschulze Exp $";
    44info="
    55LIBRARY: jordan.lib  PROCEDURES TO COMPUTE THE JORDAN NORMAL FORM
     
    194194            return(list());
    195195          }
    196           eM0[j]=-(eM0[j][2]/var(1))/eM0[j][1];
     196          if(eM0[j][1]==0)
     197          {
     198            eM0[j]=0;
     199          }
     200          else
     201          {
     202            eM0[j]=-eM0[j][2]/(eM0[j][1]/var(1));
     203          }
    197204        }
    198205      }
     
    206213            return(list());
    207214          }
    208           eM0[j]=-eM0[j][1]/(eM0[j][2]/var(1));
     215          if(eM0[j][2]==0)
     216          {
     217            eM0[j]=0;
     218          }
     219          else
     220          {
     221            eM0[j]=-eM0[j][1]/(eM0[j][2]/var(1));
     222          }
    209223        }
    210224      }
Note: See TracChangeset for help on using the changeset viewer.