# variante con 
#              - limiti di x variabili: [xm, xM]           
#              - senza le scritte (andrebbero ridefinite in base a xm e xM)
#              - parametri xaxs e yaxs per far partire la grafica da (0,0)
#              - parametro 'n=200' nel tracciamento di 25*sqrt(x)
#                per evitare l'artefatto della discontinuità alla partenza

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