这货编的一个MATLAB程序一直死循环T T急求帮助
function[xp,yp,xm,ym]=euler4(h)Vp=135;Vm=450;xp(1)=0;yp(1)=120;xm(1)=0;ym(1)=0;d(1)=1...
function [xp,yp,xm,ym]=euler4(h)
Vp=135;Vm=450;
xp(1)=0;
yp(1)=120;
xm(1)=0;
ym(1)=0;
d(1)=120;
T(1)=0;
k=1;
while d>0.1
k=k+1;
xp(k)=xp(k-1)+Vp*(yp(k-1)-ym(k-1))*h/d(k-1);
yp(k)=yp(k-1)-Vp*(xp(k-1)-xm(k-1))*h/d(k-1);
xm(k)=xm(k-1)+Vm*(xp(k-1)-xm(k-1))*h/d(k-1);
ym(k)=ym(k-1)+Vm*(yp(k-1)-ym(k-1))*h/d(k-1);
d(k)=sqrt((xp(k)-xm(k))^2+(yp(k)-ym(k))^2);
T(k)=T(k-1)+h;
end;
end 展开
Vp=135;Vm=450;
xp(1)=0;
yp(1)=120;
xm(1)=0;
ym(1)=0;
d(1)=120;
T(1)=0;
k=1;
while d>0.1
k=k+1;
xp(k)=xp(k-1)+Vp*(yp(k-1)-ym(k-1))*h/d(k-1);
yp(k)=yp(k-1)-Vp*(xp(k-1)-xm(k-1))*h/d(k-1);
xm(k)=xm(k-1)+Vm*(xp(k-1)-xm(k-1))*h/d(k-1);
ym(k)=ym(k-1)+Vm*(yp(k-1)-ym(k-1))*h/d(k-1);
d(k)=sqrt((xp(k)-xm(k))^2+(yp(k)-ym(k))^2);
T(k)=T(k-1)+h;
end;
end 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询