%PLO_LEV is to plot the controllable target level curve for the BALL MAP
% It is for omega=22 rad/sec

% Last modified by S. H. Zak on Oct. 30, 1998

V_max=5.006;
x_0=[sqrt(V_max/8.6394)+41.1/180*pi 2*pi]';
tspan=[0 .6];
[t,v]=ode45('levelc',tspan,x_0);
plot(v(:,1),v(:,2)/2/pi)
plot(v(:,1)+2*pi,v(:,2)/2/pi)
