#Please do not post homework
#Ravali Bommanaboina 11/22/20, Assignment 21

#Question 1
#AllConGraphsK(50, 70);
#6789340287637489093847654839024985789308523458235485728754528459230523108410353817485785913258343156471350136541775
#Question 2
#287637489093847654839024985789308523458235485728754528459230523108410353817485785913258343156471350136541775
#Question 3
# I got 84 for EstimateCutOff(30,1000) and FindCutOff(30,1.05).
#Question 5
EstProbConn:=proc(n,m,k,N) local S,s,C:
S:=AllGraphs(n):
C:={}:

for s in S do
 if nops(CCs(s))=K then
  C:=C union {s}:
 fi:
od:

C:
end:

NuKcomponentsGraphs:=proc(n,K) local i,C:
C:=[]:

for i from 1 to n do
  C:=[op(C),nops(AllKComponentsGraphs(i,K))]:
od:

C:
end:
#Question 6
ProbKcomponenets:=proc(n,m,k) local S,s,C:
S:=AllGraphs(n):
C:={}:

for s in S do
 if nops(CCs(s))=K then
  C:=C union {s}:
 fi:
od:

C:
end:

NuKcomponentsGraphs:=proc(n,K) local i,C:
C:=[]:

for i from 1 to n do
  C:=[op(C),nops(AllKComponentsGraphs(i,K))]:
od:

C:
end: