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

g1 = ParametricPlot3D[ {Sin[v]Cos[u], Sin[v]Sin[u], Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, ViewPoint -> {0.659, 3.311, -0.226}, PlotPoints -> {50, 25}, Boxed -> False, Axes -> None, DisplayFunction -> Identity]; g2 = ParametricPlot3D[ {Sin[v]Cos[u], Sin[v]Sin[u], Cos[v] - 3.5}, {u, -Pi, Pi}, {v, 0, Pi}, ViewPoint -> {0.659, 3.311, -0.226}, PlotPoints -> {50, 25}, Boxed -> False, Axes -> None, DisplayFunction -> Identity]; g3 = ParametricPlot3D[ {Tan[v]Sin[u]/2, Tan[v]Cos[u]/2, 2v - 3}, {u, -Pi, Pi}, {v, 0, Pi/2 - 0.01}, ViewPoint -> {0.659, 3.311, -0.226}, PlotPoints -> {50, 25}, Boxed -> False, Axes -> None, DisplayFunction -> Identity]; g4 = ParametricPlot3D[ {Tan[v]Sin[u]/2, Tan[v]Cos[u]/2, 2v - 3}, {u, -Pi, Pi}, {v, Pi/2 + 0.01, Pi}, ViewPoint -> {0.659, 3.311, -0.226}, PlotPoints -> {50, 25}, Boxed -> False, Axes -> None, DisplayFunction -> Identity]; Show[{g1, g2, g3, g4}, DisplayFunction -> $DisplayFunction]	ParametricPlot3D[ {{Sin[v] Sin[u], Cos[v] Cos[u], Cos[v]}, {Cos[u]/10, Sin[u]/10, v - 1}}, {u, -Pi, Pi}, {v, 0, Pi}, ViewPoint -> {-2.783, -4.310, 1.447}, PlotPoints -> {25, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {{Sin[v] Cos[u], Sin[v] Sin[u], Cos[v]}, {Cos[u]/2, Sin[u]/2, v - 1}}, {u, 0, 3Pi/2}, {v, 0, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	<< Graphics`Shapes`; Show[Graphics3D[ {TranslateShape[Sphere[0.7], {0, 0, 1}], Cone[]}], ViewPoint -> {2, 0, 1}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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