Labfans是一个针对大学生、工程师和科研工作者的技术社区。 论坛首页 | 联系我们(Contact Us)
MATLAB爱好者论坛-LabFans.com
返回   MATLAB爱好者论坛-LabFans.com > 工程数学软件 > MATLAB论坛
MATLAB论坛 一切MATLAB相关问题在此讨论。
 
 
主题工具 显示模式
旧 2012-02-25, 11:16   #1
sky mat
初级会员
 
注册日期: 2012-02-25
年龄: 36
帖子: 1
声望力: 0
sky mat 正向着好的方向发展
默认 求各位大侠帮忙

clear;clc;
hold on
f1=inline('z2','z1','z2','z3','z4');
f2=inline('-1200*z1/(z1^2+z3^2)^1.5','z1','z2','z3','z4');
f3=inline('z4','z1','z2','z3','z4');
f4=inline('-1200*z3/(z1^2+z3^2)^1.5','z1','z2','z3','z4');
z10=30;z20=0;z30=0;z40=7.5;Ek=0;Ep=0;W=0;L=0;
fprintf('x=%.5f y=%.5f Vx=%.5f Vy=%.5f\n',z10,z30,z20,z40);
h=0.05;
plot(z10,z30,'k.','markersize',6);
for t=0:0.1:720
k11=h*f1(z10,z20,z30,z40);
k12=h*f2(z10,z20,z30,z40);
k13=h*f3(z10,z20,z30,z40);
k14=h*f4(z10,z20,z30,z40);
k21=h*f1(z10+k11*0.5,z20+k12*0.5,z30+k13*0.5,z40+k14*0.5);
k22=h*f2(z10+k11*0.5,z20+k12*0.5,z30+k13*0.5,z40+k14*0.5);
k23=h*f3(z10+k11*0.5,z20+k12*0.5,z30+k13*0.5,z40+k14*0.5);
k24=h*f4(z10+k11*0.5,z20+k12*0.5,z30+k13*0.5,z40+k14*0.5);
k31=h*f1(z10+k21*0.5,z20+k22*0.5,z30+k23*0.5,z40+k24*0.5);
k32=h*f2(z10+k21*0.5,z20+k22*0.5,z30+k23*0.5,z40+k24*0.5);
k33=h*f3(z10+k21*0.5,z20+k22*0.5,z30+k23*0.5,z40+k24*0.5);
k34=h*f4(z10+k21*0.5,z20+k22*0.5,z30+k23*0.5,z40+k24*0.5);
k41=h*f1(z10+k31*0.5,z20+k32*0.5,z30+k33*0.5,z40+k34*0.5);
k42=h*f2(z10+k31*0.5,z20+k32*0.5,z30+k33*0.5,z40+k34*0.5);
k43=h*f3(z10+k31*0.5,z20+k32*0.5,z30+k33*0.5,z40+k34*0.5);
k44=h*f4(z10+k31*0.5,z20+k32*0.5,z30+k33*0.5,z40+k34*0.5);
z10=z10+(k11+2*k21+2*k31+k41)/6;
z20=z20+(k12+2*k22+2*k32+k42)/6;
z30=z30+(k13+2*k23+2*k33+k43)/6;
z40=z40+(k14+2*k24+2*k34+k44)/6;
Ek=0.5*(z20^2+z40^2);
Ep=- 1200/(z10^2+z30^2)^0.5;
W=Ek+Ep;
L=z10*z40-z20*z30;
fprintf('x=%.5f y=%.5f Vx=%.5f Vy=%.5f Ek=%.5f Ep=%.5f W=%.5f L=%.5f\n',z10,z30,z20,z40,Ek,Ep,W,L);
plot(z10,z30,'k.','markersize',6);
end

请大家忙忙忙,以t为横坐标,绘出Ek,Ep,W,L的图像,谢谢
sky mat 当前离线   回复时引用此帖
 

主题工具
显示模式

发帖规则
不可以发表新主题
不可以发表回复
不可以上传附件
不可以编辑自己的帖子

启用 BB 代码
论坛启用 表情符号
论坛启用 [IMG] 代码
论坛禁用 HTML 代码



所有时间均为北京时间。现在的时间是 16:50


Powered by vBulletin
版权所有 ©2000 - 2025,Jelsoft Enterprises Ltd.