#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
# 
#############################################################################
#                                                                           #
#   Die Greenfunktionen der GL_6(q):2 in Charakteristik 2                   #
#                                                                           #
#############################################################################
##
#A {\sc G. Malle}, Generalized Deligne-Lusztig characters, to appear in J. Algebra
#A 
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*               Outer Green Functions of GL_6(q):2  in char 2            *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);

# tafel der Werte

`GL6e2green` := array(-2..10, -1..11,[

 [`GL_6(q)\\colon2`, `A5e2002green`, q^15*(q-1)^6*(q+1)^3*(q^2+q+1)^2*(q^2+1)*
  (q^2-q+1)*(q^4+q^3+q^2+q+1),10,10,11,11],

 [`classes`, ` `, `u_1`, `u_2`, `u_3`, `u_4`, `u_5`, `u_6`, `u_7`, `u_8`,
  `u_9`, `u_{10}`, `u_{11}` ],

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

 [[[1,1,1],[]], (q+1)^3*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  (q+1)^3*(q^2+q+1)*(q^2+1)*(q^2-q+1),(q+1)^2*(q^2+q+1)*(q^2+1),
  (q+1)*(5*q^3+4*q^2+2*q+1),(q+1)^2*(q^2+q+1),(q+1)*(3*q^2+2*q+1),
  (q+1)*(3*q+1),(q+1)*(2*q+1),4*q+1,2*q+1,1,1],

 [[[2,1],[]], -(q-1)*(q+1)^2*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  -(q-1)*(q+1)^2*(q^2+q+1)*(q^2+1)*(q^2-q+1),-(q-1)*(q+1)*(q^2+q+1)*(q^2+1),
  (q+1)*(-q^3+2*q^2+1),-(q-1)*(q+1)*(q^2+q+1),-q^3+q^2+q+1,(q+1)^2,
  (q+1),2*q+1,1,1,1],
 
 [[[1,1],[1]], -(q-1)*(q+1)^2*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  -(q-1)*(q+1)^2*(q^2+q+1)*(q^2+1)*(q^2-q+1),(q+1)^2*(q^2+1)*(q^2-q+1),
  -(q-1)*(3*q^3+2*q^2+2*q+1),(q+1)*(q^3+2*q^2+1),(q+1)*(q^2+1),
  -(q-1)*(q+1),2*q^2+q+1,1,2*q+1,1,1],
 
 [[[2],[1]], (q-1)^2*(q+1)*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  (q-1)^2*(q+1)*(q^2+q+1)*(q^2+1)*(q^2-q+1),(q-1)^2*(q^2+q+1)*(q^2+1),
  (q-1)*(q^3-2*q^2-1),-(q+1)*(3*q^3-2*q^2+2*q-1),-(q-1)*(q^2+1),
  -(q-1)*(q+1),2*q^2-q+1,1,-2*q+1,1,1],
 
 [[[1],[2]], (q-1)^2*(q+1)^3*(q^2+q+1)*(q^2-q+1),
  (q-1)^2*(q+1)^3*(q^2+q+1)*(q^2-q+1),-(q-1)*(q+1)^3*(q^2-q+1),
  (q-1)*(q+1)*(q^2-q-1),(q+1)^2*(q^2-q+1),-(q-1)*(q+1)^2,-(q-1)*(q+1),(q+1),1,
  2*q+1,1,1],
 
 [[[1],[1,1]],(q-1)^2*(q+1)*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  (q-1)^2*(q+1)*(q^2+q+1)*(q^2+1)*(q^2-q+1),-(q-1)*(q+1)*(q^2+1)*(q^2-q+1),
  -(q-1)*(q+1)*(q^2-q+1),-(q-1)*(q^3+2*q^2+1),q^3+q^2-q+1,(q-1)^2,
  -(q-1),-2*q+1,1,1,1],
 
 [[[3],[]],(q-1)^2*(q+1)^3*(q^2+1)*(q^2-q+1),(q-1)^2*(q+1)^3*(q^2+1)*(q^2-q+1),
  (q-1)^2*(q+1)^2*(q^2+1),-(q-1)*(q+1)*(q^2+1),(q-1)^2*(q+1)^2,-(q-1)*(q+1),
  (q+1),-(q-1)*(q+1),(q+1),-(q-1),1,1],
 
 [[[],[1,1,1]],-(q-1)^3*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  -(q-1)^3*(q^2+q+1)*(q^2+1)*(q^2-q+1),(q-1)^2*(q^2+1)*(q^2-q+1),
  (q-1)^2*(q^2-q+1),(q-1)*(5*q^3-4*q^2+2*q-1),-(q-1)*(3*q^2-2*q+1),
  (q-1)*(3*q-1),(q-1)*(2*q-1),-4*q+1,-2*q+1,1,1],
 
 [[[],[2,1]],-(q-1)**3*(q+1)^2*(q^2+q+1)*(q^2-q+1),
  -(q-1)^3*(q+1)^2*(q^2+q+1)*(q^2-q+1),-(q-1)^3*(q+1)*(q^2+q+1),
  (q-1)^2*(q^2+q+1),(q-1)*(q+1)*(q^2+q-1),(q-1)^2*(q+1),-(q-1)*(q+1),-(q-1),1,
  -2*q+1,1,1],
 
 [[[],[3]],-(q-1)^3*(q+1)^2*(q^2+q+1)*(q^2+1),
  -(q-1)^3*(q+1)^2*(q^2+q+1)*(q^2+1),(q-1)^2*(q+1)^2*(q^2+1),(q-1)^2*(q+1)^2,
  -(q-1)*(q+1)*(q^2+1),-(q-1)*(q+1),-(q-1),-(q-1)*(q+1),-(q-1),(q+1),1,1]
 ]):

KlassentypOrdA5e2002green:=array(1..11,[1,1,1,1,1,1,1,1,1,1,1]):

NurPolynomA5e2002green:=true:

# 5) Informationen:
Information.`A5e2002green`:=TEXT(
`- Information about the Green functions of $GL_6(2^n):2$.`,
``,
`- CHEVIE-name of the table: ``GL6e2green```,
``,
`- The table was first computed in:`,
`  {\\sc G. Malle}, Generalized Deligne-Lusztig characters,`,
`    {\\em J. Algebra \\bf159} (1993), 64--97.`,
``
):

g := `GL6e2green`;
print(`g := ``GL6e2green`` `);

