# 1 "/u/exp/stan/nmr/lists/pp/hnhagp3d4" # 1 "/u/exp/stan/nmr/lists/pp/hnhagp3d4" ;hnhagp3d3.rak ;3D HNHA-J, Kuboniwa, Grzesiek, Delaglio & Bax, J.Biomol.NMR,4 (1994), 871-878 ;water-flipback using 1-1 pulse ;set in30=in10=DW/4 (15N) ;in0=DW/2 (1H) # 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance.incl ; ;version 00/07/27 ;switch between high and low stage oh H amplifier ;use 2H channel for lock or pulse (lockswitch) ;allow for 2H decoupling (lockswitch) ;turn lock-hold on/off (BSMS) ;switch between 1H or 19F output (H amplifier) ;select output for 19F (amplifier) ;homospoil on/off (BSMS) ;for Q-switch probes ;for mixing probe ;gating pulse for RX22, ADC and HPPR ;not active ;$Id: Avance1.incl,v 1.5 2000/08/16 13:26:55 ber Exp $ # 7 "/u/exp/stan/nmr/lists/pp/hnhagp3d4" 2 # 1 "/u/exp/stan/nmr/lists/pp/Grad.incl" 1 ;Grad.incl - include file for Gradient Spectroscopy ; ;avance-version (00/07/27) ;gradient pulse for gs-syntax ;blank/unblank gradient amplifier and turn lock-hold on/off ;blank/unblank gradient amplifier ;for RCB board (BSMS) define list EA= ;$Id: Grad1.incl,v 1.6 2000/10/16 11:47:19 ber Exp $ # 8 "/u/exp/stan/nmr/lists/pp/hnhagp3d4" 2 # 1 "/u/exp/stan/nmr/lists/pp/Delay.incl" 1 ;Delay.incl - include file for commonly used delays ; ;version 00/02/07 ;general delays define delay DELTA define delay DELTA1 define delay DELTA2 define delay DELTA3 define delay DELTA4 define delay DELTA5 define delay DELTA6 define delay DELTA7 define delay DELTA8 define delay TAU define delay TAU1 define delay TAU2 define delay TAU3 define delay TAU4 define delay TAU5 ;delays for centering pulses define delay CEN_HN1 define delay CEN_HN2 define delay CEN_HN3 define delay CEN_HC1 define delay CEN_HC2 define delay CEN_HC3 define delay CEN_HC4 define delay CEN_HP1 define delay CEN_HP2 define delay CEN_CN1 define delay CEN_CN2 define delay CEN_CN3 define delay CEN_CN4 define delay CEN_CP1 define delay CEN_CP2 ;loop counters define loopcounter COUNTER define loopcounter SCALEF define loopcounter FACTOR1 define loopcounter FACTOR2 define loopcounter FACTOR3 ;$Id: Delay.incl,v 1.10 2000/05/08 11:39:02 eng Exp $ # 9 "/u/exp/stan/nmr/lists/pp/hnhagp3d4" 2 "p2=p1*2" "p4=p3*2" "p22=p21*2" "d11=30m" ;"d12=20u" "d2=5.2m" ; 1/2JNH "d24=13.5m" ; -> JHNHA "d19=90u" ; 1-1 delay ;"p16=800u" ;set p16 to 600us for the precalculated delays to be correct "d16=100u" ;set d16 to 50us for the precalculated delays to be correct "l0=(td1/2)" "l10=(td2/2)" "CEN_HN2=(p22-p2)/2" "CEN_HC2=(p22-p4)/2" "d27=(d24*2-d2)/2-p16-d16" ;"d0=(in0-p22)/2-p1*2/3.14" ; DW/2 -> phase: 90/-180 "d0=in0-p22/2-p1*2/3.14" ; DW -> phase: 180/-360 ;"d0=3u" "d10=3u" "d30=d27" ; ~10m "d25=d24-d2-p16-d16" "d26=d27-d25-p2-3u" ; refocus 15N "d22=d2-p16-d16+p21" ; refocus 1H "d14=d24-p16-d16" "d23=(d14+p2+d25-p22)/2-3u" ; refocus 15N "d12=d14-d25-p21-p16-d16" ; refocus 1H "in30=in10" 1 ze 2 d1 do:f3 do:f2 5m 3 10m 4 15m 5 20m 6 20u pl9:f1 ;presat d1 cw:f1 ph29 ;presat 3u do:f1 50u setnmr2|0 setnmr0|34|32|33 20u pl1:f1 pl2:f2 pl3:f3 (p1 ph1):f1 3u p16:gp1 d16 d22 (p21 ph2):f3 3u p16:gp2 d16 d25 (p2 ph1):f1 d26 d10 ; id10 IN10=DW/4 (p22 ph3):f3 d30 ; dd30 IN30=DW/4 p16:gp3 d16 (p1 ph1):f1 d0 ; id0 1H (p22 ph4):f3 ;(CEN_HC2 p4 ph3):f2 d0 ; id0 1H (p1 ph3):f1 3u p16:gp3 d16 (d23 d10 p22 ph3):f3 (d14 p2 ph3 d25):f1 3u p16:gp2 d16 (p21 ph3):f3 d12 p16:gp1 d16 (p1 ph3):f1 3u p16:gp4 d16 pl16:f3 4u setnmr2^0 setnmr0^34^32^33 (p1 ph11):f1 d19 pl12:f2 (p0 ph12:r):f1 ; p0 ~ p28, adjust in steps of 12.5 ns go=2 ph31 cpd3:f3 ;;cpd2:f2 d1 do:f3 do:f2 wr #0 if #0 zd 5m ip1 lo to 3 times 2 10m id0 lo to 4 times l0 ;1H States-TPPI (F1) 10m rd0 5m ip2 lo to 5 times 2 10m id10 10m dd30 lo to 6 times l10 ;15N States-TPPI (F2) exit ph1=0 0 2 2 ph2=0 ph3=0 ph4=0 1 ph11=0 0 0 0 1 1 1 1 ph12=2 2 2 2 3 3 3 3 ph29=0 ph31=0 2 2 0 1 3 3 1 ;pl1 : f1 channel - power level for pulse (default) ;pl9 : f1 channel - power level for presaturation ;p29 : presaturation pulse if needed ;pl3 : f3 channel - power level for pulse (default) ;pl16: f3 channel - power level for CPD/BB decoupling ;p0 : f1 channel - 90 jr ;p1 : f1 channel - 90 degree high power pulse ;p2 : f1 channel - 180 degree high power pulse ;p16: gradient pulse 600u ;p21: f3 channel - 90 degree high power pulse ;p22: f3 channel - 180 degree high power pulse ;d0 : incremented delay (F1 in 3D) ;d10: incremented delay (F2 in 3D) [3u or calculated for 90/-180 phase] ;d30: decremented delay (F2 in 3D) [12.4m] ;cpd3 : f3 decoupling according to sequence defined by cpdprg3 (garp64) ;pcpd3: f3 channel - 90 degree pulse for decoupling sequence ;p16 gradient pulse length ;d16 gradient recovery delay ;use gradient ratio gpz1 : gpz2 : gpz3 : gpz4 ;for z-only gradients: 30 : 45 : 75 : 50 ;use gradient files: ;gpnam1: SINE.50 ;gpnam2: SINE.50 ;gpnam3: SINE.50 ;gpnam4: SINE.50 ;gpz1: 30 % ;gpz2: 45 % ;gpz3: 75 % ;gpz4: 50 % ;l0: loop for phase sensitive 3D using States-TPPI : l10 = td2/2 ;l10: loop for phase sensitive 3D using States-TPPI : l0 = td1/2 ;in0: 1/(2 * SW(H)) = DW(H) ;nd0: 2 ;in10: 1/(2 * SW(N)) = DW(N) ;nd10: 4 ;in30 = in10 ;NS: 8 * n ;DS: 8 * n ;td1: number of experiments in F1 ;td2: number of experiments in F2 td2 max = d30 / in30 ;MC1: States-TPPI in F1 ;MC2: States-TPPI in F2