Changeset a1f059 in git for Singular


Ignore:
Timestamp:
Nov 3, 2022, 1:50:57 PM (17 months ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
61fbafc385ef8f9d3f576c978a3777d808eae100
Parents:
2ea97f9b11bc251f21ac6d89ae9453eb5074a95d
Message:
arnoldClassify_to_string
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/arnoldclassify.lib

    r2ea97f ra1f059  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="version arnoldclassify.lib 4.1.2.0 Feb_2019 "; // $Id$
     2version="version arnoldclassify.lib 4.3.1.2 Nov_2022 "; // $Id$
    33category="Singularities";
    44info="
     
    20152015}
    20162016
     2017proc arnoldClassify_to_string(poly  fPoly)
     2018"USAGE:   arnoldClassify_to_string (f); f poly
     2019ASSUME:  The basering is local of characteristic 0 and f defines an
     2020         isolated singularity from Arnol'd's list of corank at most 2.
     2021COMPUTE: singularity class with respect to right equivalence and
     2022         invariants used in the process of classification
     2023RETURN:  string: separated by |:
     2024         @* - name of singularity series as listed by arnoldListAllSeries(),
     2025         @* - name of singularity class,
     2026         @* - parameters k,r,s defining the singularity class, -1 if not used,
     2027         @* - modality, corank, Milnor number, determinacy,
     2028         @* - Tjurina number, -2 if not computed, -1 if infinite,
     2029         @* - Milnor code, -1 if not computed,
     2030         @* - normal form of the singularity series from Arnol'd's list,
     2031         @* - restrictions on parameters as string in SINGULAR syntax.
     2032EXAMPLE: example arnoldClassify_to_string; shows an example
     2033"
     2034{
     2035  singclass f=arnoldClassify(fPoly);
     2036  string s=f.Restrictions+"|"+
     2037    f.NormalForm+"|"+
     2038    string(f.MilnorCode)+"|"+
     2039    string(f.Tjurina)+"|"+
     2040    string(f.Determinacy)+"|"+
     2041    string(f.Milnor)+"|"+
     2042    string(f.Corank)+"|"+
     2043    string(f.Modality)+"|"+
     2044    string(f.r)+"|"+
     2045    string(f.s)+"|"+
     2046    f.Class+"|"+
     2047    f.Series;
     2048  return(s);
     2049}
     2050example
     2051{ "EXAMPLE:"; echo=2;
     2052  ring r = 0,(x,y),ds;
     2053  int k = random(3,10);
     2054  poly g = x4 + x2*y^(2*k+1)+x*y^(3*k+1)+ y^(4*k +1);
     2055  arnoldClassify_to_string(g);
     2056}
     2057
Note: See TracChangeset for help on using the changeset viewer.