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