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