实验八 多元函数积分 数学实验课件习题答案

实验八 多元函数积分 数学实验课件习题答案

ID:40933012

大小:523.00 KB

页数:11页

时间:2019-08-11

实验八 多元函数积分   数学实验课件习题答案_第1页
实验八 多元函数积分   数学实验课件习题答案_第2页
实验八 多元函数积分   数学实验课件习题答案_第3页
实验八 多元函数积分   数学实验课件习题答案_第4页
实验八 多元函数积分   数学实验课件习题答案_第5页
资源描述:

《实验八 多元函数积分 数学实验课件习题答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、天水师范学院数学与统计学院实验报告实验项目名称实验八多元函数积分所属课程名称数学实验实验类型上机实验实验日期2013-5-14班级10级数应(2)班学号291010836姓名吴保石成绩10一、实验概述:【实验目的】掌握用Mathematica计算二重积分与三重积分的方法;深入理解曲线积分、曲面积分的概念和计算法,提高应用重积分和曲线、曲面积分解决各种问题的能力.【实验原理】1.重积分命令Integrate和NIntegrate,例:Integrate[x*y^2,{x,0,1},{y,0,x}]

2、NIntegrate[Sin[x*y^2],{x,0,1},{y,0,1}]2.柱坐标系中作三维图形命令CylindriealPlot3D首先调用作图软件包.输入<

3、令SphericalPlot3D的使用格式是SphericalPlot3D[r[f,q],{f,f1,f2},{q,q1,q2},选项]例SphericalPlot3D[2,{u,0,Pi},{v,0,2Pi},PlotPoints®40]4.向量的内积与通常一样,用“.”表示两个向量的内积,例如输入   vec1={a1,b1,c1}   vec2={a2,b2,c2}则定义了两个三维向量,再输入 vec1.vec2【实验环境】系统MicrosoftWindowsXPProfessional版

4、本2002ServicePack3GhostXP_SP3电脑公司快速装机版V2011.07Intel(R)Core(TM)i3CPU550@3.20GHz3.19GHz,1.74GB的内存Mathematica5.210二、实验内容:【实验方案】通过用Mathematica5.2软件,计算:1.计算重积分2.重积分的应用3.计算曲线积分4.计算曲面积分【实验过程】(实验步骤、记录、数据、分析) 1.计算重积分例8.1计算,其中D为由所围成的有界区域.(*Example8.1*)Integrate

5、[x*y^2,{y,1,2},{x,2-y,Sqrt[y]}]例8.2计算,其中D为.(*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}]例8.3 计算三重积分,其中W由曲面和围成.(*Example8.3*)  

6、 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[

7、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]

8、,{s,0,2Pi},{fi,0,Pi/4},{r,0,Sqrt[2]}]2.重积分的应用  例8.4 求由曲面与所围成的空间区域W的体积.(*Example8.4*)   Clear[f,g];   f[x_,y_]=1-x-y;   g[x_,y_]=2-x^2-y^2;   Plot3D[f[x,y],{x,-1,2},{y,-1,2}]   Plot3D[g[x,y],{x,-1,2},{y,-1,2}] Show[%,%%] jx=Solve[f[x,y]g[x,y],y]   y1=

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。