rootCoefficients(R,p)
i1 : R=rootSystemE(6) o1 = RootSystem{...8...} o1 : RootSystem
i2 : rootCoefficients(R,halfSumOfRoots(R)) o2 = | 8 | | 11 | | 15 | | 21 | | 15 | | 8 | 6 o2 : QQ