Assegnati - mediante due slider verdi - i parametri [math]p \in [0; 1], \quad n \in N[/math] si costruiscono, con i comandi
[math]valori = Successione[CoefficienteBinomiale[n,k]*p^k*(1-p)^(n-k),k,0,n][/math]
[math]DiagrammaBarre[0, n + 1, valori][/math]
la successione [b]valori[/b] e il grafico a barre che la rappresenta.