Mathematica數學實驗二:切線迭代法求方程根

二.牛頓法求方程近似解 1.題目: 2.代碼: f[x_] := x^2 + Sqrt[x] - 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[x0]/f’[x0]; Print[N[x, 17], " n=", k

>>阅读原文<<