Re: 64-bit GraphPlot problem
- To: mathgroup at smc.vnet.net
- Subject: [mg65573] Re: [mg65547] 64-bit GraphPlot problem
- From: spiraltooth <spiraltooth at optonline.net>
- Date: Sat, 8 Apr 2006 00:45:16 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I don't know if this helps but I think you may have error messages turned
off. Mathematica doesn't like negative numbers (-10000) for the radius of
the disk {-10000,0}. Also when an elliptical disk has a minor radius of 0
the result should be a line. The end result of the following (that I get in
Mathematica - my OS is XP) is a black rectangle:
<< "DiscreteMath`GraphPlot`"
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}] & )];
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.34217+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}]
Best regards,
Alan
-----Original Message-----
From: János [mailto:janos.lobb at yale.edu]
To: mathgroup at smc.vnet.net
Subject: [mg65573] [mg65547] 64-bit GraphPlot problem
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
machine or others can see also just a line.
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)
Thanks ahead,
János
P.S. Wolfram Support sent me another GraphPlot.m, but the result is
the same. /Above was done with new GraphPlot.m/. The machine is a
Dual Core PowerPc G5. GraphPlot used to work perfectly on my earlier
machine, a 1.25Ghz G4 with 32-bit Mathematica 5.1.