| 查看: 2122 | 回复: 5 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
matlab拟合模型参数
|
||
| CA，CB,CC,CW,CR每个时间点t下都有具体数值，要怎么用matlab编程啊 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 新建 Microsoft Word 文档.doc
2012-03-23 11:05:51, 20.5 K
» 猜你喜欢
德国亥姆霍兹Hereon中心招收两位医用镁合金腐蚀与LPSO相变方向2026公派博士生
已经有0人回复
-
推荐一款可以AI辅助写作的Latex编辑器SmartLatexEditor，超级好用，推荐试试
已经有11人回复
-
物理学I论文润色/翻译怎么收费?
已经有173人回复
-
2026-CJ开始申报了
已经有1人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- matlab 求指点 动力学方程拟合过程中导数的获取
已经有10人回复
- matlab拟合拟均相动力学参数
已经有6人回复
- matlab拟合动力学参数
已经有4人回复
- 请教一个数据非线性拟合的问题
已经有11人回复
- 【求助】matlab 求解微分方程中的未知参数
已经有20人回复
- 【求助】用matlab最优化方法进行参数拟合
已经有17人回复
- 【求助】Matlab非线性最小二乘拟合活度系数模型（Willson、NRTL、UNIQUAC）
已经有17人回复
- 【求助】matlab 遗传算法工具箱绘图命令是什么？
已经有6人回复
5楼2012-03-23 19:16:10
dingd
铁杆木虫 (职业作家)
- 计算强帖: 4
- 应助: 1641 (讲师)
- 金币: 15037.3
- 散金: 101
- 红花: 234
- 帖子: 3410
- 在线: 1223.7小时
- 虫号: 291104
- 注册: 2006-10-28
2楼2012-03-23 15:34:22
change0618
铁杆木虫 (著名写手)
方丈大师
- 计算强帖: 1
- 应助: 44 (小学生)
- 金币: 17724.5
- 红花: 17
- 帖子: 2413
- 在线: 546.7小时
- 虫号: 496517
- 注册: 2008-01-19
- 专业: 化学反应工程
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
感谢参与，应助指数 +1
dbb627: 金币+2, 谢谢应助！ 2012-03-23 17:16:55
lxyy: 金币+60, 如果可以，剩下的金币会再给你，呵呵 2012-03-23 19:17:04
感谢参与，应助指数 +1
dbb627: 金币+2, 谢谢应助！ 2012-03-23 17:16:55
lxyy: 金币+60, 如果可以，剩下的金币会再给你，呵呵 2012-03-23 19:17:04
|
function IsothermTR clear all clc global keq1 keq2 t0 c0 keq1 = ?; % 平衡常数k1 keq2 = ?; % 平衡常数k2 t0 = [0.5, 1.0, 1.5, 2.0, 2.5, 3.0]; c0 = [?, ? ?] % A C W 组成的初始浓度 ci=[0.184 0.2443 0.1348; 0.4457 0.3214 0.1733; 0.7023 0.4183 0.2713; 0.7758 0.4789 0.1056; 0.3365 0.7035 0.1951; 0.7946 0.8864 0.2235]; % cA cC cR 对应时间数值 k0=[2 2 3]; % k1+, k2, k3+ 初始向值 lb = [0 0 0]; ub = [1000 1000 500]; % 上下限 % 使用函数lsqnonlin()进行参数估计 [k,resnorm,residual,exitflag] = lsqnonlin(@ObjFunc,k0,lb,ub,[],ci); k1plus=k(1); k1minus=keq1/k1plus; k2=k(2); k3plus=k(3); k3minus=keq1/k3plus; % ------------------------------------------------------------------ function f = ObjFunc(k,ci) % 目标函数 global t0 c0 [t,c_cal] = ode45(@Euqations,t0,c0,[],k); f= c_cal-ci; % ------------------------------------------------------------------ function dcdt = Euqations(t,c,k) global keq1 keq2 k1plus=k(1); k1minus=keq1/k1plus; k2=k(2); k3plus=k(3); k3minus=keq1/k3plus; cA=c(1); cC=c(2); cR=c(3); cB=?; % cB物料衡算表达 cW=?; % cW物料衡算表达 dcAdt = k1plus*cA*cB-k1minus*cC+k2*cA*cW; dccdt = -k1plus*cA*cB+k1minus*cC+k3plus*cB*cR-k3minus*cC*cW; dcRdt = k2*cA*cW-k3plus*cB*cR+k3minus*cC*cW; dcdt = [dcAdt; dcCdt;dcRdt]; |
3楼2012-03-23 17:13:43
4楼2012-03-23 19:15:18
