| LIB "multigrading.lib";
ring r = 0,(x,y,z),dp;
intmat S[2][3]=
1,0,1,
0,1,1;
intmat L[2][1]=
2,
2;
setBaseMultigrading(S,L);
poly a = 1;
poly b = xyz;
ideal I = a, b;
print(multiDeg(I));
==> 0 2
==> 0 2
intmat m[5][2]=multiDeg(a),multiDeg(b); m=transpose(m);
print(multiDeg(a));
==> 0,
==> 0
print(multiDeg(b));
==> 2,
==> 2
print(m);
==> 0 2 0 0 0
==> 0 2 0 0 0
areZeroElements(m);
==> 1
intmat LL[2][1]=
1,
-1;
areZeroElements(m,LL);
==> 0
|