22/02/2023, 21:40
22/02/2023, 22:01
np = 10^8;
nv = ParallelTable[t = 0;
d = RandomInteger[{1, 6}];
While[d < 6,
t = t + 30;
d = RandomInteger[{1, 6}]
];
If[t < 100, 0, 1],
{n, np}];
100. Total[nv]/np
(*48.2251*)
23/02/2023, 08:10
sellacollesella ha scritto:È corretto.
Trovo sempre molto interessante simulare il gioco qualche milione di volte:
24/02/2023, 02:49
Geeannee ha scritto:Dunque P(Vincita)=5/6 * 5/6 * 5/6 * 5/6 = 625/1296 = 0.48 circa il 48%. Secondo voi è corretto o ho sbagliato qualcosa?
24/02/2023, 06:52
Bokonon ha scritto:La prob. di perdere è $1/6sum_(n=0)^3 (5/6)^n$.
Bokonon ha scritto:La prob. di vincere è $1-1/6[1+5/6+(5/6)^2+(5/6)^3]$.
Skuola.net News è una testata giornalistica iscritta al Registro degli Operatori della Comunicazione.
Registrazione: n° 20792 del 23/12/2010.
©2000—
Skuola Network s.r.l. Tutti i diritti riservati. — P.I. 10404470014.
Powered by phpBB © phpBB Group - Privacy policy - Cookie privacy
phpBB Mobile / SEO by Artodia.