;HSQC-TOCSY-IP #include #include #include "p2=p1*2" "p4=p3*2" "d0=3u" "d4=1s/(cnst2*4)" "d11=30m" "d13=4u" "DELTA=p16+d16+p2+d0*2" "DELTA1=d4-p16-d13-p3" "FACTOR1=(d9/(p6*115.112))/2+0.5" "l1=FACTOR1*2" 1 ze 10u UNBLKGRAD d11 pl12:f2 2 d1 BLKGRAD 3 (p1 ph1) d4 pl2:f2 (p2 ph1) (p4 ph6):f2 d4 UNBLKGRAD p28 ph1 d13 (p1 ph2) (p3 ph3):f2 d0 p2 ph5 d0 p16:gp1 d16 (p4 ph4):f2 DELTA (p1 ph1) (p3 ph4):f2 d4 (p2 ph1) (p4 ph1):f2 d13 p16:gp2 DELTA1 (p1 ph10) (p3 ph8):f2 10u pl0:f1 300u gron0 p11:sp1:f1 ph1 100u groff d16 10u pl10:f1 ;begin DIPSI2 4 p6*3.556 ph23 p6*4.556 ph25 p6*3.222 ph23 p6*3.167 ph25 p6*0.333 ph23 p6*2.722 ph25 p6*4.167 ph23 p6*2.944 ph25 p6*4.111 ph23 p6*3.556 ph25 p6*4.556 ph23 p6*3.222 ph25 p6*3.167 ph23 p6*0.333 ph25 p6*2.722 ph23 p6*4.167 ph25 p6*2.944 ph23 p6*4.111 ph25 p6*3.556 ph25 p6*4.556 ph23 p6*3.222 ph25 p6*3.167 ph23 p6*0.333 ph25 p6*2.722 ph23 p6*4.167 ph25 p6*2.944 ph23 p6*4.111 ph25 p6*3.556 ph23 p6*4.556 ph25 p6*3.222 ph23 p6*3.167 ph25 p6*0.333 ph23 p6*2.722 ph25 p6*4.167 ph23 p6*2.944 ph25 p6*4.111 ph23 lo to 4 times l1 ;end DIPSI2 ;------------------------------------------------------------ 10u pl0:f1 300u gron0 p12:sp2:f1 ph1 100u groff d16 10u pl1:f1 p1 ph1 go=2 ph31 d1 mc #0 to 2 F1PH(id0 & ip3) 100u BLKGRAD exit ph1=0 ph2=1 ph10=3 ph3=0 2 ph4=0 0 0 0 2 2 2 2 ph5=0 0 2 2 ph6=0 ph8=0 2 ph23=3 ph25=1 ph31=0 2 0 2 2 0 2 0 ;pl1 : f1 channel - power level for pulse (default) ;pl2 : f2 channel - power level for pulse (default) ;pl10: DIPSI-2 power ;p1 : f1 channel - 90 degree high power pulse ;p2 : f1 channel - 180 degree high power pulse ;p3 : f2 channel - 90 degree high power pulse ;p4 : f2 channel - 180 degree high power pulse ;p6 : 90 degree low power pulse ;p16: homospoil/gradient pulse ;p28: f1 channel - trim pulse ;p11 : duration of first sweep ;p12 : duration of second sweep ;sp1 : strength for first sweep ;sp2 : strength for second sweep ;gpz0: gradient strength for ZQ suppression ;d0 : incremented delay (2D) [3 usec] ;d1 : relaxation delay; 1-5 * T1 ;d9 : TOCSY mixing time ;d4 : 1/(4J)XH ;d11: delay for disk I/O [30 msec] ;d13: short delay [4 usec] ;d16: delay for homospoil/gradient recovery ;cnst2: = J(XH) ;in0: 1/(2 * SW(X)) = DW(X) ;nd0: 2 ;NS: 1 * n ;DS: >= 16 ;td1: number of experiments ;FnMODE: TPPI ;use gradient ratio: gp 1 : gp 2 ; 80 : 20.1 for C-13 ; 80 : 8.1 for N-15 ;for z-only gradients: ;gpz1: 80% ;gpz2: 20.1% for C-13, 8.1% for N-15 ;use gradient files: ;gpnam1: SINE.100 ;gpnam2: SINE.100