资源描述：
《工科高数下册实验课第一讲.ppt》由会员上传分享，免费在线阅读，更多相关内容在PPT专区-天天文库。
1、工科高等数学下册实验东北农业大学信息与计算科学系实验课安排实验二：多元函数微分学实验一：空间曲面与曲线的图形实验三：重积分、曲线积分和曲面积分实验一2.绘制空间曲面在坐标面上的投影。1.运用Mathematica语句绘制空间曲面和空间曲线的图形。空间曲面图形的绘格式Plot[f[x],{x,xmin,xmax},可选项]二元函数绘图命令复习：一元函数的绘图命令Plot3D[f[x,y],{x,xmin,xmax},{y,ymin,ymax},可选项]格式例1画出函数的图形。In[]:=Plot3D[x^2+y^2,{x,-5,5},{y,-5,5}]常用可选项In
2、[]:=Plot3D[x^2+y^2,{x,-5,5},{y,-5,5},Axes→False]In[]:=Plot3D[x^2+y^2,{x,-5,5},{y,-5,5},Boxed→False]In[]:=Plot3D[x^2+y^2,{x,-5,5},{y,-5,5},Mesh→False]In[]:=Plot3D[x^2+y^2,{x,-5,5},{y,-5,5},PlotPoints→25]In[]:=Plot3D[x^2+y^2,{x,-5,5},{y,-5,5},Shading→False]In[]:=Plot3D[x^2+y^2,{x,-5,5},
3、{y,-5,5},ViewPoint→{-1.632，-2.569，1.479}]空间曲面的参数方程绘图格式ParametricPlot3D[{x(u,v),y(u,v),z(u,v)},{u,umin,umax},{v,vmin,vmax},可选项]例2画出椭圆抛物的图形。x=2usinv,y=3ucosv,z=u^2(0In[]:=ParametricPlot3D[{2u*Sin[v],3u*Cos[v],u^2}，{u,0,5},{v,0,2Pi}]u5,0v)空间曲线的参数方程绘图格式ParametricPlot3D[{x(t),y(t),z(t)},{t
4、,tmin,tmax},可选项]例3绘出曲线的图形。In[]:=ParametricPlot3D[{Sin[t],2Cos[t],t/2},{t,0,20}]空间曲面在坐标面上的投影1.在YOZ面上的投影，将x设为常数aParametricPlot3D[{a,y(u,v),z(u,v)},{u,umin,umax},{v,vmin,vmax},可选项]2.在ZOX面上的投影，将y设为常数bParametricPlot3D[{x(u,v),b,z(u,v)},{u,umin,umax},{v,vmin,vmax},可选项]3.在XOY面上的投影，将z设为常数cPar
5、ametricPlot3D[{x(u,v),y(u,v),c},{u,umin,umax},{v,vmin,vmax},可选项]例4观察椭圆抛物面在各坐标面上的投影。In[]:=a=ParametricPlot3D[{2u*Sin[v],3u*Cos[v],u^2},{u,0,5},{v,0,2Pi}]In[]:=b=ParametricPlot3D[{2u*Sin[v],3u*Cos[v],0},{u,0,5},{v,0,2Pi}]In[]:=Show[a,b]综合练习例5画出双曲抛物面被平面图形。In[]:=c=Plot3D[x^2/9-y^2/6,{x,-2
6、,2},{y,-2,2}]In[]:=d=Plot3D[0,{x,-2,2},{y,-2,2}]所截的In[]:=Show[c,d]例6绘出空间直角坐标系。In[]:=e=ParametricPlot3D[{u,v,0},{u,-2,2},{v,-2,2}]In[]:=f=ParametricPlot3D[{0,u,v},{u,-2,2},{v,-2,2}]In[]:=g=ParametricPlot3D[{u,0,v},{u,-2,2},{v,-2,2}]In[]:=Show[e,f,g]例7作部分球面。球面。1.画出In[]:=d1=ParametricPlo
7、t3D[{Sin[u]*Cos[v],Sin[u]*Sin[v],Cos[u]},{u,0,Pi},{v,0,3Pi/2}]In[]:=d2=ParametricPlot3D[{Sin[u]*Cos[v],Sin[u]*Sin[v],Cos[u]},{u,Pi/4,Pi},{v,0,2Pi}]2.画出上半球面的部分。In[]:=ParametricPlot3D[{Sin[u]*Cos[v],Sin[u]*Sin[v],Cos[u]},{u,0,Pi/2},{v,0,3Pi/2}]3.小球面与大球面的叠加。In[]:=d3=ParametricPlot3D[{Sin
8、[u]*C
