' - -File: IIIPolar1.txt
pi = 3.14159

R{t} = 1 + Cos[t]

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

t0 =-pi  :  tf = pi :  n = 200
Plot[Fa, {t, t0, tf, n}] 

<t=3>                                ' Used for numerical checks.   !

' Under Display Data, the text output option: { } --> ( ) ,etc. only appllies to the output, and
'    not to the worksheet. This action is for  hardcopy only. 



