MathGroup Archive 2007

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

Search the Archive

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