Re: Matching random numbers
- To: mathgroup at smc.vnet.net
- Subject: [mg4670] Re: [mg4615] Matching random numbers
- From: Allan Hayes <hay at haystack>
- Date: Thu, 22 Aug 1996 03:55:21 -0400
- Sender: owner-wri-mathgroup at wolfram.com
"A. Ortiz-Tapia" <ao202 at cus.cam.ac.uk>
[mg4615] Matching random numbers
writes
>>>>>>>>>>>>
I have written the following program:
In[3]:=
(count = 0 ;
Label[nextrandom];
pileup = pileup + 1;
x = Random[];
y = Random[];
a = Round[100*x];
b = Round[100*y];
If[a== b,Return[x], Goto[nextrandom]];
If[count == 5000, Break[]];
Goto[nextrandom])
The purpose of this program is to produce two inpendent random
numbers;match this two numbers by "converting" them to integers,
then if theyare equal print either of them (I choosed x), *and*
increment the valueof a variable, such that at the end I can have
5000 "matched" random
numbers. The program, so far, gives out *only one number*.
I would like to have some comments.
<<<<<<<<<<<<<<
Arturo,
The following, written in a functional style more suited to Ma,
seems to do what you want. I have replaced 5000 with 10.
(mat= {};
While[Length[mat] <10,
If[Round[100#1]==Round[100#2], AppendTo[mat,#1 ]
]&[Random[],Random[]]
]; mat)
{0.172357, 0.643095, 0.35482, 0.517124, 0.168319, 0.0228716,
0.183782, 0.406388, 0.0474315, 0.542734}
Allan Hayes
hay at haystack.demon.co.uk
==== [MESSAGE SEPARATOR] ====