;HCAN[C']-E.COSY for the Bruker AMX-600. ;Andy C. Wang and Ad Bax, March, 1995 ;3J(HaC') from E.COSY splitting. ;Experiment requires D2O sample and deuterium decoupling. ;Uses shaped pulse decoupling of 13C during acquisition. ;JACS, submitted October, 1995. ;BMRB Pulse Sequence Accession Number: 31 ;_______________________________________________________________________ #include "bits.sg" #define CARBON #define NITROGEN #define CARBON_LOOP 48 #define NITROGEN_LOOP 130 ;_______________________________________________________________________ ;Proton (f1 = hydrogen frequency on water) ;p1 = proton 90 10 us @ hl1 = 3 dB ;Carbon (f2 = carbon frequency 58 ppm) ;p3 = low power carbon 90 11 us @ dl0=10 dB ;p4 = low power carbon 90 53.92 us @ dl1=29.5 dB ;p6 = low power carbon 90 24.11 us @ dl2=21.3 dB ;p8 = low power g3mlev.acw cpd @ dp3=25 dB, dpoffs3=0 & p8=8192u ;calibrate 256 us 90-degree g3.acw pulse!! ;p11= low power shaped offset sinc 90 97.4 us @ dp0=29.6 dB ;in0=in20=1/(2sw) ;Nitrogen (f3 = nitrogen frequency) ;p7 = high power nitrogen 90 45 us ;in30=1/(2sw) ;_______________________________________________________________________ ;Delays: d0=4u d5=8m ;universal dd, id, ip delay d11=50m d20=14.28m d21=p3-p1 d22=p7-p6 d23=p6-p1 d24=p11-p1 p24=5u d30=in30*0.5-p7*0.6366-p6 ;-90/180 phase correction ;_______________________________________________________________________ 100u CLEAR_BITS ze 2 d11 d5 3 d5*3.0 4 d5*3.0 ;_______________________________________________________________________ 5 d5*4.0 6 100u CLEAR_BITS 10u hl1 10u dbhi 10u dlo d1 dl0 ;__________________________________________________Start 90-degree on Ha (p1 ph0):f1 1.5m 2u (d21 p1*2 ph0):f1 (p3*2 ph10):f2 2u 1.5m dl1 ;____________________________________________________________Inept to Ca (p1 ph1):f1 10u HIGH( 11 ) ;lock off GRAD( 10, POSITIV, 30 ) 2.2m (p4 ph2):f2 ;.................................End of first Inept 2u d0 dl6 (d24 p1*2 ph0):f1 (p11*2 ph10):dp0 2u 14.28m dl2 (d22 p6*2 ph3):f2 (p7*2 ph0):f3 8u (p11*2):c8 d20 dl1 ;___________________________________________________________Inept to 15N (p4 ph1):f2 GRAD( 20, NEGATIV, 10 ) 5u HIGH( 12 ) ;2H decoupler ON (p7 ph4):f3 ;................................End of Inept to 15N d30 dl2 (d23 p1*2 ph0):f1 (p6*2 ph10):f2 d30 ;_______________________________________________________Inept back to Ca (p7 ph0):f3 5u LOW( 12 ) ;2H decoupler OFF GRAD( 30, POSITIV, 20) 3.37m dl1 (p4 ph1):f2 ;.........................End of back inept from 15N 2u 8.28m GRAD( 40, POSITIV, 40) 4m dl2 (d22 p6*2 ph5):f2 (p7*2 ph0):f3 2u GRAD( 50, POSITIV, 40) 12.28m dl1 ;_______________________________________________________Inept back to Ha (p4 ph0):f2 GRAD( 60, POSITIV, 10) 1.1m (p1 ph0):f1 ;.........................End of reverse inept to Ha 2u GRAD( 70, POSITIV, 4 ) 1.3m dl2 (d23 p1*2 ph0):f1 (p6*2 ph10):f2 2u GRAD( 80, POSITIV, 4 ) 1.3m dl6 (p1 ph0):f1 d7 p24:e 3u adc 88 (p8 ph0):dp3 ;81.92 ms of decoupling 6u lo to 88 times 10 30m 5u do 5u LOW( 11 ) ;lock on rcyc=2 ph31 d11 wr #0 if #0 zd ;_______________________________________________________________________ #ifdef NITROGEN d5 ip4 lo to 3 times 2 d5 id30 d5 ip31 d5 ip31 lo to 4 times NITROGEN_LOOP #endif ;_______________________________________________________________________ #ifdef CARBON d5 ip2 d5 rd30 d5 rp4 lo to 5 times 2 d5 id0 d5 dd20 d5 ip31 d5 ip31 lo to 6 times CARBON_LOOP #endif ;_______________________________________________________________________ 100u do 100u dbo 100u RESET exit ;_______________________________________________________________________ ph0=0 ph1=1 ph2=0 ph3=(360) 10 10 100 100 ;power level switch + BS phase correction ph4=0 2 ph5=(360) 3 ;power level switch correction ph10=0 ph31=0 2 2 0 ;_______________________________________________________________________