“…R := rand(0..d); # generate random exponents on [0,d] f := 0; while numterms(f) < t do s := t-numterms(f); g := add( C()*getmon(R,X,D), i=1..s ); f := f + g; end do; return f; end: gcddegs := [ [5,10,15], [4,8,12,16], [4,7,10,13,16], [3,6,9,11,14,17]]; cofdegs := [ [15,10,5], [16,12,8,4], [16,13,10,7,4], [17,14,11,9,6,3] [5,10,15], [4,8,12,16], [4,7,10,13,16], [3,6,…”