This image was created in Mathematica with the following commands:



p9 = ParametricPlot3D[{Cos[t] Cos[u], Sin[t] Cos[u], Sin[u]},
         {t, 0, 2 Pi}, {u, -Pi/2, Pi/2}]
pn9 = Show[p9, PlotLabel -> "FIGURE 9"];


http://math.arizona.edu/~swig/documentation/mathematica/plots/fig9.php
Last modified: Fri, 14 Dec 2007 15:50:52 -0700
E-mail: swig@math.arizona.edu
Valid XHTML 1.0! Valid CSS!