Here is an answer to your question, but first, I think that you would profit by starting to teach yourself Mathematica. Here is a link to a thread that covers some beginner books and other resources to learn the Wolfram Language:
http://community.wolfram.com/groups/-/m/t/613588
ListPlot[Table[Cos[i Degree], {i, 48, 58}], PlotRange -> {All, {-1, 1}}]