wolfram-mathematica - 使用带有插值的 NSolve

Question

我对 Mathematica 很陌生，如果有一个明显的答案，我很抱歉，但是：

我正在尝试使用 NSolve 找到两个函数之间的交点，其中一个函数是使用插值生成的，但它不会给我一个解决方案。

这是输入：

data = Table[x, {x, 1, 25, 1}];
data2 = Table[x^.5, {x, 1, 25, 1}];
a1 = Interpolation[Transpose[{data, data2}]];
NSolve[a1[z] == 5 - z^.5, z]

和输出：

NSolve[InterpolatingFunction[][z] == 5 - z^0.5, z, Reals]

谢谢您的帮助！

Answer 1

In[1]:= data = Table[x, {x, 1, 25, 1}];
data2 = Table[x^.5, {x, 1, 25, 1}];
a1 = Interpolation[Transpose[{data, data2}]];
r = z /. FindRoot[a1[z] - (5 - z^.5), {z, 1}];
{r, a1[r], 5 - r^.5}

Out[5]= {6.24994, 2.50001, 2.50001}