MathGroup Archive 2004

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

Search the Archive

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
> 
> 


  • Prev by Date: Re: dashing the lines make the plot looks so bad
  • Next by Date: Re: Re: closing notebook cells
  • Previous by thread: Re: Graphics and Random[] questions
  • Next by thread: Re: Univers font for PDF files