# variante di curve_test_ingresso_1.R con
# - parametro log='y' => quello fondamentale per questa variante!
# - parametro xlim=(0,xM) per migliorare la grafica

xm = 0.1
xM = 10
curve(x^2, xm, xM, log='y', col='blue', xlab='x', ylab='f(x)',
      xlim=c(0,xM), xaxs='i', yaxs='i')
grid() 
curve(25*sqrt(x), xm, xM, col='red', n=200, add=TRUE)
curve(3*exp(0.333*x), xm, xM, col='green', add=TRUE)
curve(20*x^1, xm, xM, col='brown', add=TRUE)