Mathematica numerical routines for the paper "On the reduction criterion for random quantum states"