| LIB "sing.lib";
int p = printlevel;
printlevel = 1;
ring r1 = 32003,(x,y,z),ds;
ideal i = x8,y8,(x+y)^4;
is_regs(i);
==> // checking whether element 1 is regular mod 1 .. 0
==> // checking whether element 2 is regular mod 1 .. 1
==> // checking whether element 3 is regular mod 1 .. 2
==> // elements 1..2 are regular, 3 is not regular mod 1..2
==> 0
module m = [x,0,y];
i = x8,(x+z)^4;;
is_regs(i,m);
==> // checking whether element 1 is regular mod 1 .. 0
==> // checking whether element 2 is regular mod 1 .. 1
==> // elements are a regular sequence of length 2
==> 1
printlevel = p;
|