- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
《数学实验》上机指导书
实验题目
实验一解方程和方程组与极限运算
_、实验目的
(1) 掌握Mathematica软件的计算器功能;
(2) 学会使用Mathematica软件求各种类型方程(或方程组)的数值解和符号解;
(3) 通过木实验深刻理解极限概念;
(4) 学习并掌握利用Mathematica求极限的基木方法。
二、预备知识
(1) 方程(或方程组)代数解法的?木理论,函数的零点,方程(或方程组)的解及 数值解;
(2) 木实验所用命令:
*用“==”连接两个代数表达式构成一个方程 ?求方程(组)的代数解.?
Solve|;A程或方程纟 11,变3或变fi组J ?求方程(组)的数值解:
NSolve[方程或方程组,变量或变量组]
?从初始值开始搜索方程或方程组的解:
FindRootpY裎或A程组,变量或变量组初值J ?在界定范围内搜索方程或方程组的解:
FindRootl方程或方程組,变fi或变S组范围J
?绘阁命令:
PloU表达式,{变量,上限,卜限},可选项J ?微分方程求解命令:
DSolve [微分方程,y[x\, x]
(3)极限、左极限、右极限的概念;
木实验所用Mathematica有哭命令:
Limit [expr, x-x0] 求表达式在x- 吋的极限
Limit [exprzx-x0, Direction - 1] 求左极限
Limit [expr, x- x0/ Direction --l] 求右极限
三、实验内容与要求
计算 546x54564 ; 4654545676。
对于方程/-2/-4x2+3 = 0,试用Soke和NSolve分别对它进行求解,并比较得 到的结果,体会代数解即精确解与数值解的差别。
先观察函数= 的阁形,然后选择一个初始点求解,并几根据阁形确
定在某个区间,P搜索它的零点。
求方程组+ = 的解,然后代入系数和常数项的一组初值,并求解。
a2x + Z72J; = c2
永微分方程y\x) + 3/(x) + 2y(x) = ev的通解
用Mathematica软件计算下列极限:
(1)lim⑵limtan门U!⑷lim⑺lim3Y-rxF+r7(5) lim2n + z 2/7 — Z)⑷
(1)
lim
⑵limtan门
U!
⑷lim
⑺lim
3Y-rx
F+r7
(5) lim
2n + z 2/7 — Z)
⑷ lim
x-0 V X
sin(x) Yv2
(1 + X)“一1
(io) lim
x^2
实验操作
⑻lim
J—oo
, z
lim
;(li) Hm
x —oo
;(9) limflimtV-2x/+3jv)L
?-3 k x-2 )
lim
y—oo
;(12) lim
.Y-0
/?
sin
(丄)
学会N[]和expr//N的使用方法。
Inll J:=546*54564Inl2J:=Nl%] 2.97919 io7
lnl3J:=46545A45676//N 7 ? 152557956069422 io217410
学会Solve□和NSolve[]的使用方法。
In[5]:= p=xA4-2xA3-4xA2+3;Solve[p==0,x]
In[6]:=NSolvc[p= =0,x] {{x-^-0.973317-0.518738
?},{x^-0.973317+0.518738 ?},{x^0.778428},{x^3.16821}}
学会Clear「l和FindRoot[]的使用方法 In[7]:=Clear[x]
In[8J:=f=Sinlx]-Coslx]
In[9]:=Plot[f,{x,-4,4}]In[10]:=FindRoot[f,{x,l}] {x^O.785398}In[l l]:=FindRoot[f,{x,{0,l}}]
In[9]:=Plot[f,{x,-4,4}]
In[10]:=FindRoot[f,{x,l}] {x^O.785398}
In[l l]:=FindRoot[f,{x,{0,l}}] {{0.785398,0.785398}}
学会用Solve[]求解方程组。
In[12] :=Solve[ {a 1 *x+bl *y==cl ,a2*x+b2*y==c2},{x,y}]
_-b2cl^blc2 _-a2cl+Jalc2 /
-a2 bl+ al b2 a2 bl - al b2
学会DSolve[]的使用方法
In[13]:=DSolve[y,,[x]+3y[x]+2y[x]= =Exp[x],y[x],x]
”y + r C\^XZ/
. 6
用Mathematica软件计算下列极限:
(1 ) In[l]:= Limit [ (nx3 ) / (
文档评论(0)