#====================
# Figure 10.5.R.
# The exponential and logarithmic functions.
#====================
x=4*(-50:50)/50
y=exp(x)
par(mfrow=c(1,2))
plot(x,y,type="l")
text(-3.25,53,"a")
plot(y,x,type="l")
text(5,3.8,"b")