############################################################################
#
# this is the code of exercise 1.6.4
#
###########################################################################
cond := function( H, n , g, q )
 local condmat, orbs;
 orbs := Orbits( H , [1..n] );
 condmat := List( orbs, Oi -> List( orbs, Oj -> 1/(Size(Oi)*Z(q)^0) *
                 Size( Intersection( List(Oi, x -> x^g), Oj) ) ) );
 return condmat;
end;