added mathematica script for the P-vector calculation for COMPASS data of the pi1(1600) parametrization