#
# 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/1966/prob_33.eps", onefile=FALSE, horizontal=FALSE)

vs = c( seq( -10, -0.1, length.out=100 ), seq( 0.1, 10, length.out=100 ) )
yLHS = vs - 1/vs
plot( vs, yLHS, xlab="v or w", ylab="LHS or RHS", type="l", col="green" )
abline( a=0, b=1, col="green" )

yRHS = -yLHS
lines( vs, yRHS, type="l", col="red" )
abline( a=0, b=1, col="green" )

grid()

#dev.off()