Saturday, December 21, 2019

Surfaces' Coordinates


Plot3D[Table[(x^2-y^2)^4 *z^2,{z,9,49,10}] // Evaluate,
{x,-.5,.5},{y,-.5,.5}, PlotStyle->Opacity[.3],
ColorFunction->"BrightBands",Mesh->False,
ClippingStyle->None,Boxed->False,
Axes->False,PlotLabel->"Surfaces' Coordinates"]


No comments:

Post a Comment