% curve.m  96/07/29
%
% Plot of ellipse in xy plane
%
% x^2/4+y^2=1
%

    t=2*pi*(0:50)/50;
    x=2*cos(t); y=sin(t);

    hold off;
    plot(x,y,'w-');  
    hold on;
    axis square;
    axis([-3 3 -3 3]);
    plot([-2.5 -2.5],[-3 3],'w-');
    plot([-3 3],[-2.5 -2.5],'w-');

    text(2.5,-2.3,'x');
    text(-2.3,2.5,'y');
    text(-.8,.5,'R');
    text(1.6,.9,'C');

    t=1;
    p1=[2*cos(t); sin(t)];
    t=1.1
    p2=[2*cos(t); sin(t)];
    arrow(p1,p2,.2);
    hold off;
