[?] Display the following graphs?

Capture.PNG

Don’t use

While[ n <= 720, Graph[.....]; n++]

Instead use

Table[ Graph[.....], {n, 1, 720}]