Re: How to plot weighted edges on this graph?
- To: mathgroup at smc.vnet.net
- Subject: [mg120905] Re: How to plot weighted edges on this graph?
- From: Heike Gramberg <heike.gramberg at gmail.com>
- Date: Sun, 14 Aug 2011 20:20:08 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201108131049.GAA25536@smc.vnet.net> <201108141215.IAA03464@smc.vnet.net>
You could try playing around with the option EdgeRenderingFunction, for example
mat = {{0, 10., 0.1143}, {0.00001, 0, 10.}, {0.0899, 0.00001, 0}};
GraphPlot[Unitize[mat], VertexLabeling -> True,
MultiedgeStyle -> True,
EdgeRenderingFunction ->
Function[{points, vertices, labels},
{Thickness[0.006 Extract[mat, vertices]^0.2], Arrow[points, 0.05]}]]
Heike.
On 14 Aug 2011, at 14:15, Chrisantha Fernando wrote:
> Please could someone tell me how to plot weighted edges on this graph?
>
> Many thanks,
> Chrisantha
>
> GraphPlot[{{0, 10, 0.114338`}, {0.00001`, 0, 10}, {0.0899503`, 0.00001`, 0}},
> VertexLabeling -> True, DirectedEdges -> True]=
>
- References:
- Re: Just another Mathematica "Gotcha"
- From: Daniel Lichtblau <danl@wolfram.com>
- How to plot weighted edges on this graph?
- From: Chrisantha Fernando <C.T.Fernando@sussex.ac.uk>
- Re: Just another Mathematica "Gotcha"