#postscript("../../WriteUp/Graphics/Chapter2/chap_2_sect_3_prob_5_plot.eps", onefile=FALSE, horizontal=FALSE)

t = seq( 0, 400, length.out=500 )
y = 25 + (25/5002) * sin(t) - (1250/5002) * cos(t) + (63150/2501) * exp(-t/50)
plot( t, y, type='l', xlab='t', ylab='Q(t)' )
grid()
 
#dev.off()