Logarithmic Spiral
ParametricPlot[{e^(0.1 ƒÆ) Cos[ƒÆ], e^(0.1 ƒÆ) Sin[ƒÆ]}, {ƒÆ, 0, 6 ƒÎ}, AspectRatio-> Automatic]

-Graphics -

ƒJ - ƒWƒIƒCƒh
ParametricPlot[{(1 + Cos[ƒÆ]) Cos[ƒÆ], (1 + Cos[ƒÆ]) e^(0.1 ƒÆ) Sin[ƒÆ]}, {ƒÆ,0, 2 ƒÎ}, AspectRatio -> Automatic]

-Graphics -

ƒŠƒ}ƒ\ƒ“
ParametricPlot[{(2 Cos[ƒÆ] + 1) Cos[ƒÆ], (2 Cos[ƒÆ] + 1) Sin[ƒÆ]}, {ƒÆ, 0, 2 ƒÎ},AspectRatio -> Automatic]

-Graphics -

Butterfly
ParametricPlot[{e^(Sin[ƒÆ] - 2 Cos[4 ƒÆ]) Cos[ƒÆ], e^(Sin[ƒÆ] - 2 Cos[4 ƒÆ]) Sin[ƒÆ]},{ƒÆ, 0, 2 ƒÎ}, AspectRatio -> Automatic]

-Graphics -

Fancy     Butterfly

ParametricPlot[{(e^(Sin[ƒÆ] - 2 Cos[4 ƒÆ]) + Sin[ƒÆ/12])Cos[ƒÆ], (e^(Sin[_ ... os[4 ƒÆ]) + Sin[ƒÆ/12]) Sin[ƒÆ]}, {ƒÆ, 0, 24 ƒÎ}, AspectRatio-> Automatic]

-Graphics - 

Roses
ParametricPlot[{Sin[40 ƒÆ] Cos[ƒÆ], Cos[40 ƒÆ] Sin[ƒÆ]}, {ƒÆ, 0, 2 ƒÎ}, AspectRatio-> Automatic]

-Graphics - 

Roses
ParametricPlot[{Sin[41 ƒÆ] Cos[ƒÆ], Cos[41 ƒÆ] Sin[ƒÆ]}, {ƒÆ, 0, ƒÎ}, AspectRatio-> Automatic]

-Graphics -

Converted by Mathematica  (February 26, 2004)