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

| アクセス |

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

グラフィックギャラリー

曲線の部屋4

怪人

ParametricPlot[{Cos[t]/(1 + Sin[6t]^2), Sin[t]/(2 + Sin[7t])}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_3.gif]

-Graphics -

翼の使者

ParametricPlot[{Sin[100t]^2 + 5Cos[9t] Cos[3t] + Cos[t] - Sin[t] Cos[t], 9Sin[t] Cos[3t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_7.gif]

-Graphics -

くらげ

ParametricPlot[{5Cos[5t]/(3 + Sin[t]), 2Sin[7t] Sin[3t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_11.gif]

-Graphics -

鹿

ParametricPlot[{Cos[t]/(1 + Sin[6t]^2), Sin[t]/(2 + Sin[7t]) - Cos[4t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_15.gif]

-Graphics -

歯

ParametricPlot[{Cos[t]/(1 + Sin[t]^2), Cos[4t] - Sin[3t]/(2 + Sin[9t]) - Cos[4t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_19.gif]

-Graphics -

手鞠

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

[Graphics:HTMLFiles/gallery10_23.gif]

-Graphics -

肺

ParametricPlot[{Sin[3t]^3, Cos[6t]^3 - Sin[2t]^12}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_27.gif]

-Graphics -

鬼

ParametricPlot[{Cos[20t] + Cos[2t]^2Sin[2t]^40/(1 + Cos[1000t]^4), Sin[20t] + 2Sin[2t]^2Cos[20t]^10/(1 + Sin[t]^4)}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_31.gif]

-Graphics -

檸檬

ParametricPlot[{Cos[14t]^7 - 4Sin[7t], 3Cos[7t] Sin[43t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_35.gif]

-Graphics -

だるま

ParametricPlot[{4Sin[t] + 3Sin[2t] - 2Sin[3t] + 2Sin[4t], 4Cos[t] + 3Cos[2t] - 2Cos[3t] + 2Cos[4t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_39.gif]

-Graphics -

菊

ParametricPlot[{Sin[23t] + Cos[29t], Sin[29t] + Cos[23t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_43.gif]

-Graphics -

太陽光線

ParametricPlot[{Sin[2t]/Sin[13t], Cos[2t]/Sin[13t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_47.gif]

-Graphics -

兜

ParametricPlot[{(Cos[4t] + 1) Sin[2t], 0.7 (Cos[6t]^5 + Sin[t])}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_51.gif]

-Graphics -

S

ParametricPlot[{Cos[1000t] - 2Sin[3t], 2Sin[t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_55.gif]

-Graphics -

ハサミ

ParametricPlot[{(Cos[t] + Cos[3t]) (Sin[3t] + Sin[t]), (Sin[2t] + Cos[3t]) (Cos[3t] - Sin[4t])}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_59.gif]

-Graphics -

ちょうちょ

ParametricPlot[{Cos[2t + 3] (Cos[3t + 2] + Sin[3t + 2]), Sin[4t + 2] Cos[2t + 3]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery10_63.gif]

-Graphics -


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