# plot della funzione y = 4 x^3 nell'intervallo [0.1, 4]
x <- seq(0.1, 4, by=0.01)
y <- 4*x^3
plot(x, y, type = "l")

# plot della stessa funzione in un sistema di riferimento logaritmico
plot(x, y, type = "l", log = "xy")

# plot della funzione esponenziale z = exp(x)
z <- exp(x)
plot(x, z, type = "l")

# lo stesso plot con griglia
plot(x, z, type = "l", tck = 1)

# plot della funzione esponenziale, scala logaritmica sull'asse y
plot(x, z, type = "l", tck = 1, log = "y")

# plot della funzione logaritmo naturale w = log(x)
w <- log(x)
plot(x, w, type = "l", tck = 1)

# plot di log(x) con scala logaritmica sull'asse x
plot(x, w, type = "l", tck = 1, log = "x")