14.1 #42

Manipulate[Show[Plot3D[K,{x,.5,1.5},{y,-2,2}],Plot3D[Exp[y/x],{x,.5,1.5},{y,-2,2}]],{K,0.1,10}]

Example 1

Plot3D[(x^2-y^2)/(x^2+y^2),{x,-2,2},{y,-2,2},AxesLabel->{x,y,z},ViewPoint->{1,1,1}]

Example 2

Plot3D[(x*y)/(x^2+y^2),{x,-2,2},{y,-2,2},AxesLabel->{x,y,z},ViewPoint->{1,1,1}]

Example 3

Plot3D[(x^2*y)/(x^4+y^2),{x,-2,2},{y,-2,2},AxesLabel->{x,y,z},ViewPoint->{1,1,1}]

Example 4

Plot3D[(x^2+y^2)/(Sqrt[x^2+y^2 + 1]-1),{x,-2,2},{y,-2,2},AxesLabel->{x,y,z},ViewPoint->{1,1,1}]

Example 5

Plot3D[(Exp[-(x^2+y^2)]-1)/(x^2+y^2),{x,-2,2},{y,-2,2},AxesLabel->{x,y,z},ViewPoint->{1,1,1}]