MathGroup Archive 2006

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

Search the Archive

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  
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: another problem with Infinite Products
  • Next by Date: Re: ListDensityPlot and GraphicsArray
  • Previous by thread: Re: FindMinimum during NMimimize
  • Next by thread: Re: 64-bit GraphPlot problem