disp(['radians      degrees      r '])
for i=.1:.03:2;
t=0:.01:i*pi/2;
degree=i*180;
r=2*cos(t);
polar(t,r);
disp(num2str([ max(t) degree cos(max(t)) ]));
pause(.25)
end
