高数实验报告Word.docVIP

传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 高等数学 实验报告 实验一 一、实验题目 观察数列极限 二、实验目的和意义 利用数形结合的方法观察数列的极限，可以从点图上看出数列的收敛性，以及近似地观察出数列的收敛值；通过编程可以输出数列的任意多项值，以此来得到数列的收敛性。通过此实验对数列极限概念的理解形象化、具体化。 三、计算公式 limn→∞1+1nn=e 四、程序设计 五、程序运行结果 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 六、结果的讨论和分析 由运行结果和图像可知，重要极限在2.5到2.75之间，无限趋近于e。 实验二 实验题目 作出函数的函数图形和泰勒展开式（选取不同的和值）图形，并将图形进行比较。 实验目的和意义 尝试使用数学软件Mathematica计算函数的各阶泰勒多项式。 通过绘制其曲线图形，进一步理解泰勒展开与函数逼近的思想。 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 程序设计 f[x_]:=Log[Cos[x^2]+Sin[x]]; Plot[f[x],{x,-Pi/4,Pi/4},PlotLabel?A grapj of f[x]]; For[i=1,i?10,a=Normal[Series[f[x],{x,0,i}]]; Print[n=,i]; Plot[{a,f[x]},{x,-Pi/4,Pi/4},PlotStyle?{RGBColor[0,0,1],RGBColor[1,0,0]}]; i=i+1]; For[x0=-Pi/4,x0?Pi/4,a=Normal[Series[f[x],{x,x0,10}]];Print[x0=,x0];Plot[{a,f[x]},{x,-Pi/4,Pi/4},PlotStyle?{RGBColor[0,1,0],RGBColor[1,0,0]}];x0=x0+Pi/8] 程序运行结果 n=1 n=2 n=3 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ n=4 n=5 n=6 n=7 n=8 n=9 n=10 Xo =-(?/4) 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ Xo =-(?/8) Xo=0 Xo =?/8 Xo =?/4 结果的讨论与的分析 分析：由实验结果可知：泰勒多项式的阶数n越大，多项式的图像与函数图像越接近。 实验三 一、实验名称：定积分的近似计算 分别用梯形法、抛物线法计算定积分的近似值（精确到0.0001） 二、实验目的： 为了解决实际问题中遇到的一些被积函数不能用算式给出，而通过图形或表格给出，或是一些虽然能够用算出，它的的原函数却很困难的甚至于原函数可能是非初等函数的定积分。 三、实验程序： 梯形法： 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ 传播优秀Word版文档 ，希望对您有帮助，可双击去除！ f[x_]:=Sin[x^2]; a=0;b=Pi/2;m2=f[0];dalta=10^(-4);n0=100; t[n