查看: 1209  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

zhangleiii

新虫 (初入文坛)

[求助] matlab出错 求助高手解答

function fun=weifen11
global r x ;
A ,B, C ,D, F (r) ,G(r) ,H(r) 赋值
x=zeros(2,1);
x0=[1 100];
tspan=[0 1];
fun=@(t,x)[I*(x(2)+M)*jifen1-J*x(2)*jifen2-0.1*x(2)
    -K*x(1)*jifen3-0.01*x(1)];

      function  a=jifen1
       a=Roberg(f1,0,1.25*10^-6)
        function  y1= f1
            y1=F.*2.*pi.*r.*A.*(D.*H.*x(1,1)+C.*G.*x(2,1))/(1+C.*G.*x(2,1)+B.*F.*x(2,1)+D.*H.*x(1,1));  %n2
        end
    end

    function  b=jifen2
          b=Roberg(f2,0,1.25*10^-6)
        function  y2=f2
            y2=G.*2.*pi.*r.*A.*(1+B.*F.*x(2))/(1+C.*G.*x(2)+B.*F.*x(2)+D.*H.*x(1));
        end
    end

    function  c=jifen3
          c=Roberg(f3,0,1.25*10^-6)
        function y3=f3
            y3=H*2*pi.*r.*A.*(1+B.*F.*x(2))/(1+C.*G.*x(2)+B.*F.*x(2)+D.*H.*x(1));  %n1      
        end
    end

options=odeset('reltol',1e-6,'abstol',1e-8);
[t,x]=ode45(fun,tspan,x0,options);
plot(t,x)
end

运行出错:
??? Subscripted assignment dimension mismatch.

Error in ==> Roberg at 12
T(1,1)=(h/2)*(subs(sym(f),findsym(sym(f)),a)+subs(sym(f),findsym(sym(f)),b));

Error in ==> weifen11>jifen1 at 22
       a=Roberg(f1,0,1.25*10^-6)

Error in ==> weifen11>@(t,x)[I*(x(2)+M)*jifen1-J*x(2)*jifen2-0.1*x(2);-K*x(1)*jifen3-0.01*x(1)] at 18
fun=@(t,x)[I*(x(2)+M)*jifen1-J*x(2)*jifen2-0.1*x(2)

Error in ==> funfun\private\odearguments at 110
f0 = feval(ode,t0,y0,args{:});   % ODE15I sets args{1} to yp0.

Error in ==> ode45 at 173
[neq, tspan, ntspan, next, t0, tfinal, tdir, y0, f0, odeArgs, odeFcn, ...

Error in ==> weifen11 at 40
[t,x]=ode45(fun,tspan,x0,options);
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

工大小雷

金虫 (初入文坛)

我也出现了递归的这个问题。
然后我clear之后,就出错,修改递归之后,再clear,程序就会直接死掉,不解了。
6楼2016-01-20 10:54:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

zhangleiii

新虫 (初入文坛)

怎么没人回复呀~先谢谢各位了!
2楼2011-11-23 16:27:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dbb627

荣誉版主 (著名写手)

【答案】应助回帖

zhangleiii(金币+1): 谢谢! 2011-11-24 18:46:58
Roberg at 12
你的Roberg积分程序有问题
这里没有你的Roberg程序,看不出来
估计下错误应该是
subs(sym(f),findsym(sym(f)),a)+subs(sym(f),findsym(sym(f)),b));
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
3楼2011-11-23 18:06:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhangleiii

新虫 (初入文坛)

谢谢你~~上个问题解决了。我又重新调试了一下
如下:
function fun=weifen11
global r x ;
A B C D F(r) G(r)  H(r) 赋值
fun=@(t,x)[-K.*x(1).*jifen3-0.01.*x(1)
      I.*(x(2)+M).*jifen1-J.*x(2).*jifen2-0.1.*x(2)];
     function  a=jifen1
         a=Roberg(f1,0,1.25*10^-6)
          function  y1= f1
            y1=F.*2.*pi.*r.*A.*(D.*H.*x(1)+C.*G.*x(2))./(1+C.*G.*x(2)+B.*F.*x(2)+D.*H.*x(1));  %isen2
          end
    end
    function  b=jifen2
          b=Roberg(f2,0,1.25*10^-6)
         function  y2=f2
            y2=G.*2.*pi.*r.*A.*(1+B.*F.*x(2))./(1+C.*G.*x(2)+B.*F.*x(2)+D.*H.*x(1)); %isan1
         end
    end
    function  c=jifen3
          c=Roberg(f3,0,1.25*10^-6)
        function y3=f3
            y3=H.*2.*pi.*r.*A.*(1+B.*F.*x(2))./(1+C.*G.*x(2)+B.*F.*x(2)+D.*H.*x(1));  %ipn1      
        end
    end
x0=[10 10];
tspan=[0 1];
options=odeset('reltol',1e-6,'abstol',1e-8);
[t,x]=ode45(weifen11,tspan,x0,options)
plot(t,x)
end
运行出错
??? Maximum recursion limit of 500 reached. Use set(0,'RecursionLimit',N)
to change the limit.  Be aware that exceeding your available stack space can
crash MATLAB and/or your computer.

Error in ==> besschk at 50
end


我实在弄不懂了,谢谢帮忙啊~~
4楼2011-11-23 21:17:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 极限拉扯,如何抉择 +6 Isak0320 2026-10-12 9/450 2026-10-12 21:13 by Isak0320
[基金申请] 入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[有机交流] OpenAI又攻克数学难题了,离AI做有机合成还有多远? +4 wangyl_123 2026-10-10 8/400 2026-10-12 18:09 by wangyl_123
[教师之家] 课题组会帮你通过考核么? +3 好运来~9527 2026-10-10 6/300 2026-10-12 14:55 by 简单化xn
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:34 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷!
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬,路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
[有机交流] 我应该选哪条合成路线让实验成功率高一些? +5 jing816y 2026-10-08 9/450 2026-10-10 09:05 by zapen
信息提示
请填处理意见