# 1 "/u/exp/stan/nmr/lists/pp/ipap.s" ;IPAP-[15N,1H]-HSQC (1H-coupled in F1(N)) ; ;Reference: ;Ottiger, M., Delaglio, F. & Bax, A. ;J. Magn. Reson. 131, 373-378 (1998) ; ;needed files: ;Gradnt_new.incl standard Bruker include file ;FQ2LIST frequency list (CA - CO) # 1 "/u/exp/stan/nmr/lists/pp/Gradnt.incl" ;Gradnt.incl - include file for Gradient Spectroscopy ;avance-version ;version 94/06/27 # 12 "/u/exp/stan/nmr/lists/pp/ipap.s" ;#define CARBON_LABEL ; uncomment if also 13C labelled ;#define CALIBRATE ; uncomment to calibrate N15 hard 90 ;Pulse definitions: ;p1 proton 90 at pl1 ;p9 proton 90 for WATERGATE at pl9 (~42 dB) adjust phcor14! ;p5*2 carbon 180 at pl5 null excitation @120.5ppm (p5 is ~28.6u @ 500 MHz) ;p2 nitrogen 90 at pl2 ;pcpd2 nitrogen 90 at pl12 for decoupling (cpdprg2 is WALTZ16) ;Gradient pulses (may have to be set manually): "p20=2.0m" "p11=1.0m" "p14=0.4m" # 30 "/u/exp/stan/nmr/lists/pp/ipap.s" "d0=in0*0.5 - p2*0.63 -p1" # 36 "/u/exp/stan/nmr/lists/pp/ipap.s" "p17=p2" "d3=2.3m" ;1/4JNH * 0.85 "d4=d3-p14-2u" "d5=d3-p14-p9-14u" "d11=50u" ;write delay "d12=10u" ;increment delay "d13=25m" "d22=p9" "d23=p3" "d24=p17*1.26 -p1" "d25=p1*2" "d26=p2-p1" 1 ze 10u ru2 2 d11 do:f2 d12 3 d12*3 4 d12*3 5 10u do:f3 10u pl5:f3 10u pl2:f2 # 67 "/u/exp/stan/nmr/lists/pp/ipap.s" d1 1m setnmr2^0 10u pl1:f1 10u pl5:f3 (p2 ph0):f2 ;eliminate Boltzmann p20:gp3 3m (p1 ph0) 2u p14:gp5 d4 (p2*2 ph6):f2 (d26 p1*2 ph0) 2u p14:gp5 d4 ;------------- start INEPT to 15N ----------------------- (p1 ph6) 2u 4u pl9:f1 p20:gp0 1m pl1:f1 (p17 ph3):f2 if "l2==1" goto 20 1m ;p23:gp3 1.7m (p2*2 ph5):f2 (d26 p1*2 ph0):f1 1m ;p23:gp3 1.7m d24 (p1 ph4):f1 20 d0 pl5:f3 # 105 "/u/exp/stan/nmr/lists/pp/ipap.s" d25 ; (p1*2 ph0) ;no 180 for F1-coupled spectrum d0 if "l2==2"goto 40 (p2 ph7):f2 goto 41 40 (p2 ph17):f2 41 2u p11:gp1 2m pl1:f1 ;------------- INEPT back to f1, WATERGATE --------------- (p1 ph0) 5u p14:gp0 d5 pl9:f1 2u (p9 ph14:r) 2u 5u pl1:f1 (p1*2 ph15) 2u 5u pl9:f1 (p2*2 ph10):f2 (p9 ph14:r) 2u p14:gp0 d5 ph0 5u pl12:f2 go=2 ph31 cpd2:f2 d11 wr #0 if #0 zd 1m setnmr2|0 10u do:f2 d12 iu2 lo to 3 times 2 d12 ru2 d12 dp7 d12 dp17 lo to 4 times 2 d12 id0 d12 ip31 d12 ip31 lo to 5 times l3 d12 do:f3 d12 do:f2 1m setnmr2|0 100u setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34 setnmr8^4 exit ph0=0 ph1=0 ph3=0 0 2 2 ph4=0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 ph5=0 0 0 0 1 1 1 1 2 2 2 2 3 3 3 3 ph6=1 3 ph7=0 ph17=1 1 1 1 3 3 3 3 ph10=0 ph14=2 ;ph14=(3600)1756 ph15=0 ph31=0 2 2 0