Changed position of mathematica routines to determine the quantum channel from the black box operation of it