par(mfrow=c(2,2))

curve(sqrt,0,100)
title("Radice quadrata")

curve(log, 0, 10)
title("Logaritmo naturale")

curve(exp, -2, 2)
title("Esponenziale")

curve(sin, -2*pi, 2*pi)
curve(cos, -2*pi, 2*pi,add=TRUE, lty=2)
abline(h=0)
title("Seno (linea intera) e \ncoseno (linea tratteggiata)")

par(mfrow=c(1,1))