       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

```

• Prev by Date: Re: When/why is Denominator[p/q] != q?
• Next by Date: Re: When/why is Denominator[p/q] != q?
• Previous by thread: Re: When/why is Denominator[p/q] != q?
• Next by thread: Re: When/why is Denominator[p/q] != q?