Changeset 2f94d1 in git


Ignore:
Timestamp:
May 19, 1998, 7:20:31 PM (26 years ago)
Author:
Wilfred Pohl <pohl@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
3f1be5283b2af60044c9d7c5b5d72fd3871a18c8
Parents:
762a211b04b48fe77690592a25019acb9c1d8eff
Message:
return of bareiss


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/classify.lib

    r762a211 r2f94d1  
    1 // $Id: classify.lib,v 1.25 1998-05-14 18:44:55 Singular Exp $
    2 ///////////////////////////////////////////////////////////////////////////////
    3 
    4 version  = "$Id: classify.lib,v 1.25 1998-05-14 18:44:55 Singular Exp $";
     1// $Id: classify.lib,v 1.26 1998-05-19 17:20:31 pohl Exp $
     2///////////////////////////////////////////////////////////////////////////////
     3
     4version  = "$Id: classify.lib,v 1.26 1998-05-19 17:20:31 pohl Exp $";
    55info="
    66LIBRARY:  classify.lib  PROCEDURES FOR THE ARNOLD-CLASSIFIER OF SINGULARITIES
     
    25392539{
    25402540  matrix M = jacob(jacob(jet(f,2)));
    2541   int cr = nvars(basering) - size(module(transpose(bareiss(M))));
     2541  list lba = bareiss(M);
     2542  int cr = nvars(basering) - size(module(transpose(lba[1])));
    25422543  return(cr);
    25432544}
Note: See TracChangeset for help on using the changeset viewer.