xm = 0.001
xM = 2
curve(x^(-1), xm, xM, col='blue', xlab='x', ylab='y', ylim=c(0,10))
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)