Identifier
Identifier
Values
['A',1] generating graphics... => 1
['A',2] generating graphics... => 1
['B',2] generating graphics... => 1
['G',2] generating graphics... => 1
['A',3] generating graphics... => 1
['B',3] generating graphics... => 1
['C',3] generating graphics... => 1
['A',4] generating graphics... => 2
['B',4] generating graphics... => 5
['C',4] generating graphics... => 5
['D',4] generating graphics... => 4
['F',4] generating graphics... => 12
['A',5] generating graphics... => 4
click to show generating function       
Description
The largest coefficient in a Kazhdan Lusztig polynomial of the Weyl group of given type.
Code
def statistic(C):
    W = CoxeterGroup(C, implementation='coxeter3')
    r = set([])
    for u in W:
        U = (W(v) for v in W.bruhat_interval(u, W.long_element()))
        next(U)
        for v in U:
            p = W.kazhdan_lusztig_polynomial(u, v)
            c = set(p.coefficients())
            r = r.union(c)
    return max(r)

Created
Apr 19, 2018 at 00:00 by Martin Rubey
Updated
Apr 19, 2018 at 09:07 by Martin Rubey