サイクロイド

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

[Graphics:HTMLFiles/index_3.gif]

-Graphics -

外トロコイド

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

[Graphics:HTMLFiles/index_7.gif]

-Graphics -

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

[Graphics:HTMLFiles/index_10.gif]

-Graphics -

内トロコイド

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

[Graphics:HTMLFiles/index_14.gif]

-Graphics -

Converted by Mathematica  (May 15, 2004)