# per confronto agli script precedenti
# cercare di capire le varienti e la loro importanza

xm = 0.01
xM = 2
curve(x^1, xm, xM, log='xy', col='blue', xlab='x', ylab='y',
      asp=TRUE,  xaxs = 'i', yaxs = 'i',
      main='Potenze e radici in scala log-log')
grid()
Sys.sleep(1)
curve(x^2, xm, xM, col='red', add=TRUE)
Sys.sleep(1)
curve(x^(1/2), xm, xM, col='green', add=TRUE)
Sys.sleep(1)
curve(x^3, xm, xM, col='red', lty=2, 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='red', lty=3, add=TRUE)
Sys.sleep(1)
curve(x^(1/4), xm, xM, col='green', lty=3, add=TRUE)