Re: When/why is Denominator[p/q] != q?

*To*: mathgroup at smc.vnet.net*Subject*: [mg46033] Re: When/why is Denominator[p/q] != q?*From*: drbob at bigfoot.com (Bobby R. Treat)*Date*: Tue, 3 Feb 2004 03:21:05 -0500 (EST)*References*: <bvla64$83$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

When p and q have a common factor, of course. Bobby relishguy at pluggedin.org (Relishguy) wrote in message news:<bvla64$83$1 at smc.vnet.net>... > I ran this code (from the "Tour of Mathematica" in the Book ): > > (* -------------------------------- *) > g6 = Flatten[Table[Point[{p / q, Denominator[p/q]}], {q, 100}, {p, q - > 1}]]; > (* same code with q instead of Denominator[p/q] *) > g5 = Flatten[Table[Point[{p / q, q }], {q, 100}, {p, q - 1}]]; > > Show[Graphics[g5, Frame -> True]] > > Show[Graphics[g6, Frame -> True]] > (* -------------------------------- *) > > > For some reason the graphs are not identical. Can anyone point me to > the reason for this? > > TIA. > > Regards..Roger > > My Environment: Mathe 4.2 WinXP