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

| アクセス |

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

グラフィックギャラリー

曲線の部屋6

虹

R := 10 + t

Q := 3Sin[3.5t]^2

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

[Graphics:HTMLFiles/gallery14/index_5.gif]

-Graphics -

気球

R := Cos[7t]^2

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

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

[Graphics:HTMLFiles/gallery14/index_11.gif]

-Graphics -

虫

R := 4 - 10Cos[3t]

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

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

[Graphics:HTMLFiles/gallery14/index_17.gif]

-Graphics -

蚊取線香

R := Sin[t]

Q := t + 10Cos[2t] + Pi

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

[Graphics:HTMLFiles/gallery14/index_23.gif]

-Graphics -

毬栗

R := Sin[150t] Cos[45t] + 1

Q := Pi Cos[t] + 1.5

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

[Graphics:HTMLFiles/gallery14/index_29.gif]

-Graphics -

玉ねぎの断面

R := 10 + 10Sin[10t] Sin[100010 + Log[t]]

Q := 1010 + Cos[10t] Cos[100 + Log[10t]]

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

[Graphics:HTMLFiles/gallery14/index_35.gif]

-Graphics -

バナナ

R := 1 + Cos[t] + Sin[t]

Q := t - 3Sin[t]

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

[Graphics:HTMLFiles/gallery14/index_41.gif]

-Graphics -

本をめくる

R := 1 + Cos[t^2]

Q := 1 + Sin[t]

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

[Graphics:HTMLFiles/gallery14/index_47.gif]

-Graphics -

振り子

R := Exp[t] - 80

Q := 1/t^7 + 1

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

[Graphics:HTMLFiles/gallery14/index_53.gif]

-Graphics -

大仏

R := Cos[3t]

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

ParametricPlot[{R Cos[Q], R Sin[Q]}, {t, 0, 10Pi}, AspectRatio→Automatic, PlotStyle→RGBColor[0.3, 0.5, 0]]

[Graphics:HTMLFiles/gallery14/index_59.gif]

-Graphics -

彼岸花

R := 5Cos[t] Cos[2t] Sin[t]

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

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

[Graphics:HTMLFiles/gallery14/index_65.gif]

-Graphics -

雪の結晶

R := Sin[30t] + Cos[6t] + 2.5

Q := t + 3.5

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

[Graphics:HTMLFiles/gallery14/index_71.gif]

-Graphics -

さくら

R := 7 + 5Sin[180t] - 6Cos[5t]

ParametricPlot[{R Cos[t], R Sin[t]}, {t, 0, 2Pi}, AspectRatio→Automatic, PlotPoints→500, PlotStyle→RGBColor[1, 0.3, 0.8]]

[Graphics:HTMLFiles/gallery14/index_76.gif]

-Graphics -

花

R := 1 + 3Sin[19t]

Q := 3t

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

[Graphics:HTMLFiles/gallery14/index_82.gif]

-Graphics -

華

R := -Cos[t] - 0.7

Q := 1.8Sin[t] - 6t/Pi

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

[Graphics:HTMLFiles/gallery14/index_88.gif]

-Graphics -

浪裏

R := t + Cos[Exp[t]]

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

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

[Graphics:HTMLFiles/gallery14/index_94.gif]

-Graphics -


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