# Grafici con R (vedi): source("http://macosa.dima.unige.it/r.R") Plane(0,50,0,20) x = c(10, 17, 30, 47); ex = c(1, 1, 1, 1.5) y = c(4.4, 6.9, 11.6, 18.9); ey = c(2, 2, 2, 2)/10 pointDiff0(x,y, ex,ey) # Ora uso un comando che trova automaticamente le rette di max e min pendenza che # passano per i rettangolini pointDiff(0,0, x,y, ex,ey) # 0.385567 * x # 0.4068966 * x # Come rette prendo y = 0.385 x e y = 0.407 x o y = 0.39 x e y = 0.41 x# # Per fare la griglia arancione e rettangolini neri ho fatto: Plane(0,50,0,20) gridHC(1:20,"orange") gridVC((1:25)*2,"orange") gridVC(seq(10,50,10),"brown") gridHC(seq(5,20,5),"brown") colRect="black"; pointDiff0(x,y, ex,ey) # colRect="black"; pointDiff(0,0, x,y, ex,ey)