MathGroup Archive 2000

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

Search the Archive

Re: need little help - no longer!

  • To: mathgroup at smc.vnet.net
  • Subject: [mg23548] Re: [mg23530] need little help - no longer!
  • From: Wagner Truppel <wtruppel at uci.edu>
  • Date: Sat, 20 May 2000 03:10:25 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

"Thank you!" to both Johannes Ludsteck and Kenneth Levasseur, who 
supplied me with solutions to my query.

As Johannes pointed out, the Statistics`MultiDiscreteStatistics` 
package has facilities for drawing random numbers from a multinomial 
probability distribution. However, I personally prefer Ken's solution:

RandomIndex[m_] :=
(m /. {{a__, b___} :> Length[{a}] /; Plus[a] >= #}) &[Random[]]

Once again, thank you both.
Wagner


  • Prev by Date: Quadratic Programming
  • Next by Date: Re: [Question] How to load(get) Packages
  • Previous by thread: Re: Quadratic Programming
  • Next by thread: Re: Re: need little help - no longer!