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}