积分运算问题.pptVIP

Neusoft Institute of Information 2010-7-16 积分运算问题 A2 知识与能力拓展指导 实验目的 1. 求不定积分； 2. 会计算定积分及其数值解； 解决积分上限函数的求导； 求平面图形的面积. 求平面曲线的弧长； 求旋转体的体积 1.计算不定积分与定积分的命令Integrate 求不定积分时, 其基本格式为 Integrate[f[x],x] 如输入 Integrate[x^2+a,x] 则输出 2.数值积分命令NIntegrate 用于求定积分的近似值. 其基本格式为 NIntegrate[f[x],{x,a,b}] 如输入 NIntegrate[Sin[x^2],{x,0,1}] 则输出 0.310268 Integrate[f,x] 在不定积分号后面的方格处键入被积函数,在d后面 键入x 1. 求不定积分 In： {Integrate[ArcTan[x],x],Integrate[1/(x^3+1),x],Integrate[Exp[2x]*Cos[3x],x]} Out： In:∫f[x]f’[x]dx Out： 输入 Integrate[x^2*(1-x^3)^5,x] 则输出 2. 求定积分 输入 Integrate[x-x^2,{x,0,1}] 则输出 输入 Integrate[Abs[x-2],{x,0,4}] 则输出 4 In：Integrate[(Sin[x])^2/(1+Exp[x]),{x,-Pi/2,Pi/2}] Out： 输入 Integrate[Sqrt[4-x^2],{x,1,2}] 则输出 3. 变上限积分 输入 D[Integrate[w[x],{x,0,Cos[x]^2}],x] 则输出 -2 Cos[x] Sin[x]w[Cos[x]2] 注意这里使用了复合函数求导公式. 画出变上限函数及其导函数的图形. 输入命令 f1[x_]:=Integrate[t*Sin[t^2],{t,0,x}]; f2[x_]:=Evaluate[D[f1[x],x]];g1=Plot[f1[x],{x,0,3},PlotStyle-RGBColor[1,0,0]];g2=Plot[f2[x],{x,0,3},PlotStyle-RGBColor[0,0,1]]; Show[g1,g2]; 则输出图 4. 求平面图形的面积 计算区间上[0,4]上两曲线所围成的平面的面积. 输入命令 Clear[f,g];f[x_]=Exp[-(x-2)^2 Cos[Pi x]];g[x_]=4 Cos[x-2]; Plot[{f[x],g[x]},{x,0,4},PlotStyle-{RGBColor[1,0,0], RGBColor[0,0,1]}]; FindRoot[f[x]==g[x],{x,1.06}] FindRoot[f[x]==g[x],{x,2.93}] NIntegrate[g[x]-f[x],{x,1.06258,2.93742}] 则输出两函数的图形及所求面积 5. 求平面曲线的弧长 计算 与 两点间曲线的弧长 输入命令 Clear[f];f[x_]=Sin[x+x*Sin[x]]; Plot[f[x],{x,0,2Pi},PlotStyle-RGBColor[1,0,0]]; NIntegrate[Sqrt[1+f[x]^2],{x,0,2Pi}] 则输出曲线的图形 及所求曲线的弧长12.0564 6. 求旋转体的体积 输入 Clear[g]; g[x_]=x*Sin[x]^2; Plot[g[x],{x,0,Pi}] 则输出图 再输入 Integrate[Pi*g[x]^2,{x,0,Pi}] 得到输出 又输入 Integrate[2 Pi*x*g[x],{x,0,Pi}] 得到输出 若输入 NIntegrate[2 Pi*x*g[x],{x,0,Pi}] 则得到体积的近似值为 27.5349