Added in mathematica the dephasing spin chain