' - - File: III_Polar1.txt    
cx=.25
pi = 3.14159

R{t} = cx + Cos[2*pi*t]             ' Let cx constant vary between one and two.

X{t} = 4 *R{t} * Cos[2*pi*t]       ' Conversion from polar to rectangular.
Y{t} = 4 *R{t} * Sin[2*pi*t]
Z{t} = 0                              ' 2D graph; set 3rd coordinage to zero.
Fa<t> = <X,Y,Z>

t0 =-1  :  tf = 1:  n = 500
Plot[Fa, {t, t0, tf, n}]











