使用 Mathematica 求两个函数的交集

Question

我使用以下图表绘制了我的两个函数：

p1 = Plot[100 t^2*Sin[Sqrt[t]], {t, 0, 7}, AxesOrigin -> {0, 5000}]
p2 = Plot[Piecewise[{{250, 0 <= t < 3}, {2000, 3 < t <= 7}}], {t, 0, 7}, 
   AxesOrigin -> {0, 5000}]

我不知道如何找到图形的交点，请帮助。

Answer 1

使用 FindRoot 从图中观察到的初始猜测。

sol = FindRoot[100 t^2*Sin[Sqrt[t]] == 250, {t, 2}];
t1 = t /. sol

1.61743

sol = FindRoot[100 t^2*Sin[Sqrt[t]] == 2000, {t, 5}];
t2 = t /. sol

5.07622

y = With[{t = 3}, 100 t^2*Sin[Sqrt[t]]];

p1 = Plot[100 t^2*Sin[Sqrt[t]], {t, 0, 7}, AxesOrigin -> {0, 5000}];
p2 = Plot[Piecewise[{{250, 0 <= t < 3}, {2000, 3 < t <= 7}}], {t, 0, 7},
   AxesOrigin -> {0, 5000}, Exclusions -> None];

Show[p1, p2, ListPlot[{{t1, 250}, {t2, 2000}, {3, y}}, 
  PlotStyle -> PointSize[0.03]]]

使用 Mathematica 求两个函数的交集

Finding intersection of two function using Mathematica

wolfram-mathematica

intersection