PolarA17.mws

>

restart;

##################################################################

>	f := sin;         ##  r = f(theta)

>	trg := 0..Pi;     ##  parameter interval

>	plot([f(t), t, t=trg]);  ## Cartesian Plot

>	plot([f(t),t,t=trg],coords=polar);

################################################################

>	f := t  -> sin(4*t);  ##  r = f(theta)

>	trg := 0..2*Pi;       ##  parameter interval

>	plot([f(t),t,t=trg]); ##  Cartesian plot

>	plot([f(t),t,t=trg],coords=polar);

###############################################################

>	f := t  -> 1 + 2*cos(t/2);  ##  Problem 46

>	trg := 0..4*Pi;       ##  parameter interval

>	plot([f(t),t,t=trg],coords=polar);

>	#######################################################

>