Mathematica library for quantum dynamical system