弘前大学 理工学部 数物科学科 数理科学コース

| アクセス |

トップページグラフィックギャラリー > 曲面の部屋1

グラフィックギャラリー

曲面の部屋1

花びん

f[u_] := 2 + Sin[u] ; g[u_] := u

a := 0 ; b := 2Pi ; c := 0 ; d := 2Pi

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]

[Graphics:HTMLFiles/gallery2_5.gif]

- Graphics3D -

お銚子

f[u_] := 2 + Sin[u] ; g[u_] := 2u

a := 0 ; b := 1.85Pi ; c := 0 ; d := 2Pi

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]

[Graphics:HTMLFiles/gallery2_11.gif]

- Graphics3D -

ワイングラス

f[u_] := 2 + Sin[u] ; g[u_] := 0.1u^2

a := 0 ; b := 2.85Pi ; c := 0 ; d := 2Pi

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]

[Graphics:HTMLFiles/gallery2_17.gif]

- Graphics3D -

ビールびん

A := {1, 1, 1, 1, 1, 0.8, 0.5, 0.3, 0.3, 0.3}

F = Interpolation[A, InterpolationOrder -> 1]

f[u_] := F[u] ; g[u_] := u

a := 1 ; b := 10 ; c := 0 ; d := 2Pi

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]

InterpolatingFunction[{{1., 10.}}, <>]

[Graphics:HTMLFiles/gallery2_26.gif]

- Graphics3D -

ひょうたん

f[u_] := 0.2 (1 - u + 3u^2 - 2u^4) ; g[u_] := u

a := -1.44 ; b := 1.19 ; c := 0 ; d := 2Pi

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}]

[Graphics:HTMLFiles/gallery2_32.gif]

- Graphics3D -

トンネル

x[u_] := u ; y[u_] := Sin[u]

r := 0.5

ParametricPlot3D[{x[u], y[u], 0} + r Cos[v] {-y '[u], x '[u], 0}/Sqrt[x '[u]^2 + y '[u]^2] + r Sin[v] {0, 0, 1}, {u, 0, 2Pi}, {v, 0, Pi}, ViewPoint -> {5, 1, 2}]

[Graphics:HTMLFiles/gallery2_38.gif]

- Graphics3D -

すべり台

P[u_] := {3Cos[u], 3Sin[u], u}

r := 1

e1[u_] := P '[u]/Sqrt[P '[u] . P '[u]]

e2[u_] := e1 '[u]/Sqrt[e1 '[u] . e1 '[u]]

e3[u_] := Cross[e1[u], e2[u]]

ParametricPlot3D[P[u] + r Cos[v] e2[u] + r Sin[v] e3[u], {u, 0, 3Pi}, {v, 0, 2Pi}]

[Graphics:HTMLFiles/gallery2_47.gif]

- Graphics3D -

無限大

x[u_] := 2Sin[u] ; y[u_] := Sin[2u]

r := 0.3

ParametricPlot3D[{x[u], y[u], 0} + r Cos[v] {-y '[u], x '[u], 0}/Sqrt[x '[u]^2 + y '[u]^2] + r Sin[v] {0, 0, 1}, {u, 0, 2Pi}, {v, 0, Pi}, ViewPoint -> {0, 3, 3}]

[Graphics:HTMLFiles/gallery2_53.gif]

- Graphics3D -


Created by Mathematica  (July 21, 2006) Valid XHTML 1.1!
このページのトップへ戻る