<<Statistics`DiscreteDistributions`

bdist = BinomialDistribution[1, 0.5]

BinomialDistribution[1, 0.5]

HansVLiempd = RandomArray[bdist, {1, 10}]

{{1, 0, 0, 1, 0, 1, 1, 0, 0, 0}}

JohnPicoso = RandomArray[bdist, {1, 10}]

{{0, 1, 1, 0, 0, 0, 0, 1, 1, 1}}

ErikKlijnsmit = RandomArray[bdist, {1, 10}]

{{0, 1, 0, 0, 0, 1, 0, 1, 0, 0}}

Stefan = RandomArray[bdist, {1, 10}]

{{0, 0, 0, 1, 0, 1, 0, 1, 1, 1}}

dekkersj = RandomArray[bdist, {1, 10}]

{{0, 0, 1, 1, 0, 0, 1, 0, 1, 0}}

Created by Mathematica  (March 5, 2007) Valid XHTML 1.1!