弘前大学理工学部数理科学科

グラフィックギャラリー

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

[Graphics:HTMLFiles/gallery6_3.gif]

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

[Graphics:HTMLFiles/gallery6_7.gif]

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

[Graphics:HTMLFiles/gallery6_11.gif]

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

[Graphics:HTMLFiles/gallery6_15.gif]

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

[Graphics:HTMLFiles/gallery6_19.gif]

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

[Graphics:HTMLFiles/gallery6_23.gif]

ParametricPlot[{(0.3 + 0.5Cos[5t] - 0.15Cos[15t]) Cos[2t], (0.3 + 0.5Cos[5t] - 0.15Cos[15t]) Sin[2t]}, {t, 0, 2Pi}, AspectRatio→Automatic]

[Graphics:HTMLFiles/gallery6_27.gif]

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

[Graphics:HTMLFiles/gallery6_31.gif]

$ParametricPlot[{2Cos[t] Sin[t], Sin[5t/2] Cos[2t] + Sin[t]^2}, {t, 0, 8Pi}, AspectRatio→Automatic]$

[Graphics:HTMLFiles/gallery6_35.gif]

[Graphics:HTMLFiles/gallery6_39.gif]

[Graphics:HTMLFiles/gallery6_43.gif]

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

[Graphics:HTMLFiles/gallery6_47.gif]

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

[Graphics:HTMLFiles/gallery6_51.gif]

$ParametricPlot[{Sin[6t]^3 + 3, Cos[4t]^3 (2 + Sin[t]) + 3}, {t, 0, 2Pi}, AspectRatio→Automatic, PlotRange->All]$

[Graphics:HTMLFiles/gallery6_55.gif]

Created by Mathematica (December 9, 2008)