xm = 0.01
xM = 100
curve(x^(-1), xm, xM, col='blue', xlab='x', ylab='y', log='xy')
grid()
Sys.sleep(1)
curve(x^(-2), xm, xM, col='red', add=TRUE)
Sys.sleep(1)
curve(x^(-1/2), xm, xM, col='red', lty=2, add=TRUE)
Sys.sleep(1)
curve(x^(-3), xm, xM, col='green', lty=1, add=TRUE)
Sys.sleep(1)
curve(x^(-1/3), xm, xM, col='green', lty=2, add=TRUE)
Sys.sleep(1)
curve(x^(-4), xm, xM, col='magenta', lty=1, add=TRUE)
Sys.sleep(1)
curve(x^(-1/4), xm, xM, col='magenta', lty=2, add=TRUE)