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

グラフィックギャラリー

曲線の部屋5

紅葉

R := 3 + Sin[5t]^3

Q := t

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_5.gif]

-Graphics -

雪の結晶

R := 1.6 + 1.2Sin[6t]^5

Q := t + Pi/12

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_11.gif]

-Graphics -

台風の目

R := t + Exp[0.1t]

Q := 10Sin[5t] Cos[t]

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic, PlotPoints→50]

[Graphics:HTMLFiles/gallery11/index_17.gif]

-Graphics -

旋風

R := 2 - 3Sin[3t]

Q := t + 2Cos[6t] + Pi/2

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_23.gif]

-Graphics -

しずく

R := 6 + Cos[2t]

Q := t + Sin[t] - Pi/2

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_29.gif]

-Graphics -

風船

R := 1 + Sin[5t]/Sin[t] + Cos[2t]

Q := t + Sin[t] + Pi/4

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic, PlotRange→All]

[Graphics:HTMLFiles/gallery11/index_35.gif]

-Graphics -

凧

R := Cos[8t] + 3

Q := Sin[t] + Cos[t] + Pi + t

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_41.gif]

-Graphics -

うさぎ

R := Cos[t] Sin[t]

Q := Sin[t] + Pi + t

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_47.gif]

-Graphics -

パイナップル

R := 3Sin[6t]

Q := Sin[5t] + Cos[t]/2 + Pi/2

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_53.gif]

-Graphics -

鋏

R := Sin[2t] + Cos[3t]

Q := t + Sin[2t] + Pi/2

ParametricPlot[{R^2 Cos[Q], Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic, PlotRange→All]

[Graphics:HTMLFiles/gallery11/index_59.gif]

-Graphics -

蛾

R := Cos[10t] Sin[7t]

Q := Sin[9t]

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_65.gif]

-Graphics -

しじみ貝

R := Cos[t] - Sin[2t + t^2]

Q := Sin[2t + t^2 + 5]

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_71.gif]

-Graphics -

バナナ

R := Cos[t] - Sin[2t + t^2]

Q := Sin[2t + t^2 + 6]

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_77.gif]

-Graphics -

しじみ貝

R := Cos[t]

Q := 5Sin[3t] Cos[2t]

ParametricPlot[{R Cos[Q], R Sin[2Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_83.gif]

-Graphics -

牙

R := 5 + Cos[t]

Q := 2.7Sin[2t] - Pi/2

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_89.gif]

-Graphics -

勾玉

R := Sin[t] - Cos[t]

Q := t + Sin[2t]

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery11/index_95.gif]

-Graphics -

古代の紋様

R := 5 + 4Cos[20t]

Q := t + Sin[30t] + Pi/4

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 2Pi}, AspectRatio→Automatic, PlotPoints→50]

[Graphics:HTMLFiles/gallery11/index_101.gif]

-Graphics -

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