[Q] Problem with combinatorica
- To: mathgroup@smc.vnet.net
- Subject: [mg10985] [Q] Problem with combinatorica
- From: Konopnicki David <konop@cs.technion.ac.il>
- Date: Mon, 16 Feb 1998 03:39:53 -0500
- Organization: Technion, Israel Institute of Technology
Hi,
I want to create random strongly connected directed graphs. So I defined
the following function:
CG[n_,p_] :=
While[True,
g := RandomGraph[n,p,Directed];
If[ConnectedQ[g,Directed], g; Break[]] ]
And to get the list of the edges in the graph I do: ToOrderedPairs[g]
However, it doesn't work and I don't know why. Thank you for your help.
-David
-------------------------------------------------------------------------
David Konopnicki - konop@cs.technion.ac.il
-------------------------------------------------------------------------