Re: A very EZ Question! Make a Graph!

• To: mathgroup at smc.vnet.net
• Subject: [mg60283] Re: [mg60262] A very EZ Question! Make a Graph!
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Sat, 10 Sep 2005 06:46:35 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Needs["DiscreteMath`Combinatorica`"];

e={{1,2},{2,3},{4,5},{1,4},{2,5}};

am=Table[0,{5},{5}];

ReleaseHold[HoldForm[
am[[Sequence@@#]]=
am[[Sequence@@Reverse[#]]]=1]&/@e];

{{{2}, {4}}, {{1}, {3}, {5}}, {{2}}, {{1}, {5}}, {{2}, {4}}}

Bob Hanlon

>
> From: "mumat" <csarami at gmail.com>
To: mathgroup at smc.vnet.net
> Date: 2005/09/09 Fri AM 04:07:01 EDT
> Subject: [mg60283] [mg60262] A very EZ Question! Make a Graph!
>
> Hi Everybody,
>
> I need to make a graph given the vertices and edges.
>
> let's say:
>
> Vertex set: V=Range[5]={1,2,3,4,5}
> Edge Set:   E={{1,2},{2,3},{4,5},{1,4},{2,5}};
>
> Also, Is there any funtion that Lists the vertices adjacent to a given
> vertex! I mean using the Combinatorica package in Mathematica!
>
>
> I know it might sound stupid, but I could find a solution to this in
> Mathematica Manual!!!
>