multigrading.lib
LIB "multigrading.lib"; printlevel = 3; ring r = 0,(x,y),dp; intmat A[1][2]=-1,1; setBaseMultigrading(A); isPositive(); ==> 0 intmat B[1][2]=1,1; setBaseMultigrading(B); isPositive(B); ==> 1