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