% ECE 111 Lecture #2
% Plot r = cos(q)


q = [0:0.002:1]' * 2*pi;
r = 1;
x1 = r * cos(q);
y1 = r * sin(q);

r = cos(q);
x2 = r .* cos(q);
y2 = r .* sin(q);

for i=1:length(q)
   Q = q(i);
   R = r(i);
   X = R * cos(Q);
   Y = R * sin(Q);
   plot(x1,y1,'g-',x2,y2,'b-',X,Y,'ro',[0,cos(Q)],[0,sin(Q)],'r-');
   pause(0.01);
   end