Attiva l'esecuzione degli script (tranquillo: per loro natura gli script non creano problemi)
Approssimazione (con una confidenza del 99.7%) della probabilità di un evento.  Per modificare l'evento apri il codice e cambia la function ValVer.  Se vuoi cambiare il numero di prove tra una stampa e l'altra cambia il valore nel box "n+…".

n + ...

Clicca (1 o più volte) 
# In alternativa si puņ usare il seguente programma per R [basta cambiare Evento,
#           qui messo per valutare la prob. che il lancio di due dadi equi sia 7]
Pr <- function(n) {f <- 0
    for (i in 1:n) f <- f + ifelse(Evento(),1,0)
    fr <- f/n; S <- sqrt(fr*(1-fr)/(n-1))
    print(c(fr, "+/-", 3*S), quote=FALSE)}
#
Evento <- function() floor(runif(1)*6)+floor(runif(1)*6)+2 == 7
Pr(1000)
Pr(10000)
...