- 1、本文档共13页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
实验库1:一元函数微分学2
实验一 一元函数微积分学
实验2 极限与连续(基础实验)
实验目的 通过计算与作图, 从直观上揭示极限的本质,加深对极限概念的理解. 掌握用
Mathematica画散点图, 以及计算极限的方法. 深入理解函数连续的概念,熟悉几种间断点的图形
特征,理解闭区间上连续函数的几个重要性质.
1、作散点图
例2.1 (教材 例2.1) 分别画出坐标为的散点图, 并画出折线图.
分别输入命令
t1=Table[i^2,{i,10}]; g1=ListPlot[t1,PlotStyle-PointSize[0.02]];
g2=ListPlot[t1,PlotJoined-True];Show[g1,g2];
t2=Table[{i^2,4i^2+i^3},{i,10}];
g1=ListPlot[t2,PlotStyle-PointSize[0.02]];
g2=ListPlot[t2,PlotJoined-True];Show[g1,g2];
则分别输出所求图形.
例2.2 画出前25个素数的散点图.
输入命令
Table[Prime[n],{n,25}];
ListPlot[Table[Prime[n],{n,25}],PlotStyle-PointSize[0.015]];
则分别输出所求图形.
2、数列极限的概念
例2.3 观察数列的前100项变化趋势.
输入命令
t=N[Table[n^(1/n),{n,1,100}]];
ListPlot[t,PlotStyle-PointSize[0.015]];
则分别输出所求图形. 从图中可看出, 这个数列似乎收敛于1.
下面我们以数值的方式来说明这一变化趋势. 输入以下语句, 并观察其数值结果.
m=2;xn=0;
For[i=1,i=1000,i+=50,If[Abs[xn-1]10^(-m),xn=N[n^(1/n),20]]];
Print[i, ,xn];
设该数列收敛于不妨取下面考察与A的接近程度. 输入以下Mathematica语句.
u = 10^9(-2); A = 1 + u; m = 5; n = 3; an = Sqrt[3];While[Abs[A-an] = 10^(-m), n++; an = N[n^(1/n)]];Print[ n=, n, an=, an, |A-an|=, Abs[A - an]];
结果表明: 当时, 与的距离小于
例2.4 观察Fibonacci数列的变化趋势.
Fibonacci数列具有递推关系令.
输入命令
fn1=1;fn2=1;rn=1;
For[i=3,i=14,i++,
Fn=fn2+fn1;fn2=fn1;fn1=fn;rn=N[fn2/fn1,20];dn=rn-rn1;
rn1=rn;
Print[i, , fn1, , rn, ,dn]];
其中第二列给出了Fibonacci数列的前14项, 第3列给出了的值, 由第4列可以看出, 我们也可以用散点图来观察Fibonacci数列的变化趋势如图所示, 输入命令
Clear[f]; f[n_]:= f[n-1]+f[n-2];f[0]=1;f[1]=1;
fab20=Table[f[i],{i,0,20}];ListPlot[fab20,PlotStyle -PointSize[0.02]];
Infab20=Log[fab20];ListPlot[Infab20,PlotStyle- PointSize[0.02]];
则输出所求散点图.
为了更好地观察数列的变化趋势, 我们可以利用Mathematica的动画功能来进一步观察数列随着n的增大的变化趋势.
例2.5 通过动画观察当时数列的变化趋势.
输入
Clear[tt];
tt={1,1/2^2,1/3^2};
Do[tt=Append[tt,N[1/i^2]];
ListPlot[tt,PlotRange-{0,1},PlotStyle-PointSize[0.02]],{i,4,20}]
则输出所求图形动画. 从图中可以看出所画出的点逐渐接近于x轴.
例2.6 研究极限
输入
Print[n, , Ai, ,0.4-Ai];
For[i=1, i=15, i++,Aii=N[(2 i^3+1)/(5 i^3+1),10];
Bii=0.4-Aii; Print[i, , Aii, , Bii]]
则输出
n Ai 0.4-Ai
1 0.5 –0.1
2 0.414634 –0.0146341
3 0.404412 –04 0.401869 –05 0.400958 –0.000958466
您可能关注的文档
- 定新人教版七年级下数学导学案.doc
- 宝马五系六系后副车架品质介绍.pptx
- 宝石之都的基础设施建设与经济发展.ppt
- 宝骏630VS现代瑞纳.ppt
- 实体关系模型(E-R图).ppt
- 实习一 地质图的基本知识.ppt
- 实体特征造型.doc
- 宜家家居客户关系管理分析(下).ppt
- 实务12-19讲讲义.doc
- 宝玉学习规范.ppt
- 10《那一年,面包飘香》教案.docx
- 13 花钟 教学设计-2023-2024学年三年级下册语文统编版.docx
- 2024-2025学年中职学校心理健康教育与霸凌预防的设计.docx
- 2024-2025学年中职生反思与行动的反霸凌教学设计.docx
- 2023-2024学年人教版小学数学一年级上册5.docx
- 4.1.1 线段、射线、直线 教学设计 2024-2025学年北师大版七年级数学上册.docx
- 川教版(2024)三年级上册 2.2在线导航选路线 教案.docx
- Unit 8 Dolls (教学设计)-2024-2025学年译林版(三起)英语四年级上册.docx
- 高一上学期体育与健康人教版 “贪吃蛇”耐久跑 教案.docx
- 第1课时 亿以内数的认识(教学设计)-2024-2025学年四年级上册数学人教版.docx
文档评论(0)