リサ - ジュ曲線

a := 1 ; b := 2 ParametricPlot[{Cos[a t], Sin[b t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_3.gif]

-Graphics -

a := 3 ; b := 2 ParametricPlot[{Cos[a t], Sin[b t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_6.gif]

-Graphics -

a := 5 ; b := 6 ParametricPlot[{Cos[a t], Sin[b t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_9.gif]

-Graphics -

正葉曲線

a := 1 ParametricPlot[{Sin[(2 a + 1) t] Cos[t], Sin[(2 a + 1) t] Sin[t]}, {t, 0, Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_13.gif]

-Graphics -

a := 1 ParametricPlot[{Sin[2 a t] Cos[t], Sin[2 a t] Sin[t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_16.gif]

-Graphics -

a := 2 ParametricPlot[{Sin[(2 a + 1) t] Cos[t], Sin[(2 a + 1) t] Sin[t]}, {t, 0, Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_19.gif]

-Graphics -

a := 2 ParametricPlot[{Sin[2 a t] Cos[t], Sin[2 a t] Sin[t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_22.gif]

-Graphics -

a := 10 ParametricPlot[{Sin[2 a t] Cos[t], Sin[2 a t] Sin[t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_25.gif]

-Graphics -

アルキメデスのら線

ParametricPlot[{t Cos[t], t Sin[t]}, {t, 0, 20 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_29.gif]

-Graphics -

対数ら線

ParametricPlot[{Exp[0.1 t] Cos[t], Exp[0.1 t] Sin[t]}, {t, 0, 10 Pi}, AspectRatio -> Automatic, PlotRange -> All]

[Graphics:HTMLFiles/index_33.gif]

-Graphics -

Converted by Mathematica  (May 15, 2004)