Re: plotting weighted graphs
- To: mathgroup at smc.vnet.net
- Subject: [mg55373] Re: plotting weighted graphs
- From: yehuda ben-shimol <bsyehuda at gmail.com>
- Date: Sun, 20 Mar 2005 04:12:18 -0500 (EST)
- References: <200503181035.FAA14751@smc.vnet.net>
- Reply-to: yehuda ben-shimol <bsyehuda at gmail.com>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Mark,
I fully agree with David's remark but I will still try to help
First I recommend to use the Combinatorica package for that purpose.
Start with
<<DiscreteMath`Combinatorica`
now assume that you have the following adjacency matrix
a = {{Infinity, 1, 2}, {3, Infinity, Infinity}, {4, 2, Infinity}}
which represents a directed and weighted graph
convert it to a graph and copy the edge weights to the edge labels as
the following
g = SetEdgeLabels[g = FromAdjacencyMatrix[a, EdgeWeight, Type -> Directed],
GetEdgeWeights[g]];
and now polt it with ShowGraph
ShowGraph[g,EdgeLabel->True]
yehuda
On Fri, 18 Mar 2005 05:35:01 -0500 (EST), Erik Itter
<erik.itter at t-online.de> wrote:
> Hi, I have a hopefully quite easy question:
> how do you plot graphs with weighted edges?
>
> I have the matrix specified by its adjadcency matrix using different numbers
> as weights, works so
> far. Now I would like to plot the matrix numbering the vertices from 1 to n
> and label the edges with
> their weights. Its 5.1 therefore I think I could use GraphPlot (which draws
> the graph with no
> labeling at all at the moment [but colors depending on weights]) if I knew
> the proper
> EdgeStyleFunction and VertexStyleFunction.
>
>
>
> All suggestions welcome.
>
>
- References:
- plotting weighted graphs
- From: "Erik Itter" <erik.itter@t-online.de>
- plotting weighted graphs