MMA解微分方程解不出来
mathematica吧
全部回复
仅看楼主
level 1
已经解了两天了没解出来,有没有大佬帮忙看看怎么回事[泪]
2024年10月06日 02点10分 1
level 5
mma不是万能的,过于复杂的mma也无能为力
2024年10月06日 15点10分 0
好吧我在简化一下[泪]
2024年10月07日 03点10分
level 1
DSolve [{\[Alpha]'[t] == -(\[CapitalTau]/2)*\[Alpha][t] -
I*\[CapitalDelta]*\[Alpha][t] -
I*(g^2/\[Delta] + ((2*g^2)/\[Delta])*k*Abs [\[Epsilon][t]]*
Abs [\[Epsilon][t]])*\[Alpha][t] -
I*(g^2/\[Delta] + ((2*g^2)/\[Delta])*k*Abs [\[Epsilon][t]]*
Abs [\[Epsilon][t]])*\[Beta][t], \[Beta]'[
t] == -(\[CapitalTau]/2)*\[Beta][t] -
I*\[CapitalDelta]*\[Beta][t] -
I*(g^2/\[Delta] + ((2*g^2)/\[Delta])*k*Abs [\[Epsilon][t]]*
Abs [\[Epsilon][t]])*\[Beta][t] -
I*(g^2/\[Delta] + ((2*g^2)/\[Delta])*k*Abs [\[Epsilon][t]]*
Abs [\[Epsilon][t]])*\[Alpha][t], \[Epsilon]'[
t] == -(\[CapitalTau]/2)*\[Epsilon][t] -
I*2*(Subscript[\[CapitalDelta],
m] - (g^2/\[Delta] + ((2*g^2)/\[Delta])*k*Abs [\[Epsilon][t]]*
Abs [\[Epsilon][t]]) +
k*Abs [\[Epsilon][t]]*Abs [\[Epsilon][t]])*\[Epsilon][t] -
I*(2 - (g^2/\[Delta] + ((2*g^2)/\[Delta])*k*Abs [\[Epsilon][t]]*
Abs [\[Epsilon][
t]])/\[CapitalDelta])*\[CapitalOmega], \[Alpha][0] ==
1, \[Beta][0] == 0, \[Epsilon][0] == 0}, {\[Alpha][t], \[Beta][
t], \[Epsilon][t]}, t]
2024年10月06日 02点10分 2
这是代码大佬们
2024年10月06日 02点10分
1