Re: label graph vertices

• To: mathgroup at smc.vnet.net
• Subject: [mg74825] Re: label graph vertices
• From: "Dana DeLouis" <dana.del at gmail.com>
• Date: Fri, 6 Apr 2007 04:27:23 -0400 (EDT)

```> ..everything is done using an adjacency matrix composed of (0,1)'s

If you are working with an AdjacencyMatrix, here's an additional idea using
Combinatorica.

Needs["DiscreteMath`Combinatorica`"]

am = {{0, 0, 1, 0, 0, 1, 1},
{0, 0, 0, 0, 1, 1, 1},
{1, 0, 0, 1, 1, 1, 1},
{0, 0, 1, 0, 1, 0, 1},
{0, 1, 1, 1, 0, 1, 0},
{1, 1, 1, 0, 1, 0, 0},
{1, 1, 1, 1, 0, 0, 0}};

MatrixForm[am]

(* Your Labels here as a list *)
Lbls = CharacterRange["A", "G"];

ShowGraph[g];

--
HTH   :>)
Dana DeLouis
Windows XP & Mathematica 5.2

<alexxx.magni at gmail.com> wrote in message news:ett7ks\$id6\$1 at smc.vnet.net...
> greetings,
> after having used for some time a very powerful program (Graphviz) for
> displaying the graph structures I'm working on, I decided to give it a
> try under Mathematica, since I use M. for many other related tasks.
>
> I started from DiscreteMath`GraphPlot`, but from what I can see
> everything is done using an adjacency matrix composed of (0,1)'s,
> right?
> That is, my problem is that I need to LABEL the vertices with a name,
>>From
>>onGraphPlot
> I thought for a moment it was possible (e.g. see graph under
> "MaximalBipartiteMatching" with Tom,Rob,Adam etc), but I then realized
> it was demonstration-only, and no code is present to do it
>
> am I right, or there is a way?
>
> thanks for any help...
>
> Alessandro Magni

```

• Prev by Date: Re: Enquirey
• Next by Date: Re: Probability Density Function
• Previous by thread: Re: label graph vertices
• Next by thread: Re: label graph vertices