When/why is Denominator[p/q] != q?
- To: mathgroup at smc.vnet.net
- Subject: [mg46013] When/why is Denominator[p/q] != q?
- From: relishguy at pluggedin.org (Relishguy)
- Date: Mon, 2 Feb 2004 05:21:26 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
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