Plot[Cos[x]/x,{x,-4Pi,4Pi}]