Question

Mathematica数学实验求根

作出函数f（x）= ex-cosx的图形；求出方程f(x)=0 在[-20,0]的所有根；令 为从0向左依次排列的方程的根，输出 xn-1-xn ，并指出 lim(xn-1-xn),下面还有个N趋于无穷大

Answer 1

f[x_] := Exp[x] - Cos[x]
Plot[f[x], {x, -20, 20}, AxesLabel -> {"x", "f(x)"}, PlotRange -> All]
Plot[f[x], {x, -20, 0}]
{FindRoot[f[x] == 0, {x, -20}], FindRoot[f[x] == 0, {x, -17.5}],
FindRoot[f[x] == 0, {x, -15}], FindRoot[f[x] == 0, {x, -10}],
FindRoot[f[x] == 0, {x, -5}], FindRoot[f[x] == 0, {x, 0}]}
Reverse[Drop[%, 1]]
{{x -> 0.}, {x -> -4.72129}, {x -> -10.9956}, {x -> -14.1372}, {x -> \
-17.2788}}

以上符合题意不?