f[x_,y_]=Sin[x  y]/(1+x^2+y^2);

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,Mesh->False]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->25]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Boxed->False]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Axes->False]

Animate[Plot3D[i*f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Axes->False,Boxed->False,BoxRatios->Automatic],{i,-5,5}]

Manipulate[Plot3D[i*f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,PlotPoints->50,Axes->False,Boxed->False,Mesh->False,BoxRatios->Automatic],{i,-5,5}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->None]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Ambient",Green}}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Point",Green,{0,0,1}}}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Point",Green,{0,0,1}},{"Ambient",GrayLevel[0.1]}}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Point",Green,{0,0,1}},{"Point",Red,{0,0,-1}}}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Point",Green,{1,1,1}},{"Point",Red,{-1,-1,1}}}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Point",Green,{1,1,1}},{"Point",Red,{-1,-1,1}},{"Ambient",Blue}}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Point",Green,{1,1,1}},{"Point",Red,{-1,-1,1}},{"Ambient",GrayLevel[0.1]}}]

plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotRange->All,Mesh->False,PlotPoints->50,Lighting->{{"Directional",Green,{{1,1,1},{0,0,0}}}}]

l={{"Point",Red,{2,0,0}},{"Point",Green,{0,-2,0}},{"Point",Blue,{0,0,2}}};
Graphics3D[Sphere[],Lighting->l,ImageSize->{ 200,200}]

Graphics3D[Sphere[],Lighting->{{"Spot",Orange,{{0,0,1.5},{0,0,0}},Pi/12}},ImageSize->{ 200,200}]

Manipulate[Graphics3D[Sphere[],Lighting->{{"Spot",Orange,{{0,0,1.5},{0,0,0}},a}},ImageSize->{ 200,200}],{a,{Pi/12,Pi/8,Pi/6,Pi/4}}]

Manipulate[Graphics3D[Sphere[],Lighting->{{"Spot",Orange,{{0,0,1.5},{0,0,0}},a}},ImageSize->{ 200,200}],{a,0,Pi/4,Pi/24}]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200}]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotPoints->5]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotPoints->50]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotPoints->50,Contours->1]
plocha=Plot3D[f[x,y],{x,-3,3},{y,-3,3}, ImageSize->{ 200,200},PlotRange->All,PlotPoints->50]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotPoints->50,Contours->2]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotPoints->50,Contours->20]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotPoints->50,Contours->{-0.1,0,0.1}]

ContourPlot[f[x,y],{x,-3,3},{y,-3,3},ImageSize->{ 200,200},PlotPoints->50,Contours->{-0.1,0,0.1},ContourShading->False,ContourStyle->{{RGBColor[1,0,0]},{RGBColor[0,1,0]},{RGBColor[0,0,1]}}]

plocha=ParametricPlot3D[{Sin[t],Sin[2t]Sin[u],Sin[2t]Cos[u]},{t,-Pi/2,Pi/2},{u,0,2Pi},ImageSize->{ 200,200}]

plocha=ParametricPlot3D[{u Cos[u](4+Cos[v+u]),u Sin[u](4+Cos[v+u]), u Sin[u+v]},{u,0,4 Pi},{v,0,2Pi},PlotPoints->{60,10},ImageSize->{ 200,200}]

Manipulate[ParametricPlot3D[{u Cos[u](4+Cos[v+u]),u Sin[u](4+Cos[v+u]), u Sin[u+v]},{u,0,a},{v,0,2Pi},PlotPoints->{60,10},ImageSize->{ 200,200}],{a,0.1,4 Pi}]