数学实验微积分基础.docVIP

实验一 微积分基础 姓名：刘东梅 学号：200771010120 班级：07数〈1〉班 实验一 微机分基础 实验目的： 学习使用Mathematical的一些基本功能来验证或观察得出微积分的几个基本结论. 实验的基本原理和方法： 运用Mathematical进行计算和验证初等数学和高等数学中的一些基本结论，本实验将数值计算、符号计算、画图等方法结合起来主要验证了泰勒级数和调和级数的一些性质和结论，并对每个实验结果进行了分析. 实验的内容和步骤： 一、泰勒级数 以多项的泰勒级数为例： 步骤1： 在同一坐标系中画出同一个区间上的函数,与的图像. c 1=Plot[Sin[x],{x,-Pi,Pi},PlotStyle-{RGBColor[1,0,0]},AxesLabel-{“x”, “y”}] c 1=Plot[1.2*x,{x,-Pi,Pi},PlotStyle-{RGBColor[0,0,1]},AxesLabel-{“x”, “y”}] Show[c1,c2] 图c1 图c2 步骤2： 试验一些别的不同的k值，在同一个坐标系内画出在原点附近某一个区间上的直线与正弦曲线.看具有哪一个斜率k的直线与正弦曲线在原点附近最接近？ 下面分别取（黑色），（绿色）在同一坐标系中画出图像如下： 步骤3： 在同一坐标系中画出同一个区间上的函数及多项式函数， , 的图像.上述几个函数图像分别以红、蓝绿、绿、蓝色呈现出来. s1= Plot[Sin[x],{x,-Pi,Pi},PlotStyle-{RGBColor[1,0,0]},AxesLabel-{“x”, “y”}] s2= Plot[x-x^3/6,{x,-Pi,Pi},PlotStyle-{RGBColor[0,1,1]},AxesLabel-{“x”, “y”}] s3=Plot[x-x^3/6+x^5/120,{x,-Pi,Pi},PlotStyle-{RGBColor[0,1,0]},AxesLabel-{“x”, “y”}] s4=Plot[x-x^3/6+x^5/120-x^7/(7!),{x,-Pi,Pi},PlotStyle-{RGBColor[0,0,1]},AxesLabel-{“x”, “y”}]Show[s1,s2,s3,s4] 二、调和级数 自然数倒数组成的数列称为调和级数.我们把它的前n项和记作：H（n）. 步骤1 将坐标为（n，H（n））（n=1,2,…,100）的点依次连接成光滑曲线.观察曲线的形状.它与什么函数的图像形状类似. H[n_]:=NSum[1/k,{k,1,n}]; t =Table[{n,H[n],{n,1,100}}]; p1=ListPlot[t] 步骤2 为了验证这些店连成的曲线是否接近对数函数的图像，可以将对数函数的图像与上述p1画在同一坐标系中进行比较. p2=Plot[Log[x],{x,1,100},PlotStyle-{RGBColor[0,0,1]}]; Show[p1,p2, AxesLabel-{“x”, “y”}] 步骤3 c=H[100]-Log[100] p3=Plot[Log[x]+c,{x,1,100}, PlotStyle-{RGBColor[0,0,1]}] Show[p1,p2,p3, AxesLabel-{“x”, “y”}] 实验结果及其结果分析 泰勒级数：在步骤1下，与经过坐标原点的直线图像的比较，有点“以直逼曲”的意思，在经过步骤2之后发现：在具有不同斜率的过原点的直线中，k=1时的直线与正弦函数在原点附近最接近，这个k值其实是在x=0处的导数.观察发现：直线沿原来的方向继续前进的，而正弦函数曲线则开始转弯，两条路线越来越远.我们自然会想到，一次函数的图像是直线，当然不能跟着正弦函数转弯.那更高次数的函数能不能与它更接近呢！那么就有了步骤3的内容.实验发现，多项式函数的次数越高，正弦函数与它越逼近，这就有了的泰勒级数： 调和级数： 从步骤1种的图像可以观察出，将其上的点连起来组成的图形有点像对数函数的图像，为了验证其与对数函数图像的接近程度，我们将两个函数图像画在同一直角坐标系中，观察发现点集t=(n,H(n))( 1n100)连成的曲线与的曲线并不重合，但趋于“平行”：当n增大时H（n）与之差接近于常数，为了验证之，我们取，画出了的图像，结果发现它与点集t连成的曲线近乎重合，并且这个