Mathematica数学实验求根作出函数f(x)= ex-cosx的图形;求出方程f(x)=0 在[-20,0]的所有根;令 为从0向左依次排列的方程的根,输出 xn-1-xn ,并指出 lim(xn-1-xn),下面还有个N趋于无穷大
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 06:46:22
Mathematica数学实验求根作出函数f(x)= ex-cosx的图形;求出方程f(x)=0 在[-20,0]的所有根;令 为从0向左依次排列的方程的根,输出 xn-1-xn ,并指出 lim(xn-1-xn),下面还有个N趋于无穷大
Mathematica数学实验求根
作出函数f(x)= ex-cosx的图形;求出方程f(x)=0 在[-20,0]的所有根;令 为从0向左依次排列的方程的根,输出 xn-1-xn ,并指出 lim(xn-1-xn),下面还有个N趋于无穷大
Mathematica数学实验求根作出函数f(x)= ex-cosx的图形;求出方程f(x)=0 在[-20,0]的所有根;令 为从0向左依次排列的方程的根,输出 xn-1-xn ,并指出 lim(xn-1-xn),下面还有个N趋于无穷大
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}}
以上符合题意不?