(1) カテナリ -  　
Plot[Cosh[x], {x, -2, 2}, AspectRatio -> Automatic]

-Graphics -

(2)　楕円　
ParametricPlot[{Cos[t], 1.5Sin[t]}, {t, 0, 2π}]

-Graphics - 

(3) サイクロイド　
ParametricPlot[{t - Sin[t], 1 - Cos[t]}, {t, 0, 2 π}, AspectRatio -> Automatic]

-Graphics - 

(4) トラクトリクス

ParametricPlot[{Sin[t], Cos[t] + Log[Tan[t/2]]}, {t, 0, π}]

-Graphics -

(5) フォ - リウム　
ParametricPlot[{3 t/(1 + t^( 3)), 3 t^( 2)/(1 + t^( 3))}, {t, -2 π, 2 π}]

-Graphics -

Converted by Mathematica  (February 23, 2004)