声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1212|回复: 6

[求助]关于微分方程数值解

[复制链接]
发表于 2006-3-24 11:40 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
请多指教!<BR>假如我用ODE45求解一个微分方程:<BR>x''+c(t)x'+k(t)f(x)=F(t)<BR><BR>f(x)=x-1,x&gt;1<BR><BR>f(x)=0,abs(x)&lt;1<BR><BR>f(x)=x+1,x&lt;-1<BR><BR>怎么样编程请多指教<BR>谢谢!!<BR><BR><BR>
回复
分享到:

使用道具 举报

发表于 2006-3-25 19:03 | 显示全部楼层

回复:(无水1324)[求助]关于微分方程数值解

在odefun中<BR><BR>f(x&gt;1)=x-1;<BR>f(abs(x)&lt;1)=0;<BR>f(x&lt;-1)=x+1;<BR><BR>后面的正常写就行了
 楼主| 发表于 2006-3-25 19:09 | 显示全部楼层
谢谢,教授!<BR>function xx=x1(t,x)<BR>if x(1)&gt;1;<BR>    f=x(1)-1<BR>elseif x(1)&lt;-1;<BR>    f=x(1)+1;<BR>else<BR>    f=0<BR>end<BR>w=0.5;k=0.2;<BR>xx=[x(2);-0.4*x(2)-f*(1+k*sin(w*t))+0.2+0.5*w^2*sin(w*t)];<BR><BR>%%变参数的微分方程求解<BR>[t,x]=ode45(@x1,[0,100],[1.2,0.05]);<BR>subplot(121);plot(t,x);subplot(122);plot(x(:,1),x(:,2));<BR>是不是这样<BR>        
发表于 2006-3-25 19:15 | 显示全部楼层

回复:(无水1324)谢谢,教授!function xx=x1(t,x)i...

<DIV class=quote><B>以下是引用<I>无水1324</I>在2006-3-25 19:09:57的发言:</B><BR>谢谢,教授!<BR>function xx=x1(t,x)<BR><FONT color=#ff0000>if x(1)&gt;1;<BR>    f=x(1)-1<BR>elseif x(1)&lt;-1;<BR>    f=x(1)+1;<BR>else<BR>    f=0<BR>end<BR></FONT>w=0.5;k=0.2;<BR>xx=[x(2);-0.4*x(2)-f*(1+k*sin(w*t))+0.2+0.5*w^2*sin(w*t)];<BR><BR>%%变参数的微分方程求解<BR>[t,x]=ode45(@x1,[0,100],[1.2,0.05]);<BR>subplot(121);plot(t,x);subplot(122);plot(x(:,1),x(:,2));<BR>是不是这样<BR>        </DIV>
<br>不用这么麻烦,红色标记部分改成<BR>f(x&gt;1)=x-1;<BR>f(abs(x)&lt;1)=0;<BR>f(x&lt;-1)=x+1;
发表于 2006-3-25 19:16 | 显示全部楼层

回复:(无水1324)[求助]关于微分方程数值解

另外注意,你这里少了abs(x)=1的状态
 楼主| 发表于 2006-3-25 19:28 | 显示全部楼层
<P>哦1!!这个运行的时候有问题<BR>错误信息如下:<BR>???  In an assignment  A(I) = B, the number of elements in B and<BR> I must be the same.</P>
<P>Error in ==&gt; C:\MATLAB6p5\work\x2.m<BR>On line 2  ==&gt; f(x&gt;1)=x-1;</P>
<P>Error in ==&gt; C:\MATLAB6p5\toolbox\matlab\funfun\private\odearguments.m<BR>On line 104  ==&gt; f0 = feval(ode,t0,y0,args{:});</P>
<P>Error in ==&gt; C:\MATLAB6p5\toolbox\matlab\funfun\ode45.m<BR>On line 155  ==&gt; [neq, tspan, ntspan, next, t0, tfinal, tdir, y0, f0, args, ...<BR></P>
发表于 2006-3-26 19:04 | 显示全部楼层

回复:(happy)回复:(无水1324)谢谢,教授!funct...

<DIV class=quote><B>以下是引用<I>happy</I>在2006-3-25 19:15:38的发言:</B><BR><BR><BR>不用这么麻烦,红色标记部分改成<BR>f(x&gt;1)=x-1;<BR>f(abs(x)&lt;1)=0;<BR>f(x&lt;-1)=x+1;</DIV>
<br>上面的x改成x(1)就行了
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-13 01:34 , Processed in 0.054647 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表