Wednesday, December 25, 2019

Surfaces as Creativity Reflections


FSP[\[Theta]_,\[Phi]_]:=Log[1+\[Theta]]Sin[5\[Phi]]-Cos[2\[Theta]]Floor[2\[Phi]];
SphericalPlot3D[FSP[\[Theta],\[Phi]],{\[Theta],0,2Pi},{\[Phi],0,2Pi},
ImageSize->500,PlotRange->All,PlotPoints->15,Mesh->False,Boxed->False,
Axes->False,PlotStyle->Opacity[0.8],ExclusionsStyle->{None,Gray},
ColorFunction->Function[{x,y,z,\[Theta],\[Phi],r},ColorData["BrightBands"][.8-r]]]


No comments:

Post a Comment