资源描述:
《东南大学高等数学(A)上册实验报告.doc》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、东南大学实验报告高等数学数学实验报告实验人员:院(系)__________学号___________姓名_________成绩_________实验时间:注:部分实验环境为Mathematica8,另一部分为Mathematica4.(文档下载者请在安装有Mathematica4的电脑打印此报告,否则公式是乱码,打印时请删去这一行文字)实验一观察数列的极限一、实验题目通过作图,观察重要极限:二、实验目的和意义利用数学软件Mathematica加深对数列极限概念的理解。三、计算公式data=Table[,{,}]ListPlot[data,PlotRange®{,}
2、,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]]五、程序运行结果(Mathematica8)第15页共15页东南大学实
3、验报告六、结果的讨论和分析通过观察图像和数据可知,极限为e。实验二一元函数图形及其性态一、实验题目已知函数,作出并比较当c分别取-1,0,1,2,3时的图形,并从图上观察极值点、驻点、单调区间、凹凸区间以及渐近线。二、实验目的和意义熟悉数学软件Mathematica所具有的良好的作图功能,并通过函数图形来认识函数,运用函数的图形来观察和分系函数的有关性态,建立数形结合的思想。三、计算公式Plot[f[x],{,,},PlotStyle→RGBColor[,,]]Show[]第15页共15页东南大学实验报告四、程序设计①②f[x_]:=1/(x^2+2x-1);Pl
4、ot[f'[x],{x,-4,5},GridLines®Automatic,Frame®True,PlotStyle®RGBColor[0,1,0],PlotLabel®"AGraphoff'[x]"]g[x_]:=1/(x^2+2x);Plot[g'[x],{x,-4,5},GridLines®Automatic,Frame®True,PlotStyle®RGBColor[1,0,0],PlotLabel®"AGraphofg'[x]"]h[x_]:=1/(x^2+2x+1);Plot[h'[x],{x,-4,5},GridLines®Automatic,Fra
5、me®True,PlotStyle®RGBColor[0,0,1],PlotLabel®"AGraphofh'[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®"AGraphofj'[x]"]k[x_]:=1/(x^2+2x+3);Plot[k'[x],{x,-4,5},GridLines®Automatic,Frame®True,PlotStyle®RGBColor[0.25,1
6、,0.75],PlotLabel®"AGraphofk'[x]"]③f[x_]:=1/(x^2+2x-1);Plot[f''[x],{x,-4,5},GridLines®Automatic,Frame®True,PlotStyle®RGBColor[0,1,0],PlotLabel®"AGraphoff''[x]"]g[x_]:=1/(x^2+2x);Plot[g''[x],{x,-4,5},GridLines®Automatic,Frame®True,PlotStyle®RGBColor[1,0,0],PlotLabel®"AGraphofg''[x]"]h[x
7、_]:=1/(x^2+2x+1);Plot[h''[x],{x,-4,5},GridLines®Automatic,Frame®True,PlotStyle®RGBColor[0,0,1],PlotLabel®"AGraphofh''[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®"AGraphofj''[x]"]k[x_]:=1/(x^2+2x+3);Plot[k''[x],
8、{x,-4