Changeset 2f94d1 in git

Timestamp:

May 19, 1998, 7:20:31 PM (25 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

3f1be5283b2af60044c9d7c5b5d72fd3871a18c8

Parents:

762a211b04b48fe77690592a25019acb9c1d8eff

Message:

return of bareiss


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

File:

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

Singular/LIB/classify.lib

@@ -1 @@
-// $Id: classify.lib,v 1.25 1998-05-14 18:44:55 Singular Exp $
-///////////////////////////////////////////////////////////////////////////////
-
-version  = "$Id: classify.lib,v 1.25 1998-05-14 18:44:55 Singular Exp $";
+// $Id: classify.lib,v 1.26 1998-05-19 17:20:31 pohl Exp $
+///////////////////////////////////////////////////////////////////////////////
+
+version  = "$Id: classify.lib,v 1.26 1998-05-19 17:20:31 pohl Exp $";
 info="
 LIBRARY:  classify.lib  PROCEDURES FOR THE ARNOLD-CLASSIFIER OF SINGULARITIES
@@ -2539 +2539 @@
 {
   matrix M = jacob(jacob(jet(f,2)));
-  int cr = nvars(basering) - size(module(transpose(bareiss(M))));
+  list lba = bareiss(M);
+  int cr = nvars(basering) - size(module(transpose(lba[1])));
   return(cr);
 }