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

| アクセス |

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

グラフィックギャラリー

曲面の部屋6

グラス

A := {0.9, 0.1, 0.1, 0.1, 0.61, 0.61, 0.61, 0.61, 0.61, 0.61}

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}]

[Graphics:HTMLFiles/gallery15_7.gif]

-Graphics3D -

ソフトクリ - ム

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_15.gif]

-Graphics3D -

茶碗

A := {5, 4.5, 4, 5.8, 6.6, 7.4, 8.2, 9, 9.8, 10.6, 11.1, 11.5, 11.8, 12, 12.1}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_23.gif]

-Graphics3D -

花瓶

A := {5, 5.8, 6.6, 7.4, 8.1, 8.8, 9.4, 10, 10.5, 10.9, 11.2, 11.4, 11.6, 11.8, 11.9, 11.8, 11.2, 10.3, 9, 7.4, 6, 5, 4.6, 4.3, 4, 4.2, 4.4, 4.7, 5.2, 5.9}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_31.gif]

-Graphics3D -

ルビンの壷 (盃と顔図形)

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_39.gif]

-Graphics3D -

風船

A := {0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 1, 1.8, 2.5, 3, 3.5, 3.8, 4, 3.7, 3.2, 2.5, 0}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_47.gif]

-Graphics3D -

フラスコ

A := {3, 4.5, 5.8, 6.9, 7.8, 8.5, 9, 9.4, 9.7, 9.9, 10, 10, 9.9, 9.7, 9.4, 9, 8.5, 7.8, 6.9, 5.8, 4.5, 3.5, 2.5, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_55.gif]

-Graphics3D -

ヨ - ロッパの建物

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_63.gif]

-Graphics3D -

道路コ - ン

A := {7, 6.8, 5.5, 5.3, 5.1, 4.9, 4.7, 4.5, 4.3, 4.1, 3.9, 3.7, 3.5, 3.3, 3.1, 2.9, 2.7, 2.5, 2.3, 2.1, 1.9, 1.7, 1.5, 1.3, 1.1, 0.78, 0.0001}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_71.gif]

-Graphics3D -

ベルリン テレビ塔

A := {1.5, 1.1, 1, 0.9, 0.8, 0.75, 0.74, 0.73, 0.7, 0.69, 0.68, 0.67, 0.66, 0.65, 0.63, 0.61, 0.6, 0.59, 1.8, 2, 1.8, 0.5, 0.6, 0.1, 0.1, 0.1, 0.1, 0.1}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_79.gif]

-Graphics3D -

ワイングラス

A := {4, 0.7, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 2, 2.5, 2.8, 3, 3, 3, 3, 3, 3, 2.8, 2.7}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_87.gif]

-Graphics3D -

気球

A := {0, 1.3, 1.3, 1.3, 0.5, 0.3, 0.3, 0.7, 1.1, 1.5, 1.9, 2.3, 2.7, 3.1, 3.5, 3.9, 4.3, 4.7, 5.1, 5.5, 5.9, 6.3, 5.9, 5.5, 5.1, 4, 2.5, 0.1}

F := Interpolation[A, InterpolationOrder→1]

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

a := 1 ; b := 28 ; 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/gallery15_95.gif]

-Graphics3D -

ダンベル

A := {0.5, 0.5, 0.5, 3, 3, 3, 0.5, 0.5, 0.5, 0.5, 3, 3, 3, 0.5, 0.5, 0.5}

F := Interpolation[A, InterpolationOrder→1]

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

a := 1 ; b := 16 ; 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/gallery15_103.gif]

-Graphics3D -

熱燗

A := {1.6, 1.75, 1.9, 2, 2, 2, 2, 2, 2, 1.8, 1.3, 0.7, 1.4}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_111.gif]

-Graphics3D -

笠地蔵

A := {3.5, 3.8, 4, 4, 4, 4, 4, 3.8, 3.6, 3, 2, 3, 3.2, 3, 2, 5, 3.75, 2.5, 1.25, 0}

F := Interpolation[A, InterpolationOrder→1]

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

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

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

[Graphics:HTMLFiles/gallery15_119.gif]

-Graphics3D -


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