N <- 10; p <- 0.2; x <- 0:N; y <- dbinom(x,N,p)
BF=1.8; HF=2.2; Piano(0,N, 0,max(y))
segm(x,0, x,y, "blue"); Punti(x,y,"red")
#
N <- 20; p <- 0.2; x <- 0:N; y <- dbinom(x,N,p)
BF=2.4; HF=2.2; Piano(0,N, 0,max(y))
segm(x,0, x,y, "blue"); Punti(x,y,"red")
#
N <- 50; p <- 0.2; x <- 0:N; y <- dbinom(x,N,p)
BF=3.95; HF=2.2; Piano(0,N, 0,max(y))
segm(x,0, x,y, "blue"); Punti(x,y,"red")