7/2/10

plot3d-torus

maxima maxima_plot3d-torus

plot3d-torus

expr_1: cos(y)*(10.0+6*cos(x))$
expr_2: sin(y)*(10.0+6*cos(x))$
expr_3: -6*sin(x)$
plot3d ([expr_1, expr_2, expr_3],
 [x, 0, 2*%pi],[y, 0, 2*%pi],
 [gnuplot_pm3d, true]);


maxima maxima_plot3d-torus