| LIB "multigrading.lib";
ring r =0,(x,y,z),dp;
intmat grad[2][3] =
1,0,1,
0,1,1;
setBaseMultigrading(grad);
poly f = x2y3-z5+x-3zx;
intmat M = defineHomogeneous(f);
M;
==> 3,0,-1,
==> 2,-2,-3
defineHomogeneous(f, grad) == M;
==> 1
isHomogeneous(f);
==> 0
setBaseMultigrading(grad, M);
isHomogeneous(f);
==> 1
|