Mathematica 3D Graphics
Note:-Mathematica is case sensitive
-After typing the computation, select Shift-Return
1) Plot3D[4 - x^2 - y^2, {x, -2, 2}, {y, -2, 2}]
2) Plot3D[, {x, -2, 2}, {y, -2, 2}]
3) Plot3D[x^2 - y^2, {x, -2, 2}, {y, -2, 2}]
4) Plot3D[Sin[x * y], {x, -2Pi, 2Pi}, {y, -2Pi, 2Pi}]
5) f[x_, y_] := Exp[(-x^2/400) - (y^2/100)] * (x^2 + y^2)
6) Plot3D[ f[x, y], {x, -40, 40}, {y, -40, 40}, AxesLabel→ {"x", "y", "z"}]
7) Show[%, ViewPoint→ {3, 2, -1}]
8) Show[%, ViewPoint→ {0, 100, 0}]
9) Show[%, ViewPoint→ {3, 1, 1}]
10) Try your 3D graph

 

 

 

 

 

 

 

 

Created by Mathematica  (October 24, 2005) Valid XHTML 1.1!