mathematica解微分方程组含参数~Dsolve[{x1'[t] == -e100*x1[t] - e110*x2[t] - e120*x3[t] - e130*x4[t] -e140*x5[t],x2'[t] == -e101*x1[t] - e111*x2[t] - e121*x3[t] - e131*x4[t] - e141*x5[t],x3'[t] == -0.5*e102*x1[t] - 0.5*e112*x2[t] - 0.5*e122*x3

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 02:36:43
mathematica解微分方程组含参数~Dsolve[{x1'[t] == -e100*x1[t] - e110*x2[t] - e120*x3[t] - e130*x4[t] -e140*x5[t],x2'[t] == -e101*x1[t] - e111*x2[t] - e121*x3[t] - e131*x4[t] - e141*x5[t],x3'[t] == -0.5*e102*x1[t] - 0.5*e112*x2[t] - 0.5*e122*x3
xXOGWV]<<}cBjzQ%r &Gh@41Um_)BgwofR /UȺۙoogݾ;LǷ_ v~Vǝn4͗qfڵL~ W&g&G8pC &o&QM:8Dp  #:5 ãW c)qLDep@Ǿi俖/׾wdG wA6:&20ǂ`b(OFYBCO#!94B6JC4dcŀBTF,HetYȘ Pu5rwe^940)ܔOԼnkexu-uh_A8`"Vu: z=~\ =j2|}kwsR~=y׫_}xe:CdVvi`ql~@]چ??j9^YڀEU6o6g>/t:tԕ.u 栱W`uhVFW& op=֘ NV; hz6Fn= Ss4B葿*""D)O,Ye7X+Av T<̏Ag"gj~ 0 >X߀V];>Z[zS ^_1/,Zm| [b_Maxo7yuV $RA^*reXS|'J/ӽA€eP(MSe-CoW%!nBepj`jlGy| q84؏qMm12G/Vp:QmbV8 r`1v),ư)0P&!pd1S2W܈KUPp!7jXzPeԲ8+z‮B@2DVVd hQVKnB<[R**`8eVL., K.ZUIc<nd@C,0Efh -ixl[Y=UNdRecr8QirDTtēT9\ rǩK$ne2^ A\Q !CcFJq⣐% IE#0Tq"MT D#(c4!*h 1M} lؘlvd(V Ĵj.3!CtFSbD'3;0Jfz+8ur?]It%:>b/Ixr2AwD2Brw1}HGirF,D2hEOuJkZn4*zFhj􈊦j{Ŵ 9F?{9"POHS Xt'cO`T^'E^aƙm!$ V#sUzα}}}}}y-2ș ?g X날#΋?|퉀R՛ MsüW|"1s'5mQ~[goT|u60o^_7/çO7n% C:xu rno

mathematica解微分方程组含参数~Dsolve[{x1'[t] == -e100*x1[t] - e110*x2[t] - e120*x3[t] - e130*x4[t] -e140*x5[t],x2'[t] == -e101*x1[t] - e111*x2[t] - e121*x3[t] - e131*x4[t] - e141*x5[t],x3'[t] == -0.5*e102*x1[t] - 0.5*e112*x2[t] - 0.5*e122*x3
mathematica解微分方程组含参数~
Dsolve[{x1'[t] == -e100*x1[t] - e110*x2[t] - e120*x3[t] - e130*x4[t] -e140*x5[t],
x2'[t] == -e101*x1[t] - e111*x2[t] - e121*x3[t] - e131*x4[t] - e141*x5[t],
x3'[t] == -0.5*e102*x1[t] - 0.5*e112*x2[t] - 0.5*e122*x3[t] - 0.5*e132*x4[t] - 0.5*e142*x5[t],
x4'[t] == (-1/6)*e103*x1[t] + (-1/6)*e113*x2[t] + (-1/6)*e123*x3[t] + (-1/6)*e133*x4[t] + (-1/6)*e143*x5[t],
x5'[t] == (-1/24)*e104*x1[t] + (-1/24)*e114*x2[t] + (-1/24)*e124*x3[t] + (-1/24)*e134*x4[t] + (-1/24)*e144*x5[t],x1 (0) == 1,x2 (0) == 0,x3 (0) == 0,x4 (0) == 0,x5 (0) == 0},{x1[t],x2[t],
x3[t],x4[t],x5[t]},t]
方程五个 初始条件五个 求解x1[t],x2[t],x3[t],x4[t],x5[t]的表达式,e100,e110~e144 均为参数,运行后只是又把我的内容暑促了一遍

mathematica解微分方程组含参数~Dsolve[{x1'[t] == -e100*x1[t] - e110*x2[t] - e120*x3[t] - e130*x4[t] -e140*x5[t],x2'[t] == -e101*x1[t] - e111*x2[t] - e121*x3[t] - e131*x4[t] - e141*x5[t],x3'[t] == -0.5*e102*x1[t] - 0.5*e112*x2[t] - 0.5*e122*x3
……仔细一看,你写的是Dsolve啊喂,应该是DSolve,Mathematica是区分大小写的,边界条件里的中括号也错成小括号了.改完了再试试.

这种带大量符号参数的微分方程组要想求公式解,结果将是十分庞大的一堆符号。
如果只需要特定参数下的结果,建议先带入参数,然后有请 NDSolve .
如果非要公式解,用DSolve估计也比较难。看起来是线性方程组,也许用拉普拉斯变换比较容易一点点?刚试了一下,求出x1的拉式变换为如下一堆垃圾,式子太长了,逆变换如何求还没看出来:
-((e131 e140 - e130 e14...

全部展开

这种带大量符号参数的微分方程组要想求公式解,结果将是十分庞大的一堆符号。
如果只需要特定参数下的结果,建议先带入参数,然后有请 NDSolve .
如果非要公式解,用DSolve估计也比较难。看起来是线性方程组,也许用拉普拉斯变换比较容易一点点?刚试了一下,求出x1的拉式变换为如下一堆垃圾,式子太长了,逆变换如何求还没看出来:
-((e131 e140 - e130 e141)^2 (e122 e131 e140 - e121 e132 e140 -
e122 e130 e141 + e120 e132 e141 + e121 e130 e142 -
e120 e131 e142 + 2 e131 e140 s -
2 e130 e141 s) (-e112 e124 e133 e141 + e112 e123 e134 e141 +
e111 e124 e133 e142 - e111 e123 e134 e142 +
e112 e124 e131 e143 - e111 e124 e132 e143 -
e112 e121 e134 e143 + e111 e122 e134 e143 -
e112 e123 e131 e144 + e111 e123 e132 e144 +
e112 e121 e133 e144 - e111 e122 e133 e144 -
24 e112 e123 e131 s + 24 e111 e123 e132 s +
24 e112 e121 e133 s - 24 e111 e122 e133 s -
6 e112 e124 e141 s + 6 e111 e124 e142 s + e124 e133 e142 s -
e123 e134 e142 s - e124 e132 e143 s + 2 e111 e134 e143 s +
e122 e134 e143 s + 6 e112 e121 e144 s - 6 e111 e122 e144 s +
e123 e132 e144 s - 2 e111 e133 e144 s - e122 e133 e144 s +
144 e112 e121 s^2 - 144 e111 e122 s^2 + 24 e123 e132 s^2 -
48 e111 e133 s^2 - 24 e122 e133 s^2 + 6 e124 e142 s^2 +
2 e134 e143 s^2 - 12 e111 e144 s^2 - 6 e122 e144 s^2 -
2 e133 e144 s^2 - 288 e111 s^3 - 144 e122 s^3 - 48 e133 s^3 -
12 e144 s^3 - 288 s^4 +
e113 (e124 e132 e141 - e122 e134 e141 - e124 e131 e142 +
e121 e134 e142 + e122 e131 e144 - e121 e132 e144 +
24 e122 e131 s - 24 e121 e132 s - 2 e134 e141 s +
2 e131 e144 s + 48 e131 s^2) +
e114 (-e123 e132 e141 + e122 e133 e141 + e123 e131 e142 -
e121 e133 e142 - e122 e131 e143 + e121 e132 e143 +
6 e122 e141 s + 2 e133 e141 s - 6 e121 e142 s -
2 e131 e143 s +
12 e141 s^2)))/(-(-(e124 e131 e140 - e121 e134 e140 -
e124 e130 e141 + e120 e134 e141 + e121 e130 e144 -
e120 e131 e144 + 24 e121 e130 s -
24 e120 e131 s) (e112 e131 e140 - e111 e132 e140 -
e112 e130 e141 + e110 e132 e141 + e111 e130 e142 -
e110 e131 e142 - e132 e140 s +
e130 e142 s) + (e122 e131 e140 - e121 e132 e140 -
e122 e130 e141 + e120 e132 e141 + e121 e130 e142 -
e120 e131 e142 + 2 e131 e140 s -
2 e130 e141 s) (e114 e131 e140 - e111 e134 e140 -
e114 e130 e141 + e110 e134 e141 + e111 e130 e144 -
e110 e131 e144 + 24 e111 e130 s - 24 e110 e131 s -
e134 e140 s + e130 e144 s +
24 e130 s^2)) (-(e123 e131 e140 - e121 e133 e140 -
e123 e130 e141 + e120 e133 e141 + e121 e130 e143 -
e120 e131 e143 - 6 e121 e140 s +
6 e120 e141 s) (e102 (e131 e140 - e130 e141) +
e101 (-e132 e140 + e130 e142) + (e132 e141 -
e131 e142) (e100 + s)) + (e122 e131 e140 -
e121 e132 e140 - e122 e130 e141 + e120 e132 e141 +
e121 e130 e142 - e120 e131 e142 + 2 e131 e140 s -
2 e130 e141 s) (e103 (e131 e140 - e130 e141) +
e101 (-e133 e140 + e130 e143 - 6 e140 s) + (e100 +
s) (e133 e141 - e131 e143 +
6 e141 s))) + (-(e123 e131 e140 - e121 e133 e140 -
e123 e130 e141 + e120 e133 e141 + e121 e130 e143 -
e120 e131 e143 - 6 e121 e140 s +
6 e120 e141 s) (e112 e131 e140 - e111 e132 e140 -
e112 e130 e141 + e110 e132 e141 + e111 e130 e142 -
e110 e131 e142 - e132 e140 s +
e130 e142 s) + (e122 e131 e140 - e121 e132 e140 -
e122 e130 e141 + e120 e132 e141 + e121 e130 e142 -
e120 e131 e142 + 2 e131 e140 s -
2 e130 e141 s) (e113 e131 e140 - e111 e133 e140 -
e113 e130 e141 + e110 e133 e141 + e111 e130 e143 -
e110 e131 e143 - 6 e111 e140 s - e133 e140 s +
6 e110 e141 s + e130 e143 s -
6 e140 s^2)) (-(e124 e131 e140 - e121 e134 e140 -
e124 e130 e141 + e120 e134 e141 + e121 e130 e144 -
e120 e131 e144 + 24 e121 e130 s -
24 e120 e131 s) (e102 (e131 e140 - e130 e141) +
e101 (-e132 e140 + e130 e142) + (e132 e141 -
e131 e142) (e100 + s)) + (e122 e131 e140 -
e121 e132 e140 - e122 e130 e141 + e120 e132 e141 +
e121 e130 e142 - e120 e131 e142 + 2 e131 e140 s -
2 e130 e141 s) (e104 (e131 e140 - e130 e141) +
e101 (-e134 e140 + e130 (e144 + 24 s)) + (e100 +
s) (e134 e141 - e131 (e144 + 24 s)))))

好像逆变换也不好办,电脑算内存也不够了

收起

怎么用mathematica求解含参微分方程组 mathematica解微分方程组含参数~Dsolve[{x1'[t] == -e100*x1[t] - e110*x2[t] - e120*x3[t] - e130*x4[t] -e140*x5[t],x2'[t] == -e101*x1[t] - e111*x2[t] - e121*x3[t] - e131*x4[t] - e141*x5[t],x3'[t] == -0.5*e102*x1[t] - 0.5*e112*x2[t] - 0.5*e122*x3 求救:mathematica解一个微分方程组并画图将v=0.9代入后求救.拜谢! 变系数非线性常微分方程组用mathematica怎么求解? mathematica解微分方程组求解微分方程的命令,要求写成dy,dx那种形式,不要y',y''型的 解微分方程组 如何化简下面这个含参微分方程组,进而求出他的解析解啊?X'=-aXY+bY+c-dX; Y'=aXY-bY-cY+dYX、Y是关于t的函数,a、b、c、d是参数. 有关mathematica用Dsolve解偏微分方程组的格式如图,想解出偏微分方程的x,y,求Dsolve命令格式 用Mathematica求常微分方程组的解 dx/dt +y=cost dy/dt+x=sint 求命令与结果T-T mathematica解方程组,结果还是原式子. 如何mathematica 求解含复数符号(*)的微分方程组的解图中A2,k都为常量.高手帮我把程序写一下.程序运行很好的另追加5个金币. 如何求解常系数非线性微分方程组怎么样利用mathematica来求解非线性微分方程组,数值解法也好,命令是什么,格式是什么? Mathematica求解三元二阶偏微分方程组Mathematica里面说DSOLVE只能求解二元的偏微分不知道有哪位大大知道Mathematica可以求解三元的偏微分方程么? mathematica做多元微分项目 关于偏微分方程组mathematica或matlab编程求解,有没有简单点的办法,方程见图谢啦 用matlab解微分方程组并作图 求帮忙解一个微分方程组. Mathematica 解含参微分方程组等问题下列丙个题要求写出在mathematica中的操作步骤(仅能做出第一个也可以!):1.求方程组dx/dt=y+1,dy/dt=x+1在x(0)=-2,y(0)=0时的特解.2.画出一维线性谐振子n=50的几率分