Multicolumn[Table[ParametricPlot3D[Table[{z x y^2,
z y x^2,Exp[.5(x^2+y^3)]},{z,-1,1,.5}],
{x,-1,1},{y,-1,1},PlotRange->All,
Mesh->False,Boxed->False,Axes->False,
ImageSize->Small,ColorFunction->c,PlotLabel->c],
{c,{"IslandColors","CherryTones","PearlColors",
"NeonColors","AvocadoColors","SunsetColors",
"AuroraColors","Pastel"}}],4]
No comments:
Post a Comment