How to plot a projective variety in Maxima?



El vie, 12-04-2013 a las 13:44 +0300, Evgeniy Maevskiy escribi?:
> First off all we can try to eliminate one of the variables
> 
> eliminate([x*z-y^2=0,y*w-z^2=0,x*w-y*z=0],[w]);
> -> [z*(x*z-y^2),x*z-y^2]
> 


With package 'draw' you can plot implicit and parametric surfaces. For
example,

load("draw") $
s: eliminate([x*z-y^2=0,y*w-z^2=0,x*w-y*z=0],[w]);
draw3d( implicit (first(s), x, -10, 10, y, -10, 10, z, -10, 10)  ) $

More examples here:
http://riotorto.users.sourceforge.net/gnuplot/implic


--
Mario