t = seq( 0, +4, length.out=1000 )
f = rep( 0, length(t) )

f[ (0 <= t) & (t < 1) ] = t[ (0 <= t) & (t < 1) ]
f[ (1 <= t) & (t < 2) ] = t[ (1 <= t) & (t < 2) ] - 1
f[ (2 <= t) & (t < 3) ] = t[ (2 <= t) & (t < 3) ] - 2

#postscript("../../WriteUp/Graphics/Chapter6/chap_6_sect_3_prob_11_plot.eps", onefile=FALSE, horizontal=FALSE)
plot( t, f, type='p', cex=0.25, pch=20, col='black' )
points( c(0, 1, 2, 3), c(0, 0, 0, 0), pch=20, col='black', cex=1.5 )
grid()
#dev.off()