Superficies con mathematica

Codigo MATHEMATICA para DIBUJAR  superficie

ClearAll["Global`*"]
Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}]
Plot3D[Sin[x y], {x, 0, 3}, {y, 0, 3}, PlotRange -> {-0.5, 0.5}, 
ClippingStyle -> {Opacity[.9, Gray]}]
Plot3D[Exp[-(x^2 + y^2)], {x, -2, 2}, {y, -2, 2}]
Plot3D[(x^2 + y^2), {x, -2, 2}, {y, -2, 2}, Mesh -> None]
Plot3D[Sqrt[x^2 + y^2], {x, -30, 30}, {y, -30, 30}, 
ColorFunction -> Hue]
ContourPlot3D[x^2 + y^2 + z^2 == 5, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]
ContourPlot3D[x^3 + y^2 - z^2, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]
ContourPlot3D[
x^2/2 + y^2/4 + z^2 == 1, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]
"ContourPlot[Sin[x y],{x,0,4Pi},{y,0,4Pi}]";
ContourPlot[x^2 + y^2 == 5, {x, -3, 3}, {y, -3, 3}]
Plot3D[x + y, {x, 0, 3}, {y, 0, 3}]