Mathematica:两条曲线的切线
Cap*_*esh 3 wolfram-mathematica
我昨天问过这个问题,但不确定我是否明确了我在寻找什么.说我有定义为两条曲线f[x_]:=...和g[x_]:=...如下所示.我想使用Mathematica来确定两条曲线的切线的横坐标交点,并分别存储每条曲线的值.也许这真是一项微不足道的任务,但我确实感谢你的帮助.我是Mathematica的中间人,但这是我无法找到其他地方的解决方案.
Sjo*_*ies 11
f[x_] := x^2
g[x_] := (x - 2)^2 + 3
sol = Solve[(f[x1] - g[x2])/(x1 - x2) == f'[x1] == g'[x2], {x1, x2}, Reals]
(* ==> {{x1 -> 3/4, x2 -> 11/4}} *)
eqns = FlattenAt[{f[x], g[x], f'[x1] x + g[x2] - f'[x1] x2 /. sol}, 3];
Plot[eqns, {x, -2, 4}, Frame -> True, Axes -> None]
请注意,会有很多的功能f,并g为这你不会找到这样的解决方案.在这种情况下,您将不得不求助于数值问题解决方法.