64-bit GraphPlot problem

• To: mathgroup at smc.vnet.net
• Subject: [mg65547] 64-bit GraphPlot problem
• From: János <janos.lobb at yale.edu>
• Date: Fri, 7 Apr 2006 06:14:23 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

I am looking the GraphPlot notebook in the Add-ons & Links ->
Standard Packages -> DiscrateMath Help section and I am trying to
execute the very first two lines of the notebook:

In[1]:=
<< "DiscreteMath`GraphPlot`"

In[2]:=
GraphPlot[{1 -> 2, 2 -> 3,
3 -> 4, 4 -> 5, 5 -> 6,
6 -> 7, 7 -> 8, 8 -> 1,
1 -> 9, 2 -> 9, 3 -> 10,
4 -> 10, 6 -> 11,
5 -> 11, 7 -> 12,
8 -> 12},
EdgeStyleFunction ->
(Arrow[{#1, #2}] & )];
From In[2]:=
Show[Graphics[{
AbsoluteThickness[1],
AbsoluteThickness[0.5],
Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{0, -100000}, {-100000, 0}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}],
Disk[
{190.5, 144.5}, {0.25, 0.25}],
AbsoluteThickness[2.25],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{0, -100000}, {-100000, 0}],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{0, -100000}, {-100000, 0}],
Disk[
{0, -100000}, {-100000, 0}],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{190.5, 144.5}, {1.125, 1.125}],
Disk[
{190.5, 144.5}, {1.125, 1.125}]
}], AspectRatio->1,
PlotRange->{{47, 335}, {4, 292}},
ImageSize->{288, 288}]

The output appears to me as a straight line from the middle of the
rectangle to the upper right corner.  I am wondering if it is just my

In[12]:=
\$Version
Out[12]=
"5.2 for Mac OS X (64 bit) \
(June 20, 2005)"

Hardware Overview:

Machine Name: Power Mac G5
Machine Model: PowerMac11,2
CPU Type: PowerPC G5 (1.0)
Number Of CPUs: 2
CPU Speed: 2 GHz
L2 Cache (per CPU): 1 MB
Memory: 2 GB
Bus Speed: 1 GHz
Boot ROM Version: 5.2.7f1
System Version: Mac OS X Server 10.4.6 (8I116)