24小时热门版块排行榜    

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

csu_lxc

金虫 (正式写手)

[求助] 求助 拟合 函数系数

已知
函数C(T)=k1*k2*exp[k3*k4^2/(R*T*(k4-T)^2)]*exp(k5/(R*T)]

和一些离散的点
T              C(T)
700        503
150        523
150        553
100        583
100        613
70        643
100        673
300        703
1000        733
还有两个系数
k1=ln(0.9)
k4=890
想求出其他的k2,k3,k5
先谢谢了
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

csu_lxc

金虫 (正式写手)

引用回帖:
2楼: Originally posted by pengyehui at 2011-08-30 07:32:01:
R=?

不好意思,没说清楚
R其实是一个物理常数,是 8.314
4楼2011-08-30 08:11:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 6 个回答

pengyehui

木虫 (正式写手)

【答案】应助回帖


小雨萌萌(金币+1): 3Q~ 2011-08-30 14:42:07
如果R也要求的话,为
{k2 -> -5088.54, k3 -> -276253., k5 -> -605994., R -> -72672.5}
3楼2011-08-30 07:35:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

csu_lxc

金虫 (正式写手)

引用回帖:
3楼: Originally posted by pengyehui at 2011-08-30 07:35:30:
如果R也要求的话,为
{k2 -> -5088.54, k3 -> -276253., k5 -> -605994., R -> -72672.5}

不好意思,没说清楚
R其实是一个物理常数,是 8.314

能告诉我,怎么算的吗?谢了
5楼2011-08-30 08:12:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pengyehui

木虫 (正式写手)

【答案】应助回帖

★ ★ ★
小雨萌萌(金币+3): 3Q 2011-08-30 14:42:16
csu_lxc(金币+15): 谢谢 2011-08-30 15:45:13
mathematica 程序:
data = {{700, 503}, {150, 523}, {150, 553}, {100, 583},
   {100, 613}, {70, 643}, {100, 673}, {300, 703}, {1000, 733}};
R = 8.314;
k1 = Log[0.9];
k4 = 890;
model = k1*k2*Exp[k3*k4^2/(R*T*(k4 - T)^2)]*Exp[k5/(R*T)];
fit = FindFit[data, model, {k2, k3, k5}, T]
输出结果为:
{k2 -> -5088.54, k3 -> 31.6043, k5 -> 69.3279}
6楼2011-08-30 11:07:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见