我用Mathematica绘制了一个人物，想要从图中读取数据。例如，存在一个带有以下代码的方波，我想要第三个转折点的值：
R[t_] := 10 UnitStep[-Sin[0.4 Pi t]];
Plot[R[t], {t, 0, 20}, Exclusions -> None, PlotStyle -> Thick]
yui = Flatten[Table[{t, (R[t] /. sol)}, {t, 5, 10, 1.2}]]
Partition[yui, 2] // TableForm
我让efford读取函数波的值。由于曲线的连续性，我以这种方式读取的值可能不正确。
然后，我使用命令“Solve”和以下代码：
Solve[R[t] = 5, {t, 5, 10, 1.2}]
但它不起作用！
我真的想获得协调，但想要获得精确的x值，希望获得精确的x值。
因此我需要你的帮助！