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

MathGroup Archive 2007

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

Search the Archive

GraphPlot and Arrowheads

  • To: mathgroup at smc.vnet.net
  • Subject: [mg82511] GraphPlot and Arrowheads
  • From: Bruce Colletti <vze269bv at verizon.net>
  • Date: Tue, 23 Oct 2007 05:28:24 -0400 (EDT)

Re 6.0.1 under WinXP.

The code below creates three directed graphs, but the third's arrowheads are too small to see.  

How would I change arrowhead size and position it anywhere on an arc?  My attempts to do so either explode arrowhead size or position it where I don't want it.

Thankx.

Bruce

GAPtoARCS[pGAP_, n_] :=
  Flatten[MapThread[{#1, #2} &, {#, RotateLeft@#}] & /@
    Join[pGAP, {#} & /@ Complement[Range@n, Flatten@pGAP]], 1];

n = 7;
SeedRandom@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[(Rule @@ #) & /@ #, ImageSize -> 100, 
     DirectedEdges -> True, 
     VertexLabeling -> True] & /@ (GAPtoARCS[#, n] & /@ perms);

GraphicsGrid@{g}


  • Prev by Date: ReplaceAll question
  • Next by Date: Re: upgrading SurfaceColor directive in version 6
  • Previous by thread: Re: ReplaceAll question
  • Next by thread: Plot and manipulate a long list of X,Y,Z data in Mathematica 6.01