Changeset 3d276d in git for Singular/LIB/classify.lib
- Timestamp:
- Jul 30, 1999, 12:38:00 PM (25 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 0914249ec3414c61666a68fde6a8c2bb3babd2d2
- Parents:
- 4e425a8850e76a2036f9ec9be21a013fdb261e14
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/classify.lib
r4e425a r3d276d 1 // $Id: classify.lib,v 1.3 5 1999-07-07 16:38:23obachman Exp $1 // $Id: classify.lib,v 1.36 1999-07-30 10:37:55 obachman Exp $ 2 2 // KK, last modified: 04.04.1998 3 3 /////////////////////////////////////////////////////////////////////////////// 4 4 5 version = "$Id: classify.lib,v 1.3 5 1999-07-07 16:38:23obachman Exp $";5 version = "$Id: classify.lib,v 1.36 1999-07-30 10:37:55 obachman Exp $"; 6 6 info=" 7 7 LIBRARY: classify.lib PROCEDURES FOR THE ARNOLD-CLASSIFIER OF SINGULARITIES … … 26 26 singularity(s,[]); normal form of singularity given by its name s and index 27 27 swap (a,b); returns b,a 28 tschirnhaus(f,v); Tschirnhaus transformation of f w.r.t. variable v29 28 A_L(s/f) shortcut for quickclass(f) or normalform(s) 30 29 normalform(s); normal form of singularity given by its name s … … 2865 2864 2866 2865 /////////////////////////////////////////////////////////////////////////////// 2867 proc internalfunctions 2866 proc internalfunctions() 2868 2867 "USAGE: internalfunctions(); 2869 2868 RETURN: nothing, display names of internal procedures of classify.lib … … 2871 2870 { " Internal functions for the classification using Arnold's method,"; 2872 2871 " the function numbers correspond to numbers in Arnold's classifier:"; 2873 "Klassifiziere(poly f); 2872 "Klassifiziere(poly f); determine the type of the singularity f 2874 2873 Funktion1bis (poly f, list cstn) 2875 2874 Funktion3 (poly f, list cstn) … … 2917 2916 " Internal functions providing tools: 2918 2917 ReOrder(poly f) 2919 Singularitaet 2918 Singularitaet(string typ,int k,int r,int s,poly a,poly b,poly c,poly d) 2920 2919 RandomPolyK 2921 Faktorisiere(poly f, poly g, int p, int k) 2920 Faktorisiere(poly f, poly g, int p, int k) compute g = (ax+by^k)^p 2922 2921 Teile(poly f, poly g); Teilt f durch g. 2923 2922 GetRf(poly f, int n); … … 2928 2927 "; 2929 2928 } 2929 example 2930 { 2931 "EXAMPLE"; echo=2; 2932 internalfunctions(); 2933 } 2934 2930 2935 /////////////////////////////////////////////////////////////////////////////// 2931 2936 // E n d O f F i l e
Note: See TracChangeset
for help on using the changeset viewer.