Changeset 38f6b33 in git
 Timestamp:
 Apr 26, 2001, 2:05:15 PM (23 years ago)
 Branches:
 (u'spielwiese', '82fc009ea2b0098c1a4896c841bb70860976bdfc')
 Children:
 13fe1bac96f68d4d7cf1801dc2db764cea629bcd
 Parents:
 420f497700b40d44021197923375f5e709b9beb8
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/gaussman.lib
r420f49 r38f6b33 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: gaussman.lib,v 1.3 6 20010320 18:19:48mschulze Exp $";2 version="$Id: gaussman.lib,v 1.37 20010426 12:05:15 mschulze Exp $"; 3 3 category="Singularities"; 4 4 … … 338 338 list V: Vfiltration of f on H''/H' 339 339 if opt==0 or opt==1: 340 ideal V[1]: spectral numbers in increasing order 341 intvec V[2]: 342 int V[2][i]: multiplicity of spectral number V[1][i] 340 intvec V[1]: numerators of spectral numbers 341 intvec V[2]: denominators of spectral numbers 342 intvec V[3]: 343 int V[3][i]: multiplicity of spectral number V[1][i]/V[2][i] 343 344 if opt==1: 344 list V[ 3]:345 module V[ 3][i]: vector space basis of V[1][i]th graded part346 in terms of V[ 4]347 ideal V[ 4]: monomial vector space basis345 list V[4]: 346 module V[4][i]: vector space basis of V[1][i]/V[2][i]th graded part 347 in terms of V[5] 348 ideal V[5]: monomial vector space basis 348 349 default: opt=1 349 350 @end format … … 1154 1155 { 1155 1156 list l,l0; 1156 int i, k;1157 int i,j,k; 1157 1158 while(spissemicont(S0,#)) 1158 1159 { … … 1160 1161 { 1161 1162 l0=spsemicont(S0,list(S[1..size(S)1])); 1162 for(i=size(l0);i>=1;i) 1163 { 1164 l0[i][size(S)]=k; 1165 } 1166 l=l+l0; 1163 for(i=1;i<=size(l0);i++) 1164 { 1165 if(size(l)>0) 1166 { 1167 j=1; 1168 while(j<size(l)&&l[j]!=l0[i]) 1169 { 1170 j++; 1171 } 1172 if(l[j]==l0[i]) 1173 { 1174 l[j][size(S)]=k; 1175 } 1176 else 1177 { 1178 l0[i][size(S)]=k; 1179 l=l+list(l0[i]); 1180 } 1181 } 1182 else 1183 { 1184 l=l0; 1185 } 1186 } 1167 1187 } 1168 1188 S0=spsub(S0,S[size(S)]);
Note: See TracChangeset
for help on using the changeset viewer.