function h1=polar2(a)

% The function POLAR2 creates polar coordinates in a new figure
% with 0 degrees located at the 12 o'clock position and 
% degrees increasing clockwise.
% Non MATLAB Library routine called is: POLARS.
%
% Calling sequence-
% polar2(a)
%
% Input-
%	a	- the radius
% Output-
%	h1	- the handle of the figure
%
% Example-
%	(1) do first:  h=econtour(x,x,matrix);
%	you can then find an appropriate radius.
%	(2) do:        polar2(r);
%	(3) do again:  h=econtour(x,x,matrix);
%	(4) do:        eclabel(h,'fontsize',6); hold off;
% See also-     
%	RO2XY.cpp, ECONTOUR, ECLABEL.  

d=linspace(0,2*pi,200)';
r=a*ones(200,1);
polars(d,r,'w');    
h=get(gca,'children');
set(h(1),'linewidth',1.);
n=length(h);
for i=14:19,
   set(h(i),'linestyle',':','linewidth',.5);
end
for i=21:2:n,
   set(h(i),'linestyle',':','linewidth',.5);
end
hold on