beestinga Posted September 8, 2008 Share Posted September 8, 2008 Just as the topic says.You can read about the Monty Hall Problem here:http://montyhallproblem.com/I refused to believe it so I wrote a program to simulate and research for myself.Boy were my cheeks red.Anyway, here it is, pretty simple and straight forward.expandcollapse popup;Monty Hall Simulator ;Not Switching $wins=0 $losses=0 $runs=0 For $k=1 to 10000 $winningdoor=random(1,3,1) $chosendoor=random(1,3,1) $eliminated=random(1,3,1) if $eliminated=$winningdoor or $eliminated=$chosendoor Then While $eliminated=$winningdoor or $eliminated=$chosendoor $eliminated=random(1,3,1) WEnd EndIf If $winningdoor=$chosendoor Then $wins+=1 if $winningdoor<>$chosendoor Then $losses+=1 $runs+=1 Next MsgBox(0,"All Done!","You won "&$wins&" times and lost "&$losses&" times out of "&$runs&" runs!") ;Now we switch when we get the chance $wins=0 $losses=0 $runs=0 For $k=1 to 10000 $winningdoor=random(1,3,1) $chosendoor=random(1,3,1) $eliminated=random(1,3,1) if $eliminated=$winningdoor or $eliminated=$chosendoor Then While $eliminated=$winningdoor or $eliminated=$chosendoor $eliminated=random(1,3,1) WEnd EndIf $newchosen=random(1,3,1) If $newchosen=$eliminated or $newchosen=$chosendoor Then While $newchosen=$eliminated or $newchosen=$chosendoor $newchosen=random(1,3,1) WEnd EndIf If $winningdoor=$newchosen Then $wins+=1 if $winningdoor<>$newchosen Then $losses+=1 $runs+=1 Next MsgBox(0,"All Done!","You won "&$wins&" times and lost "&$losses&" times out of "&$runs&" runs!") Exit Link to comment Share on other sites More sharing options...
enaiman Posted September 8, 2008 Share Posted September 8, 2008 Simple script and effective I like it; especially the way you dealt with the while loops. ~ Thumbs up ~ SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script wannabe "Unbeatable" Tic-Tac-Toe Paper-Scissor-Rock ... try to beat it anyway :) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now