切线迭代找根的方法 mathematica

例： x^3-10 = 0,求x

Clear["Global`*"]  (*  Flatten[ ] *)
f1[x_] := N[x^3 - 10, 10];
f1'[t] // FullSimplify
FindRoot[x^3 == 10, {x, 1}]   (* 直接找根的方法 *)
Clear[x, x0]
x0 = 1.0;   (* 切线迭代找根的方法 *)
For[time = 1, time <= 10, time++, x0 = x0 - f1[x0]/f1'[x0]; 
 Print[time, " : ", N[x0, 10]];]
va = 3;
show1 = Plot[f1[x], {x, -va, va}]