MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.




  • Prev by Date: Re: 64-bit GraphPlot problem
  • Next by Date: Net/Link: TimeContrained call to DLL
  • Previous by thread: Re: 64-bit GraphPlot problem
  • Next by thread: conditions of fit parameters