原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
实验二 一元函数微分学
2.1??实验目的
通过对Mathematica软件中求函数的导数、微分等命令的使用，进一步加深对导数、微分等概念的理解；初步掌握：在数学理论的指导下，如何利用Mathematica软件进行实际应用：函数极值和最值的求法。
2.2??实验内容
导数和微分的求法
例1 求下列函数的导数：
（1） （2） （3）
（4） （5） （6）
[实验]（1）输入：
得结果：
（2）输入：
得结果：
再输入：Simplify[%]
得：
（3）输入：f[x_]:=Log[Sin[x]];D[f[x],x]
得结果：Cot[x]
（4）输入：
得结果：
（5）输入：
得结果：
（6）输入：
得结果：
说明：D[f, x] gives the partial derivative.当f是 x 的一元函数时，D[f, x]给出f（x）的一阶导数。
Simplify[expr] performs a sequence of algebraic transformations on expr, and returns the simplest form it finds.
例2 求下列函数的高阶导数：
（1）的4阶导数；
（2）的20阶导数。
[实验]（1）输入：f[x_]:=Log[1+x];D[f[x],{x,4}]
得结果：
（2）输入：
得结果：
再输入：Simplify[%]
得：
说明：D[f, x, n] gives the multiple derivative.当f是 x 的一元函数时，D[f, x]给出f（x）的n阶导数。
例3 求下列函数的微分：
（1）； （2）。
[实验]（1）输入：
得结果：
（2）输入：
得结果：
再输入：Simplify[%]
得：
说明：Dt[f] gives the total differential .
导数概念的理解及应用
例4 设函数分别作出f(x)、f’(x)、f”(x)、g(x)在h=i*0.1(i=10,…,1)时的图形。再从图形来研究f’(x)和 g(x)之间的关系及f(x)的性态。
[实验]（1）输入：
Plot[f[x],{x,-2,2}]
得f(x) 的图形：
（2）再输入：Plot[f [x],{x,-2,2}]
得f’(x) 的图形：
（3）再输入：Plot[f [x],{x,-2,2}]
得f”(x) 的图形：
（4）再输入：
Do[{h=i*0.1;Plot[{f[x],g[x]},{x,-2,2},PlotStyle?{{RGBColor[1,0,0],Thickness[0.01]},{RGBColor[0,1,0],Thickness[0.01]}}]},{i,10,1,-1}]
得f’(x) 和g(x)的十幅图形：
双击其中任一幅图形，我们可以看到g(x)随h→0而趋向于f’(x)的情形，从而知：f’(x)和 g(x)之间的关系为
（5）下面我们从f(x)、f’(x)、f”(x)的图形来研究f(x)的性态
从f’(x)的图形可看出 f’(x)有一个零点为x=1,为求f’(x)的另一个零点，可输入：Solve[f[x]?0,x]
得结果：
即知f’(x)的两个零点为-1/3和1。
我们也可以通过逐步放大f’(x)的图形，来求f’(x)的另一个零点-1/3：输入Plot[f[x],{x,-0.4,-0.2}]
得
再输入Plot[f[x],{x,-0.34,-0.33}]
得
再输入Plot[f[x],{x,-0.3334,-0.3333}]
得
如此继续进行下去，便可越来越精确地逼近f’(x)的另一个零点-1/3。
同理，我们可求出f”(x)的唯一零点：1/3。当然，我们也可输入：
FindRoot[f[x]?0,{x,0}]，得结果：{x?0.333333}，从而求出f”(x)的零点。
于是，从f(x)、f’(x)、f”(x)的图形，根据相应的数学理论，我们便可得出f(x)的性态：
在区间，f(x)凸上升；f(x)在x=-1/3处取得极大值；
在区间，f(x)凸下降；为曲线的拐点；在区间，f(x)凹下降；f(x)在x=1处取得极小值；在区间，f(x)凹上升。
说明：Do[expr, i, imin, imax, di]称为循环语句，它以 di 为步长，i从初值imin变化到终值imax，每次循环都执行循环体expr一次。
例5 验证拉格朗日中值定理对函数在区间[0，1]上的正确性。
[实验]输入：
得结果：
由上可知：满足拉格朗日中值定理的有两个：
和
说明：Solve[eqns, vars] attempts to solve an equation or set of e
文档评论（0）