Parameterized Surfaces

This notebook provides an example of plotting parameterized surfaces with Mathematica.

TO SEE WHAT THIS NOTEBOOK PROVIDES:
- Select Kernel|Evaluation|Evaluate_Notebook to execute all the cell and produce the graphics.

The material in this notebook was developed by Major Matt Bohn of the USAF Academy, Dept of Mathematical Sciences.	
Filename: parameterizedsurfaces.nb

plt1 = 
        ParametricPlot3D[
          Sqrt[3]*{Sin[u] Cos[v], Sin[u] Sin[v], Cos[u]}, {u, 
            0, π/2}, {v, 0, Pi/2}];

plt2 = 
      Plot3D[If[(3 - x^2 - y^2) > 0, Sqrt[3 - x^2 - y^2], 0], {x, 0, 
          Sqrt[3]}, {y, 0, Sqrt[3]}, AspectRatio -> 1]

Show[plt1, plt2]