More GRAPHICS (3 D)

Plot3D[ Sin[x] Sin[y], {x,0,2Pi}, {y,0,2Pi} ];

Show[ %, ViewPoint -> {-3,-3,1},
         Boxed -> False ];

??Plot3D

Plot3D[ Exp[-(x^2+y^2)] Cos[3(x^2+y^2)],
        {x,-2,2}, {y,-2,2},
        PlotRange -> {-1,1},
        PlotPoints -> 30,
        AxesLabel -> {"x", "y", "z"},
        Mesh -> False,
        FaceGrids -> All ];

Show[ %, Mesh -> True, FaceGrids -> None,
         Shading -> False, Boxed -> False ];

Show[ ContourGraphics[%] ];

Plot3D[ Im[Log[x+I y]], {x,-2,2},{y,-2,2},
                        PlotPoints -> {25,35},
                        ColorFunction -> Hue ];

t = Table[ i^2, {i,1,10} ]

ListPlot[ t , PlotJoined -> True ];

<<Graphics`MultipleListPlot`

?MultipleListPlot

triangle = RegularPolygon[3, 0.02] ;

circle = RegularPolygon[10, 0.02] ;

data1 = Table[ -(i-5)^2 + 25, {i,0,10} ] ;

data2 = Table[ -(i-6)^2 + 30, {i,0,10} ] ;

MultipleListPlot[ data1, data2,
             DotShapes ->
             {MakeSymbol[triangle], MakeSymbol[circle]},
             AspectRatio -> 1, Frame -> True ];

?ListPlot

ListPlot3D[ {{1,3,2},{4,6,5},{9,7,8}} ];

ParametricPlot[ {Sin[t], Sin[2t]}, {t,0,2Pi} ];

ParametricPlot3D[ {Sin[t], Cos[t], Sin[t] Cos[t]},
                  {t,0,2Pi} ];

ParametricPlot3D[ {Sin[t] Cos[p], Sin[t] Sin[p], Cos[t]},
                  {t,0,Pi}, {p,0,2Pi} ];

ParametricPlot3D[ {Sin[2t] Cos[p],
                   Sin[t] Sin[2p],
                   Cos[t]}, 
                  {t,0,Pi}, {p,0,2Pi} ];

ParametricPlot3D[ {Cos[t] (2 + Cos[p]),
                   Sin[t] (2 + Cos[p]),
                   Sin[p] },
                  {t,0,2Pi}, {p,0,2Pi},
                   Boxed -> False,
                   Axes  -> False,
                   PlotPoints -> 30 ];

??ParametricPlot3D

x = (2 + Cos[v/2] Sin[u] - Sin[v/2] Sin[2 u]) Cos[v] ;
y = (2 + Cos[v/2] Sin[u] - Sin[v/2] Sin[2 u]) Sin[v] ;
z = Sin[v/2] Sin[u] + Cos[v/2] Sin[2 u] ;

ParametricPlot3D[ {x,y,z}, {u,0,2Pi}, {v,0,2Pi} ] ;