| 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;
|