- 1、本文档共39页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
附录Ⅰ 大学数学实验指导书
项目三 多元函数微积分
实验1 多元函数微分学(基础实验)
实验目的 掌握利用Mathematica计算多元函数偏导数和全微分的方法, 掌握计算二元
函数极值和条件极值的方法. 理解和掌握曲面的切平面的作法. 通过作图和观察, 理解二元
函数的性质、方向导数、梯度和等高线的概念.
基本命令
1.求偏导数的命令D
命令D既可以用于求一元函数的导数, 也可以用于求多元函数的偏导数. 例如:
求对x的偏导数, 则输入D[f[x,y,z],x]
求对y的偏导数, 则输入D[f[x,y,z],y]
求对x的二阶偏导数, 则输入D[f[x,y,z],{x,2}]
求对的混合偏导数, 则输入D[f[x,y,z],x,y]
…………
2.求全微分的命令Dt
该命令只用于求二元函数的全微分时, 其基本格式为
Dt[f[x,y]]
其输出的表达式中含有Dt[x],Dt[y], 它们分别表示自变量的微分dx,dy. 若函数的表
达式中还含有其它用字符表示的常数, 例如a, 则Dt[f[x,y]]的输出中还会有Dt[a], 若采用选
项Constants-{a}, 就可以得到正确结果, 即只要输入
Dt[f[x,y],Constants-{a}]
3.在平面上作二元函数的等高线的命令ContourPlot
命令的基本格式为
ContourPlot[f[x,y],{x,x1,x2},{y,y1,y2}]
例如,输入
ContourPlot[x^2-y^2,{x,-2,2},{y,-2,2}]
则输出函数的等高线图(图1.1). 该命令的选项比较多(详细的内容参见光盘中的实验案例库). 如选项Contours-15表示作15条等高线, 选项Contours-{0}表示只作函数值为0的等高线.
图1.1
实验举例
求多元函数的偏导数与全微分
例1.1 (教材 例1.1) 设求
输入
Clear[z];
z=Sin[x*y]+Cos[x*y]^2;
D[z,x]
D[z,y]
D[z,{x,2}]
D[z,x,y]
则输出所求结果.
例1.2 设求和全微分dz.
输入
Clear[z];z=(1+x*y)^y;
D[z,x]
D[z,y]
则有输出
再输入
Dt[z]
则得到输出
例1.3 (教材 例1.2) 设其中a是常数, 求dz.
输入
Clear[z,a];z=(a+x*y)^y;
wf=Dt[z,Constants-{a}]//Simplify
则输出结果:
(a+xy)-1+y(y2Dt[x,Constants-{a}]+
Dt[y,Constants-{a}](xy+(a+xy)Log[a+xy]))
其中Dt[x,Constants-{a}]就是dx, Dt[y,Constants-{a}]就是dy. 可以用代换命令“/.”把它们
换掉. 输入
wf/.{Dt[x,Constants-{a}]-dx,Dt[y,Constants-{a}]-dy}
输出为
(a+xy)-1+y(dxy2+dy(xy+(a+xy)Log[a+xy]))
例1.4 (教材 例1.3) 设,求
输入
eq1=D[x==E^u+u*Sin[v],x,NonConstants-{u,v}]
(*第一个方程两边对x求导数, 把u,v看成x,y的函数*)
eq2=D[y==E^u-u*Cos[v],x,NonConstants-{u,v}]
(*第二个方程两边对x求导数, 把u,v看成x,y的函数*)
Solve[{eq1,eq2},{D[u,x,NonConstants-{u,v}],
D[v,x,NonConstants-{u,v}]}]//Simplify
(*解求导以后由eq1,eq2组成的方程组*)
则输出
其中D[u,x,NonConstants-{u,v}]表示u对x的偏导数, 而D[v,x,NonCosnstants-{u,v}]表示v
对x的偏导数. 类似地可求得u,v对y的偏导数.
微分学的几何应用
例1.5 求出曲面在点(1,1)处的切平面、法线方程, 并画出图形.
解(1) 画出曲面的图形. 曲面的参数方程为
输入命令
Clear[f];
f[x_,y_]=2x^2+y^2;p1=Plot3D[f[x,y],
{x,-2,2},{y,-2,2}];
g1=ParametricPlot3D[{r*Sin[u]/Sqrt[2.],r*Cos[u],r^2},
{u,0,2*Pi},{r,0,2}]
则输出相应图形(图1.2).
图1.2
(2) 画出切平面的图形. 输入命令
a=D[f[x,y],x]/.{x-1,y-1};
b=D[f[x,y],y]/.{x-1,y-1};
p[x_,y_]=
您可能关注的文档
最近下载
- 2024年教师学习《中国共产党纪律处分条例》心得体会.docx VIP
- 道德与法治一年级上册 第一课时 我向国旗敬个礼 课件.pptx
- 电力设施保护宣传专题培训ppt课件.pptx VIP
- 高速路板块光伏项目可行性研究报告.docx
- 华为H19-369 HCSA-Pre-sales-IT认证考试复习(重点)题库(含答案).pdf VIP
- 【人教版】2024-2025学年一年级语文上册教学计划(及进度表).docx
- PCCP管制造及安装质量控制.pdf VIP
- 新人教版数学五年级上册全册各单元教材解读课件.pptx VIP
- 产品问卷调查模板.docx VIP
- 钢板弹簧设计计算程序Ver1.0-20070405.xls
文档评论(0)