用数学软件mathematica做微积分.docxVIP

实用文案 上海大学 2011～ 2012 学年冬季学期课程论文 课程名称： 微积分 课程编号：论文题目 : 用数学软件 mathematica 做微积分 作者姓名 : 学 号 : 成 绩 : 论文评语 : 评阅人 : 评阅日期 : 标准文档 实用文案 用数学软件 Mathematica 做微积分 姓名： 学号： 摘要： Mathematica 是著名的数学软件，具有强大的的数学运算能力和绘图功能。 本报告用 Mathematica 来计算微积分中的各种习题 , 并绘制了很多图形。 在本报告中，我运用软件 mathematica 解决了在微积分学习过程中学到的很多知识和所遇到的问题。 本款软件可以解决我们从开始学习微积分到目前为止所有的问题。从求极限、导数、积分、空间解析几何到多元微分学、多元微分学的应用、重积分、曲线积分、曲面积分等等，无不包含其中。关键词： Mathematica 数学软件 微积分 正文： 首先我想从最简单的求函数极限到多远微分学慢慢来展现这款软件对微积分学习的帮助。 一、求函数极限 1、自变量趋于有限值的极限 例 假设求极限 lim sin x x 0 x 我们只需输入： f[x_]:=Sin[x]/x; Limit[f[x],x 0] 则会输出： 1 2、求单侧极限 标准文档 实用文案 例 求右极限 lim arctan 1 x 0 x 只需输入： f[x_]:=ArcTan[1/x]; Limit[f[x],x 0,Direction -1] /2 、自变量趋于无穷大的极限 例 求极限 lim x2 sin 1 2 x 3x 输入： f[x_]:=x^2Sin[3/x^2]; Limit[f[x],x Infinity] 输出： 3 、单向极限 求极限 lim arctanx x 输入： f[x_]:=ArcTan[x]; Limit[f[x],x Infinity] 输出：π /2 例 求极限 lim arctanx x 输入： f[x_]:=ArcTan[x]; Limit[f[x],x -Infinity] 输出： -( π/2) 、无穷大的极限 1 例 求极限 lim ex x 0 输入： f[x_]:=Exp[1/x]; Limit[f[x],x 0,Direction -1] 输出： 正无穷 、列表观察数列的极限输入： f[1]=N[Sqrt[2],10]; f[n_]:=N[Sqrt[2+f[n-1]],10]; Do[Print[n, ,f[n]],{n,10}] 结果： 1.414213562 1.847759065 1.961570561 标准文档 实用文案 1.990369453 1.997590912 1.999397637 1.999849404 1.999962351 1.999990588 1.999997647 描点作图 二、导数 1、用定义求导数 导数的定义： f ( x0 ) lim f (x0x) f ( x0 ) 或 f ( x0 ) lim f ( x) f ( x0 ) x 0 x x x0 x x0 例 设 f ( x) x,x 0 ，求左导数 f (0) sin x, x 0 f[x_]:=Which[x0,x,x=0,Sin[x]] （定义分段函数） a=0; Direvative=Limit[(f[x+a]-f[a])/(x-a),x a] 结果： 1 2、高阶导数 例 设 f ( x) sin(2 x2 3) ，求二阶导数 f ( x) 和三阶导数 f ( x) 二阶导数 f[x_]:=Sin[2x^2+3]; f[x] D[f[x],{x,2}] 结果： 4 Cos[3+2 x 2]-16 x 2 Sin[3+2 x 2] 4 Cos[3+2 x 2]-16 x 2 Sin[3+2 x 2] 三阶导数 f[x_]:=Sin[2x^2+3]; f[x] D[f[x],{x,3}] 结果： 标准文档 实用文案 -64 x 3 Cos[3+2 x 2 ]-48 x Sin[3+2 x 2] -64 x 3 Cos[3+2 x 2 ]-48 x Sin[3+2 x 2] 三、导数的应用 1、微分中值定理 例 在区间 [0,1] 上对函数 f ( x) 4 x3 5x2 x 2 验证拉格朗日中值定理的正 确性。 解 即验证存在 (0,1) ，使得 f ( f (1) f (0) ) 1 0 f[x_]:=4x^3-5x^2+x-2; a=0;b=1; Solve[f[x] (f[b]-f[a])/(b-a),x] 结果为 {{x 1/12 (5- 13 )},{x 1/12 (5+13 )}} 得到