作业帮求助大神,该微分方程怎样求解?需要用Mathematica编程么?如果可以能把程序给我么?
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/12 04:57:01
求助大神,该微分方程怎样求解?需要用Mathematica编程么?如果可以能把程序给我么?
求助大神,该微分方程怎样求解?需要用Mathematica编程么?如果可以能把程序给我么?
求助大神,该微分方程怎样求解?需要用Mathematica编程么?如果可以能把程序给我么?
mathematica应该是可以求的,不过这类微分方程可以直接手算,而且求出来的是精确解.
这是二元的二阶线性微分方程,可以用线性组合的方式组合x1和x2,然后把两个相关的方程化成两个独立的方程,每个分别只包含组合后的一个变量,这样就可以解了.
这个方程可以求解析
rule = {m1 -> 1, m2 -> 1.102, k1 -> 1, k2 -> 3, kc -> 0.15, r -> 0.001, ra -> 0.35, f -> Exp[I w t]};
eqn = {m1 D[x1[t], t, t] == f - 2 k1 x1[t] - kc (x1[t] - x2[t]) - r D[x1[t], t],...
全部展开
这个方程可以求解析
rule = {m1 -> 1, m2 -> 1.102, k1 -> 1, k2 -> 3, kc -> 0.15, r -> 0.001, ra -> 0.35, f -> Exp[I w t]};
eqn = {m1 D[x1[t], t, t] == f - 2 k1 x1[t] - kc (x1[t] - x2[t]) - r D[x1[t], t],
m2 D[x2[t], t, t] == f - k2 x2[t] - kc (x1[t] - x2[t]) - ra D[x2[t], t]};
DSolve[eqn /. rule, {x1[t], x2[t]}, t]
结果很长，不贴了。
收起