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)*Reply-to*: hanlonr at cox.net*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]; ShowLabeledGraph[g=FromAdjacencyMatrix[am]]; Position[#,1]&/@ToAdjacencyMatrix[g] {{{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!!! > > I appreciate your help. > > regards, > > chekad > >