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

グラフィックギャラリー

曲面の部屋4

砂時計

f[u_] := 10^(-2.6) (u + 8) (u - 8) (u^2 + 1) ; g[u_] := u

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

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}, ViewPoint→ {3, -6, 3}]

[Graphics:HTMLFiles/gallery8_7.gif]

-Graphics3D -

栗

f[u_] := -0.03 (u + 5) (u + 1) (u^2 - u - 2) ; g[u_] := 0.7u

a := -5 ; b := -1 ; c := 0 ; d := 2Pi

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}, ViewPoint→ {1, -3, 2}]

[Graphics:HTMLFiles/gallery8_13.gif]

-Graphics3D -

茶碗

f[u_] := 2.1 - 2Sin[u] ; g[u_] := -u Sin[u] - Cos[1.5u]

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}, PlotPoints→40, ViewPoint→ {1, -3, 2}]

[Graphics:HTMLFiles/gallery8_19.gif]

-Graphics3D -

気球

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

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

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

[Graphics:HTMLFiles/gallery8_25.gif]

-Graphics3D -

グラス

f[u_] := 2 + Sin[u] ; g[u_] := 0.2u^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/gallery8_31.gif]

-Graphics3D -

キノコ

f[u_] := -0.05 (u + 3) (u - 3) Log[u^6 + 4]/(Sin[u] + 2)^(Sin[u^3]) ; g[u_] := 1.8u

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

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

[Graphics:HTMLFiles/gallery8_37.gif]

-Graphics3D -

器の中の器

f[u_] := 2 + Sin[u]^3 ; g[u_] := u Cos[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/gallery8_43.gif]

-Graphics3D -

クリスマスツリ -

f[u_] := {5, 1, u}

g[u_] := {Cos[u], Sin[u], 2.5}

ParametricPlot3D[f[u] + v g[u], {u, 5.4, 9.7Pi}, {v, -7.5, 1.9}, PlotPoints→30]

[Graphics:HTMLFiles/gallery8_49.gif]

-Graphics3D -

りんご

f[u_] := u Sin[u] ; g[u_] := u Cos[u]

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

ParametricPlot3D[{f[u] Cos[v], f[u] Sin[v], g[u]}, {u, a, b}, {v, c, d}, ViewPoint→ {3, 2, 2.2}]

[Graphics:HTMLFiles/gallery8_55.gif]

-Graphics3D -

帽子

f[u_] := u + 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/gallery8_61.gif]

-Graphics3D -

グラス

f[u_] := -u + Sin[u - Cos[u - Sin[u]]] ; g[u_] := u

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

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

[Graphics:HTMLFiles/gallery8_67.gif]

-Graphics3D -

テント

f[u_] := Abs[Cos[u]] - Abs[u - 2] ; g[u_] := u

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

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

[Graphics:HTMLFiles/gallery8_73.gif]

-Graphics3D -

星型花瓶

f[u_] := {Cos[u], Sin[u], 0}

g[u_] := {-Sin[u]/(4 + Sin[5u]), Cos[u]/(4 + Sin[5u]), 2}

ParametricPlot3D[f[u] + v g[u], {u, -Pi, Pi}, {v, -5, 5}]

[Graphics:HTMLFiles/gallery8_79.gif]

-Graphics3D -

仏舎利

f[u_] := u + Sin[u] + Cos[Exp[u]] ; g[u_] := -4u + Cos[Exp[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/gallery8_85.gif]

-Graphics3D -

Created by Mathematica  (December 22, 2008) Valid XHTML 1.1!
このページのトップへ戻る