(* Radiation pattern from an accelerating charge, moving in a straight line along z axis *)

(* This is for a fixed value of beta. You may move the plot around to get a 3D understanding of the radiation pattern *)

SphericalPlot3D[Sin[theta]^2 / (1 - beta Cos[theta])^6 /. beta -> 0.4, {theta,0,Pi}, {phi,0,2 Pi} , PlotRange -> All]

(* The value of beta can be changed here to see its effect *)

Manipulate[SphericalPlot3D[Sin[theta]^2 / (1 - beta Cos[theta])^6, {theta,0,Pi}, {phi,0,2 Pi} , PlotRange -> All], {beta,0,1}]

(* This is a cut along the x-z plane, for seeing the shape better *)

Manipulate[PolarPlot[Cos[theta]^2 / (1 - beta Sin[theta])^6, {theta,0,2Pi} , PlotRange -> All], {beta,0,1}]