エピサイクロイド

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

[Graphics:HTMLFiles/index_3.gif]

-Graphics -

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

[Graphics:HTMLFiles/index_6.gif]

-Graphics -

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

[Graphics:HTMLFiles/index_9.gif]

-Graphics -

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

[Graphics:HTMLFiles/index_12.gif]

-Graphics -

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

[Graphics:HTMLFiles/index_15.gif]

-Graphics -

a := 5 ; b := 3 ParametricPlot[{(a + b) Cos[t] - b Cos[(a/b + 1) t], (a + b) Sin[t] - b Sin[(a/b + 1) t]}, {t, 0, 6 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_18.gif]

-Graphics -

エピ外トロコイド

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

[Graphics:HTMLFiles/index_22.gif]

-Graphics -

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

[Graphics:HTMLFiles/index_25.gif]

-Graphics -

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

[Graphics:HTMLFiles/index_28.gif]

-Graphics -

a := 8 ; b := 1 ; c := 3 ParametricPlot[{(a + b) Cos[t] - c Cos[(a/b + 1) t], (a + b) Sin[t] - c Sin[(a/b + 1) t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_31.gif]

-Graphics -

a := 32 ; b := 1 ; c := 8 ParametricPlot[{(a + b) Cos[t] - c Cos[(a/b + 1) t], (a + b) Sin[t] - c Sin[(a/b + 1) t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_34.gif]

-Graphics -

a := 8 ; b := 3 ; c := 5 ParametricPlot[{(a + b) Cos[t] - c Cos[(a/b + 1) t], (a + b) Sin[t] - c Sin[(a/b + 1) t]}, {t, 0, 6 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_37.gif]

-Graphics -

エピ内トロコイド

a := 3 ; b := 1 ; c := 0.5 ParametricPlot[{(a + b) Cos[t] - c Cos[(a/b + 1) t], (a + b) Sin[t] - c Sin[(a/b + 1) t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_41.gif]

-Graphics -

a := 5 ; b := 1 ; c := 0.5 ParametricPlot[{(a + b) Cos[t] - c Cos[(a/b + 1) t], (a + b) Sin[t] - c Sin[(a/b + 1) t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_44.gif]

-Graphics -

a := 12 ; b := 1 ; c := 0.5 ParametricPlot[{(a + b) Cos[t] - c Cos[(a/b + 1) t], (a + b) Sin[t] - c Sin[(a/b + 1) t]}, {t, 0, 2 Pi}, AspectRatio -> Automatic]

[Graphics:HTMLFiles/index_47.gif]

-Graphics -

Converted by Mathematica  (June 14, 2004)