Changeset e174a1 in git
- Timestamp:
- Dec 4, 2000, 7:16:24 PM (23 years ago)
- Branches:
- (u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')
- Children:
- ad29d387949f9568ab8b65da27cc1fba32a4e11a
- Parents:
- 267fe2d8ede4325d7c53ba430914e6ceb3b10918
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/hnoether.lib
r267fe2d re174a1 1 // $Id: hnoether.lib,v 1.2 2 2000-12-04 15:05:10Singular Exp $1 // $Id: hnoether.lib,v 1.23 2000-12-04 18:16:24 Singular Exp $ 2 2 // last change: 27.04.00 3 3 /////////////////////////////////////////////////////////////////////////////// 4 4 // This library is for Singular 1-3-7 or newer 5 5 6 version="$Id: hnoether.lib,v 1.2 2 2000-12-04 15:05:10Singular Exp $";6 version="$Id: hnoether.lib,v 1.23 2000-12-04 18:16:24 Singular Exp $"; 7 7 info=" 8 8 LIBRARY: hnoether.lib Procedures for the Hamburger-Noether (Puiseux) development … … 899 899 // HNE, and normally does.) 900 900 hne[2]; 901 pause("Hit RETURN to continue:");902 901 param(hne); 903 902 // returns the parametrization … … 1044 1043 list hne_extended1=develop(f,6); 1045 1044 list hne_extended2=develop(f,10); 1046 pause("Hit RETURN to continue:"); 1047 // compare the different matrices ... 1045 // compare the different matrices ... 1048 1046 print(hne[1]); 1049 1047 print(hne_extended1[1]); 1050 1048 print(hne_extended2[1]); 1051 1049 // ... and the resulting parametrizations: 1052 1050 param(hne); 1053 1051 param(hne_extended1); … … 2414 2412 { 2415 2413 // -------- prepare for example --------- 2416 if (nameof(basering)=="HNEring") { 2414 if (nameof(basering)=="HNEring") 2415 { 2417 2416 def rettering=HNEring; 2418 2417 kill HNEring; … … 2428 2427 displayInvariants(hne); 2429 2428 kill HNEring,r; 2430 pause("Hit RETURN to continue:");2431 2429 // ----------------- a more interesting example: -------------------- 2432 2430 ring r = 32003,(x,y),dp;
Note: See TracChangeset
for help on using the changeset viewer.