Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

GraphicsGrid

  • To: mathgroup at smc.vnet.net
  • Subject: [mg82352] GraphicsGrid
  • From: Bruce Colletti <vze269bv at verizon.net>
  • Date: Thu, 18 Oct 2007 04:53:36 -0400 (EDT)

Re 6.0.1 under WinXP.

In the skeletal code below (actual code follows thereafter), the two GraphicsGrid commands produce the desired output.  However, the second command also produces the error messages shown.

Why do these messages appear?  Thanks.

Bruce

X = an integer matrix;
g = GraphPlot[ ...];
GraphicsGrid[{{X, X, X}, g}]

T = X;
T[[1, 2]] = Item[T[[1, 2]], Background -> Red];
GraphicsGrid[{{T, T, T}, g}]

Thread::tdlen: Objects of unequal length in \
{{1,1,1,2},{1,2,1,2},{1,3,1,2}}->{} cannot be combined. >>

Part::partw: Part 2 of Graphics`GraphicsGridDump`CleanseRule[<<1>>] \
does not exist. >>

Set::pspec: Part specification {{1,1,1,2},{1,2,1,2},{1,3,1,2}} is \
neither an integer nor a list of integers. >>

*****  ACTUAL CODE  *****

n = 7;
X = RandomInteger[{1, 9}, {n, n}];
perms = {{{1, 2, 3}, {5, 6}}, {{2, 5, 1, 4, 3, 7, 6}}, {Range@4, 
    Range[5, n]}};

g = GraphPlot[convert[#, n], ImageSize -> 100, DirectedEdges -> True, VertexLabeling -> True] & /@ perms;

GraphicsGrid[{{X, X, X}, g}]

T = X;
T[[1, 2]] = 
 Item[T[[1, 2]], Background -> Red]; 

GraphicsGrid[{{T, T, T}, g}]


  • Prev by Date: Re: Finds strings in a list that begin with "A"
  • Next by Date: Transparency & EPS
  • Previous by thread: Re: ToExpression again
  • Next by thread: Re: GraphicsGrid