Mathematica: Касание двух кривых

Question

Я задал этот вопрос вчера, но не уверен, ясно ли я, что я искал. Скажем, у меня две кривые, определенные как f[x_]:=... и g[x_]:=..., как показано ниже. Я хочу использовать Mathematica для определения пересечения абсцисс касательной к обоим кривым и сохранения значения для каждой кривой отдельно. Возможно, это действительно тривиальная задача, но я ценю помощь. Я являюсь промежуточным звеном в Mathematica, но это тот, который мне не удалось найти в другом месте.

Answer 1

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, для которых вы не найдете решение в этом случае. В этом случае вам придется прибегать к методам численного решения проблем.

Answer 2

Вам просто нужно так решить систему одновременных уравнений:

Общая касательная линия y = a x + b.

Общий наклон a = f'(x1) = g'(x2)

Общие точки a x0 + b = f(x0) и a x1 + b = g(x1).

В зависимости от характера функций f и g это может не иметь ни одного, ни одного решения.