Re: Convert directed graph to undirected graph
- To: mathgroup at smc.vnet.net
- Subject: [mg111181] Re: Convert directed graph to undirected graph
- From: juan flores <juanfie at gmail.com>
- Date: Fri, 23 Jul 2010 07:09:23 -0400 (EDT)
- References: <i293nk$m3i$1@smc.vnet.net>
Dear Jon,
A plot is not a graph. You may use the following:
Needs["Combinatorica`"];
Needs["GraphUtilities`"];
gr1 =
ToCombinatoricaGraph[{1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2, 4 -> 1, 4 -> 2,
4 -> 4}]
ShowGraph[gr1]
gr1u = MakeUndirected[gr1]
ShowGraph[gr1u]
Regards,
Juan
On Jul 22, 4:41 am, Bob Hanlon <hanl... at cox.net> wrote:
> gr1 = GraphPlot[{
> 1 -> 2, 2 -> 1, 3 -> 1, 3 -> 2,
> 4 -> 1, 4 -> 2, 4 -> 4},
> DirectedEdges -> True]
>
> gr2 = gr1 /. Arrow -> Line
>
> Bob Hanlon
>
> ---- Jon Harrop <use... at ffconsultancy.com> wrote:
>
> =============
> What is the recommended way of doing this in Mathematica?
>
> --
> Dr Jon Harrop, Flying Frog Consultancy Ltd.http://www.ffconsultancy.com