#Ok to post homework
#Salman Manzoor 03-02-2025, Assignment 11

read `C11.txt`:
with(combinat):

IndNu:=proc(G) local r:
r:=1:
while (MinMaxNNpablo(G,r)=0) do
	r++:
od:
r-1:
end:

# seq(IndNu(Gnd(n, 2)), n = 3 .. 15) gave 1,1,1,2,2,2,3,3,3,4,4,4,5

UpperBoundMinMaxNN:=proc(G,r,K) local i,lb:
lb:=infinity:
for i from 1 to K do
	 lb:=min(lb,MaxNN(G,randcomb(G[1],r))):
od:
lb:
end:

#UpperBoundMinMaxNN(Ck(8), 129, 5000) gave 6


#old stuff
#Gnd(n,d): the graph whose vertices are {0,...,n-1} and edges {i, i+j mod n} j=1..d
Gnd:=proc(n,d) local i,j,E:
E:={ seq(seq({ i,i+j mod n},j=1..d),i=0..n-1)}:

[n,subs({seq(i=i+1,i=0..n-1)},E)]:
end: