Simula la scommessa di De Mere

Share:

Description

Questa funzione simula la scommessa di de Mere calcolando la probabilita' di fare almeno un 6 in 4 lanci di un dado regolare.

Usage

1
2
gioco1(prove=10000)
gioco1a(prove=10000)

Arguments

prove

numero di prove da utilizzare nella simulazione

Details

La versione gioco1 della funzione non e' efficiente in termini di velocita' in quanto vengono impiegati cicli for. Si noti la differenza in termini di velocita' con la version gioco1a.

See Also

gioco2.

Examples

1
2
3
4
5
6
ptm <- proc.time()
gioco1a(10000)
proc.time() - ptm
ptm <- proc.time()
gioco1(10000)
proc.time() - ptm