| Author |
Comment/Response |
Bill
|
 09/19/08 11:51pm
Hi Jun:
Is this what you want?
Quiet[<<Graphics`Graphics3D`]
dbell = ParametricPlot3D[{Sin[t], Sin[2 t] Sin[u],
Sin[2 t] Cos[u] + 2}, {t, -Pi/2, Pi/2}, {u, 0, 2 Pi}, Axes -> True,
AxesLabel -> {"X", "Y", "Z"}];
Shadow[dbell, ZShadow -> True, XShadow -> False,
YShadow -> False, Axes -> True, AxesLabel -> {"X", "Y", "Z"}]
This was done in Mathematica 6.0.1. Note: This will run in Mathematica 5.2, just remove
Quiet[ ] from the first line of code.
HTH,
Bill
URL: , |
|
