f[x_] := x^2 + x^（1/2） - 3;
a = 1; b = 2; dalta = 10^(-6); k0 = 10; m = Min[f'[a], f'[b]];
If[f[a]*f'[a] > 0, x0 = a, x0 = b];
Do[x = x0 - f[xo]/f'[xo]; print[N[x, 17], " n=", k];
If[Abs[f[x]] < m*dalta, Break[],
If[k < k0, xo = x, Print["fail"]]]，{k, k0}]
代码如上
最后Do的条件好像是缺少了什么但是不知道应该添加什么。。
求助qwq

什么是切线迭代法？

1.定义函数
2.作图查看根的近似位置（我选择1）
3.用牛顿法找根（注意：起始点用近似实数 1.0 而不是精确整数 1）
4.用 NSolve 验证