Additional examples for MultinomialexpectationvalueHaar

SetDirectory[NotebookDirectory[]];
<<RTNI`

allexamples[j_,d_]:= (* assumes j to be even, produces all monomials of degree j*)
Module[{epslist,retvalue,k},
epslist=Tuples[{1,2,3,4},j];
retvalue=Table[{Producemultinomialexpression[epslist[[k]]],MultinomialexpectationvalueHaar[d,epslist[[k]],Table[(Subscript[X, k]),{k,1,j}],False]},{k,1,Length[epslist]}];
Return[retvalue];
];

TableForm[allexamples[2,d]]
TableForm[allexamples[4,d]]