curve(x^1, 0, 2, col='blue', xlab='x', ylab='y', asp=TRUE, main="Potenze e radici")
grid()
Sys.sleep(1)
curve(x^2, 0, 2, col='red', add=TRUE)
Sys.sleep(1)
curve(x^(1/2), 0, 2, col='green', add=TRUE)
Sys.sleep(1)
curve(x^3, 0, 2, col='red', lty=2, add=TRUE)
Sys.sleep(1)
curve(x^(1/3), 0, 2, col='green', lty=2, add=TRUE)
Sys.sleep(1)
curve(x^4, 0, 2, col='red', lty=3, add=TRUE)
Sys.sleep(1)
curve(x^(1/4), 0, 2, col='green', lty=3, add=TRUE)