Re: eqiprobable intervals
- To: mathgroup at smc.vnet.net
- Subject: [mg41053] Re: eqiprobable intervals
- From: Selwyn Hollis <hollisse at mail.armstrong.edu>
- Date: Wed, 30 Apr 2003 04:23:26 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Susan,
Try this:
<< "Statistics`NormalDistribution`"
n = 10;
Map[FindRoot[CDF[NormalDistribution[0,1], x]==#, {x,0}]&, Range[n-1]/n ]
{{x-> -1.28155}, {x -> -0.841621}, {x-> -0.524401}, {x->
-0.253346},
{x-> 0.}, {x-> 0.253346}, {x-> 0.524401}, {x-> 0.841621}, {x->
1.28155}}
CDF[NormalDistribution[0, 1], x] /. %
{0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9}
--------
Selwyn Hollis