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
- functions