#please do not post homework
Kenneth Chan
Math 454
HW 18

1.
NuConG:=proc(N,K) local N1:
[seq( nops(AllKcomponentsGraphs(N1,K)),N1=1..N)]:
end:

2.
AveNuCC:=proc(n,K,M) local g, G, i:
g:={}
for i from 1 to M do
G:=seq(RandGr(n,K),n=1..n)
od:

Seq(CCs(G), g in G
end:

3.
EstimateCutOff:= proc(n,M)
seq(NuConG(n),n=1..n)