#
# Written by:
# -- 
# John L. Weatherwax                2009-04-21
# 
# email: wax@alum.mit.edu
# 
# Please send comments and especially bug reports to the
# above email address.
#
#-----

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

xs = seq( 1+0.1, 5, length.out=100 )
s1 = 2 * xs / ( xs - 1 )
plot( xs, s1, type='l' );
abline(h=0,col='black')
abline(h=2,col='green')
title('mapping of 2 x / (x-1) for x>1')
grid()

#dev.off()


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

d1 = seq( 5, 50, length.out=100 )
d2 = - d1 / (d1 + 2)
plot( d1, d2, type='l', ylim=c(-1,-5/7) );
abline(h=0,col='black')
abline(h=-1,col='green')
title('mapping of -x / (x+2) for x>5')
grid()

#dev.off()