[Date Index] [Thread Index] [Author Index]

[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

-------------------------------------------------------------------------