Algoritmos de núcleo

Encuentre cumulantes multivariados a partir de momentos 

In[1]:=

X Cumulant[{2, 2, 1}] == MomentConvert[Cumulant[{2, 2, 1}], Moment] /. Power[e_Moment, r_.] :> Framed[e^r, FrameStyle -> None, RoundingRadius -> 100, Background -> ColorData[45][r*Total[{First[e]}, Infinity]]] // TraditionalForm

Out[1]//TraditionalForm=