#OK to post homework
#Ariana Yousafzai, 11/15/2020, Assignment 18
1. #NuKcomponentsGraphs(N,K): that inputs a positive integer N and another positive integer K and outputs the first N terms of the sequence enumerating the number of labeled graphs on n vertices with Exactly K componets.
NuConG:=proc(N) local n1:
[seq( nops(AllConGraphs(n1)),n1=1..N)]:
End:
2. #AveNuCC(n,K,M): generates M random graphs on n vertices with K edges, and for each of them finds the number of components and take the average over these M random graphs 
AveNuCC(n,K,M):=proc(n,K,M) local i:
if not (K>=0 and K<=binomial(n,2)) then
 print(K, `must be between 0 and `, binomila(n,2)):
 RETURN(FAIL):
fi:


CF(randcomb(choose({seq(i,i=1..n)},2),K),n):
end:
3.  ‘