简单的常微分方程(组)初值问题

问题

ABCDE 五个化合物, A 反应后生成 B B 反应后生成C C 反应后生成 D D 反应后生成 E,即

ABCDE

反应动力学表明都是一级反应,已知 k1k2k3k4 是相应的反应速率常数。 ABCDE 的浓度随时间变化的反应速率方程如下:
1.2.3.4.5.dCAdt=k1CAdCBdt=k1CAk2CBdCCdt=k2CBk3CCdCDdt=k3CCk4CDdCEdt=k4CD

当时间 t=0 时, A 的初始浓度为 A0,而 BCDE 的初始浓度都为 0

A,B,C,D,E 浓度随时间变化的函数。

解答

简单的常微分方程(组)初值问题。可以顺次求解,也可以统一成方程组求。因为计算比较繁琐,用Maple或mathematica计算比较方便。在微分方程符号解方面,总体上看Maple比Mathematica胜出一筹。但在当前这个问题上,两种软件求解都易如反掌。

Mathematica顺次求解ODE初值问题的代码如下:

ClearAll["Global`*"]
a[t_]:=Evaluate[a[t]/.(DSolve[{a'[t]==-k1 a[t],a[0]==A0},a,t]//FullSimplify)[[1,1]]]
b[t_]:=Evaluate[b[t]/.(DSolve[{b'[t]==k1*a[t]-k2 b[t],b[0]==0},b,t]//FullSimplify)[[1,1]]]
c[t_]:=Evaluate[c[t]/.(DSolve[{c'[t]==k2*b[t]-k3 c[t],c[0]==0},c,t]//FullSimplify)[[1,1]]]
d[t_]:=Evaluate[d[t]/.(DSolve[{d'[t]==k3*c[t]-k4 d[t],d[0]==0},d,t]//FullSimplify)[[1,1]]]
e[t_]:=Evaluate[e[t]/.(DSolve[{e'[t]==k4*d[t],e[0]==0},e,t]//FullSimplify)[[1,1]]]

得到结果:

CA(t)=CB(t)=CC(t)=CD(t)=CE(t)=A0ek1tA0k1ek1t(e(k1k2)t1)k1k2A0k1k2(ek3t(k1k2)ek2t(k1k3)+ek1t(k2k3))(k1k2)(k1k3)(k2k3)A0k1k2k3(ek4t(k1k4)(k4k2)(k4k3)+ek3t(k1k3)(k2k3)(k4k3)+ek2t(k1k2)(k3k2)(k4k2)+ek1t(k1k2)(k1k3)(k4k1))A0(k2k3k4ek1t(k1k2)(k1k3)(k1k4)k1k3k4ek2t(k1k2)(k2k3)(k2k4)k1k2k4ek3t(k1k3)(k3k2)(k3k4)k1k2k3ek4t(k1k4)(k4k2)(k4k3))

最长的 CD(t) 只好贴出来:

这里写图片描述

CE(t):

这里写图片描述

这五个浓度之和是常数 A0 ,它们导数之和为 0 可以帮助验算。

思考

这里得到的解析解,乍一看似乎很方便。实际上,如果 ki=kj,(ij{1,2,3,4}) ,似乎出现了分母为 0 的情形。比如 k2=k3 时…… 难道是该动力学方程要求动力学常数不能相等吗?

如何解决?从极限的角度,或者,直接通过微分方程特定条件下求解的方式

  • 0
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值