RevolutionPlot3D[{1+u^2/4,1-u^3/8,u},{u,-4,8},{phi,0,2Pi},
ImageSize->600, ColorFunction->Function[{x,y,z},
ColorData["CandyColors"][Cos[169x+144y+121z]]],
PlotRange->{{-5,5},{-5,5},{-5,5}},PlotPoints->200,
MeshStyle->{Gray,LightGray},Axes->False,Boxed->False]
No comments:
Post a Comment