Question: how to translate this mathematica code into maple code?

curve =2{t (3 t^4+50 t^2-33),7 t^6-60 t^4+15 t^2+2}/(t^2+1)^3;
implicit =GroebnerBasis[Thread[{x, y}== curve],{x, y}, t]//First550731776-41620992 x^2+585816 x^4+625 x^6-182250 x^4 y -41620992 y^2+1171632 x^2 y^2+1875 x^4 y^2+364500 x^2 y^3+585816 y^4+1875 x^2 y^4-36450 y^5+625 y^6


http://mathematica.stackexchange.com/questions/87136/how-to-convert-a-rational-parametric-plane-curve-into-implicit-form
Please Wait...