Urabe Lab. |1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|Epilogueกก

<< Graphics`ParametricPlot3D`;
SphericalPlot3D[
u^2 - Exp[t],
{t, 0, Pi},
{u, 0, 4 Pi},
ViewPoint -> {0, -5, 2},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 << Graphics`ParametricPlot3D`;
SphericalPlot3D[
1 + Sin[7a] Sin[3b] + a/5,
{a, 0, Pi},
{b, 0, 2Pi},
ViewPoint -> {3, 1, 2},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]		 << Graphics`ParametricPlot3D`;
SphericalPlot3D[
2 + Sin[7s] Sin[3t],
{s, 0, Pi},
{t, 0, 2Pi},
ViewPoint -> {2, 1, 0.3},
PlotPoints -> {50, 50},
Boxed -> False,
Axes -> None]

Back to Tohsuke Urabe Laboratory

Send your opinions and comments to .