怎么用mathematica做这道函数题?我晕的~~~~

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/24 13:58:51
怎么用mathematica做这道函数题?我晕的~~~~
x]oE*RneW nf?64]Q%m*q] 5_qkbyy7Rޜa DߋŎ_=תA}[x֍=x-vnvf&M*L%}KP<643*3ka sKg!rjWE50Mf""\ьZ#_dBh$E'\A&Q5[ۄ ~ZQϪϟ{薂X޾Zbo{yWk*Ʀh/wít7Wu|aZ -pEMƺq89cQOTǵ4cC9-MpB LF7\4DQu"j;%肵Dlv`dAkAkxx'lnj&757Lح$F14?ݟCZ E5hTK|+϶߽Rفaz4rb59WY?ҭ+-28x˲<-hmq4YQ)>h8xqlD?1cC*D%9FyF)V3 S)rek6V9z]nq}Ԭ0uL'

怎么用mathematica做这道函数题?我晕的~~~~
怎么用mathematica做这道函数题?

我晕的~~~~

怎么用mathematica做这道函数题?我晕的~~~~
第一步画图很简单,就不多少了.
接下来是找解部分,

这是一个超越方程,没有代数解,要在mathematica中求极限很难。

先画图,很简单。
In[16]:= Plot[E^x-Cos[x]==0,{x,-20,0}]
然后运用目测法看出根的个数和大致位置,用FindRoot
In[23]:= FindRoot[E^x-Cos[x]==0,{x,-17}]
Out[23]= {x->-17.2788}
In[22]:= FindRoot[E^x-Cos[x]==0,{x,-15}...

全部展开

先画图,很简单。
In[16]:= Plot[E^x-Cos[x]==0,{x,-20,0}]
然后运用目测法看出根的个数和大致位置,用FindRoot
In[23]:= FindRoot[E^x-Cos[x]==0,{x,-17}]
Out[23]= {x->-17.2788}
In[22]:= FindRoot[E^x-Cos[x]==0,{x,-15}]
Out[22]= {x->-14.1372}
In[24]:= FindRoot[E^x-Cos[x]==0,{x,-12}]
Out[24]= {x->-10.9956}
In[25]:= FindRoot[E^x-Cos[x]==0,{x,-8}]
Out[25]= {x->-7.85359}
In[26]:= FindRoot[E^x-Cos[x]==0,{x,-5}]
Out[26]= {x->-4.72129}
In[27]:= FindRoot[E^x-Cos[x]==0,{x,0}]
Out[27]= {x->0.}
极限可以用三角,等一会

收起

这个 你下载个mathematica的资料啊 我这有 你对着例题套就可以了 需要的话 留个联系方式我发给你