# comandi eseguiti in aula 23 marzo

x <- 10^(seq(-2,2,len=101))
x
y <- x^3
plot(x,y)
plot(x,y); grid()
plot(x,y, log='xy'); grid()
points(x,x^(-2), col='red')
points(x,100*x^(-2), col='blue')
points(x,0.5*x^(-2), col='cyan')
points(x,0.01*x^(-2), col='cyan')
points(x,x^(4), col='red')
points(x,x^(-4), col='red')
points(x,1000*x^(-4), col='red')