Updated. The document can not be saved. I don't know why.
plot([`in`[1], `in`[2], t=0..2*Pi], color=blue );
plot3d( `in`, x=-5..5, y=-5..5, scaling=constrained, style=patch,
orientation=[40,50], grid=[50,50], color=gray, axes=frame,
lightmodel=`light4`, projection=`normal`, shading=zgrayscale );
implicitplot3d( `in`=0, x=-2..2, y=-2..2, z=-2..2, grid=[50,50,50], orientation=[20,60],
axes=frame, lightmodel=`light4`, projection=`normal`, style=patchnogrid);
F:=implicitplot3d( `in`[1]=0, x=-2..2, y=-2..2, z=-2..2, grid=[30,30,30],
style=patchnogrid ):
G:=plot3d(`in`[2], x=-2..2, y=-2..2, style=patch, color=white):
display({F,G}, orientation=[20,60], axes=box, lightmodel=`light2`,
projection=`normal`, labels=["X","Y","Z"], scaling=constrained,
tickmarks=[4,4,4] );
f(x;y;z)a^2*(x^2+y^2+z^2))^{-2}+(b^8*(x^8+y^8+z^8))^4-2F:=implicitplot3d( `in`=0, x=-2.1..2.1, y=-2.1..2.1, z=-2.1..2.1,
grid=[50,50,50], style=patchnogrid ):
display({F}, orientation=[35,55], axes=box, lightmodel=`light4`,
projection=`normal`, labels=["X","Y","Z"], scaling=constrained,
tickmarks=[4,4,4] );
Edited by user 25 May 2013 08:22:58(UTC)
| Reason: Not specified