用matlab 或mathematica求出积分微分的图或数值解

a*V'-(b+c)*V+积分项=0,其中积分项:积分区间(0,u)被积函数为分数形式,其中分子(1-d)*c*f*exp(-fx)*V(u-x),分母[1-d*exp(... a*V'-(b+c)*V+积分项=0,其中积分项:积分区间(0,u)被积函数为分数形式,其中分子(1-d)*c*f*exp(-fx)*V(u-x),分母[1-d *exp(-fx)]平方,积分变量x。其中,abcdf均为常数。V为u的函数,求高手给出方法! 展开
 我来答
xzcyr
2013-05-30 · TA获得超过3402个赞
知道大有可为答主
回答量:1400
采纳率:100%
帮助的人:706万
展开全部

这里提供一个Mathematica解法。

总之你要求你前面的那个含积分的微分方程是吧?对于这个方程,因为含了积分,并且似乎不能简单地通过求导去掉里面的积分号,所以不能用DSolve或是NDSolve来求解,但是,它可以通过拉普拉斯变换来求解。当然,最终结果并不是一个通常形式的解析解,但是只要把缺掉的参数赋上(具体说来就是a, b, c, d, f, V[0],以下代码里的值是我随便赋的),就足以获得它的数值解了:


eqn = a V'[u] - (b + c) V[u] + Integrate[(1 - d) c f Exp[-f x] V[u - x]/(1 - d Exp@(-f x))^2, {x, 0, u}] == 0 /. (a | b | c | d | f) -> 2

LaplaceTransform[eqn, u, s]

Solve[%, LaplaceTransform[V[u], u, s]] /. V[0] -> 1

sol = InverseLaplaceTransform[%, s, u]

Plot[Chop[V[u] /. sol], {u, 0, 2}]



——————

注意,以上解法是一个因为错误的赋值顺序而造成的错误结果。至少在我所找的这个参数下,因为软件没法求解LaplaceTransform[V[u], u, s]的拉普拉斯反变换,所以也就得不到它的数值值……或许换上适当的参数,或是寻找一个可以求反变换的LaplaceTransform[V[u], u, s]的近似函数可以解决这个问题?总之我只能到此为止了。

有兴趣的话可以把你的问题拿这来问问:

mathematica.stackexchange.com

观启智能
2025-03-09 广告
上海观启智能科技有限公司致力于打造一体化技术,我们为住宅和楼宇打造的自动化和控制解决方案,能够帮助用户实现一键式环境控制,这一解决方案集成了影音、照明、遮阳。T、安防、建筑管理系统(BMS)和HVAC等系统,可以为用户提供更高的舒适度、便利... 点击进入详情页
本回答由观启智能提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式