as={0.1,0.3,0.5,0.7,1,2,5,6,10};
graphs = Table[
tmax= 100;
points=Table[{a t,1/2 Cos[(1/a) t]},{t, 0, tmax,0.0002*tmax}];
Graphics[ListPolarPlot[points,Joined->True,PlotLabel->"((Subscript[ω, table])/(Subscript[Ω, Pendulum])) = "<>ToString@a]],{a,as}]