http://s13/mw690/001KZnYnzy6MOgmRxy4fc&690
     

            上面的题目是华东师大数学分析第四版下册第十八章第一节隐函数定理及应用中的一个习题。

   在平面上画隐函数图形，只要用 ContourPlot即可。但有时为了理解隐函数y=f(x)，需用曲面z=F(x,y)同xy平面的交线去理解隐函数概念。这时就需要画出三维这个空间中的隐函数曲线，下面给出mathematica程序。
F1[x_, y_, z_] := z - (Cos[x] + Sin[y]) + Exp[x*y] ;
yhs1 = ContourPlot3D[
   F1[x, y, z] == 0, {x, -2, 2}, {y, -2, 2}, {z, -4, 4},
   MeshStyle -> None, ContourStyle -> {Opacity[0.7], Green}];
yhs2 = ContourPlot3D[z == 0, {x, -2, 2}, {y, -2, 2}, {z, -4, 4},
   Mesh -> {{0}, {0}, {0}}, (*这样就只会画一条等值线*)
   MeshFunctions ->
    Function[{x, y, z}, -(Cos[x] + Sin[y]) + Exp[x*y] ],
   MeshShading -> {FaceForm[None, None]},
   MeshStyle -> {Thickness[0.01], Red}];
Show[yhs1, yhs2]

http://s16/mw690/001KZnYnzy6MOgAJhbV7f&690