#include "Gradnt_new.incl" ;cbcaconh.aph ;history ;sg 1/28/92 ;changed to DMX 12/30/95 ;copied fom DMX499 cbcaconh.jrh and checked 2/10/97 mam ;setup on uthscsa drx600, 12/9/01, aph #define C13 f2 #define N15 f3 ;#define CARBON #define NITROGEN ;f1 = proton channel; put carrier on water ;p1 = proton 90 at pl1 (~ 8u at pl1 = -2.00 dB) ;p2 = proton 90 at pl2 (~ 1ms at pl2 = +41.0 dB) ; NOTE: Use phcor14 to account for power switching, ; Usually this is very close to zero ;p30= proton 90 at pl30 for decoupling (~45 u at pl30 = +15.0 dB) ; NOTE: Set cpdprg1 = dipsi2.30 ;N15 = nitrogen channel ;p17 = high power nitrogen 90 at pl17 (~ 40u at pl17 = -5.0 dB) ;p31 = low power 90 pulse at pl31 for decoupling (~ 170u at pl31 = +7.8 dB) ;C13 = carbon channel; carrier switched from 43ppm to 177ppm using fq4 ;p4 = low power carbon 90 at pl4 (47.9u at pl4 ~ +7.8 dB) ;p5 = low power carbon 90 at pl5 (53u at pl5 ~ 8.7 dB) ;p6 = low power carbon 90 at pl6 (21.4u at pl6 ~ 0.8 dB) ;p7 = rect32 180 on CA at sp1 ( 47.4u for 180 at sp1 ~ +1.5 dB) ; NOTE: This pulse MUST Be offset by -121 ppm (-18257 on drx600) ;p8 = sinc1.0 180 CO at sp0 (300u for the 180 degree at sp0 ~ 13.0 dB) ; NOTE: This pulse MUST Be offset by +134 ppm (+20219 on drx600) ;****** CA/CB evolution ****** ;in16 = in18 = 1/(2sw) ;l3 = d18/in18 ;phasing: zero order = 0.0 degrees ;phasing: first order = 0.0 degrees ;****** N evolution ****** ;in27 = in29 = 1/(2sw) ;l4 = d27/in27 ;phasing: zero order = 0.0 degrees ;phasing: first order = 0.0 degrees ;-------------- Gradient pulses ----------------- ;Set them by hand in the experiment "p20=1.0m" ;gpz0=+80% gpnam0=SINE.32 "p21=1.5m" ;gpz0=+80% gpnam0=SINE.32 "p22=0.4m" ;gpz0=+80% gpnam0=SINE.32 ;DELAYS WHICH MAY REQUIRE ADJUSTMENT ;"d1 = 1s" ;recycle time ;PRESET DELAYS - DO NOT REQUIRE ADJUSTMENT! "d16=10u" "d17=3.1m" ;cb to ca transfer time/2 "d18=d16+p8+d17" "d19=p8+d17-2.1m" "d28=13m" ;N to C' transfer time/2 "d29=10u" "d26=d28+p7-5.4m" "d27=d28+p7+d29" "d11=50m" "d12=7m" ;universal dd, id, ip delay "d24=p5-p17" "d25=p6-p1" define delay pd7 "pd7=p7" ze 2 5u do:N15 d11 #ifdef CARBON d12 3 d12*4 4 d12*2 #endif #ifdef NITROGEN d12 5 d12*4 6 10u #endif 10u LOCK_ON 20u fq4:C13 ;shifting frequency to 43 ppm (CA/CB) 20u pl1:f1 20u pl17:N15 20u pl6:C13 d1 ;relaxation delay 10u LOCK_OFF ;****** INEPT from ha/hb to antiphase with carbon ****** (p1 ph2):f1 1.5m ;1/4*Jch - should be 2.0m for small proteins (d25 p1*2 ph0):f1 (p6*2 ph7):C13 1.5m (p1 ph7):f1 4u p20:gp0 ;1m gradient 800u pl4:C13 ;****** INEPT to ca/cb ****** (p4 ph1):C13 (1m 1.1m pl30 d19 cpds1 d16):f1 (d16 p8:sp0 ph10 d17):C13 10u pl6:C13 (p6*2 ph17):C13 10u d18 pl4:C13 ;****** inept to ca ****** (p4 ph19):C13 4u (p8:sp0 ph10):C13 ;shaped pulse on carbonyl BS 10u 3.5m pl6:C13 ;be careful when using shaped pulses (p6*2 ph29):C13 4u (p8:sp0 ph10):C13 ;shaped pulse on carbonyl 10u 3.5m pl4:C13 (p4 ph0):C13 10u 20u fq4:C13 ;shifting frequency to carbonyl 10u pl5:C13 ;****** inept to carbonyl ****** (p5 ph8):C13 4.5m (p7:sp1 ph10):C13 ;offset rect 180 on CA (-121 ppm) 5.5m 1m pl5:C13 (p5*2 ph10):C13 (d24 p17*2 ph10):N15 11m pd7 (p5 ph18):C13 ;****** inept to nitrogen ****** (p17 ph9):N15 d27 (p5*2 ph10):C13 (d24 p17*2 ph4):N15 (d26 d29 5.4m do):f1 (d28 p7:sp1 ph10 d29):C13 ;****** inept to protons ****** (p17 ph0):N15 2u p21:gp0 ;1.5m gradient 1m pl1:f1 (p1 ph0):f1 2u p22:gp0 ;400u gradient 950u pl2:f1 (p2 ph14:r):f1 2u 5u pl1:f1 (p1*2 ph0):f1 2u 5u pl2:f1 (p17*2 ph10):N15 (p2 ph14:r):f1 2u p22:gp0 ;400u gradient 950u pl31:N15 go=2 ph31 cpd2:N15 5u do:N15 d11 wr #0 if #0 zd #ifdef CARBON d12 ip1 lo to 3 times 2 d12 id16 d12 dd18 d12 ip31 d12 ip31 lo to 4 times l3 d12 rd16 d12 rd18 #endif #ifdef NITROGEN d12 ip9 lo to 5 times 2 d12 dd27 d12 id29 d12 ip31 d12 ip31 lo to 6 times l4 #endif 10u do:N15 10u LOCK_ON exit ph0=0 ph1=0 ph2=1 ph4=0 0 2 2 ph7=PHASE_8( 0 ) PHASE_8( 2 ) ph8=0 0 0 0 2 2 2 2 ph9=0 2 ph10=0 ph14=2 ; -x for pl2 phcor14 ph17=0 0 1 1 2 2 3 3 ph18=(360)48 ;adjusted for BS compensation (don't adjust!) ph19=0 ph20=0 ph29=0 2 ph31=0 2 2 0 2 0 0 2 2 0 0 2 0 2 2 0