Search All of the Math Forum:
Views expressed in these public forums are not endorsed by
NCTM or The Math Forum.



Re: [mg4615] Matching random numbers
Posted:
Aug 22, 1996 3:29 AM


"A. OrtizTapia" <ao202@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@haystack.demon.co.uk



