计算化学公社

 找回密码 Forget password
 注册 Register
Views: 3625|回复 Reply: 3
打印 Print 上一主题 Last thread 下一主题 Next thread

[Matlab/Maple/Mathematica] 一个matlab程序运行不出来,希望高手看看

[复制链接 Copy URL]

610

帖子

2

威望

4409

eV
积分
5059

Level 6 (一方通行)

跳转到指定楼层 Go to specific reply
楼主
function csegout
%微观离析反应器计算
cmean1 = quad(@fun1,0,10)
cmean2 = quad(@fun2,10,14)
cmean3 = quad(@fun3,14,24)
cmean = cmean1+cmean2+cmean3

function y=fun1(t)
syms t
k=2.4e-3;
cA0=1600;
y=cA0.*(-0.000412308.*t.^3+0.00538945.*t.^2-0.00246543.*t-...
0.000100973)/(1+k*cA0.*t);

    function y=fun2(t)
    syms t
    k=2.4e-3;
    cA0=1600;
    y=cA0.*(-0.019084.*t+0.292621)/(1+k*cA0.*t);

        function y=fun3(t)
        syms t
        k=2.4e-3;
        cA0=1600;
        y=cA0.*(0.0000103077.*t.^3-0.000479624.*t.^2+0.00425519.*t+...
        0.0315744)/(1+k*cA0.*t);

357

帖子

0

威望

2069

eV
积分
2426

Level 5 (御坂)

真 掘墓者

2#
发表于 Post on 2017-8-31 19:47:52 | 只看该作者 Only view this author
本帖最后由 kyuu 于 2017-8-31 22:09 编辑

cmean1 = quad(@fun1,0,10)
cmean2 = quad(@fun2,10,14)
cmean3 = quad(@fun3,14,24)
cmean = cmean1+cmean2+cmean3

function y=fun1(t)
k=2.4e-3;
cA0=1600;
y=cA0.*(-0.000412308.*t.^3+0.00538945.*t.^2-0.00246543.*t-...
0.000100973)./(1+k*cA0.*t);
end

function y=fun2(t)
    k=2.4e-3;
    cA0=1600;
    y=cA0.*(-0.019084.*t+0.292621)./(1+k*cA0.*t);
end

function y=fun3(t)  
        k=2.4e-3;
        cA0=1600;
        y=cA0.*(0.0000103077.*t.^3-0.000479624.*t.^2+0.00425519.*t+...
        0.0315744)./(1+k*cA0.*t);
end
圣诞刨坟忙

610

帖子

2

威望

4409

eV
积分
5059

Level 6 (一方通行)

3#
 楼主 Author| 发表于 Post on 2017-8-31 21:07:50 | 只看该作者 Only view this author
kyuu 发表于 2017-8-31 19:47
cmean1 = quad(@fun1,0,10)
cmean2 = quad(@fun2,10,14)
cmean3 = quad(@fun3,14,24)

还是不行啊,为什么?

357

帖子

0

威望

2069

eV
积分
2426

Level 5 (御坂)

真 掘墓者

4#
发表于 Post on 2017-8-31 21:44:39 | 只看该作者 Only view this author
本帖最后由 kyuu 于 2017-9-3 16:10 编辑
zyj19831206 发表于 2017-8-31 21:07
还是不行啊,为什么?

复制我的代码,别在你自己的上边改,你点乘写的不对,乘出来的向量维度输入与输出不一致
cmean1 =
42.4139

cmean2 =
9.0121


cmean3 =
2.6709

cmean =

54.0970



圣诞刨坟忙

本版积分规则 Credits rule

手机版 Mobile version|北京科音自然科学研究中心 Beijing Kein Research Center for Natural Sciences|京公网安备 11010502035419号|计算化学公社 — 北京科音旗下高水平计算化学交流论坛 ( 京ICP备14038949号-1 )|网站地图

GMT+8, 2025-8-13 00:03 , Processed in 0.768527 second(s), 20 queries , Gzip On.

快速回复 返回顶部 返回列表 Return to list