p1=Plot[Evaluate[Table[ChebyshevT[n,x],{n,0,5}]],{x,-1,1}]

roots = Table[{m,Cos[π/m (j-1/2)]},{m,1,30},{j,1,m}];

p2=ListPlot[Flatten[roots,1]]

p=GraphicsGrid[{{p1,p2}}]

SetDirectory[NotebookDirectory[]]

Export["ChebyshevRoots.eps",p]

?