Services & ResourcesWolfram ForumsMathGroup Archive

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

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>