# Dimensiono la finestra
dev.new(width=8,height=4)
# La divido in due sottofinestre con certi margini
par(mfrow=c(1,2), mar=c(2,2,1,1))
# Traccio i due grafici sulle due finestre
F <- function(x) (20-2*x)^2*x-300
plot(F,0,10,lwd=2)
abline(h=0,v=0,col="blue")
abline(v=seq(0,10,1),h=seq(-300,300,100),lty=3,col="blue")
G <- function(x) trunc(x)
plot(G,-5,5,lwd=2,pch=".",n=2000,type="p",cex=3)
abline(h=0,v=0,col="blue")
abline(v=seq(-5,5,1),h=seq(-5,5,1),lty=3,col="blue")