#====================
# Figure 10.3.R.
# Plot of y = (1 + 1/x)^x,
# for negative values of x.
#====================
x=-(1:1000)     # Range of x values from -1 to -1000.
y=(1+1/x)^x     # Function values.
function.table=data.frame(x,y) # Put x and y in two columns.
function.table                 # Print to the console.
plot(x,y,type="l")   # Plot the function.