Question: Coefficients of a polynom

Hello. I hope someone has a trick for me: I have the following polynomia: >restart:with(linalg): >g:=(x,y,z)->5*x^2+8*y^2+5*z^2-4*y*z+8*x*z+4*x*y; My question know is how to create the following list (for use with subs, eval or similar: >L:=x^2=5,y^2=8,z^2=5,z*y=-4,x*z=8,x*y=4; I can offcourse just enter the list, but this is not possible when I have very large polynomias. I tried the "coeff" and the "coeffs", but was not able to get what i wanted. Any suggestions? //Sentinox
Please Wait...