宇宙


[Graphics:HTMLFiles/index_71.gif]

この画像はフィクションです。実在の人物や団体とは一切関係ありません。
ノンフィクションだった場合、全てが崩壊します。

3年F組　29番　松田和磨

en1 = ParametricPlot3D[{2 Cos[-x], 0.1y, Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
en2 = ParametricPlot3D[{ 3Cos[-x], 0.1y, 1.5 Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
en3 = ParametricPlot3D[{ 4 Cos[-x], 0.1y, 2Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
en4 = ParametricPlot3D[{ 5 Cos[-x], 0.1y, 2.5 Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
en5 = ParametricPlot3D[{10 Cos[-x], 0.1y, 5 Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
en6 = ParametricPlot3D[{12 Cos[-x], 0.1y, 6 Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
en7 = ParametricPlot3D[{16 Cos[-x], 0.1y, 8 Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
en8 = ParametricPlot3D[{20 Cos[-x], 0.1y, 10 Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.1}, ViewPoint -> {0, 2, 1}, Boxed -> False, Axes -> None]
ta1 = ParametricPlot3D[            &n ... v] Cos[u], 1.5 Sin[v] Sin[u], 1.5 Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> False, Axes -> None]
mercury = ParametricPlot3D[           &nbs ... n[v] Sin[u] + 1.5, 0.13  Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
venus = ParametricPlot3D[             ... n[v] Sin[u] - 2.2, 0.25  Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
earth = ParametricPlot3D[             ... Sin[v] Sin[u] - 1, 0.23  Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
mars = ParametricPlot3D[            & ... n[v] Sin[u] - 4.8, 0.15  Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
jupiter = ParametricPlot3D[           &nbs ... Sin[v] Sin[u] - 9, 0.75  Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
saturn = ParametricPlot3D[             ... n[v] Sin[u] + 9.7, 0.67  Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
wa = ParametricPlot3D[{Cos[x] + 4, 1.6y + 9.7, 0.7Sin[x]}, {x, 0, 2 Pi}, {y, 0, 0.3}, ViewPoint -> {0, 2, 1}, Boxed -> True, Axes -> True]
uranus = ParametricPlot3D[             ... in[v] Sin[u] + 10, 0.43  Cos[v]}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
neptune = ParametricPlot3D[           &nbs ... Sin[u] - 14, 0.41  Cos[v] + 4.3}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
moon = ParametricPlot3D[            & ... in[u] + 8.2, 0.05  Cos[v] + 4.3}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
io = ParametricPlot3D[            &nb ... in[u] - 1.5, 0.05  Cos[v] + 4.3}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
europa = ParametricPlot3D[             ... n[v] Sin[u], 0.05  Cos[v] + 4.3}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
ganymede = ParametricPlot3D[           &nb ... n[v] Sin[u], 0.05  Cos[v] + 4.7}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
callisto = ParametricPlot3D[           &nb ... n[v] Sin[u], 0.05  Cos[v] + 3.4}, {u, -Pi, Pi}, {v, 0, Pi}, Boxed -> True, Axes -> True]
Show[en1, en2, en3, en4, en5, en6, en7, en8, ta1, mercury, venus, earth, mars, jupiter, satu ... iewPoint -> {0, 2, 1}, PlotRange -> {{-20, 20}, {-15, 15}, {-15, 15}}, Boxed -> False, Axes -> None]