Re: Re: serie of random number
- To: mathgroup at smc.vnet.net
- Subject: [mg21324] Re: [mg21314] Re: [mg21202] serie of random number
- From: BobHanlon at aol.com
- Date: Fri, 24 Dec 1999 03:42:27 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
t = Table[Random[Real, {0, 1}], {9}]; Join[t, {1 - Plus @@ t}]
{0.28419996266564695, 0.02511318618010302,
0.355205808623824, 0.05090083250232359,
0.8554758085814785, 0.8451794714692122,
0.35775015747713446, 0.8695765278344698,
0.5735109302828055, -3.2169126856169976}
Note the sign and magnitude of the last term. I believe the requirement was
that the numbers lie on the interval {0, 1}.
Bob Hanlon
In a message dated 12/23/1999 6:10:59 AM, hpd1 at is2.nyu.edu writes:
>Several suggestions have been posted, each of which involves dividing each
>of n random terms by the sum of those n terms. There's another obvious
>way:
>generate n-1 random terms and add a final term equal to 1 minus their sum.
>t=Table[Random[Real,{0,1}],{9}];Join[t,{1-Plus@@t}]
>The distribution will be somewhat skewed, however, because all of the
>"correction" to sum to 1 will be contained in the single final term. If
>n
>is large enough, that shouldn't make much difference, and with a large
>n
>this method is probably faster.
>