求助一道matlab的题 谢谢大家了

ralston's方法,a2=2/3a1=1/3,p1=q11=3/4yi+1=yi+[(1/3)k1+(2/3)k2]hk1=f(xi,yi)k2=f(xi+(3/4)... ralston's 方法,
a2=2/3
a1=1/3, p1=q11=3/4
y i+1=y i + [(1/3)k1+(2/3)k2]h
k1=f(xi,yi)
k2=f(xi+(3/4)h, yi+(3/4)k1h)
展开
 我来答
dbb627
2010-12-16 · TA获得超过1.2万个赞
知道大有可为答主
回答量:2127
采纳率:88%
帮助的人:1404万
展开全部

function [x,y]=Runge_kutta2(f,a,b,x0)

%2阶Runge_kutta解微分方程

%调用格式同ode45,

%f为微分方程函数,a b为积分区间,x0初值

%h为步长,默认为0.001

h=0.001;

xk=a:h:b;

n=(b-a)/h+1;

a=ones(length(x0),1);

y1(:,1)=x0';

for i=1:n

 x1=xk(i)*a;

k1=f(x1,y1(:,i));

k2=f(x1+(3/4)*h*a,y1(:,i)+(3/4)*k1*h);

y1(:,i+1)=y1(:,i)+((1/3)*k1+(2/3)*k2)*h;

y(i,:)=y1(:,i)';

end

x=xk;

--------------------------------------------------------------

odefun=@(t,x)[-10*x(1)*x(3)+x(2)

    10*x(1)*x(3)-x(2)

    -10*x(1)*x(3)+x(2)-2*x(3)];

[t,y]=ode45(odefun,[0 10],[50 0 40]);

[t1,y1]=Runge_kutta2(odefun,0,10,[50 0 40])

subplot(2,1,1),plot(t,y);legend('a-t','b-t','c-t');title('ode45')

subplot(2,1,2),plot(t1,y1);legend('a-t','b-t','c-t');title('Runge_kutta2')

wacs5
2010-12-15 · TA获得超过1.6万个赞
知道大有可为答主
回答量:3724
采纳率:82%
帮助的人:2811万
展开全部
课件的p8.11的公式得给出来。
因为龙格库塔法的系数可以不唯一。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式