工科高数下册实验课第3讲.pptVIP

* * 工科高等数学下册实验 东北农业大学信息与计算科学系 实验三 1.运用Mathematica计算二重积分和三重积分。 2.运用Mathematica求立体的体积及曲面的面积。 3.运用Mathematica计算曲线积分和曲面积分。 4. 绘制空间曲面的交线。 二重积分 格式 Integrate[f[x,y],{x,x1,x2},{y,y1,y2}] 例1 求 例2 求 ,其中 为曲线 所围区域。 In[ ]:=Integrate[x^2*y,{x,1,4},{y,0,Log[x]}] Out[ ]= In[ ]:=Plot[{x^2,Sqrt[x]},{x,0,2},PlotRange→{-1,2}, AspectRatio→1] In[ ]:=Integrate[x*y,{x,0,1},{y, x^2,Sqrt[x]}] Out[ ]= 三重积分 格式 Integrate[f[x,y,z],{x,x1,x2},{y,y1,y2},{z,z1,z2}] 例3 求 ,其中 为 , , 所围区域。 In[ ]:=c1=Plot3D[-y^2/2,{x,-10,10},{y,-10,10},Shading→False] In[ ]:=c2=ParametricPlot3D[{x,(4-2x)/3,z},{x,-10,10}, {z,-10,0},Shading→False] In[ ]:=c3=ParametricPlot3D[{0,y,z},{y,-10,10}, {z,-10,0},Shading→False] In[ ]:=Show[c1,c2,c3] In[ ]:=Clear[x,y,z] In[ ]:=Plot[(4-2x)/3,{x,-10,10}] In[ ]:=Solve[(4-2x)/3= =0,x] In[ ]:=Integrate[x+2y+3z,{x,0,2},{y,0,(4-2x)/3}, {z,-y^2/2,0}] Out[ ]= Out[ ]= 立体体积 例4 求由曲面 及 所围成的 立体的体积。 In[ ]:=a1=ParametricPlot3D[{u*Sin[v],u*Cos[v] /Sqrt[2],u^2},{u,0,2},{v,0,2Pi}] In[ ]:=a2=ParametricPlot3D[{u*Sin[v]/Sqrt[2], u*Cos[v],6-u^2},{u,0,2},{v,0,2Pi}] In[ ]:=Show[a1,a2] In[ ]:= z1= x^2+2y^2; z2= 6-2x^2-y^2; Simplify[z2-z1= =0] Out[ ]= In[ ]:=x= r*Cos[t]; y= r*Sin[t]; V=Integrate[(z2-z1)*r,{t,0,2Pi},{r,0,Sqrt[2]}] Out[ ]= 曲面的面积 例5 求球面 含在圆柱面 内的那部分的曲面的面积。 In[ ]:=b1=ParametricPlot3D[{2Sin[u]*Cos[v],2Sin[u] *Sin[v]/Sqrt[2],2Cos[u]},{u,0,Pi},{v,0,2Pi}] In[ ]:=b2=ParametricPlot3D[{1+Cos[u],Sin[u],v}, {u,0,2Pi},{v,-2,2}] In[ ]:=Show[b1,b2] In[ ]:=Clear[x,y,r,t]; z=Sqrt[4-x^2-y^2]; ds=Sqrt[1+D[z,x]^2+D[z,y]^2]; x=r*Cos[t]; y=r*Sin[t]; Integrate[4ds*r,{t,0,Pi/2},{r,0,2Cos[t]}] Out[ ]= 演示实验 例6 利用二重积分的概念,从图形的角度理解 ,其中 。 曲线积分(转化为定积分) 格式 Integrate[f[x],{x,xmin,xmax}] 例7 计算曲线积分 ,其中 是中心在 , 半径为 的上半圆周。 解: 的