GRAPHICS

Plot[ Sin[x], {x,0,2Pi} ];

Plot[ Tan[x], {x,0,2Pi} ];

Plot[ { Exp[-x], -Exp[-x], Sin[10x] Exp[-x] }, {x,0,Pi} ];

Plot[ Evaluate[Table[Sin[n x],{n,4}]], {x,0,Pi} ];

Plot[ Evaluate[Table[BesselJ[n,x],{n,4}]],{x,0,10} ];

Do[ plot[n] =
            Plot[BesselJ[n,x],{x,0,20},
                 DisplayFunction -> Identity ],
    {n,5} ];

Show[ Array[plot,5], 
                 DisplayFunction -> $DisplayFunction ];

NDSolve[ {y'[x] == Sin[y[x]], y[0]==1}, y, {x,0,4} ]

Plot[ Evaluate[ y[x] /. % ], {x,0,4} ] ;

??Plot

Plot[ Sin[x], {x,0,2Pi},
        GridLines -> Automatic,
        PlotLabel -> "My Plot",
        AxesLabel -> {"x axis","y axis"} ] ;

Plot[ Sin[x], {x,0,4Pi}, PlotRange -> {0,1} ] ;

Plot[ Sin[1/x], {x,-1,1} ] ;

plot1 = Plot[ Sin[x]^2, {x,0,4Pi}] ;

plot2 = Plot[ Cos[x]^2, {x,0,4Pi}] ;

Show[ plot1, plot2, PlotRange -> {-1,1},
                    Frame -> True,
                    FrameTicks-> None ] ;

Show[ GraphicsArray[{{plot1,plot2},{plot2,plot1}}],
      Frame -> True ] ;

ContourPlot[ Sin[x] Sin[y], {x,0,2Pi},{y,0,2Pi},
             PlotPoints -> 30,
             Contours -> 20,
             ContourShading -> False ] ;

DensityPlot[ Sin[x^2 - y^2], {x,-Pi,Pi}, {y,-Pi,Pi},
              PlotPoints -> 100,
              Mesh -> False ] ;