Re: tab-delimited file to graph

*To*: mathgroup at smc.vnet.net*Subject*: [mg69460] Re: tab-delimited file to graph*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Wed, 13 Sep 2006 04:02:04 -0400 (EDT)*Organization*: Uni Leipzig*References*: <ee64q5$7s4$1@smc.vnet.net>

Hi, load the package: << DiscreteMath`Combinatorica` and read the table form of your graph: gr = Rule @@@ ImportString["v1 v2\n v2 v3\n v3 v1\n v1 v4", "Table"]; Make a list of ordered pairs slst = Union[Cases[gr, _String, Infinity]]; gr = gr /. Thread[slst -> Table[i, {i, Length[slst]}]]; and the graph FromOrderedPairs[{1 -> 2, 2 -> 3, 3 -> 1, 1 -> 4}] Regards Jens <aitor69gonzalez at gmail.com> schrieb im Newsbeitrag news:ee64q5$7s4$1 at smc.vnet.net... | Hello, | | I have a directed graph "mygraph" in a tab delimited file that looks | like this: | v1 v2 | v2 v3 | v3 v1 | v1 v4 | I would like to import this graph into mathematica, so that I can take | advantage of the -DiscreteMath`Combinatorica`- functions. So far, I was | only able to import it with Import["mygraph","TSV"] into a list of | two-item lists. Now, I am stuck there. Can somebody help me to convert | this list of two-item lists into a matrix or adjacency list of a | directed graph? | | Thank you in advance, | | Aitor |