Advanced Search

Question: how to add type w in order to remove any polynomial which contain w

Question:how to add type w in order to remove any polynomial which contain w

ComputerUser 535 Maple
March 03 2013
0 
G1 := [v*y-w*x, r*y-u*x, -v*u+w*r, u*y^2-v*x^2, u^2*y-v*r*x, u*w*y-v^2*x, u^3-v*r^2, u^2*w-v^2*r, -v^3+u*w^2, x^4-r, x^3*y-u, x*y^3-v, y^4-w, w*y^2*x^2-v^2];

TypeTools[AddType](`w`,typefunc(string, symbol));
L:= `if`(G1::`w`, [op], '[]')(G1);
 
it seems above code incorrect.
Please Wait...