东南大学 高数实验.docxVIP

高等数学A数学实验报告 院（系）软件学院 实验时间：2017.12.26 学号 姓名：赵士陆 实验三 实验题目：作出函数的函数图形和泰勒展开式（选取不同的和值）图形，并将图形进行比较。 二、实验目的和意义：熟悉Mathematica的功能及应用，用Mathematica计算函数的各阶泰勒多项式，并利用Mathematica优良的作图功能绘制曲线图形，直观地观察函数图像关系并反应出函数之间的关系，进一步掌握泰勒展开与函数逼近的思想。 三、计算公式: 一个函数若在点的邻域内足够光滑，则在该邻域内有泰勒公式当足够小时，有 四、程序设计 作出原函数图像： Plot[Log[Cos[x2]+Sin[x]],{x,- QUOTE , QUOTE }, PlotStyle→RGBColor[1,0,0]] 作出泰勒展开式（选取不同的和值）图形: 分： For[i=1,i≤11,a = Normal[Series[Log[Cos[x2] + Sin[x]], {x,0,i}]];Plot[{a,Log[Cos[x2]+Sin[x]]}, {x,- QUOTE , QUOTE }, PlotStyle→{RGBColor[0,0,1],RGBColor[1,0,0]}]; i=i+2] 在x0分别为0，-0.5，0.25上f（x）的4阶泰勒展开式: tt[x0_,n]:=Normal[Series[Log[Cos[x2]+Sin[x]],{x,x0,n}]];gs0=tt[0,4];gs3=tt[-0.5,4];gs6=tt[0.25,4]; Plot[{Log[Cos[x2]+Sin[x]],gs0,gs3,gs6},{x,- QUOTE , QUOTE }, PlotRange→{-2,2},PlotStyle→{RGBColor[0,0,1],RGBColor[1,0,1],RGBColor[1,0,0],RGBColor[0,1,0]}] 五、程序运行结果 原函数图形如下： 固定x0=0时，n取不同值时的函数图像。 分开画得 当n=1时 当n=3时 当n=5时 当n=7时 当n=9时 当n=11时 在x0分别为0，-0.5，0.25上f（x）的4阶泰勒展开式 结果的讨论和分析：函数的泰勒多项式对于函数的近似程度随着n的提高而提高。 实验六 一、实验题目 用切线迭代法求方程x2+x-3=0的近似解，要求误差不超过10-6 二、实验目的和意义 切线迭代法可以更精确的求出方程的近似解，通过适当的编程可以输出迭代的次数以及最终的近似解，最终通过该实验加深对切线迭代法的理解。 三、计算公式：xn+1=xn--f(xn)fxn 四、程序设计 五、程序运行结果 六、结果的讨论和分析 切线法比二分法收敛的要快，不过切线法要求的前提条件比较强，所以当难以判断是否满足条件时，应采用二分法，可以通过绘制图形知道在隔断区间上是否满足切线法的条件，这样可以免去精确地推导。