#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
# Orthogonalitaet 
#############################################################################
#                                                                           #
#   Die Greenfunktionen der ^2B2(q^2), q^2 = 2^{2n+1}                       #
#                                                                           #
#############################################################################
##
#A {\sc M. Suzuki}, On a class of doubly transitive groups, {\sl
#A  Ann. of Math. \bf75} (1962), p.105--145.
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*             Green Functions of ^2B2(q^2), q^2 = 2^{2n+1}               *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);

# tafel der werte

`2B2green` := array(-2..3,-1..5,[

 [`^2B_2(q^2)`, `2B2002green`, q^4*(q^2-1)*(q^4+1), 3, 3, 4, 4], 

 [``, [], [` `], [` `], [` `], [` `]], 

 [``, 1, 1, (q-1)*(q+1)*(q^4+1), 1/2*q^2*(q-1)*(q+1)*(q^4+1),
   1/2*q^2*(q-1)*(q+1)*(q^4+1)], 

 [[`T_1`], q^4+1, q^4+1, 1, 1, 1], 
 [[`T_2`], -(q^2-1)*(q^2-r2*q+1), -(q^2-1)*(q^2-r2*q+1), -r2*q+1, 1, 1],
 [[`T_3`], -(q^2-1)*(q^2+r2*q+1), -(q^2-1)*(q^2+r2*q+1), r2*q+1, 1, 1]
]):

KlassentypOrd2B2002green:=array(1..4,[1,1,1,1]):

NurPolynom2B2002green:=true:

r2 := sqrt(2):

# 5) Informationen:
Information.`2B2002green`:=TEXT(
`- Information about the Green functions of $^2B_2(q^2)$.`,
``,
`- CHEVIE-name of the table: ``2B2green```,
``,
`- The table was first computed in:`,
`  {\\sc M. Suzuki}, On a class of doubly transitive groups, {\\em Ann. of`,
`    Math. \\bf75} (1962), 105--145.`,
``
):

g := `2B2green`;
print(`g := ``2B2green`` `);
