User:Wakebrdkid/Graph (mathematics)

Article

Tests

BeginPackage["Wikicode`Graph`Mathematics`"]

PermuteGraph::usage = "PermuteGraph[graph,n] returns a list of n \
random permutations of the given graph."

Begin["`Private`"]

PermuteGraph[g_, n_] := 
 Table[AdjacencyMatrix@
   Graph[RandomSample[VertexList@g], EdgeList@g], {n}]

End[]
EndPackage[]

References

• "Little pieces of code for graph and networks theory". Wolfram Community. 14 August 2013. Retrieved 15 August 2013.