# 1 "/u/exp/stan/nmr/lists/pp/ko_cryo_HCCHCOSY_ARO3d.2pr" ; (Program Name) ; ko_hcchcosy ; modified by S. Koshiba 020813 ; modified by S. Koshiba 021213 # 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1 ;Avance.incl ; ;avance-version (03/02/17) ;$Id: Avance1.incl,v 1.7.2.3 2003/02/25 14:48:47 ber Exp $ # 6 "/u/exp/stan/nmr/lists/pp/ko_cryo_HCCHCOSY_ARO3d.2pr" 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: Grad1.incl,v 1.7 2002/06/12 09:04:22 ber Exp $ # 7 "/u/exp/stan/nmr/lists/pp/ko_cryo_HCCHCOSY_ARO3d.2pr" 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.11 2002/06/12 09:04:22 ber Exp $ # 8 "/u/exp/stan/nmr/lists/pp/ko_cryo_HCCHCOSY_ARO3d.2pr" 2 ;for pulse length ;"p5=7.0m" ;"p6=4.3m" "p2=p1*2.0" "p15=p13*2.0" "p22=p21*2.0" ;for 13C "d2=1.25m" "d3=1.1m-p22" "d19=d2-p19-55u" "d18=d19-24u-p13*2" "d23=1.45m" "d24=d23-p19-100u" "d21=2.15m-p19-100u" "d22=2.15m" "d17=8u+p15" "d28=(p15-p2)/2" ;for phase "d0=4u" "d10=4u" "d20=d22+4u" "in20=in10" "DELTA1=d22-d3-p22-p2" "l1=td1/2" "l2=td2/2" ;pulse sequence. 30m setnmr2^0 setnmr0^34^32^33 ; 1 ze ; 2 75m do:f2 ; 3 30m ; 4 30m 5 45m 6 20u ; 20u pl2:f2 ; 20u pl3:f3 ; 20u pl9:f1 ; d1 cw:f1 ph29 ; 4u do:f1 20u pl1:f1 ; ;------------------------------------- 50u setnmr2|0 setnmr0|34|32|33 ; (p1 ph3):f1 ; -> Hy 5u p19:gp4 50u d19 ; d0 ; (p15 ph0):f2 ; d0 ; (p2 ph0):f1 ; d17 5u p19:gp4 50u d19 ; (p1 ph1):f1 ; -> 2HzCz 400u ; p16:gp1 ; PFGz (Homospoil) 650u ; (p13 ph11):f2 ; -> 2HzCy d10 (p22 ph0):f3 ; CO 180deg. N 180deg. d3 (p2 ph0):f1 DELTA1 ;pl19:f1 (p15 ph14):f2 ; C 180deg. d20 (p13 ph9):f2 ; C 90deg. 5u p19:gp7 95u d21 (p15 ph0):f2 5u p19:gp7 95u d21 (p13 ph7):f2 ; -> Cz 50u ; p17:gp2 ; PFGz (Homospoil) 1.0m pl1:f1 ; (p1 ph0):f1 50u ; p18:gp3 ; PFGz (Homospoil) 800u pl2:f2 ; (p13 ph1):f2 5u p19:gp5 95u d24 (d28 p2 ph0):f1 (p15 ph0):f2 5u p19:gp5 95u d24 (p13 ph0):f2 (p1 ph0):f1 5u p19:gp6 50u d19 (d28 p2 ph0):f1 (p15 ph0):f2 5u p19:gp6 50u d18 setnmr2^0 setnmr0^34^32^33 (p13 ph0 4u p13 ph13):f2 20u pl12:f2 (p1 ph0):f1 go=2 ph31 cpd2:f2 ; 60m do:f2 wr #0 if #0 zd ;increment f2 phase 15m ip3 ; lo to 3 times 2 ; 15m id0 ; 15m ip31*2 ; lo to 4 times l1 ; 15m rd0 15m ip11 lo to 5 times 2 15m id10 15m dd20 15m ip31*2 lo to 6 times l2 30m setnmr2^0 setnmr0^34^32^33 ; gradient-blanking on exit ;--- 1H Pulse Phase --- ph0=0 ph1=1 ph3=0 2 ph29=0 ;--- 13C Pulse Phase --- ph11=0 0 2 2 ph14=0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 ph7=1 ph9=0 ph10=0 ph13=0 0 0 0 2 2 2 2 ;--- Receiver Phase --- ph31=0 2 2 0 0 2 2 0 2 0 0 2 2 0 0 2 ;p13:Caliph 90deg ~18.8u ;pl19:1H CPD decoupling ;pcpd1:1H CPD decoupling ;in10:increment for d10 (= in20) ;in20:decrement for d20 (d20 > in20*l2) ;p5:7.0m spin lock pulse ;p6:4.3m spin lock pulse ;for gradient pulses ;p16:2.0m gp1 : homospoil ;p17:5.0m gp2 : homospoil ;p18:4.4m gp3 : homospoil ;p19:400u gp4,5,6,7: echo