卜部東介研究室 |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|終わりに　

ParametricPlot3D[ {1/4 Sin[u ] , Cos[u]Sin[v]Cos[v]Sin[u]Cos[v], Cos[v]Sin[u] Cos[u]Sin[v] }, {u, 0, 2Pi}, {v, 0, 2 Pi}, ViewPoint -> {1.300, -2.400, 2.000}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {2/3Cos[ u] *Sin[u], 1/3 Cos[u + 1/2Pi]Sin[v + 1/2 u]Cos[v]Sin[u] + 1/2Cos[u], Cos[v]Sin[u] Cos[u]Sin[v] + Sin[v/2]}, {u, 0, 2Pi}, {v, 0, 2 Pi}, ViewPoint -> {1.109, 0.464, -3.163}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	g1 = ParametricPlot3D[ {2Sin[x], Cos[3x]/x + y/2, 2Cos[3y]}, {x, -Pi, -0.01}, {y, 1, 2Pi}, PlotPoints -> {25, 50}, DisplayFunction -> Identity]; g2 = ParametricPlot3D[ {2Sin[x], Cos[3x]/x + y/2, 2Cos[3y]}, {x, 0.01, Pi}, {y, 1, 2Pi}, PlotPoints -> {25, 50}, DisplayFunction -> Identity]; Show[ {g1, g2}, ViewPoint -> {1.299, 0.445, -8.885}, Boxed -> False, Axes -> None, DisplayFunction -> $DisplayFunction]

卜部東介研究室に戻る

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