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