SPECIAL PLOTS

Clear["Global`*"]

Needs["Graphics`Graphics`"]

LogLogPlot[ 3 x^3, {x,1,10} ];

BarChart[ Table[ Sin[i/5] + 0.5 Random[], {i,15} ] ];

PlotVectorField[ {Sin[x] Cos[y], Cos[x] Sin[y]},
                 {x,0,3}, {y,0,3} ]

Needs["Graphics`ParametricPlot3D`"]

SphericalPlot3D[Abs[SphericalHarmonicY[3,1,theta,phi]],
               {theta,0,Pi,Pi/30}, {phi,0,2Pi,Pi/15} ];