Changeset 29a9d13 in git

Timestamp:

Jan 22, 1999, 3:44:01 PM (25 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

3eccafa7348c8664110095a2ba5742e73059962c

Parents:

f6444723eb2d8a78b411806450bde0da14e2462b

Message:

 	* classify.lib: Changed basicinvariants. (GMG, KK)


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

File:

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

Singular/LIB/classify.lib

@@ -1 @@
-// $Id: classify.lib,v 1.28 1998-10-21 10:28:17 krueger Exp $
+// $Id: classify.lib,v 1.29 1999-01-22 14:44:01 krueger Exp $
 // KK, last modified: 04.04.1998
 ///////////////////////////////////////////////////////////////////////////////
 
-version  = "$Id: classify.lib,v 1.28 1998-10-21 10:28:17 krueger Exp $";
+version  = "$Id: classify.lib,v 1.29 1999-01-22 14:44:01 krueger 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 Jfs = std(jacob(f));
-  v[1] = system("HC")+1;
+  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;
   v[2] = vdim(Jfs);
   v[3] = corank(f);
-  if( v[2]<v[1] ) { v[1] = v[2]+1; }
   return(v);
 }