In[]:=
CompoundExpression[
]
​​deploy
Wed 27 Mar 2024 10:59:43
Computing diagrams needed to obtain moments of Gaussian matrix products.
​
For background see River Li’s explanation for
ETr(AA
T
A
T
A
)
3
n
+2n
​
​

Code


Form

In[]:=
DynamicModule[{n=2,result=""},​​Column["Diagrams for Tr​
k
A
​A
k
)
​ where k=",​​InputField[Dynamic[n],Number],​​Button["Diagrams!",deleteAfterSeparator;doDiagrams[n]]​​],SaveDefinitions->True​​]​​
Out[]=
Diagrams for Tr​
k
A
​A
k
)
​ where k=
​
Diagrams!
Unique entries: 1
Unique entries: 2
Unique entries: 3