New in Wolfram Mathematica 6: High-Impact Adaptive Visualization ◄ previous | next ►
Use Transparency to See inside Surfaces
Mathematica 6 allows transparency in all forms of graphics.
In[1]:=

Click for copyable input
ParametricPlot3D[{1.16^

   v Cos[v] (1 + Cos[u]), -1.16^v Sin[v] (1 + Cos[u]), -2 1.16^

   v (1 + Sin[u])}, {u, 0, 2 Pi}, {v, -15, 6}, PlotRange -> All, 

 Mesh -> None, Axes -> False, PlotStyle -> Opacity[.5], 

 PlotPoints -> 35]
Out[1]=