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

y0 = -2.0

ts = seq( 0, 10, length.out=500 )
ys = -(3/8)*(2*ts - 7) + ( y0 - 21/8 ) * exp(-2*ts/3 )
plot( ts, ys, type='l', xlab='t', ylab='y(t)' )
grid()

#dev.off()