# 1 "/u/exp/stan/nmr/lists/pp/ko_cryo_HNCACB3d.3" ; 3D HNCACB (watergate version) ; created by Seizo Koshiba Nov 30 /2002 ; Reference # 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance.incl ; ;avance-version (03/02/17) ;$Id: pulseprogram,v 1.1 2021/02/10 23:29:29 bmrbsvc Exp $ # 7 "/u/exp/stan/nmr/lists/pp/ko_cryo_HNCACB3d.3" 2 # 1 "/u/exp/stan/nmr/lists/pp/Grad.incl" 1 ;Grad.incl - include file for Gradient Spectroscopy ; ;avance-version (02/05/31) define list EA= ;$Id: pulseprogram,v 1.1 2021/02/10 23:29:29 bmrbsvc Exp $ # 8 "/u/exp/stan/nmr/lists/pp/ko_cryo_HNCACB3d.3" 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: pulseprogram,v 1.1 2021/02/10 23:29:29 bmrbsvc Exp $ # 9 "/u/exp/stan/nmr/lists/pp/ko_cryo_HNCACB3d.3" 2 ;for 180 deg pulses "p2=p1*2" "p22=p21*2" ;delay "d2=2.25m-p17-100u" "d6=5.4m" "d7=p7" "d8=12.4m-d6-p7-9.5u" "d9=12.4m-p7-9.5u" ;delay Tc "d23=3.6m" "d16=2.25m-p27-p5-124u" ; t1 (CA) increment ;"d0=in0*1.5-p13*2.0/3.14-p24/2.0" "d0=4u" ;phase 0/0 ; t2 (N) increment ND10=4 "d10=6.2m-d6-p7-p24/2.0-9.5u" ; Tn/2+t2(0)/4 phase 0/0 "d30=6.2m-p7-p24/2.0-9.5u" ; Tn/2-t2(0)/4 "in30=in10" ; Centering Delay "CEN_HN2=(p22-p2)/2" "CEN_CN1=(p15-p22)/2" "CEN_CN2=(p24-p22)/2" "DELTA=d0*2-4u" "l3=td1/2" "l13=td2/2" "spoff0=0" "spoff4=bf2*(cnst21/1000000)-o2" "spoff5=bf2*(cnst22/1000000)-o2" "spoff7=0" 20u do:f1 20u do:f3 20u do:f2 1 15m ze 2 75m do:f3 3 30m 4 30m 5 30m 6 30m 20u pl1:f1 20u pl3:f3 20u pl2:f2 d1 20u setnmr2|0 setnmr0|34|32|33 ;---------------- ; (p21 ph10):f3 ; 5u ; ; p16:gp0 ; homospoil ; 200u ; ;---------------- INEPT (1H -> 15N) (p1 ph1):f1 5u ; p17:gp1 ; echo 95u ; d2 (CEN_HN2 p2 ph1):f1 (p22 ph10):f3 5u ; p17:gp1 ; echo 95u ; d2 (p1 ph5):f1 ;---------------- 5u 20u pl5:f1 (p5 ph25:r):f1 ; 5u ; p18:gp2 ; homospoil 200u pl2:f2 ; ;---------------- INEPT (15N -> 13CA) (p21 ph14):f3 d6 pl7:f1 (p7 ph2):f1 5.5u 4u cpds1:f1 d8 (CEN_CN1 p22 ph10):f3 (p15:sp5 ph20):f2 d9 4u do:f1 5.5u (p7 ph3):f1 (p21 ph10):f3 ;---------------- ; 5u ; p19:gp3 ; homospoil 200u ; ; (p7 ph2):f1 5.5u 4u cpds1:f1 ;---------------- CA -> CB transfer (p13:sp0 ph20):f2 d23 (p23:sp7 ph20):f2 d23 ;---------------- t1(CA) Constant Time evolution (p13:sp0 ph21):f2 d0 (CEN_CN2 p22 ph10):f3 (p24:sp4 ph20):f2 d0 (p23:sp7 ph20):f2 DELTA (p24:sp4 ph20):f2 4u (p13:sp0 ph22):f2 ;---------------- CB -> CA transfer d23 (p23:sp7 ph20):f2 d23 (p13:sp0 ph23):f2 ;---------------- 4u do:f1 5.5u (p7 ph3):f1 ; 5u ; p25:gp4 ; homospoil 200u pl2:f2 ; ; ;---------------- t2(N) Constant Time evolution (13CA -> 15N) (p21 ph15):f3 (p7 ph2):f1 5.5u 4u cpds1:f1 d30 (p24:sp4 ph20):f2 d7 5.5u 4u d30 (CEN_CN1 p22 ph16):f3 (p15:sp5 ph20):f2 d10 4u 5.5u d7 d6 (p24:sp4 ph20):f2 d10 4u do:f1 5.5u (p7 ph3):f1 d6 (p21 ph10):f3 ;---------------- 5u ; p26:gp5 ; homospoil 200u ; 20u pl5:f1 (p5 ph26:r):f1 4u 20u pl1:f1 ;---------------- INEPT (15N -> 1H) (p1 ph1):f1 5u ; p27:gp6 ; echo 95u ; d16 pl5:f1 (p5 ph27:r):f1 4u 20u pl1:f1 (CEN_HN2 p2 ph1):f1 (p22 ph10):f3 4u 20u pl5:f1 (p5 ph27:r):f1 5u ; p27:gp6 ; echo 75u ; d16 pl13:f3 20u setnmr2^0 setnmr0^34^32^33 ;---------------- go=2 ph31 cpd3:f3 ; Acquisition 60m do:f3 wr #0 if #0 zd 15m dp22 15m dp23 lo to 3 times 2 15m id0 15m ip31*2 lo to 4 times l3 15m rd0 15m dp15 lo to 5 times 2 10m id10 10m dd30 10m ip31*2 lo to 6 times l13 30m setnmr2^0 setnmr0^34^32^33 exit ;phase cylce. ;for 1H ph1= 0 ph2= 1 ph3= 3 ph5= 1 ;for 15N ph10=0 ph11=1 ph14=0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 ph15=0 0 2 2 ph16=0 0 0 0 2 2 2 2 ;for 13C ph20=0 ph21=1 ph22=3 1 ph23=0 2 ;for water-flip-back ph25=0 ph26=2 ph27=2 ;for receiver ph31=0 2 2 0 0 2 2 0 2 0 0 2 2 0 0 2 ;parameter ;1H ;p1 : 1H 90deg hard pulse ~10u @pl1 ;p5 : 1H 90deg wfb pulse ~1m @pl5 ;p7 : 1H 90deg cpd pulse ~55u @pl7 ;pcpd1 :1H cpd pulse ~55u @pl7 ;pl1 : 1H 90deg hard pulse @p1 ;pl5 : 1H 90deg wfb pulse (phcor25,26,27) @p5 ;pl7 : 1H 90deg cpd pulse @p7 ;15N ;p21 : 15N 90deg pulse ~49u @pl3 ;pl3 : 15N 90deg pulse @p21 ;pcpd3: 15N cpd pulse ~240u @pl13 ;pl13 : 15N cpd pulse @pcpd3 ;13C ;p13 : 13CAB 90deg pulse @sp0 rect ;sp0 : 13CAB 90deg pulse @p13 rect ;p23 : 13CAB 180deg pulse @sp7 G3.256 ;sp7 : 13CAB 180deg pulse @p23 G3.256 ;p15 : 13CA 180deg pulse @sp5 rSNOB ;sp5 : 13CA off 180deg pulse @p15 rSNOB ;p24 : 13CO 180deg pulse @sp4 Seduce ;sp4 : 13CO off 180deg pulse @p24 Seduce ;pl2 : 120dB ;cnst21: CO chemical shift (offset, in ppm) ;cnst22: CA chemical shift (offset, in ppm) ;cnst23: CAB chemical shift (offset, in ppm) ;o2p: CAB chemical shift (cnst23) ;gradient ;p16 : homospoil 500u gp0 ;p17 : echo 500u gp1 ;p18 : homospoil 2m gp2 ;p19 : homospoil 1m gp3 ;p25 : homospoil 1m gp4 ;p26 : homospoil 2m gp5 ;p27 : echo 800u gp6 ;gpz0 : 15 % p16 ;gpz1 : 5 % p17 ;gpz2 : 30 % p18 ;gpz3 : -10 % p19 ;gpz4 : 40 % p25 ;gpz5 : 45 % p26 ;gpz6 : 25 % p27