Re: Button Question

• To: mathgroup at smc.vnet.net
• Subject: [mg84346] Re: Button Question
• From: Albert Retey <awnl at arcor.net>
• Date: Thu, 20 Dec 2007 00:00:36 -0500 (EST)
• References: <fkanep\$de5\$1@smc.vnet.net>

```John wrote:
> The cell, pasted below, is in my notebook. When the cell is evaluated,
> It prints a button, labeled simulate, but clicking on the button does
> not  print the six simulated integers that RandomInteger  computed.
>
> The error message says that the list of probabilities, entered as
> shown below, is not a probability distribution recognized by the
> system, but {1/6,1/6,1/6,1/6,1/6,1/6} is a valid multinomial
> distribution.
>
> ButtonEvaluator, not mispelled, is printed in red. The color red must
> be an indication of an error of some kind, but I have no idea what it
> is.
>
> Cell[ButtonBox["Simulate", Active -> True,
>    ButtonFunction ->
>     Print[RandomInteger[
>       MultinomialDistribution[
>        100, {"1", "/", "6", "1", "/", "6", "1", "/", "6", "1", "/",
>         "6", "1", "/", "6", "1", "/", "6"}], 1]],
>    ButtonEvaluator -> Automatic] // DisplayForm, "Output"],

since you use RandomInteger I guess you are using version 6. Then there
is no need to struggle with ButtonBox for this. This works for me:

Needs["MultivariateStatistics`"]

Button["Simulate",
Print[RandomInteger[MultinomialDistribution[100,{1/6,1/6,1/6,1/6,1/6,1/6}],1]]
]

hth,

albert

```

• Prev by Date: Re: Trouble with double factorial and an infinite product
• Next by Date: ClearAll[f]; f[x_] := x^2; f[y_] :=y^4; (*What is:*) f[2]
• Previous by thread: Re: Button Question
• Next by thread: Re: Mathematica SIG (Washington D.C. and Northern