Monty Hall problem: Difference between revisions
Content added Content deleted
m (one variable eliminated) |
|||
Line 1,701: | Line 1,701: | ||
<lang Mathematica> montyHall[nGames_] := |
<lang Mathematica> montyHall[nGames_] := |
||
Module[{r, winningDoors, firstChoices, nStayWins, nSwitchWins}, |
Module[{r, winningDoors, firstChoices, nStayWins, nSwitchWins, s}, |
||
r := RandomInteger[{1, 3}, nGames]; |
r := RandomInteger[{1, 3}, nGames]; |
||
winningDoors = r; |
winningDoors = r; |
||
Line 1,708: | Line 1,708: | ||
nSwitchWins = nGames - nStayWins; |
nSwitchWins = nGames - nStayWins; |
||
Grid[{{"Strategy", "Wins", "Win %"}, {"Stay", Row[{nStayWins, "/", nGames}], N[100 nStayWins/nGames]}, |
Grid[{{"Strategy", "Wins", "Win %"}, {"Stay", Row[{nStayWins, "/", nGames}], s=N[100 nStayWins/nGames]}, |
||
{"Switch", Row[{nSwitchWins, "/", nGames}], 100 - |
{"Switch", Row[{nSwitchWins, "/", nGames}], 100 - s}}, Frame -> All]]</lang> |
||