(* Burkhard Luy and Steffen J. Glaser, Negative Polarization Transfer between a Spin 1/2 and a Spin 1 Chemical Physics Letters 323, 377-381 (2000). A Hamiltonian of the form H=2 pi J (I1xI2x + I1yI2y + I1zI2z) is assumed. Only the polarization transfer functions starting from the I-spin are given (spin 1/2). Results are not normalized. Please cite the above mentioned reference whenever you use this program for scientific work. *) j12=10 trans11=(11/27)+(16/27)*Cos[Pi*3*j12*tau] trans12=(2/9)-(2/9)*Cos[Pi*3*j12*tau] Plot[trans11, {tau,0,1}] Plot[trans12, {tau,0,1}]