卜部東介研究室 |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 + Cos[u]*Cos[v] - Cos[u]*Sin[2v])*Cos[u], (1 + Cos[u/6]*Sin[v] - Sin[u/4]*Cos[4v]) *Sin[u]*Sin[v], (Sin[u]*Sin[v]*Cos[v] + Cos[u]*Sin[2v]*Sin[v])}, {u, 0, 2Pi}, {v, 0, 2Pi}, ViewPoint -> {0.280, -1.790, 0.950}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	g1 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, -4Pi + 0.01, -7Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g2 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, -7Pi/2 + 0.01, -5Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g3 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, -5Pi/2 + 0.01, -3Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g4 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, -3Pi/2 + 0.01, -Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g5 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, -Pi/2 + 0.01, Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g6 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, -Pi/2 + 0.01, Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g7 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, Pi/2 + 0.01, 3Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g7 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, 3Pi/2 + 0.01, 5Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g8 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, 5Pi/2 + 0.01, 7Pi/2 - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; g9 = ParametricPlot3D[ {u Tan[v], 2 u Sin[v], v + 2}, {u, -4, 4}, {v, 7Pi/2 + 0.01, 4Pi - 0.01}, PlotPoints -> {25, 50}, DisplayFunction -> Identity ]; Show[ {g1, g2, g3, g4, g5, g6, g7, g8, g9}, Boxed -> False, Axes -> None, DisplayFunction -> $DisplayFunction]	ParametricPlot3D[ {Cos[u], Sin[v], Cos[u - v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, ViewPoint -> {-1.997, 2.300, 2.218}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]	ParametricPlot3D[ {Cos[Sin[x]] + Sin[y] Cos[x^2], Sin[Cos[y]] - Cos[y] Sin[x^2], x + y}, {x, -Pi, Pi}, {y, -Pi, Pi}, PlotPoints -> {50, 50}, Boxed -> False, Axes -> None]

卜部東介研究室に戻る

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