# 1 "/u/exp/stan/nmr/lists/pp/hcchcosy.ks" ;hcchcosy.fa ;3D HCCH COSY with PFG ;Based on Kay et al., J. Magn. Reson. B 101, 333-337 (1993) ;Bruker Avance/Xwin-nmr version ;Written up by F. Abildgaard, NMRFAM (abild@nmrfam.wisc.edu) ; ; $Id: hcchcosy.fa,v 1.2 2000/07/06 16:25:52 abild Exp abild $ ; ; 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 nor University of Wisconsin-Madison ; are liable for any physical or other damage incurred during the ; use of this pulse program. ; ;f1: 1H, f2: 15N, f3: 13C (channel assignments may be changed below) ;o1p: 4.7 ppm ;o2p: 118 ppm ;o3p: 43 ppm ; ;p1 90 H1 at pl1 ;p2 90 N15 at pl2 ;p3 90 C13 at pl3 ;p5 180 CO SEDUCE1 shape at power sp5, offset CO-43 ppm ;p10 1 ms 1H purge pulse at pl10 ;13C Waltz-16 or GARP PCPD at pl13 (cpdprg3) ;H1 evolution: ; SW(H)=1/(2*in0) ; l4 complex points ;C13 evolution: ; in10, SW(C)=1/(2*in10) ; l6 complex points ; Initial delay is in10: gives (90,-180) phase distortion in F1. ;ns=8, 16, ..., ds=8, 16,... ; ;Recommendations for gradients: ;gpz1: 12% ;gpz2: 22% ;gpz3: 14% ;gpx4: 27% (adjust for magic-angle) ;gpz4: 15% ;gpx5: 27% (adjust for magic-angle) ;gpz5: 15% ;gpx6: 12% ;gpy7: 12% ;gpnam1: sine.50 ;gpnam2: sine.100 ;gpnam3: sine.32 ;gpnam4: sine.100 ;gpnam5: sine.100 ;gpnam6: sine.50 ;gpnam7: sine.32 ; ;Define one or more of the following options to tailor this pulse program ; to your specific needs. ; ;#define ONE_D ; uncomment for 1D experiment ; the correct exp. time (works with XWIN-NMR 2.x) ;Define channel assignments: ; ; ;You shouldn't have to worry about anything beyond this point :-) ; ;sanity checks ; # 77 "/u/exp/stan/nmr/lists/pp/hcchcosy.ks" define delay TAUA define delay TAUA1 define delay TAUA7 define delay TAUB define delay TAUB3 define delay TAUC define delay TAUC6 define delay TAUD define delay CEN_HC1 define pulse H1_90 define pulse H1_180 define pulse N15_90 define pulse N15_180 define pulse C13_90 define pulse C13_180 define pulse CO_180 define pulse GRAD1 define pulse GRAD2 define pulse GRAD3 define pulse GRAD4 define pulse GRAD5 define pulse GRAD6 define pulse GRAD7 "H1_90=p1" "H1_180=H1_90*2" "N15_90=p2" "N15_180=N15_90*2" "C13_90=p3" "C13_180=C13_90*2" "CO_180=p5" ; "GRAD1=500u" "GRAD2=2m" "GRAD3=300u" "GRAD4=7m" "GRAD5=4.4m" "GRAD6=500u" "GRAD7=300u" ; "d11=100m" "d12=10u" "d13=5u" "d14=60u" "d16=300u" "TAUA=1.6m" "TAUB=475u" "TAUC=1.1m" "TAUD=3.25m" "TAUA1=TAUA-GRAD1" "TAUA7=TAUA-GRAD7" "TAUB3=TAUB-GRAD3-CO_180/2" "TAUC6=TAUC-GRAD6" "d0=d13" "d10=(in10/2)+d13" # 139 "/u/exp/stan/nmr/lists/pp/hcchcosy.ks" "d23=C13_90*4+d13*4" "d24=H1_90+N15_90+d13" "CEN_HC1=C13_90-H1_90" "d31=2*(TAUA1+GRAD1+2*TAUB3+2*GRAD3+TAUD+TAUC6+GRAD6+TAUA7+GRAD7)+GRAD2+GRAD4+GRAD5" # 1 "/u/exp/stan/nmr/lists/pp//Avance.incl" ;Avance.incl ; ;version 99/08/02 # 149 "/u/exp/stan/nmr/lists/pp/hcchcosy.ks" # 1 "/u/exp/stan/nmr/lists/pp//Grad.incl" ;Grad.incl - include file for Gradient Spectroscopy ;avance-version ;version 99/02/19 define list EA= # 150 "/u/exp/stan/nmr/lists/pp/hcchcosy.ks" 1 ze 2 d13 d14 do:f3 d11 setnmr2^0 3 d14 d14 d14 4 d14 d14 5 d14 d14 d14 6 d13 # 1 "/u/exp/stan/nmr/lists/pp//faexptcorr.incl" ; This is here to trick "expt" to calculate the experiment time ; correctly. if "1 == 1" goto nod31 d31 nod31, d13 # 166 "/u/exp/stan/nmr/lists/pp/hcchcosy.ks" d1 pl1:f1 pl3:f3 d13 setnmr2|0 d13 setnmr0|34 ;------------------ INEPT to f3 and ; comment out for 2D w/o H1 evolution ------------------- (H1_90 ph11):f1 d13 GRAD1:gp1 ; 500u, 8G/cm TAUA1 d0 (C13_90 ph0 d13 C13_180 ph1 d13 C13_90 ph0):f3 d0 (H1_180 ph0):f1 d13 GRAD1:gp1 ; 500u, 8G/cm TAUA1 d23 (H1_90 ph1):f1 d13 GRAD2:gp2 ; 2.0m, 15G/cm d16 ;------------------ Refocus f3 and ; comment out for 2D w/o C13 evolution ------------------- (C13_90 ph12):f3 d10 (N15_180 ph0):f2 d13 GRAD3:gp3 ; 300u, 10G/cm TAUB3 pl0:f3 (CO_180:sp5 ph0):f3 d13 GRAD3:gp3 ; 300u, 10G/cm TAUB3 pl3:f3 (H1_180 ph0):f1 d10 (C13_180 ph0):f3 d13 GRAD3:gp3 ; 300u, 10G/cm TAUB3 pl0:f3 d24 (CO_180:sp5 ph0):f3 d13 GRAD3:gp3 ; 300u, 10G/cm TAUB3 pl3:f3 d24 (C13_90 ph0):f3 TAUD (C13_180 ph0):f3 TAUD (C13_90 ph1):f3 d12 pl10:f1 (p10*2 ph0 d13 p10*1.4 ph1):f1 d13 GRAD4:gp4 ; 7.0m, 30G/cm d16 pl1:f1 (H1_90 ph0):f1 d13 GRAD5:gp5 ; 4.4m, 30G/cm d16 (C13_90 ph1):f3 d13 GRAD6:gp6 ; 500u, 8G/cm TAUC6 (C13_180 ph0):f3 (CEN_HC1 H1_180 ph0):f1 d13 GRAD6:gp6 ; 500u, 8G/cm TAUC6 (C13_90 ph0):f3 (H1_90 ph0):f1 d13 GRAD7:gp7 ; 300u, 8G/cm TAUA7 (C13_180 ph0):f3 (CEN_HC1 H1_180 ph0):f1 d13 GRAD7:gp7 ; 300u, 8G/cm TAUA7 ;----- Suppress water and f3 decoupling sideband modulation --- (H1_90 ph0):f1 (C13_90 ph0 d13 C13_90 ph13):f3 d13 setnmr0^34 d12 pl13:f3 go=2 ph31 cpds3:f3 # 249 "/u/exp/stan/nmr/lists/pp/hcchcosy.ks" d11 do:f3 wr #0 if #0 zd d13 setnmr2^0 d14 ip11 lo to 3 times 2 d14 id0 d14 ip31 d14 ip31 lo to 4 times l4 d14 rd0 d14 ip12 lo to 5 times 2 d14 id10 d14 ip31 d14 ip31 lo to 6 times l6 exit ph0=0 ph1=1 ph2=2 ph3=3 ph11=0 2 ph12=0 0 2 2 ph13=0 0 0 0 2 2 2 2 ph31=0 2 2 0