Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Coin Toss Sim

• To: mathgroup at smc.vnet.net
• Subject: [mg122357] Coin Toss Sim
• From: pooleman133 <poolebc221 at gmail.com>
• Date: Wed, 26 Oct 2011 17:39:20 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

I am new to mathematica and am trying to make a coin flipping simulation however mo code isn't working. When I tell it to count the number of head it gives me a bad count. The code I am using is listed below any help would be greatly appreciated.

y[n_] := Block[{g, s},
  
  
  g := RandomChoice[{"head", "tail"}, n];
  s := Count[g, "head"];
  {g, s}
  ]

• Follow-Ups:
  • Re: Coin Toss Sim
    • From: Heike Gramberg <heike.gramberg@gmail.com>
  • Re: Coin Toss Sim
    • From: James Stein <mathgroup@stein.org>
  • Re: Coin Toss Sim
    • From: Tomas Garza <tgarza10@msn.com>
  • Re: Coin Toss Sim
    • From: DrMajorBob <btreat1@austin.rr.com>