Changeset b93963 in git


Ignore:
Timestamp:
Sep 3, 1999, 5:17:01 PM (25 years ago)
Author:
Kai Krüger <krueger@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
Children:
4869a17daa3ae9c508ca9f6b818c469c62157ebf
Parents:
75aae4999bef21c4ae745eef7394a44cfb4d0476
Message:
changed normalfrom()


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/classify.lib

    r75aae4 rb93963  
    1 // $Id: classify.lib,v 1.36 1999-07-30 10:37:55 obachman Exp $
     1e// $Id: classify.lib,v 1.37 1999-09-03 15:17:01 krueger Exp $
    22// KK, last modified: 04.04.1998
    33///////////////////////////////////////////////////////////////////////////////
    44
    5 version  = "$Id: classify.lib,v 1.36 1999-07-30 10:37:55 obachman Exp $";
     5version  = "$Id: classify.lib,v 1.37 1999-09-03 15:17:01 krueger Exp $";
    66info="
    77LIBRARY:  classify.lib  PROCEDURES FOR THE ARNOLD-CLASSIFIER OF SINGULARITIES
     
    28192819  string Typ;
    28202820  int    k, r, s, crk;
     2821  int    n, i;
    28212822  poly   f;
    28222823  list   v;
     2824  def ring_ext = basering;
     2825  n = nvars(basering);
     2826  ring ring_top=char(basering),(x(1..n)),(c,ds);
    28232827
    28242828  if(checkring()) { return(s_in); }
     
    28342838  if(Typ=="Error") { return(0); }
    28352839  v = singularity(Typ, k, r, s);
    2836   f, crk = v[1..2];
     2840  poly f_out;
     2841  f_out, crk = v[1..2];
     2842  if(crk>1) { for(i=crk+1;i<=n;i=i+1) { f_out = f_out + x(i)^2; } }
     2843  setring ring_ext;
     2844  map conv_top2ext=ring_top,maxideal(1);
     2845  f = conv_top2ext(f_out);
     2846//  f, crk = v[1..2];
    28372847  return(f);
    28382848}
Note: See TracChangeset for help on using the changeset viewer.