查看: 383  |  回复: 0

rhyme1990

新虫 (初入文坛)

[求助] 【求助】matlab程序问题

下面粗体代码,我想实现一个Y循环,但是单求一个Y时,第一次很快解出来,多次运行就变慢了···循环更是很难算出来···这是什么问题?是那个求积分吗?我是新手,求帮助啊。


clc,clear
pmm=0.7;poo=0.3;
syms t
Y=30;
v=6.8;   %平均旅行速度
k=0.9;
l=225;
ct=1;
for i=6:18    %求i的阶乘
    kj(ct)=1;
    for j=2:i
        kj(ct)=kj(ct)*j;
    end
    ct=ct+1;
end
pz1=0;pz2=0;  
for i=1:13
    p1(i)=5.21^(i+5)/kj(i)*exp(-5.21);
    p2(i)=9.26^(i+5)/kj(i)*exp(-9.26);
    pz1=pz1+p1(i);   
    pz2=pz2+p2(i);
end
for i=1:13
    pm(i)=p1(i)/pz1;
    po(i)=p2(i)/pz2;
end
for i=1:13
    p(i)=pmm*pm(i)+poo*po(i);
    a(i)=1/(i+5);
    sigma(i)=0.1-1/(3*(i+5));
    fyi(i)=exp(-(t-a(i))^2/(2*sigma(i)^2))/(sqrt(2*pi)*sigma(i));
end
fy=0;
for i=1:13
    fy=fy+p(i)*fyi(i);
end
js=0;
for Y=30:40;
js=js+1;
X=23.8*(Y+1);
for i=1:14
    q(i)=int(fy,t,(2*i-1)/(2*(Y+1)),(2*i+1)/(2*(Y+1)));
end
    q=subs(q);
temp=1;
for i=1:14
    temp=temp*(1-q(i));
end
P(js)=1-temp;
Pi(js)=0;
for i=1:14
    for j=1:i-1
        Pi(js)=Pi(js)+q(i)*q(j);  %用Pi表示P'
    end
end
T(js)=l*log(1-k)/(v*(Y+1)*log(P(js)));
C(js)=X^2/(2.63*10^5);
end
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子,希望有用哦~

科研从小木虫开始,人人为我,我为人人
相关版块跳转 我要订阅楼主 rhyme1990 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 极限拉扯,如何抉择 +7 Isak0320 2026-10-12 10/500 2026-10-12 22:38 by 大飞鱼鱼鱼
[基金申请] 入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍 +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
信息提示
请填处理意见