Question

怎样用Mathematica 消去参数

想消去t这个参数，用什么指令？？？
v == (g m)/(k s) - (E^(-((k s t)/m)) g m)/(k s)
h==-((g m^2)/(k^2 s^2)) + (E^(-((k s t)/m)) g m^2)/(k^2 s^2) + (g m t)/(k s)

Answer 1

你这组方程直接解是解不出来的，要稍微变通一下。

设p=E^(-((k s t)/m)，那么你的这一组方程就变成这样了（很简单了）
Solve[{v == (g m)/(k s) - (p* g m)/(k s),
h == -((g m^2)/(k^2 s^2)) + (p*
g m^2)/(k^2 s^2) + (g m t)/(k s)}, {p, t}]

解得：

p = 1 - (k s v)/(g m)
t = (h k s + m v)/(g m)
把t代入上面的式子就可以消去t了。

也可以解关于p的方程，注意要在实数范围内求解

Solve[-((-g m + k s v)/(g m)) == E^(-((k s t)/m)), t, Reals]
也能得到t的一个结果。