;;Dimensionality: 4 ;;Experiment: NOAH ;;Phaseoverlap: 0000 ;;trosy: 0 ;;DimProjections: 2 ;;Hfreq: BF1 ;;Cfreq: BF2 ;;Nfreq: BF3 ;;Carrier1: O3P ;;Carrier2: CNST 29 ;;Carrier3: CNST 30 ;;Carrier4: O1P ;;----------------end header------------------ ;Conventional name: 4D-APSY-HNCOCA ;Sebastian Hiller, ETH Zurich 2004-2007 ;**************************************************************** ;* * ;* The following one-letter codes for the nuclei are used: * ;* * ;* N (i) = N w1 w * ;* CO (i-1) = O w2 x * ;* CA (i-1) = A w3 y * ;* * ;* The angles are defined as: * ;* * ;* alpha between w2 and w3 * ;* beta between w1 and w2/w3 * ;* * ;**************************************************************** ;pl1 : power for 1H hard pulse ;pl2 : power for 13C hard pulse ;pl3 : power for 15N hard pulse ;pl9 : power for H2O presat ;pl11 : power for 1H DIPSI2 decoupling ;pl13 : power for 15N WALTZ decoupling ;p1 : 90 degree hard pulse 1H ;p2 : 180 degree 1H ;p3 : 90 degree hard pulse 13C ;p4 : 180 degree 13C ;p5 : 90 degree hard pulse 15N ;p6 : 180 degree 15N ;p25 : purge pulse 1m ;pcpd1 : 90 degree cpd-pulse 1H (DIPSI2, 80us) ;pcpd3 : 90 degree cpd-pulse 15N (WALTZ, 160us) ;cpdprg1 : dipsi2 ;cpdprg3 : waltz16 ;p21 : 600u ;p22 : 800u ;p23 : 1000u ;gpz1 : 25 % ;gpz2 : 30 % ;gpz3 : 35 % ;gpz4 : 40 % ;gpz5 : 45 % ;gpz6 : 50 % ;gpz7 : 55 % ;gpz8 : 60 % ;gpz9 : 65 % ;gpz10 : 70 % ;gpz11 : 75 % ;gpz12 : 80 % ;d1 : relaxation delay ;d5 : 3-9-19-delay. 200/130u at 500/750MHz ;cnst1: alpha ;cnst2: beta ;cnst41: SW1 (N) [Hz] ;cnst42: SW2 (CO) [Hz] ;cnst43: SW3 (CA) [Hz] ;cnst7: 1H carrier in HA ;cnst8: 1H carrier in amide region ;cnst29: CO chemical shift (offset, 174 ppm) ;cnst30: Ca chemical shift (offset, 53 ppm) ;sp9 : 180 deg, p9, iburp1_128 ;sp10 : 90 deg, p10, gauss128_5 ;sp11 : 180 deg, p11, reburp_128 ;sp12 : 90 deg, p12, eburp1_128 ;sp13 : 180 deg, p13, BLOCK.32 ;sp14 : 90 deg, p14, BLOCK.32 ;sp15 : 180 deg, p15, iburp1_128 ;sp16 : 90 deg, p16, BLOCK.32 ;sp17 : 180 deg, p17, BLOCK.32 ;sp18 : 180 deg, p18, gauss128_5 ;sp19 : 180 deg, p19, reburp_128 ;sp20 : 90 deg, p20, gauss128_5 ;spnam9 : iburp1_128 ;spnam10 : gauss128_5 ;spnam11 : reburp_128 ;spnam12 : eburp1_128 ;spnam13 : BLOCK.32 ;spnam14 : BLOCK.32 ;spnam15 : iburp1_128 ;spnam16 : BLOCK.32 ;spnam17 : BLOCK.32 ;spnam18 : gauss128_5 ;spnam19 : reburp_128 ;spnam20 : gauss128_5 #define GRADIENT1 10u p21:gp1 190u #define GRADIENT2 10u p23:gp10 190u #define GRADIENT3 10u p23:gp8 190u #define GRADIENT4 10u p22:gp1 190u #define GRADIENT5 10u p22:gp2 190u #define GRADIENT6 10u p23:gp10 190u #define GRADIENT7 10u p23:gp8 190u #define GRADIENT8 10u p22:gp2 190u ;cnst51 : set to o3p ;cnst52 : set to cnst 29 ;cnst53 : set to cnst 30 ;cnst54 : set to o1p ;cnst59 : dummy "cnst59=cnst41+cnst42+cnst43+cnst51+cnst52+cnst53+cnst54" ;----------------------offsets "p16=968000/(bf2*(cnst29-cnst30))" "p17=866000/(bf2*(cnst29-cnst30))" "spoff9=bf2*((cnst30-cnst29)/1000000)" "spoff10=0.0" "spoff11=0.0" "spoff15=bf2*((cnst29-cnst30)/1000000)" "spoff16=0.0" "spoff17=0.0" "cnst10=abs(sin(0.017453293*cnst1))" "cnst11=abs(cos(0.017453293*cnst1))" "cnst12=abs(sin(0.017453293*cnst2))" "cnst13=abs(cos(0.017453293*cnst2))" "l1=td1/2" "p2=2*p1" "p6=2*p5" "d0 = 1.0m" ; dummy "in0= in1" ; dummy ;------------------------------basic delays "d2 = 2.7m" ; 1/2 J_NH "d3 = 13.75m" ; 1/2 J "d4 = 4.5m" ; 1/2 J ;----------------------fixed delays define delay INEPT_1 "INEPT_1=d2-p21-200u" define delay INEPT_W "INEPT_W=d2-(p22+200u+p1*2.3846+d5*2.5)" define delay WGATE "WGATE=d5/2-p5" "d31=d3-2*d2" ;----------------------------indirect dimensions ;----------------------N "d11=5u" "d12=d3-10u-p9-p17" "d13=5u" "d14=d3" "d30=2*d2" "in11=cnst12*in1/2" "in14=(d14-20u)/l1" "in13=0u" ;----------------------O "d15=5u" "d16=d4-10u-p6" "d17=5u" "d18=d4" "in15=cnst10*cnst13*in1/2" "in18=(d18-20u)/l1" "in17=0u" ;----------------------A "d19=10u" "in19=cnst11*cnst13*in1/2" ;-------------------- #include define loopcounter ST1CNT "ST1CNT = td1 / (2)" 1 10u ze #ifdef A2 1m ip31 1m ip31 #endif #ifdef W 1m ip1 #endif #ifdef X 1m ip2 #endif #ifdef Y 1m ip3 #endif goto 4 d0 10u id0 10u id15 10u id19 4 1m ;------------------------------------Switch constant-time for 15N if "in14 < in11" goto 5 10u "in14=in11" 10u goto 6 5 1m 10u "in13=in11-in14" 10u 6 1m ;------------------------------------Switch constant-time for 13CO if "in18 < in15" goto 7 10u "in18=in15" 10u goto 8 7 1m 10u "in17=in15-in18" 10u 8 1m ;----------------------------------------- 2 5m LBLSTS1, 5m LBLF1, 5m 10u do:f3 10u LOCKH_OFF 10u pl9:f1 d1 cw:f1 10u do:f1 10u fq=cnst29 (bf ppm):f2 20u pl1:f1 20u pl2:f2 20u pl3:f3 20u LOCKH_ON ;-----------------------------------------INEPT HN -> N (p1 ph20):f1 GRADIENT1 INEPT_1 (refalign (p2 ph20):f1 center (p6 ph20):f3) GRADIENT1 INEPT_1 (p1 ph11):f1 ;-----------------------------------------z-Filter GRADIENT2 20u pl11:f1 ;-----------------------------------------N-evolution, INEPT N -> CO (p5 ph1):f3 (d11 p9:sp9 ph20 d12 p17:sp17 ph20):f2 (d30 5u cpds1):f1 d13 (p6 ph20):f3 d14 (p5 ph20):f3 ;-----------------------------------------z-Filter GRADIENT3 ;-----------------------------------------CO evolution (p16:sp16 ph2):f2 d15 (p6 ph20):f3 d16 (p9:sp9 ph20):f2 d17 (p17:sp17 ph20):f2 d18 (p9:sp9 ph20):f2 5u (p16:sp16 ph21):f2 ;-----------------------------------------z-Filter GRADIENT4 10u 10u fq=cnst30 (bf ppm):f2 10u 10u pl2:f2 10u ;-----------------------------------------CA evolution (p10:sp10 ph3):f2 d19 (refalign (p15:sp15 ph20):f2 center (p6 ph20):f3) d19 (p11:sp11 ph20):f2 10u (refalign (p15:sp15 ph20):f2 center (p6 ph20):f3) 10u (p10:sp10 ph12):f2 ;-----------------------------------------z-Filter GRADIENT5 10u 10u fq=cnst29 (bf ppm):f2 10u 10u pl2:f2 10u ;-----------------------------------------INEPT CA -> CO (p16:sp16 ph20):f2 5u (p9:sp9 ph20):f2 d4 (p17:sp17 ph20):f2 5u (p9:sp9 ph20):f2 d4 (p16:sp16 ph21):f2 ;-----------------------------------------z-Filter GRADIENT6 ;-----------------------------------------INEPT CO -> N (p5 ph20):f3 d3 (p6 ph20 d3):f3 (p17:sp17 ph20):f2 (d31 5u do):f1 (p5 ph20):f3 ;-----------------------------------------z-Filter GRADIENT7 10u 10u pl1:f1 10u ;-----------------------------------------INEPT N -> HN (p1 ph20):f1 GRADIENT8 INEPT_W (p1*0.2308 ph21 d5 p1*0.6923 ph21 d5 p1*1.4615 ph21):f1 WGATE (p6 ph20):f3 WGATE (p1*1.4615 ph23 d5 p1*0.6923 ph23 d5 p1*0.2308 ph23):f1 GRADIENT8 INEPT_W pl13:f3 ;-----------------------------------------acquisition go=2 ph31 cpd3:f3 #ifdef Pw 5m do:f3 wr #0 if #0 zd ip1 #endif #ifdef Px 5m do:f3 wr #0 if #0 zd ip2 #endif #ifdef Py 5m do:f3 wr #0 if #0 zd ip3 #endif lo to LBLSTS1 times 2 1m id11 1m id13 1m dd14 1m id15 1m id17 1m dd18 1m id19 lo to LBLF1 times ST1CNT 10u do:f1 10u do:f2 10u do:f3 10m LOCKH_OFF exit ;-------------------phases for phasecycle ph11= 1 1 3 3 ph12= 0 2 ;-------------------fixed phases ph20 = 0 ph21 = 1 ph22 = 2 ph23 = 3 ;-------------------phases for States-TPPI ph31= 0 2 2 0 ph1=0 ph2=0 ph3=0