| LIB "sing.lib";
int p = printlevel;
printlevel = 1;
ring r = 32003,(x,y,z),ds;
ideal i = x3+y4,z4+yx;
nf_icis(i);
→ // complete intersection of dim 1
→ // dim-sequence:
→ // dim of singular locus = 0
→ // isolated singularity if last number is 0 in dim-sequence:
→ // dim of singular locus = 0
→ // isolated singularity if last number is 0 in dim-sequence:
→ // ICIS in generic form after 1 genericity loop(s)
→ _[1]=2xy+x3+y4+2z4
→ _[2]=xy+z4
ideal j = x3+y4,xy,yz;
nf_icis(j);
→ // no complete intersection
→ // dim-sequence:
→ // no complete intersection
→ _[1]=x3+y4
→ _[2]=xy
→ _[3]=yz
printlevel = p;
|