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];
If[Abs[f[x]] < mdalta, Break[],
If[k < k0, x0 = x, Print[“fail”]]],
{k, k0}
]

3.运行结果:

4.友情提醒:

代码直接从mathematic里复制的,发现csdn应该不支持这个代码格式,所以不知道你们复制过去会变成什么样子,但截图的代码一定是对的.

吐个槽:

这个软件绝对不能多用,不然以后你c++的好格式就全毁了…