Come fare i grafici con R (vedi)

# Grafico di h
source("http://macosa.dima.unige.it/r.R")
k = function(t) sqrt(5*t/6)
h = function(t) ifelse(t<0, 0, ifelse(t<480, k(t), 20))
BF=3; HF=2.5
graphF( h, -100,600, "blue")  # scelta automatica della scala
abovex("t"); abovey("h")
#
# Grafico di D(h)
deriv(k,"t")  # faccio il calcolo con R
# 0.5*(5/6*(5*t/6)^-0.5)
Dh = function(t) ifelse(t<0, 0,ifelse(t<480, 0.5*(5/6*(5*t/6)^-0.5),0) )
Plane(-100,600, 0,0.2)  # scelgo io la scala (prendo anche un tratto a sinistra
#                           di 0, per vedere cosa accade, ma non era richiesto)
graph( Dh, -100,600, "blue")
abovex("t"); abovey("Dh")