source ( 'utils.R') #postscript("../../WriteUp/Graphics/Chapter6/chap_6_sect_3_prob_5_6_plots.eps", onefile=FALSE, horizontal=FALSE) par(mfrow=c(1,2)) # Problem 5: # t = seq( 0, +6, length.out=1000 ) g = 2*(t-1) * u_sub_c( t, 2 ) plot( t, g, type='p', cex=0.25, pch=20, col='black' ) points( c(2), c(2), pch=20, col='black', cex=1.5 ) grid() # Problem 6: # t = seq( 0, +6, length.out=1000 ) g = (t-1) * u_sub_c( t, 1 ) - 2*(t-2) * u_sub_c( t, 2 ) + (t-3) *u_sub_c( t, 3 ) plot( t, g, type='p', cex=0.25, pch=20, col='black' ) points( c(1, 2, 3), c(0, 1, 0), pch=20, col='black', cex=1.5 ) grid() par(mfrow=c(1,1)) #dev.off()