东南大学高等数学A上册实验报告.docxVIP

精品文档 高等数学数学实验报告 实验人员：院（系） __________学号 ___________姓名 _________成绩 _________ 实验时间： 注：部分实验环境为 Mathematica 8 ，另一部分为 Mathematica 4. (文档下载者请在安装有 Mathematica 4 的电脑打印此报告，否则公式是乱码，打印时请删去这一行文字 ) 实验一 观察数列的极限 一、实验题目 通过作图，观察重要极限： lim 1 1 n e n n 二、实验目的和意义 利用数学软件 Mathematica 加深对数列极限概念的理解。 lim 1 1 n 三、计算公式 data=Table[,{ ，}] n n ListPlot[data,PlotRange {,},PlotStyle PointSize[],AxesLabel {,} ] 四、程序设计 data=Table[(1+(1/n))^n,{n,70}] ListPlot[data,PlotRange {1.5,3}, PlotStyle PointSize[0.018],AxesLabel {n,lim (1+1/n)^n}] f[x_]:=(1+1/x)^x; For[x=1000,x 10000,x=x+1000,m=N[f[x]];Print[x=,x, ,f[,x,],=,m]] 五、程序运行结果 (Mathematica 8) . 精品文档 n lim 1 n .0 .8 .6 .4 .2 .0 .8 .6 n 0 10 20 30 40 50 60 70 六、结果的讨论和分析 通过观察图像和数据可知，极限为 e。 实验二 一元函数图形及其性态 一、实验题目 已知函数 f x 1 4) ，作出并比较当 c 分别取 -1,0,1,2,3 时的图形，并从 2 ( 5 x x 2 x c 图上观察极值点、驻点、单调区间、凹凸区间以及渐近线。 二、实验目的和意义 熟悉数学软件 Mathematica 所具有的良好的作图功能， 并通过函数图形来认识函数， 运用函数的图形来观察和分系函数的有关性态，建立数形结合的思想。 三、计算公式 Plot[f[x],{,,},PlotStyle →RGBColor[,,]]Show[] . 精品文档 四、程序设计 Do Plot x 2 c ^ 1 , x, 5, 4 , 2 x PlotRange 10, 10 , GridLines Automatic, Frame True, PlotStyle RGBColor 1,0,0 , c, 1, 3, 1 f[x_]:=1/(x^2+2x-1); Plot[f[x],{x,-4,5},GridLines Automatic,Frame True,PlotStyle RGBColor[0,1,0],PlotLabel A Graph of f[x]] g[x_]:=1/(x^2+2x); Plot[g[x],{x,-4,5},GridLines Automatic,Frame True,PlotStyle RGBColor[1,0,0],PlotLabel A Graph of g[x]] h[x_]:=1/(x^2+2x+1); Plot[h[x],{x,-4,5},GridLines Automatic,Frame True,PlotStyle RGBColor[0,0,1],PlotLabel A Graph of h[x]] j[x_]:=1/(x^2+2x+2); Plot[j[x],{x,-4,5},GridLines Automatic,Frame True,PlotStyle RGBColor[0.5,0.5,0.5],PlotLabel A Graph of j[x]] k[x_]:=1/(x^2+2x+3); Plot[k[x],{x,-4,5},GridLines Automatic,Frame True,PlotStyle RGBColor[0.25,1,0.75],PlotLabel A Graph of k[x]] ③f[x_]:=1/(x^2+2x-1); Plot[f[x],{x,-4,5},GridLines Automatic,Frame True,PlotStyl e RGBColor[0,1,0],PlotLabel A Graph of f[x]] g[x_]:=1/(x^2+2x); Plot[g[x],{x,-4,5},GridLines Automatic,Frame True,PlotStyl e RGBColor[1,0,0],PlotLabel A Graph of g[x