source("http://macosa.dima.unige.it/r.R") km = c(0,11,15,19,31,31, 48, 56, 66, 83,101,114,121,132,158) t = function(h,m) (h-15)*60+(m-30) min = c(t(15,30),t(15,40),t(15,46),t(15,50),t(16,2),t(16,22),t(16,36),t(16,46), t(16,57),t(17,15),t(17,33),t(17,47),t(17,55),t(18,8),t(18,55) ) min # 0 10 16 20 32 52 66 76 87 105 123 137 145 158 205 BF=4.5; HF=3 # prima faccio il grafico con Plane, poi con Planeww Planeww(0,210, 0,160) gridHC(seq(10,250,10),"brown"); gridVC(seq(10,250,10),"brown") GridHC(seq(0,150,50),"brown"); GridVC(seq(0,200,60),"brown") polyl(min,km,"blue"); Point(min,km,"blue") abovex("minuti"); abovey("km") underX(seq(0,200,60),seq(0,200,60)) underY(seq(0,200,50),seq(0,200,50))