Changeset b6285e7 in git

Timestamp:

Jan 26, 1999, 4:26:05 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

afa7a2544d18b72f86fbaa0a821661dc7250c1b8

Parents:

f8519e5b6c27280ebf950abc86e2d410ff2bce8e

Message:

hannes: back to rev 1.28


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

File:

• Singular/LIB/classify.lib (modified) (2 diffs)

Singular/LIB/classify.lib

@@ -1 @@
-// $Id: classify.lib,v 1.29 1999-01-22 14:44:01 krueger Exp $
+// $Id: classify.lib,v 1.30 1999-01-26 15:26:05 Singular Exp $
 // KK, last modified: 04.04.1998
 ///////////////////////////////////////////////////////////////////////////////
 
-version  = "$Id: classify.lib,v 1.29 1999-01-22 14:44:01 krueger Exp $";
+version  = "$Id: classify.lib,v 1.30 1999-01-26 15:26:05 Singular Exp $";
 info="
 LIBRARY:  classify.lib  PROCEDURES FOR THE ARNOLD-CLASSIFIER OF SINGULARITIES
@@ -2519 +2519 @@
 EXAMPLE:  example basicinvariants; shows an example"
 {
-  int k=1;
   intvec v;
-  ideal jf = jacob(f);
-  ideal Jfs = std(jf);
-  ideal m = std(maxideal(2) * jf);
-//  v[1] = system("HC")-1;
-  while( size( NF(maxideal(k), m)) != 0) { k++; }
-  v[1] = k;
+  ideal Jfs = std(jacob(f));
+  v[1] = system("HC")+1;
   v[2] = vdim(Jfs);
   v[3] = corank(f);
+  if( v[2]<v[1] ) { v[1] = v[2]+1; }
   return(v);
 }