source("http://macosa.dima.unige.it/r.R")
max(hist(alu,seq(140,164,3),plot=FALSE)$density)
# 0.09259259
max(hist(alu2,seq(140,164,3),plot=FALSE)$density)
# 0.07142857
BF=4; HF=3
noBox=1; boX(140,165,0,0.093)
hist(alu,seq(140,164,3),angle=45,density=15,probability=TRUE,add=TRUE,border="black",col="blue")
hist(alu2,seq(140,164,3),angle=135,density=15,probability=TRUE,add=TRUE,border="black",col="red")