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}