Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

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


  • Prev by Date: A new front end for Mathematica
  • Next by Date: Re: Postfix (//) with Options?
  • Previous by thread: Re: Matching random numbers
  • Next by thread: Re: Matching random numbers