# Con R:
#
dev.new(width=9,height=6)
par( mai = c(0,0,0,0) )
#
cartamm <- function(ampx,ampy) {
# ampx e ampy sono le dimensioni in "mm" della carta millimetrata
 plot(c(0,ampx),c(0,ampy),type="n",xlab="",ylab="",axes=FALSE,asp=1)
 for(i in 0:ampy) segments(0,i,ampx,i,col="grey")
 for(i in 0:ampx) segments(i,0,i,ampy,col="grey")
 for(i in (0:(ampy/5))*5) segments(0,i,ampx,i,col="grey60")
 for(i in (0:(ampx/5))*5) segments(i,0,i,ampy,col="grey60")
 for(i in (0:(ampy/10))*10) segments(0,i,ampx,i,col="brown")
 for(i in (0:(ampx/10))*10) segments(i,0,i,ampy,col="brown") }
#
cartamm(40, 60)
# Puoi ingrandire o rimpicciolire col mouse l'immagine che produci. 


# Posso usare questo algoritmo oltre che per realizzare fogli di carta millimetrata
# anche per costruire figure su carta millimetrata. Ecco ad es. un istogramma:
cartamm(60,40)       # Uso i codici numerici per i colori per far prima
rect(10,0, 20,32, col=3)                # Inserisco due vertici opposti
rect(20,0, 30,22, col=5)
rect(30,0, 40,16, col=2)
rect(40,0, 50,30, col=7)