;c12cosyc12.fa ;2D F1-13C/N15-filtered, F2-C13/N15-filtered COSY experiment ;Ikura and Bax, J. Am. Chem. Soc. 1992, 114, 2433-2440. ; see also: Lee, Revington, Arrowsmith and Kay, FEBS 350, 87-90 (1994) ;Bruker Avance/Xwin-nmr version ;Written up by F. Abildgaard, NMRFAM (abild@nmrfam.wisc.edu) ; ; $Id: c12cosyc12.fa,v 1.3 1998/10/15 01:52:11 abild Exp abild $ ; ; Disclaimer: This pulse program is provided "as is" for your ; information. Support for the use of this pulse program is ; 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) ;Gradient program: c12cosyc12 ;o1p: 4.7ppm ;o2p: 118ppm ;o3p: use fq3list, fac12noec12.f3: C(arom), C(aliph) (130ppm, 43ppm) ; ;d1: relaxation delay=d1+0.10 ;p1 90 H1 at pl1 ;p2 90 N15 at pl2 ;p3 90 C13 at pl3 (for 90 C) ;d21: 1/(2*dNu), dNu=Nu(MAX excitation)-Nu(H2O); 300us at 500MHz ;H1 evolution: ; in0, SW(H)=1/in0, ND0=1 ; l4 complex points ; Define H_90180 below for dw/2 initial delay (90,-180 phase). ; The chemical shift axis in F1 is reversed. ;ns=(8,) 16, 32, ..., ds=(8,) 16, 32, ... ; ;Recommendations for gradients: ;p15=500u ;p16=700u ;p17=250u ;cnst21=10% (7G/cm) ;cnst23=30% (20G/cm combined x,z) ;cnst24=22% (15G/cm) ;cnst30=1.800 (adjust) for magic angle gradient (Gx/Gz) or 0 for Gz only. ;#define ONE_D ;uncomment for 1D version ;#define H_90180 ;uncomment for (90,-180) phase in F1 (-90,180 in NMRpipe) ; ;You shouldn't have to worry about anything beyond this point :-) ; #ifdef ONE_D #undef H_90180 #endif ;Define channel assignments: #define H f1 #define N f2 #define C f3 ; define delay TAU3 define delay TAU4 define delay TAU7 define delay TAUD define delay TAUE define delay TAUG define delay TAUW define delay C1_FILT define delay C2_FILT define delay C3_FILT define delay C4_FILT define delay N_FILT define pulse H1_90 define pulse H1_180 define pulse N15_90 define pulse N15_180 define pulse C13_90 define pulse C13_180 "d11=100m" ;disk i/o "d12=10u" ;power switching etc. "d13=5u" ;a short delay "d14=40u" ;ip,id etc. "d16=200u" ;gradient recovery "H1_90=p1" "H1_180=p1*2" "N15_90=p2" "N15_180=p2*2" "C13_90=p3" "C13_180=p3*2" #ifdef H_90180 "d0=N15_180+(in0/2)" #else "d0=N15_180" #endif "TAUW=d21" "d22=(TAUW/2)-N15_90" "C1_FILT=4.0m" "C2_FILT=3.6m" "C3_FILT=3.5m" "C4_FILT=3.1m" "N_FILT=5.3m" "TAU3=C3_FILT-p16-d16" "TAU4=N_FILT-C3_FILT-p16-d16" "TAU7=C4_FILT-p16-d16" "TAUD=C1_FILT-p17-d16-H1_90*2.385-d21*2.5-d13" "TAUE=N_FILT-C1_FILT-p17-d16-H1_90*2.385-d21*2.5-d13" "TAUG=C2_FILT-p17-d16-H1_90*2.385-d21*2.5-d13" #define RESET setnmr2^0 setnmr0^32 setnmr0^33 setnmr0^34 setnmr8^4 #include #include 1 ze d14 RESET 2 d11 d14 d14 3 d14 d14 d14 4 d14 RESET d14 LOCKH_OFF d1 pl1:H pl2:N pl3:C d13 (C13_90 ph0):C d14 LOCKH_ON d13 GRADIENT15(cnst21) ;500u, 7G/cm d16 fq3:C d12 pl3:C ;----- Proton excitation and C13/N15 filter (H1_90 ph17):H TAU3 GRADIENT16(cnst24) ;700us, 15G/cm d16 (N15_180 ph0):N (C13_90 ph13):C d13 (H1_180 ph11):H d13 GRADIENT16(cnst24) ;700us, 15G/cm d16 (TAU3) (TAU4 N15_90 ph13):N (TAU7 C13_90 ph0):C ;----- t1 evolution d0 (H1_90 ph12):H ;----- C13/N15 filter w/ watergate 3-9-19 solvent suppression d13 TAUD GRADIENT17(cnst23) ;250u, 20G/cm d16 (H1_90*0.231 ph0):H TAUW (H1_90*0.692 ph0):H TAUW (H1_90*1.462 ph0):H d22 (N15_180 ph0):N (C13_90 ph14):C d22 (H1_90*1.462 ph2):H TAUW (H1_90*0.692 ph2):H TAUW (H1_90*0.231 ph2):H d13 GRADIENT17(cnst23) ;250u, 20G/cm d16 (TAUD) (TAUE N15_90 ph14):N (TAUG C13_90 ph0):C go=2 ph31 #ifdef ONE_D d11 wr #0 #else d11 wr #0 if #0 zd d14 ip11 d14 ip17 lo to 3 times 2 d14 id0 d14 ip31 d14 ip31 lo to 4 times l4 #endif d14 LOCKH_OFF exit ph0=0 ph1=1 ph2=2 ph3=3 ph11=0 ph17=0 2 ph12=1 1 3 3 ph13=0 0 0 0 2 2 2 2 ph14=0 0 0 0 0 0 0 0 2 2 2 2 2 2 2 2 ph31=0 2