卜部東介研究室 |1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|終わりに

ParametricPlot3D[
{(3.2 + 0.7 Cos[u])Sin[v] Cos[v],
(2.8 + 0.5 Cos[u]) Sin[1.3 v]Cos[v],
0.46 Sin[u] + Exp[v/4.8]},
{u, 0, 2Pi}, {v, -3 Pi, 3 Pi},
ViewPoint -> {1.3, 1.585, 1.25},
PlotPoints -> {25, 150},
Boxed -> False,
Axes -> None]
ParametricPlot3D[
{(2 + 0.5 Cos[u]Cos[v]) Cos[v]Sin[v],
(2 + 0.3 Cos[u]) Sin[v/3],
0.5 Sin[u] + Sin[v] + v/5},
{u, 0, 2 Pi}, {v, -3 Pi, 3 Pi},
PlotPoints -> {25, 100},
Boxed -> False,
Axes -> None]
ParametricPlot3D[
{(1 + (1.2*0.8Sin[u])* Cos[u]) Sin[v],
(1 + (1.2*0.8Sin[u])* Cos[u]) Cos[v],
0.8 Sin[u] + 0.6v},
{u, 0, 2Pi},
{v, -1.7Pi, 2 Pi},
PlotPoints -> {60, 60},
ViewPoint -> {1, 2, 0.7},
Boxed -> False,
Axes -> None]

卜部東介研究室に戻る


ご意見、ご感想をぜひ まで!