#############################################################################
##
#F                             CHEVIE library
##
#Y  Copyright 1992--1993,  Lehrstuhl D f"ur Mathematik,    RWTH Aachen,   and
#Y                         IWR   der   Universit"at    Heidelberg,   Germany.
##
##############################################################################
#									     #
#        Die Greenfunktionen von D_4(q) (2,q) = 1			     #
#									     #
##############################################################################
##
#A {\sc U. Porsch}, 
#A 
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*                    Green Functions of O_8^+(q),  (2,q) = 1             *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);

# tafel der Werte
 

`D4n2green` := array(-2..13,-1..13, [

 [`O_8^+(q)`, `D4003green`, q^12*(q-1)^4*(q+1)^4*(q^2+1)^2*(q^2+q+1)
  *(q^2-q+1), 13, 13, 13, 13],

 [],

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

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

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

 [[[[1],[2,1]]],-(q+1)^3*(q^2+q+1)*(q-1)^3*(q^2+1)*(q^2-q+1),
  -(q+1)^3*(q^2+q+1)*(q-1)^3*(q^2+1)*(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^4+1), (q^2+1)*(q-1)^2*(q+1)^2, 
  -(q-1)*(q+1), -(q-1)*(q+1), -(q-1)*(q+1), -(q-1)*(q+1), -(q-1)*(q+1), (q^2+1),
  1, 1],

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

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

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

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

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

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

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

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

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

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


KlassentypOrdD4003green:=array(1..13,[1,1,1,1,1,1,1,1,1,1,1,1,1]):

NurPolynomD4003green:=true:

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