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