t = seq( 0, +3, length.out=200 )

# Create our function:
#
my_f = function(t){
    if( t <= 1 ){
        y = t^2
    }else if( t<= 2 ){
        y = 1/(t-1)
    }else{
        y = 1
    }
    y
}
y = sapply( t, my_f )

postscript("../../WriteUp/Graphics/Chapter6/chap_6_sect_1_prob_2_plot.eps", onefile=FALSE, horizontal=FALSE)
plot( t, y, type='p', cex=0.7, pch=20, col='black' )
grid()
dev.off()