#
# 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.
# 
#-----

library(DAAG)

sr = range( rbind( elastic1, elastic2 )$stretch )
dr = range( rbind( elastic1, elastic2 )$distance )

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

plot( distance ~ stretch, data=elastic1, col=1, xlim=sr, ylim=dr )
lines( distance ~ stretch, type="p", data=elastic2, col=2 )
legend( 30, 290, c("elastic1","elastic2"), lty=c(1,1), col=c("black","red") )

#dev.off()