#############################################################################
##
#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 CSp_6(q),  q ungerade                           #
#                                                                           #
#############################################################################
##
#A {\sc Lambe,L., Srinivasan,B.}, A Computation of Green-Functions of some
#A Classical  Groups, Comm. Alg., {\bf 18(10)} (1990), 3507--3545
##
lprint(`**************************************************************************`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`*                    Green Functions of CSp_6(q),  (2,q) = 1             *`);
lprint(`*                                                                        *`);
lprint(`*                                                                        *`);
lprint(`**************************************************************************`);


# tafel der werte

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

 [`CSp_6(q)`,`C3003green`, q^9*(q-1)^4*(q+1)^3*(q^2+1)*(q^2+q+1)*(q^2-q+1),
   10, 10, 10, 10],

 [`classname`, [``], [`[1,1,1,1,1,1]`], [`[2,1,1,1,1]`], [`[2,2,1,1]`],
  [`[2,2,1,1]`], [`[2,2,2]`], [`[4,1,1]`], [`[3,3]`], [`[4,2]`], [`[4,2]'`],
  [`[6]`]],

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

 [[[[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]]],(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],

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

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

NurPolynomC3003green:=true:

# 5) Informationen:
Information.`C3003green`:=TEXT(
`- Information about the Green functions of $CSp_6(q)$, q odd.`,
``,
`- CHEVIE-name of the table: ``C3n2green```,
``,
`- These Green functions are computed in:`,
`  {\\sc L. Lambe, B. Srinivasan}, A computation of Green functions of some`,
`  classical  groups, {\\em Comm. Alg.} {\\bf18} (1990), 3507--3545.`,
``
):

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

