第四章微积分运算命令与例题.pptVIP

第四章 微积分运算命令与例题 北京交通大学 4.1 求极限运算 Mathematica提供了计算函数极限的命令的一般形式为： Limit[函数, 极限过程] 具体命令形式为 命令形式1:Limit[f, x-x0] 功能:计算 , 其中f是x的函数。 命令形式2:Limit[f, x-x0, Direction-1] 功能:计算，即求左极限, 其中f是x的函数。 命令形式3:Limit[f, x-x0, Direction--1] 功能:计算，即求右极限，其中f是x的函数。 注意:在左右极限不相等或左右极限有一个不存在时,Mathematica的默认状态为求右极限。 例1. 求极限解：Mathematica 命令为 In[1]:=Limit[n^2*Sin[1/n^2],n-Infinity] Out[1]=1 例3: 写出求函数 在x-0的三个极限命令 解：Mathematica 命令为 1.Limit[Exp[1/x], x-0] 2.Limit[Exp[1/x], x-0, Direction-1] 3.Limit[Exp[1/x], x-0, Direction--1] 例4.求解：Sin[x]/x x-∞的极限 Mathematica 命令为 In[3]:=Limit[Sin[x]/x, x-Infinity]Out[3]=2 Out[3]=0 例5 In[4]:= Limit[Exp[1/x], x-0, Direction-+1] Out[4]=0 例6 In[5]:= Limit[1/(x*Log[x]^2)-1/(x-1)^2, x-1] Out[5]=1/12 例7. 求极限解：Mathematica 命令为 In[1]:=Limit[Sin[x]^Tan[x], x-Pi/2] Out[1]=1 例10 求极限解: 若输入命令 In[4]:=Limit[ Integrate[ArcTan[t]^2, {t,0,x}] / Sqrt[1+x^2] , x-+Infinity] 屏幕会出现如下的红色英文提示信息: On::none: Message SeriesData::csa not found. …………………………………………………… ComplexInfinity + 1 encountered. 说明不能得出正确结果。此时可以借助人工处理，如用一次洛必达法则后再求极限: In[5]:=Limit[ArcTan[x]^2/(x/Sqrt[1+x^2]), x-Infinity] Out[5]= 4.2 求导数与微分 4.2.1 求一元函数的导数与微分 例6:变上限函数 求导 解：Mathematica 命令为 In[6]:=D[Integrate[Sqrt[1-t^2], {t,0,x^2}], x] Out[6]= In[7]:=Simplify[%] Out[7]= 参数方程求导 对参数方程 所确定的函数y=f(x),根据公式和命令形式1，可用三个Mathematica命令实现对参数方程的求导: r=D[x, t]； s=D[y,t]； Simplify[s/r] 或用Mathematica自定义一个函数： pD[x_, y_, t_]:=Module[{s=D[y,t], r=D[x,t]}, Simplify[s/r]] 来实现。 例7.求参数方程 的一阶导数 隐函数求导 由方程f(x, y) = 0所确定的函数y=y(x)的导数可用一个自定义函数完成，这个函数为: impD[eqn_,y_,x_]:=Module[{s, r, t}, s=D[eqn, x, NonConstants-{y}]; r=Solve[s, D[y, x, NonConstants-{y}]]; t=D[y,x, NonConstants-{y}]/.r; Simplify[t] ] 例8. In[11]:= D[Tan[x+a],x] Out[11]= Sec[a + x] 2 In[12]:=D[2^(x/Log[x]),x] Out[12]= In[13]:=D[x*Tan[x]-Sqrt[x],x] Out[13]= In[14]:=D[Sin[x]^n*Cos[n*x],x] Out[14]= In[15]:=Plot[Evaluate[D[Sin[x^2],x]],{x,-2,2}] Out[15]= 练习. 1 要对一个方程求导，应该怎么做？