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

Re: functions

• To: mathgroup at smc.vnet.net
• Subject: [mg45526] Re: [mg45481] functions
• From: Selwyn Hollis <sh2.7183 at misspelled.erthlink.net>
• Date: Mon, 12 Jan 2004 02:15:36 -0500 (EST)
• References: <200401100500.AAA02409@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

On second thought, I think this is a better idea:

   IrrationalQ[x_] := Denominator[Rationalize[x,.0001]] > 50

With it, IrrationalQ[Random[]] returns True most of the time, as it 
should (probability approx .85), but returns False often enough to be 
interesting.

-----
Selwyn Hollis
http://www.math.armstrong.edu/faculty/hollis
(edit reply-to to reply)

• References:
  • functions
    • From: lorenzo.keegan@handbag.com