# 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)