Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

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:
  • Prev by Date: Re: Problem with FullSimplify in Version 5: Rationals are converted to Reals
  • Next by Date: Re: Many Functions Into One
  • Previous by thread: functions
  • Next by thread: Re: functions