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
|