*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 -------------------------------------------------------------------------