Точка пересечения двух кривых в прграмме Математика

Dwemer

Подскажите плиз, есть такая функция в Mathematica
Строятся графики двух функций и выдается точка их пересечения

Finn

Вроде такого нет. Ну а в чем проблема сделать руками?
F[t_] := t/2;
G[t_] := t^2;
Plot[{F[t], G[t]}, {t, 0, 1}]
Точное решение Solve[F[t] == G[t], t]
Приближенное решение NSolve[F[t] == G[t], t]
Можно указать точность NSolve[F[t] == G[t], t, 50]
Если кривые заданы в виде уравнения на x и t , не разрешимого относительно x, используй пакет << Graphics`ImplicitPlot` для постороения графиков
Если особая точность не нужна, то можно узнать точку пересечения следующим образом. Щелкаешь по графику, держишь Ctrl и наводишь мышку на точку пересечения. Слева в строке состояний будут координаты.

Finn

Если графиков много и действительно нужна одна функция, можно оформить например так
FindPoint[F_, G_] := {Plot[{F[t], G[t]}, { t, 0, 1}]; {t, F[t]} /. Solve[F[t] == G[t], t]}[[1]]
Вызов FindPoint[F, G]

Dwemer

Спасибо
Оставить комментарий
Имя или ник:
Комментарий: