尝试
t = 0.0;
TSTOP = 6.0;
y = [1.5 0];
h = 0.1;
[t，y] = ode45（@deqs，[0 tstop]，y）;
情节（t，y（：，1），'ko-'）
Xlabel（“时间）”）；ylabel（'H/R'）
网格上
功能f = deqs（x，y）
p = sqrt（2*y（1）-y（1）^2）;
q = 1 -y（1）;
f =零（2,1）;
f（1）= y（2）;
f（2）= 2/pi*（atan（q/p） + q*p）;
结尾％功能DEQ
