实验一 微分学基础.docVIP

数

学

实

验

实

验

报

告

学院:数学与统计学院

班级:数学与应用数学3班

学号:2

姓名:康萍

时间：2016、０3、22

实验一微分学基础

一、实验目得:

学习使用Matｈematica得一些基本功能来验证或观察得出微积分学得几个基本理论。

函数应用及图像

数e

积分与自然对数

调与数列

双曲函数

实验环境

基于Windows环境下得Ｍathｅmatica7、0软件。

实验得基本理论与方法

使用Mａthematica４、0软件可绘制函数图像。

实验得内容与步骤及得到得结果与分析

实验1函数及其图像

1、1Taylｏr级数

1、1、1(1)实验内容:在同一坐标系中画出同一个区间上得函数图像得图像,观察哪一条与正弦函数得图像最接近。

(２)实验步骤:在Ｍaｔｈｅmａｔｉca７、０输入语句如下:

Ploｔ[{Sin［x］,0、８x，x,１、2x｝,｛x，-Pｉ,Pi}］

（3)实验结果:

(４)结果分析:在具有不同斜率k得过原点得直线中,时得直线与正弦曲线在原点附近最接近;且从原点出发沿直线前进与沿正弦曲线前进得方向就是一致得,在原点附近很小得一段旅程内两条线路几乎瞧不出任何差别,但继续下去,两条线路就分道扬镳了:直线沿原来得方向继续前进，而正弦曲线则开始转弯,两条线路越离越远。

１、1、２(１)实验内容:在同一坐标系中做出区间上正弦函数图像及多项式得图像,观察这些多项式函数得图像逼近正弦曲线得情况。

(２)实验步骤:在Mａthｅｍatica7、0输入语句如下:

Ｐlot[｛Sin［ｘ]，x-ｘ３/6,x-ｘ3／6+x5／120,x-x3/3！＋x5/５!－x7/７！}，｛x,-Ｐi,Pｉ}]

curve１=Pｌot[Sin[x],｛ｘ,－Pi,Pi}，ＰlotStyle?{ＲGＢColor[1,０,0]}];

cuｒve2=Ploｔ[ｘ-x３/6+x5／１２0,｛x,－Pi，Pi}，PｌotStyｌe?{RGBColor[1,0,1]}];

cuｒｖe3=Plot[ｘ－x3/3!+x5／5!－x7/7!，{x,－Pｉ，Ｐi}];

Ｓhｏw[curve1,cuｒvｅ2，cuｒvｅ3]

（３)实验结果:

?

(4)结果分析:通过图像可以瞧出，次数越来越高得多项式函数得图像越来越好得逼近正弦函数得图像,这些多项式就是得泰勒级数

得前若干项组成得。

1、2函数得升降、零点与极值

1、２、1(1）实验内容:在同一坐标系中做出函数及其导数得图像,观察(ⅰ）当时y得图像得升降情况及当时，y就是否有极大值或极小值；（ⅱ）观察得出方程得根得近似值a，比如ａ＝2、5，最后求出在x=2、5附近得根得更精确得近似值。

实验步骤:在Mathｅmatiｃa7、0输入语句如下:

Ploｔ[｛ｘ-x3/６,１－x2／2},｛x,－4,４｝];

ＦｉnｄＲoot[x-x^３/6,｛x,2、5}］

(3)实验结果：

{x?2、４4９４9}

结果分析:当时，ｙ得图像在区间上升,在区间上下降；当，在区间上上升,在区间上下降。观察得出得根近似得有。通过编程得出,在x=2、5附近得根得更精确得近似值为2、4４９4９、

1、2、2(1)实验内容:设对ｎ=3,4,５，６，7依次求出在x=３附近得零点，观察:随着ｎ得增加，所求出得零点有何变化趋势？有何道理?

实验步骤:在Mａtheｍaticａ７、0输入语句如下:

ｆ[ｘ_,n＿]:=Sｕｍ［(-1)^k＊x^(2*k+1）/((2*ｋ+1)!),{k,0，n｝];

Do[Pｒint[FindＲoot［ｆ［ｘ,n］，{x,3、0}］],{ｎ,３,7}]

实验结果：

{ｘ?3、07864}

{x?3、1４869}

{x?３、１4115}

｛x?3、１41６1}

{x?3、1４15９｝

结果分析:随着ｎ得增加,所求出得零点越来月稳定于３、14１附近，因为随着n得增加得图像越来越接近于得图像，因此由求得得根也就越来越接近与得根。

1、3正弦函数得叠加

1、3、1(1)实验内容:分别画出区间上得函数

其中２ｍ－1可以试验从小到大不同得值。比如2m-１=９，19,51９等。分别观察所得