使用带有插值的NSolve

Question

我对Mathematica很新，很抱歉，如果这有明显的答案，但是：

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

这是输入：

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}