#############################################################################
##
#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 O_8^-(q) in Charakteristik 2                    #
#                                                                           #
#############################################################################
##
#A {\sc }, 
#A 
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*                    Green Functions of O_8^-(q)  in char 2              *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);

# tafel der Werte

`2D4p2green` := array(-2..9, -1..10, [

 [`^2D4(q)`, `2D4002green`, q^12*(q-1)^3*(q+1)^3*(q^2+q+1)*(q^2+1)*(q^2-q+1)
  *(q^4+1), 9, 9, 10, 10],

 [`classes`, ` `, `u_0`, `u_1`, `u_2`, `u_3`, `u_4`, `u_5`, `u_6`, `u_7`,
  `u_8`, `u_9`],

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

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

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

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

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

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

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

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

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

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


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

NurPolynom2D4002green:=true:

# 5) Informationen:
Information.`2D4002green`:=TEXT(
`- Information about the Green functions of $O_8^-(2^n)$.`,
``,
`- CHEVIE-name of the table: ``2D4p2green```,
``,
`- The table was published in:`,
`  {\\sc G. Malle}, Green functions for groups of types E_6 and F_4 in`,
`    characteristic 2, {\\em Comm. Algebra \\bf21} (1993), 747--798.`,
``,
`- The notation for the unipotent classes is as in that paper.`,
``
):

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