In our Mathematica project, the first
example was a color model. The Mathematica code was:
S=ParametricPlot3D[5(3+Sin[11s]-Sin[7t])
{Cos[t]Sin[s],Sin[t]Sin[s],Cos[s]},{t,0,2Pi},{s,0,Pi},
Boxed->False,Axes->False, PlotPoints->30,
ColorFunction->Function[{x,y,z,u,v},Hue[(Sin[11u])^2]]]
The model came back from Shapeways already. It cost about 17 dollars.
|