Changeset 2f1585 in git for Singular/LIB/paramet.lib
 Timestamp:
 May 26, 1999, 4:32:02 PM (24 years ago)
 Branches:
 (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
 Children:
 faea1146c8c5f3a85b2812d91d45140f69473617
 Parents:
 42af82ee4c52c3eaa0d01f2aba5f6d65122bae48
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/paramet.lib
r42af82e r2f1585 1 // $Id: paramet.lib,v 1. 2 19980808 09:47:46obachman Exp $1 // $Id: paramet.lib,v 1.3 19990526 14:32:02 obachman Exp $ 2 2 // author : Thomas Keilen email: keilen@mathematik.unikl.de 3 3 // last change: 07.08.98 4 4 /////////////////////////////////////////////////////////////////////////////// 5 5 6 version="$Id: paramet.lib,v 1. 2 19980808 09:47:46obachman Exp $";6 version="$Id: paramet.lib,v 1.3 19990526 14:32:02 obachman Exp $"; 7 7 info=" 8 8 LIBRARY: paramet.lib PROCEDURES FOR PARAMETRIZATION OF PRIMARY … … 45 45 setring N; 46 46 // If the ideal is zero dimensional, the procedure works as well in good cases. 47 if ((size( KK)==0) or (d==0))47 if ((size(norid)==0) or (d==0)) 48 48 { 49 49 // Map the parametrization to the parametrization basering PR. 50 50 setring PR; 51 51 map p=N,(s,t); 52 ideal para=p( PP);52 ideal para=p(normap); 53 53 export para; 54 54 // The ith list component contains the parametrization, the … … 59 59 // { 60 60 // Include sometime a test, whether the maximal ideal I is of the form 61 // (xa,yb,zc), since only then PP=(a,b,c).61 // (xa,yb,zc), since only then normap=(a,b,c). 62 62 // } 63 63 setring BAS; … … 111 111 def N=nor[ii]; 112 112 setring N; 113 int d=dim(std( KK));113 int d=dim(std(norid)); 114 114 // Test if the normalization is K, K[s] or K[s,t]. Then give back the parametrization. 115 if (size( KK)==0)115 if (size(norid)==0) 116 116 { 117 117 setring PR; 118 118 map p=N,max; 119 para[ii]=p( PP);119 para[ii]=p(normap); 120 120 // export para[ii]; 121 121 // list inter=para[ii],nvars(N),1; … … 124 124 // { 125 125 // Include sometime a test, whether the maximal ideal I is of the form 126 // (xa,yb,zc), since only then PP=(a,b,c).126 // (xa,yb,zc), since only then normap=(a,b,c). 127 127 // } 128 128 param[ii]=inter;
Note: See TracChangeset
for help on using the changeset viewer.