Instead of writing all this out I want to do the same thing with a loop and be able to manipulate n and k. The idea is to create a randomly generated network where n is the number of nodes and k is the number of connections between each node. I've gotten close using While
and Table
but haven't quite figured out how to make it work. Any suggestions?
Manipulate[
GraphPlot3D[{1 -> RandomInteger[{1, n}],
1 -> RandomInteger[{1, n}], 1 -> RandomInteger[{1, n}],
1 -> RandomInteger[{1, n}], 1 -> RandomInteger[{1, n}],
1 -> RandomInteger[{1, n}], 1 -> RandomInteger[{1, n}],
1 -> RandomInteger[{1, n}], 1 -> RandomInteger[{1, n}],
2 -> RandomInteger[{1, n}], 2 -> RandomInteger[{1, n}],
2 -> RandomInteger[{1, n}], 2 -> RandomInteger[{1, n}],
2 -> RandomInteger[{1, n}], 2 -> RandomInteger[{1, n}],
2 -> RandomInteger[{1, n}], 2 -> RandomInteger[{1, n}],
3 -> RandomInteger[{1, n}], 3 -> RandomInteger[{1, n}],
3 -> RandomInteger[{1, n}], 3 -> RandomInteger[{1, n}],
3 -> RandomInteger[{1, n}], 3 -> RandomInteger[{1, n}],
3 -> RandomInteger[{1, n}], 3 -> RandomInteger[{1, n}],
4 -> RandomInteger[{1, n}], 4 -> RandomInteger[{1, n}],
4 -> RandomInteger[{1, n}], 4 -> RandomInteger[{1, n}],
4 -> RandomInteger[{1, n}], 4 -> RandomInteger[{1, n}],
4 -> RandomInteger[{1, n}], 4 -> RandomInteger[{1, n}],
5 -> RandomInteger[{1, n}], 5 -> RandomInteger[{1, n}],
5 -> RandomInteger[{1, n}], 5 -> RandomInteger[{1, n}],
5 -> RandomInteger[{1, n}], 5 -> RandomInteger[{1, n}],
5 -> RandomInteger[{1, n}], 5 -> RandomInteger[{1, n}],
6 -> RandomInteger[{1, n}], 6 -> RandomInteger[{1, n}],
6 -> RandomInteger[{1, n}], 6 -> RandomInteger[{1, n}],
6 -> RandomInteger[{1, n}], 6 -> RandomInteger[{1, n}],
6 -> RandomInteger[{1, n}], 6 -> RandomInteger[{1, n}],
7 -> RandomInteger[{1, n}], 7 -> RandomInteger[{1, n}],
7 -> RandomInteger[{1, n}], 7 -> RandomInteger[{1, n}],
7 -> RandomInteger[{1, n}], 7 -> RandomInteger[{1, n}],
7 -> RandomInteger[{1, n}], 7 -> RandomInteger[{1, n}],
7 -> RandomInteger[{1, n}],
8 -> RandomInteger[{1, n}], 8 -> RandomInteger[{1, n}],
8 -> RandomInteger[{1, n}], 8 -> RandomInteger[{1, n}],
8 -> RandomInteger[{1, n}], 8 -> RandomInteger[{1, n}],
8 -> RandomInteger[{1, n}], 8 -> RandomInteger[{1, n}]
},
VertexRenderingFunction -> ({White, EdgeForm[Black], Sphere[#, .1],
Black, Text[#2, #1]} &), Boxed -> False], {n, 1, 8, 1}, {k, 1, 8, 1}]
GraphPlot3D@RandomGraph[{n,k}]
. "Random network" is not meaningful by itself. There are many random graph models, and they lead to different distributions. What you wrote does not generate all labelled graphs withn
vertices andk
edges with equal probability. $\endgroup$RandomGraph[{n,k}]
ensures uniform distribution. $\endgroup$