MathGroup Archive 1996

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

Search the Archive

Re: Matching random numbers

  • To: mathgroup at
  • Subject: [mg4628] Re: Matching random numbers
  • From: ags at (Dave Seaman)
  • Date: Wed, 21 Aug 1996 03:25:42 -0400
  • Organization: Purdue University
  • Sender: owner-wri-mathgroup at

In article <4uphfg$6b5 at>,
A. Ortiz-Tapia <ao202 at> wrote:
>Dear mathgroupers,
>I have written the following program:

 [ Program deleted ]

>The purpose of this program is to produce two inpendent random numbers;
>match this two numbers by "converting" them to integers, then if they
>are equal print either of them (I choosed x), *and* increment the value
>of a variable, such that at the end I can have 5000 "matched" random
>numbers. The program, so far, gives out *only one number*.

If I understand you correctly, an easy way would be to evaluate


where match[] is a function defined to return a single "matched"
value.  For example:

	match[] :=
			While[Round[100x] != Round[100y],
				x = Random[];
				y = Random[]

Dave Seaman			dseaman at
      ++++ stop the execution of Mumia Abu-Jamal ++++
    ++++ if you agree copy these lines to your sig ++++
++++ see ++++


  • Prev by Date: Re: Piecewise Functions
  • Next by Date: Re: The farthest apart points problem
  • Previous by thread: Matching random numbers
  • Next by thread: Re: Matching random numbers