实验八 多元函数积分 数学实验课件习题答案概要1.docVIP

天水师范学院数学与统计学院 实验报告 实验项目名称 实验八 多元函数积分 所属课程名称 数学实验 实 验 类 型 上机实验 实 验 日 期 2013-5-14 班 级 10级数应（2）班 学 号 291010836 姓 名 吴保石 成 绩 一、实验概述： 【实验目的】 掌握用Mathematica计算二重积分与三重积分的方法；深入理解曲线积分、曲面积分的概念和计算法，提高应用重积分和曲线、曲面积分解决各种问题的能力． 【实验原理】 1．重积分命令Integrate和NIntegrate，例： Integrate[x*y^2，{x，0，1}，{y，0，x}]NIntegrate[Sin[x*y^2]，{x，0，1}，{y，0，1}]Graphics`ParametricPlot3D` 命令CylindriealPlot3D的使用格式是 CylindricalPlot3D[z[r，(]，{r，，}，{(，(，(}] 例 CylindricalPlot3D[r^2，{r，0，2}，{t，0，2Pi}]SphericalPlot3D[r[(，(]，{，，}，{，，}，] 例 SphericalPlot3D[2，{u，0，Pi}，{v，0，2Pi}，PlotPoints?40]vec1={a1，b1，c1} vec2={a2，b2，c2} 　vec1.vec2 【实验环境】 系统 Microsoft Windows XP Professional 版本 2002 Service Pack 3 GhostXP_SP3电脑公司快速装机版V2011.07 Intel（R） Core（TM）i3 CPU 550 @ 3.20GHz 3.19GHz,1.74GB的内存 Mathematica 5.2 二、实验内容： 【实验方案】 通过用Mathematica 5.2软件，计算： 1．计算重积分 2．重积分的应用 3．计算曲线积分 4．计算曲面积分 【实验过程】（实验步骤、记录、数据、分析） 　1．计算重积分 例8．1计算，其中D为由所围成的有界区域．(*Example8.1*) Integrate[x*y^2，{y，1，2}，{x，2-y，Sqrt[y]}]，其中Ｄ为．(*Example8.2*) Clear[f，r]； f[x_，y_]=Exp[-(x^2+y^2)]； Integrate[f[x，y]，{x，-1，1}，{y，-Sqrt[1-x^2]，Sqrt[1-x^2]}]Integrate[(f[x，y]/.{x?r*Cos[t]，y?r*Sin[t]})*r，{t，0，2Pi}，{r，0，1}]，其中(由曲面和围成．(*Example8.3*) 　　　g1=ParametricPlot3D[{Sqrt[2]*Sin[fi]*Cos[th]，Sqrt[2]*Sin[fi]*Sin[th]，Sqrt[2]*Cos[fi]}，{fi，0，Pi/4}，{th，0，2Pi}] g2=ParametricPlot3D[{z*Cos[t]，z*Sin[t]，z}，{z，0，1}，{t，0，2Pi}] Show[g1，g2，ViewPoint?{1.3，-2.4，1.0}]g[x_，y_，z_]=x^2+y^2+z； Integrate[g[x，y，z]，{x，-1，1}，{y，-Sqrt[1-x^2]，Sqrt[1-x^2]}，{z，Sqrt[x^2+y^2]，Sqrt[2-x^2-y^2]}]Integrate[(g[x，y，z]/.{x?r*Cos[s]，y?r*Sin[s]})*r，{r，0，1}，{s，0，2Pi}，{z，r，Sqrt[2-r^2]}]Integrate[(g[x，y，z]/.{x?r*Sin[fi]*Cos[s]，y?r*Sin[fi]*Sin[t]，z?r*Cos[fi]})*r^2*Sin[fi]，{s，0，2Pi}，{fi，0，Pi/4}，{r，0，Sqrt[2]}]与所围成的空间区域(的体积．(*Example8.4*) 　　　Clear[f，g]； f[x_，y_]=1-x-y； g[x_，y_]=2-x^2-y^2； Plot3D[f[x，