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

xs = seq(0, pi, length.out=100)
v = xs*sin(xs)

plot (xs, v, pch=16, type='l', col='black', xlab='x', ylab='')
lines(xs, sin(xs), type='l', col='blue')
abline(h=pi/2, col='red')
grid()

plot(xs, sin(xs), pch=16, type='l', col='black', xlab='x', ylab='')
lines(xs, 2/(3*xs), type='l', col='blue')
grid()

##dev.off()