############## ####################################################### # this is example 2.8.2 in the book ###################################################################### # read in example 2.7.11 ###################################################################### Read("xgapex2s7b.gap"); ###################################################################### ###################################################################### Display( MatScalarProducts( t, r{[1..10]} ) ); y := r[3] - 1/5*r[7]; ######################################################################