% polfig2.m   96/07/21
%
% Create a figure in polar coordinates with
% a<=r<=b and c<=theta<=d
%
    con=pi/180;
    c=35*con
    d=55*con
    theta=c+(d-c)*(0:20)/20;
    a=1.45;
    b=1.65;

    hold off;
    plot([a*cos(c) b*cos(c)],[a*sin(c) b*sin(c)],'w-');
    hold on
    axis([-.5 2.5 -.5 2.5]);
    axis square;
    plot([a*cos(d) b*cos(d)],[a*sin(d) b*sin(d)],'w-');
    plot([-.5 5],[0 0],'w-');
    plot([0 0],[-.5 5],'w-');
    xa=a*cos(theta); ya=a*sin(theta);
    xb=b*cos(theta); yb=b*sin(theta);
    plot(xa,ya,'w-')
    plot(xb,yb,'w-')
    plot([0 a*cos(c)],[0 a*sin(c)],'w--');
    plot([0 a*cos(d)],[0 a*sin(d)],'w--');

% Text

%    xlabel('x');
%    ylabel('y');
    text(0.9,0.9,'r');
    text(1.22,1.26,'r+dr');
    text(1.3,.77,'theta');
    text(-.03,1.3,'theta+d(theta)');
    text(2,-.15,'x');
    text(-.2,2,'y');
