ハイポサイクロイド

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_3.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_6.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_9.gif]

-Graphics -

a := 12 ; 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 := 8 ; 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_15.gif]

-Graphics -

ハイポ外トロコイド

a := 4 ; 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_19.gif]

-Graphics -

a := 5 ; 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 := 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_25.gif]

-Graphics -

a := 5 ; b := 3 ; c := 4 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_28.gif]

-Graphics -

a := 7 ; 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_31.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_35.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_38.gif]

-Graphics -

a := 8 ; 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 -

Converted by Mathematica  (June 14, 2004)