USE QQ[x[1..2],y[1..2]];
F1:= [[2x[1],y[1],x[2]^2], [-9y[2],x[1]^2,x[2]^3]]; -- 2x[1]y[1]x[2]^2-9y[2]x[1]^2x[2]^3
F2:= [[2x[1],y[1],x[2]^2], [y[2],x[2]^3]]; -- 2x[1]y[1]x[2]^2+y[2]x[2]^3
F3:= [[2x[1],y[1],x[2]]]; -- 2x[1]y[1]x[2]
NC.IsHomog(F1);
NC.IsHomog(F2);
NC.IsHomog(F3);
NC.IsHomog([F1,F2,F3]);
NC.IsHomog([F2,F3]);
False
-------------------------------
True
-------------------------------
True
-------------------------------
False
-------------------------------
True
-------------------------------
|