Supplementary Mathematica notebook for arXiv:1305.3449