| 查看: 2161 | 回复: 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
» 猜你喜欢
基底STO,薄膜SRO，XRD里面的振荡，是laue震荡还是kiessig振荡? 怎么判断？
已经有2人回复
-
B区学生调剂-兰州交通大学材料科学与工程学院
已经有12人回复
-
物理学I论文润色/翻译怎么收费?
已经有160人回复
-
山西大同大学物理学专业还有调剂名额，欢迎调剂！
已经有13人回复
-
桂林理工大学物理学专业招收调剂
已经有18人回复
-
VASP 的一组 GPU / CPU 基准测试记录
已经有0人回复
-
津理工大学晶体材料全国重点实验室刘红军教授课题组招收博士生一名
已经有0人回复
-
【原创讨论】从电子约束到物质编辑：一套可迭代的环形磁场科技树
已经有0人回复
-
【方案分享】单环磁场+轴心控制+偏转导出电子束约束系统（可行性实验）
已经有2人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
50