;hncacbse_fb.bv ;3D HNCaCb - Gradient enhanced. ;with minimal H2O saturation ;Bruker DMX Xwin-nmr v.1.1 ; ;Wittekind and Mueller, J. Magn. Reson. B 101, 201-205 (1993) ;Muhandiran and Kay, J. Magn. Reson. B 103, 203-216 (1994) ;Bruker Avance/Xwin-nmr version 1.1 ;Written up by F. Abildgaard, NMRFAM (abild@nmrfam.wisc.edu) ;Version: 033195, 071895 ; ;Modified by B. Volkman, NMRFAM (volkman@nmrfam.wisc.edu) ;to include water flip-back to avoid saturation of exchanging NH's ;Ref: Kay et al, J. Magn. Reson. A 109, 129-133 (1994) 11/28/95 ; ;tested with magic angle gradients 12/1/95 BFV ; ;Suitable grdprog and *.incl files are appended to ;the end of this pulse program, and should be removed and ;placed in appropriate /pp or /gp directory prior to execution ;of this pulse program. ; ; Disclaimer: This pulse program is provided "as is" for your ; information. Support for the use of this pulse program is only ; provided to users of the National Magnetic Resonance Facility ; at Madison (NMRFAM). Users of this pulse program employ it at ; their own risk. Neither NMRFAM or University of Wisconsin-Madison ; are liable for any physical or other damage incurred during the ; use of this pulse program. ;BMRB Pulse Sequence Accession Number: 10 ; ;f2: 15N, f3: 13C, f4: 13C ;use gradient program fahncacbse ;p15=500u ;p16=1.0m ;p17=100u ;p18=2.5m ;p19=250u ;p31 low power pulse at pl16 for N-GARP ; ;pl10 H1 WALTZ16 ;p8 1H pulse for flipback (1.5-2.0 ms) ;sp12 1H flipback pulse power ;ds=2m*ns, m=1, 2, ..., ns=8, 16, ... ; ;d2=2.25m ;d3=5.4m ;d4=12.4m ;d5=3.5m ;d8=500u ;d9=10m (ip, id, rd) ;d11=100m (disk i/o) ;d12=10u ;d13=5u ;d16=300u ;d17=50u ;in0=1/2SW(Cab) ;in10=in20=1/2SW(N) ;d10=d4 ;d20=d4-d3 "p22=p2*2" "p23=p3*2" "d6=p1" "d7=p2" "d14=d4-d3-d13-d12-p29" "d15=d5-p17-d17" "d25=d5-p17-d17-d13*2-d12-p29" "d18=d8-p19-d13" "d22=d2-p15" "d23=d3-p17-d17-p29" "d24=d3-p18-p15-d13*3-d12-p29" "d26=p2-p3" "d29=p2-p1" #define SED_ON d13 \n d12 pl0:f4 \n d13 cpds4:f4 #define SED_OFF d13 do:f4 #define W_ON d12 pl10:f1 \n p29:f1 ph1 \n d13 cpds1:f1 #define W_OFF d13 do:f1 \n p29:f1 ph3 \n d12 pl1:f1 #include #include 1 ze 2 d11 do:f2 d9*2 3 d9 d9*5 4 d9 d9*3 5 d9 d9*2 6 20u LOCKH_OFF d1 pl1:f1 pl2:f2 pl3:f3 (p2 ph0):f2 d13 (p3 ph0):f3 20u LOCKH_ON d13 GRADIENT15(cnst21) d16 (p1 ph0):f1 d13 GRADIENT15(cnst22) d22 (d29 p1*2 ph0):f1 (p22 ph0):f2 d13 GRADIENT15(cnst22) d22 ;(p1*55 ph0):f1 ;NO SPINLOCK IN FLIPBACK VERSION* ;d13 (p1 ph1):f1 d12 pl12:f1 ;power lev for square fb pulse (p8 ph0):f1 ;square flipback pulse ;d12 pl0:f1 ;comment in for seduce flipback ;(p8:sp12 ph2):f1 ;seduce flipback pulse d13 GRADIENT16(cnst23) d16 (p2 ph11):f2 d13 GRADIENT17(cnst24) d17 SED_ON d23 W_ON d14 (p22 ph0):f2 (d26 p23 ph0):f3 d4 SED_OFF W_OFF d13 GRADIENT17(cnst24) d17 (p2 ph0):f2 d13 GRADIENT15(cnst21) d16 (p3 ph12):f3 d13 GRADIENT17(cnst24) d17 W_ON SED_ON d15 (p23 ph0):f3 SED_OFF W_OFF d13 GRADIENT17(cnst24) d17 W_ON SED_ON d25 (p3 ph1):f3 d0 (p22 ph0):f2 d0 (p3 ph13):f3 SED_OFF W_OFF d13 GRADIENT17(cnst24) d17 W_ON SED_ON d25 (p23 ph14):f3 SED_OFF W_OFF d13 GRADIENT17(cnst24) d17 W_ON SED_ON d25 (p3 ph14):f3 (p2 ph15):f2 d10 (p22 ph16):f2 (d26 p23 ph0):f3 d20 W_OFF d24 SED_OFF d13 GRADIENT18(cnst25) d16 (p2 ph17):f2 d6 (p1 ph0):f1 d13 GRADIENT15(cnst21) d22 (p22 ph0):f2 (p1*2 ph0):f1 d13 GRADIENT15(cnst21) d22 d7 (p2 ph1):f2 (p1 ph1):f1 d13 GRADIENT15(cnst21) d22 (d29 p1*2 ph0):f1 (p22 ph0):f2 d13 GRADIENT15(cnst21) d22 (p1 ph0):f1 d8 (p1*2 ph0):f1 d13 GRADIENT19(cnst27) d18 pl16:f2 go=2 ph31 cpd2:f2 d11 do:f2 wr #0 if #0 zd d9 ip17 d9 ip17 lo to 3 times 2 d9 dd10 d9 id20 d9 ip15 d9 ip15 d9 ip31 d9 ip31 lo to 4 times l4 d9 rd10 d9 rd20 d9 ip13 d9 ip14 lo to 5 times 2 d9 id0 d9 ip31 d9 ip31 lo to 6 times l6 20u LOCKH_OFF exit ph0=0 ph1=1 ph2=2 ph3=3 ph11=0 2 ph12=0 0 2 2 ph13=1 ph14=0 ph15=0 ph16=0 0 0 0 2 2 2 2 ph17=0 ph31=0 2 2 0 ;**bvhncacbse.r ;loop ns ;{ ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst22) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst22) } ; { (0) | (0) | (0) } ;p16 { (0) | (0) | (0)+(cnst23) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p18 { (0)+(cnst25*cnst30) | (0) | (0)+(cnst25) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p19 { (0)+(cnst27*cnst30) | (0) | (0)+(cnst27) } ; { (0) | (0) | (0) } ;} ;loop ns ;{ ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst22) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst22) } ; { (0) | (0) | (0) } ;p16 { (0) | (0) | (0)+(cnst23) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p17 { (0) | (0) | (0)+(cnst24) } ; { (0) | (0) | (0) } ;p18 { (0)+(cnst25*cnst30) | (0) | (0)+(cnst25) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p15 { (0) | (0) | (0)+(cnst21) } ; { (0) | (0) | (0) } ;p19 { (0)+(cnst28*cnst30) | (0) | (0)+(cnst28) } ; { (0) | (0) | (0) } ;} ;Gradfa.incl - include file for Gradient Spectroscopy ;avance-version ;version 94/06/27 ; ;#define GRADIENT15(ampl) p15:ngrad:c34 ;#define GRADIENT16(ampl) p16:ngrad:c34 ;#define GRADIENT17(ampl) p17:ngrad:c34 ;#define GRADIENT18(ampl) p18:ngrad:c34 ;#define GRADIENT19(ampl) p19:ngrad:c34 ;#define GRADIENT20(ampl) p20:ngrad:c34 ;#define BLKGRAD setnmr2^0 setnmr0^34 ;#define UNBLKGRAD setnmr2|0 setnmr0|34 ;#define BLKGRAMP setnmr0^34 ;#define UNBLKGRAMP setnmr0|34