New in Wolfram Mathematica 6: High-Impact Adaptive Visualization ◄ previous | next ►
Trace Fine Details of Arbitrary Surfaces
Mathematica 6 uses advanced adaptive methods to efficiently trace fine details of surfaces.
In[1]:=

Click for copyable input
ParametricPlot3D[{Cos[v] + 0.3 Sin[3 u] + 0.04 Sin[20 v], u, 

  Sin[v] + 0.3 Cos[3 u] + 

   0.04 Sin[20 v]}, {u, -\[Pi], \[Pi]}, {v, -\[Pi], \[Pi]}, 

 PlotPoints -> 100, PlotStyle -> {Orange, Specularity[White, 10]}, 

 Axes -> None, Mesh -> None]
Out[1]=