| LIB "sing.lib";
int p = printlevel;
printlevel = 1;
ring r = 32003,(x,y,z),ds;
ideal i = x2y,x4+y5+z6,yx2+xz2+zy7;
is_is(i);
→ // dim of singular locus = 0
→ // isolated singularity if last number is 0 in dim-sequence:
→ 2,1,0
poly f = xy+yz;
is_is(f);
→ // dim of singular locus = 1
→ // isolated singularity if last number is 0 in dim-sequence:
→ 1
printlevel = p;
|