;;Dimensionality: 6 ;;Experiment: HNOAMJ ;;Phaseoverlap: 000000 ;;trosy: 0 ;;DimProjections: 2 ;;Hfreq: BF1 ;;Cfreq: BF2 ;;Nfreq: BF3 ;;Carrier1: CNST 8 ;;Carrier2: O3P ;;Carrier3: CNST 29 ;;Carrier4: CNST 28 ;;Carrier5: O3P ;;Carrier6: O1P ;;----------------end header------------------ ;Conventional name: 6D-APSY-seq-HNCOCANH ;Sebastian Hiller, ETH Zurich 2004-2007 ;**************************************************************** ;* * ;* The following one-letter codes for the nuclei are used: * ;* * ;* HN (i) = H w1 u * ;* N (i) = N w2 v * ;* CO (i-1) = O w3 w * ;* CA (i-1) = A w4 x * ;* N (i-1) = M w5 y * ;* * ;* The angles are defined as: * ;* * ;* alpha between w4 and w5 * ;* beta between w3 and w4/w5 * ;* gamma between w2 and w3/w4/w5 * ;* delta between w1 and w2/w3/w4/w5 * ;* * ;**************************************************************** ;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: angle alpha ;cnst2: angle beta ;cnst3: angle gamma ;cnst4: angle delta ;cnst21: SW1 (HN) [Hz] ;cnst22: SW2 (N) [Hz] ;cnst23: SW3 (CO) [Hz] ;cnst24: SW4 (CA) [Hz] ;cnst25: SW5 (N) [Hz] "cnst21=cnst21" "cnst22=cnst22" "cnst23=cnst23" "cnst24=cnst24" "cnst25=cnst25" ;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 ;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 ;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:gp10 190u #define GRADIENT4 10u p22:gp2 190u #define GRADIENT5 10u p22:gp1 190u #define GRADIENT6 10u p22:gp2 190u #define GRADIENT7 10u p22:gp9 190u ;----------------------offsets "p13=866000/(bf2*(cnst29-cnst30))" "p17=866000/(bf2*(cnst29-cnst30))" "spoff9=bf2*((cnst30-cnst29)/1000000)" "spoff11=0.0" "spoff12=0.0" "spoff13=0.0" "spoff15=bf2*((cnst29-cnst30)/1000000)" "spoff17=0.0" "spoff19=0.0" "spoff20=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))" "cnst14=abs(sin(0.017453293*cnst3))" "cnst15=abs(cos(0.017453293*cnst3))" "cnst16=abs(sin(0.017453293*cnst4))" "cnst17=abs(cos(0.017453293*cnst4))" "l1=td1/2" "p2=2*p1" "p6=2*p5" "d0 = 1.0m" ; dummy "in0= in1" ; dummy ;------------------------------basic delays "d2 =2.7m" ;1/2 H-N "d4 =5.4m" ; 1 H-N "d7 =14.0m" ;sqrt(2)*1/2 N-CA "d10=25.0m" ;1/2 N-CA;2*CB-CA "d8 =14.0m" ;1/2 N-CO "d9 =4.75m" ;1/2 CO-CA ;----------------------fixed delays define delay INEPT_W "INEPT_W=d2-(p22+200u+p1*2.3846+d5*2.5)" define delay WGATE "WGATE=d5/2-p5" ;----------------------------indirect dimensions ;----------------------H "d11=d2-(p21+200u)-p6-5u" "d20=5u" "d21=d2-(p21+200u)" "in11=cnst16*in1/2" "in21=(d21-20u)/l1" "in20=0u" ;----------------------N "d12=10u" "d16=d8-p17-10u" "d22=10u" "d23=d8" "in12=cnst17*cnst14*in1/2" "in23=(d23-20u)/l1" "in22=0u" ;----------------------O "d13=d9-p9-5u" "d24=5u" "d25=d9-p9" "in13=cnst17*cnst15*cnst12*in1/2" "in25=(d25-p6-20u)/l1" "in24=0u" ;----------------------A "d14=d9" "d26=d10-d9" "d27=d10" "in14=cnst17*cnst15*cnst13*cnst10*in1/2" "in27=in14" ;----------------------M "d30=d7" "d29=10u" "d6=d7-p13-10u-d2*2" "d15=d7-p13-10u" "d28=d7-p13-p15-20u" "in15=cnst17*cnst15*cnst13*cnst11*in1/2" "in30=(d30-20u)/l1" "in6=in15" "in29=0u" ;-------------------- #include define loopcounter ST1CNT "ST1CNT = td1 / (2)" 1 10u ze #ifdef A2 1m ip31 1m ip31 #endif #ifdef U 1m ip11 #endif #ifdef V 1m ip12 #endif #ifdef W 1m ip13 #endif #ifdef X 1m ip14 #endif #ifdef Y 1m dp15 #endif goto 4 10u d0 10u id27 10u id0 10u id20 4 1m ;------------------------------------Switch constant-time for 15M if "in30 < in15" goto 5 10u "in30=in15" 10u goto 6 5 1m 10u "in29=in15-in30" 10u 6 1m ;------------------------------------Switch constant-time for 15N if "in23 < in12" goto 7 10u "in23=in12" 10u goto 8 7 1m 10u "in22=in12-in23" 10u 8 1m ;------------------------------------Switch constant-time for 13CO if "in25 < in13" goto 9 10u "in25=in13" 10u goto 10 9 1m 10u "in24=in13-in25" 10u 10 1m ;------------------------------------Switch constant-time for 1H if "in21 < in11" goto 11 10u "in21=in11" 10u goto 12 11 1m 10u "in20=in11-in21" 10u 12 1m ;------------------------------------ 2 5m LBLSTS1, 5m LBLF1, 5m 10u do:f3 10u LOCKH_OFF 10u pl9:f1 d1 cw:f1 10u do:f1 10u 10u fq=cnst29 (bf ppm):f2 10u 10u fq=cnst8 (bf ppm):f1 10u 10u pl1:f1 10u pl2:f2 10u pl3:f3 10u LOCKH_ON ;-----------------------------------------first INEPT (p1 ph11):f1 GRADIENT1 d11 (p6 ph20):f3 d20 (p2 ph20):f1 GRADIENT1 d21 (p1 ph1):f1 ;-----------------------------------------HzNz GRADIENT2 10u fq=0(sfo hz):f1 10u pl11:f1 ;----------------------------------------- (p5 ph12):f3 (refalign (d12 p9:sp9 ph20 d16):f2 lalign (d4 5u cpds1):f1) (p17:sp17 ph20):f2 d22 (p6 ph20):f3 d23 (p9:sp9 ph20):f2 10u (p5 ph20):f3 ;-----------------------------------------NzCOz GRADIENT4 ;----------------------------------------- (p20:sp20 ph2):f2 (refalign (d13 p9:sp9 ph20 d24):f2 center (p6 ph20):f3) (p19:sp19 ph23):f2 (refalign (d25 p9:sp9 ph20):f2 center (p6 ph20):f3) (p20:sp20 ph13):f2 ;-----------------------------------------NzCOzCAz GRADIENT7 10u 10u fq=cnst30 (bf ppm):f2 10u 10u pl2:f2 10u ;----------------------------------------- (p12:sp12 ph14):f2 d14 (p15:sp15 ph20):f2 10u d26 (refalign (p11:sp11 ph20):f2 center (p6 ph20):f3) d27 (p15:sp15 ph20):f2 10u (p3 ph21):f2 ;-----------------------------------------CAzNz GRADIENT5 ;----------------------------------------- (p5 ph15):f3 d30 (p6 ph20):f3 d29 (p13:sp13 ph20):f2 (d6 5u do):f1 (d15):f3 (d28 p15:sp15 ph20):f2 (p5 ph20):f3 ;-----------------------------------------NzHz 10u (p3 ph20):f2 GRADIENT3 10u 10u pl1:f1 10u ;----------------------------------------- (p1 ph20):f1 GRADIENT6 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 GRADIENT6 INEPT_W pl13:f3 LOCKH_OFF ;-----------------------------------------acquisition go=2 ph31 cpd3:f3 #ifdef Pu 1m do:f3 wr #0 if #0 zd ip11 #endif #ifdef Pv 1m do:f3 wr #0 if #0 zd ip12 #endif #ifdef Pw 1m do:f3 wr #0 if #0 zd ip13 #endif #ifdef Px 1m do:f3 wr #0 if #0 zd ip14 #endif #ifdef Py 1m do:f3 wr #0 if #0 zd dp15 #endif lo to LBLSTS1 times 2 1m id11 1m id20 1m dd21 1m id12 1m id22 1m dd23 1m id13 1m id24 1m dd25 1m id14 1m dd27 1m id15 1m id29 1m dd30 1m id6 lo to LBLF1 times ST1CNT 10u do:f1 10u do:f2 10u do:f3 10u LOCKH_OFF exit ;-------------------phases for phasecycle ph1= 1 3 ph2= 3 3 1 1 ph31=0 2 2 0 ;-------------------phases for States-TPPI ph11=0 ph12=0 ph13=0 ph14=0 ph15=0 ;-------------------fixed phases ph20=0 ph21=1 ph22=2 ph23=3