§8用Mathematica求重積分以及相关的应用练习解答.docVIP

PAGE PAGE 1073 §5 用Mathematica求重积分以及相关的应用练习解答 1 计算下列重积分： (1) ,其中=[3,5]×[1,2]; 解 In[1]:= Integrate[y-2x,{x,3,5},{y,1,2}] Out[1]= -13 (2) ，其中=[0,]×[0,]; 解 In[1]:= Integrate[Cos[x+y],{x,0,Pi/2},{y,0,Pi}] Out[1]= -2 (3) ，其中由抛物线与直线所围成的区域； 解 In[1]:= a=Plot[Sqrt[2x],{x,0,2},DisplayFunction-Identity]; b=ParametricPlot[{2,y},{y,0,4}, DisplayFunction-Identity]; Show[a,b,PlotRange-{0,4}, DisplayFunction-$ DisplayFunction] Out[1]= -Graphics- In[2]:= Integrate[x*y^2,{x,0, 2},{y,0,2px}] Out[2]= (4) ，其中为圆域； 解 In[1]:= ParametricPlot[{Sin[t],Cos[t],{t,0,2Pi},AspectRatio-Automatic} Out[1]= -Graphics- In[2]:= Integrate[Abs[x*y],{x,-1,1},{y,-Sqrt[a^2-x^2],Sqrt[a^2-x^2] }] Out[2]= (5) ，其中=[0,1]×[0,]×[0,]; 解 In[1]:= Integrate[x*Cos[y]*Cos[z],{x,0,1},{y,0,Pi/2 },{ z,0,Pi/2 }] Out[1]= (6) ，其中是由，，及所围成的区域。 解 In[1]:= a=ParametricPlot3D[{x,y,Pi/2-x},{x,0,2},{y,0,2}, DisplayFunction-Identity]; b=ParametricPlot3D[{x,Sqrt[x],z},{x,0,2},{y,0,2}, DisplayFunction-Identity]; c=Plot3D[0,{x,0,2},{y,0,2},DisplayFunction-Identity]; d= Plot3D [0,{x,0,2},{z,0,2}, DisplayFunction-Identity]; Show[a,b,c,d,AxesLabel-{“x”,”y”,”z”}, AspectRatio-Automatic, PlotRange-{0,2},DisplayFunction-$DisplayFunction, ViewPoint-{1,-2,0}] Out[1]= -Graphics3D- In[2]:= Integrate[y*Cos[x+z],{x,0, Pi/2},{y,0, Sqrt[x]},{ z,0,Pi-x}] Out[2]= 2 求下列曲面所围成立体的体积。 (1) 是由和所围成的立体； 解 In[1]:= a=Plot3D[x^2+y^2,{x,-2,2},{y,-2,2}, DisplayFunction-Identity]; b=Plot3D[x+y,{x,-1,2},{y,-1,2}, DisplayFunction-Identity]; Show[a,b,AxesLabel-{“x”,”y”,”z”},PlotRange-{-2,5}, DisplayFunction-$DisplayFunction,ViewPoint-{0,2,0} Shading-False] Out[1]= -Graphics3D- In[2]:= x=r*Cos[t]+1/4 y=r*Sin[t]+1/4 Integrate[x^2+y^2-x-y,{x,0, Pi/2},{y,0,1/2}] Out[2]= (2) 是由曲面和所围成的立体； 解 In[1]:= a=Plot3D[2-x^2-y^2,{x,-1,1},{y,-1,1}, DisplayFunction-Identity]; b= ParametricPlot3D[{u*Cos[v],u*Sin[v],u^2},{u,-1,2},{v,-Pi,Pi}, DisplayFunction-Identity]; Show[a,b,AxesLabel-{“x”,”y”,”z”},PlotRange-{0,2}, DisplayFunction-$DisplayFunction