% examp.m 96/08/12
%
% Program to plot an ellipse on a vector field
%

    np=50;
    t=pi*(0:np)/np; 
    x=2*cos(t);
    y=sin(t);
    col='r-';
    plot(x,y,col);
    axis square;
    hold on;
    plot([0 0],[-4 4],'w-');
    plot([-4 4],[0 0],'w-');
    p2=[x(29); y(29)];
    p1=[x(28); y(28)];
    set(gcf,'DefaultTextColor','red');
    text(-1,1.3,'C');
    set(gcf,'DefaultTextColor','white');
    plot(x(1),y(1));
    plot(x(np+1),y(np+1),col);
    len=.3;
    arrow2(p1,p2,len,col);
    hold off;
