Re: Graphics and Random[] questions
- To: mathgroup at smc.vnet.net
- Subject: [mg51824] Re: [mg51797] Graphics and Random[] questions
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 3 Nov 2004 01:23:53 -0500 (EST)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Re your question 2:
The Statistics packages have many built-in distributions.
Needs["Statistics`DiscreteDistributions`"];
Needs["Graphics`Graphics`"];
n=100; p=1/10;
dist= BinomialDistribution[n, p];
Mean[dist]
10
data1=Table[Random[dist], {200}];
Mean[data1]//N
10.26
Histogram[data1];
data2=RandomArray[dist, {200}];
Mean[data2]//N
10.015
Histogram[data2];
Bob Hanlon
>
> From: Namrata Khemka <namrata.khemka at gmail.com>
To: mathgroup at smc.vnet.net
> Date: 2004/11/02 Tue AM 02:05:36 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg51824] [mg51797] Graphics and Random[] questions
>
> Hi Everyone,
> Well I have 2 questions:
> 1) I have a notebook which involves manipulating 3d plots. However
> everytime I run the notebook, after a while I get some kernel errors,
> and the mathematica kernel just quits. It crashs after a while and
> does not finsih evaluating all the cells. Is there a problem with my
> computer? or is it because of the limitation to process (huge amount
> of) graphics by Mathematica?
>
> 2) Random[Real, {-4,4}] gives a uniform distribution. However if I
> would like to have a binomial distribution or any other kind of
> distribution, would this be possible as well? If so then how is it
> done?
>
> Thanks in advance.
>
> Namrata Khemka
>
>