surface=parametric_plot3d((r*cos(t),r*sin(t),1-2*r^2*sin(t)^2),(t,0,2*pi),(r,0,1),color="gray",opacity=.75)

Messages