用mathematica解含积分的微分方程就是这个题.mathematica解不出来啊,直接原样输出了

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 10:04:46
用mathematica解含积分的微分方程就是这个题.mathematica解不出来啊,直接原样输出了
xT]Sa+;4m@e]tS 5.(hZj:ff85#g}w/tvWfqs9/0;C(U!dVRcm 7vaAV9f^{,1VN6yc )lkRn6^)پQ: `ES+$,bd4I£bFca`D/}wA86 *n+<,yYq^%D>#I`݂G<'{yI8# 'zE%*_q\S.CHDɍHİFVU_ra3=Aɀ?ֻU<7_H46GGeiD HozhspA^y&P;zh~XōS~}GyN G)V$6xl5=G,Kdaӊ%;wڼdzAFo+hiy:F92[Fyblh|t|fRIOΨ)QwFR O]/BeiN:#~?x-P9$cjۮC,QejznYOnz+ )PucdncsGuTDJ2[46%lf *|^&C=Y S*09&;3_M`C5nvβv8=-.B][vnuz~=1ag966^&*%ͷ AO㙯ǵYd:O/HVvM'pw@

用mathematica解含积分的微分方程就是这个题.mathematica解不出来啊,直接原样输出了
用mathematica解含积分的微分方程
就是这个题.
mathematica解不出来啊,直接原样输出了

用mathematica解含积分的微分方程就是这个题.mathematica解不出来啊,直接原样输出了
首先说明一下,你这个方程我没解出来,并且目测没有解析解,下面就说明一下我为什么这么觉得.
Mathematica对积分微分方程没有直接支持,但是目测你这个方程可以通过适当的变换变成完全的微分方程.于是出血大放送地抄了一下你的代码,并且试着变了一下:
exp = Integrate[Sqrt[1 + y'[x]^2],{x,0,x}];
eqn= D[Block[{exp},Solve[(Sqrt[3]/10 exp - y[x])/(1 - x + 1/10 exp) - y'[x] == 0,exp]],x] /.Rule -> Equal
这下这就是个完全的微分方程了,不过扔进DSolve发现还是没法解,我并不意外,因为这个方程:
{{Sqrt[1 + Derivative[1][y][x]^2] == (10*(y[x] + Derivative[1][y][x] - x*Derivative[1][y][x])* Derivative[2][y][x])/(Sqrt[3] - Derivative[1][y][x])^2 + (10*(Derivative[2][y][x] - x*Derivative[2][y][x]))/
(Sqrt[3] - Derivative[1][y][x])}}
是个非线性方程,而非线性方程无解析解的情况很常见.你可以考虑考虑数值解.