实验1画出函数 x2+y)’(xy=(00的图形 f(x,y)=w-1 程序: f=y*(1-1/(x^2+y^2);Plot3Df{x-2,2},{y2-2,2} Pot3D[f{x,-1.5,1.5},{y-1.5,1.5} Plot points->35 AxesLabel->(x,y, z, View Point->(2,0, 2), PlotRange-><-5, 53] 结果 实验2画出函数r(xy)=3的等高线图,并观察(xy)→(00时的极限情 况 程序: Clear[f]; fx y=x y/(x2+y 2) pl=Plot3D[fx, y]x, 2, 2, y, -2, 2), Plot Points->30, Display Function->ldentityI c1=Contour Plot[f[, y],x,-2, 2),,-2, 2), Contour Shading->False, Axes- Automatic, AxesOrigin->(0,0), Plot Points->60, Display Function->Identity Show[Graphics Array kpl, cll pts-Table [RandomReal, -0.1,0.11,1,101,12) glx y ix,y, fx,y] TableForm /Maplg, pts], TableHeadings->(None,"x,y fx,y]]实验1 画出函数 ， 的图形 程序： f=y*(1-1/(x^2+y^2));Plot3D[f,{x,-2,2},{y,-2,2}]; Plot3D[f,{x,-1.5,1.5},{y,-1.5,1.5},PlotPoints->35, AxesLabel->{"x","y","z"},ViewPoint->{2,0,2},PlotRange->{-5,5}]; 结果： 实验2 画出函数 的等高线图，并观察 时的极限情 况 程序： Clear[f];f[x_,y_]=x y/(x^2+y^2); p1=Plot3D[f[x,y],{x,-2,2},{y,-2,2},PlotPoints->30,DisplayFunction->Identity]; c1=ContourPlot[f[x,y],{x,-2,2},{y,-2,2},ContourShading->False,Axes-> Automatic,AxesOrigin->{0,0},PlotPoints->60,DisplayFunction->Identity]; Show[GraphicsArray[{p1,c1}]];pts=Table[Random[Real,{-0.1,0.1}],{i,1,10},{2}] g[{x_,y_}]={x,y,f[x,y]}; TableForm[Map[g,pts],TableHeadings->{None,{"x","y","f[x,y]"}}]