#include #include #include ;"d10=0.44*d8" ;"d11=0.56*d8" "d10=0.3*d8" "d11=0.5*d8" "d12=0.2*d8" "acqt0=-p1*2/3.1416" 1 ze 2 50u BLKGRAD d1 ; SELECTIVE EXCITATION 3 5u pl1:f1 p1 ph2 d16 p16:gp1 d16 p8:sp1:f1 ph1 d16 p16:gp1 d16 d16 p16:gp2 d16 p8:sp1:f1 ph2 d16 p16:gp2 d16 pl1:f1 ; END EXCITATION p1 ph2 5u pl0:f1 ; ZQF FILTER ;; 50u UNBLKGRAD ;; 300u gron0 ;; p11:sp2:f1 ph2 ;; d6 gron5 ;; 100u groff ;; 5u pl10:f1 ; END ZQF FILTER ; NOE TRANSFER TIME ; d8 ; NULLING PULSES d10 p16:gp3 p3:sp3:f1 ph2 p16:gp4 d11 p16:gp6 p3:sp3:f1 ph2 p16:gp7 d12 ; END NULLING PULSES ; 2nd ZQF FILTER 50u UNBLKGRAD 5u pl0:f1 300u gron0 p12:sp2:f1 ph2 d6 gron15 100u groff ; END ZQF FILTER ; 5u pl1:f1 p1 ph2 go=2 ph31 50u BLKGRAD wr #0 exit ph1=0 1 2 3 ph2=0 ph31=0 2 0 2 ; ph23=3 ph25=1 ;pl0 : zero power (120 dB) ;pl1 : zero power (120 dB) ;pl10: DIPSI-2 power ;p1 : 90 degree high power pulse ;p6 : 90 degree low power pulse ;p11 : duration of first sweep ;p12 : duration of second sweep ;d0 : incremented delay ;d1 : relaxation delay ;d6 : duration of homospoil ;d7 : recovery delay ;d9 : TOCSY mixing time ;d15 : actual TOCSY mixing time ;d16 : time between 2nd and 3rd 90's ;sp1 : strength for first sweep ;sp2 : strength for second sweep ;gpz0: gradient strength for ZQ suppression ;gpz5: gradient strength for homospoil ;l1 : loop for DIPSI cycle ;in0 : 1/(2 * SW) = DW ;nd0 : 2 ;NS : 2 * n ;DS : 8 ;td1 : number of t1 increments ;MC2 : TPPI