#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: