#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
# Orthogonalitaet o.k. uep 11.2.92
#############################################################################
#                                                                           #
#   Die Greenfunktionen der SO_8^+(q) 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 SO_8^+(q):2  in char 2          *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);

# tafel der Werte


`D4e2green`  := array(-2..10, -1..10, [
 [`SO_8^+(q)\\colon2`, `D4e2002green`,2*q^12*(q-1)^4*(q+1)^4*(q^2+1)^2*(q^2+q+1)*(q^2-q+1),
  10, 10, 10, 10],

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

 [`classlength`, 1, 1, (q^2+1)*(q^6-1), 1/2*q^2*(q^2+1)*(q^6-1),
  1/2*q^2*(q^2-1)*(q^6-1), q^2*(q^4-1)*(q^6-1), q^2*(q^4-1)*(q^6-1),
  q^2*(q^2-1)*(q^4-1)*(q^6-1),
  1/2*q^5*(q-1)^2*(q+1)^3*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  1/2*q^5*(q-1)^3*(q+1)^2*(q^2+q+1)*(q^2+1)*(q^2-q+1),
  q^6*(q-1)^3*(q+1)^3*(q^2+q+1)*(q^2+1)*(q^2-q+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)^3*(2*q^2+1), (q+1)^2*(4*q^2+q+1),
  (q+1)*(q^2+1)*(2*q+1), (q+1)*(3*q^2+2*q+1), (q+1)^3, 3*q^2+3*q+1, 5*q+1,
  q+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^2+1),
  -(q-1)*(q+1)*(2*q^2+q+1), (q+1)*(q^2+1), -q^3+q^2+q+1, (q+1)*(q^2+1),
  q^2+q+1, q+1, q+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)*(q+1)^2*(2*q^2+1),
  (q+1)*(3*q^2+1), -(q-1)*(q^2+1)*(2*q+1), q^3+q^2+q+1, -(q-1)*(q+1)^2,
  -q^2+q+1, 3*q+1, -q+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)^2*(q+1)*(2*q^2+1),
  -(q-1)*(3*q^2+1), -(q+1)*(q^2+1)*(2*q-1), -(q-1)*(q^2+1), (q-1)^2*(q+1),
  -q^2-q+1, q+1, -3*q+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)^2, -(q-1)*(q+1)^2,
  (q+1)*(2*q^3-q^2+1), -(q-1)*(q+1)^2, -(q-1)*(q+1)^2, -q^2+q+1, q+1, q+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)*(q^2+1),
  -(q-1)*(q+1)*(2*q^2-q+1), -(q-1)*(q^2+1), q^3+q^2-q+1, -(q-1)*(q^2+1),
  q^2-q+1, -q+1, -q+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)*(q+1)^2*(q^2-q+1),
  (q-1)^2*(q+1)^2, -(q-1)*(q+1)*(q^2+1), -(q-1)*(q+1), (q+1)*(q^2-q+1), 1,
  -q+1, q+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)^3*(2*q^2+1),
  (q-1)^2*(4*q^2-q+1), (q-1)*(q^2+1)*(2*q-1), -(q-1)*(3*q^2-2*q+1), -(q-1)^3,
  3*q^2-3*q+1, -q+1, -5*q+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)^2*(q+1), (q-1)^2*(q+1),
  (q-1)*(2*q^3+q^2-1), (q-1)^2*(q+1), (q-1)^2*(q+1), -q^2-q+1, -q+1, -q+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)*(q^2+q+1), (q-1)^2*(q+1)^2,
  -(q-1)*(q+1)*(q^2+1), -(q-1)*(q+1), -(q-1)*(q^2+q+1), 1, -q+1, q+1, 1]
]):

KlassentypOrdD4e2002green:=array(1..10,[1,1,1,1,1,1,1,1,1,1]):

NurPolynomD4e2002green:=true:

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

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