; DFhncacbDwgnltp ; avance/CRP-version ; HNCACB with D decoupling ; 3D sequence with ; inverse correlation for triple resonance using multiple ; inept transfer steps ; ; F1(H) -> F3(N) -> F2(Ca/b,t1) -> F3(N,t2) -> F1(H,t3) ; ; phase sensitive using States-TPPI (t1) 13C ; phase sensitive using States-TPPI (t2) 15N ; using constant time in t2 ; f2 carrier on Ca/b ~43ppm ; with H-2 decoupling - requires lockswitch ; Ref. T. Yamazaki, W. Lee, C.H. Arrowsmith, D.R. Muhandiram & L.E. Kay, J. Am. Chem. Soc. 116, 11655-11666 (1994) ; Modified for cryoprobe from wa_hncacbDse: ; Sim 15N/13C 180 deg. pulses replaced by interleaved element, 90Sx,180Ix,90Sx ; 3-9-19 WATERGATE added JD Gross 7/12/00 ; 111703 D Frueh adding NLS in the Jim Sun fashion, i.e. with vc lists. ;*********NLS*************************************************************************************** ; 111703 D Frueh adding NLS in the Jim Sun fashion, i.e. with vc lists. ; 1) make the sampling schedule with COAST or sampsched2d (rnmrtk): two columns ; 2) convert to vclist use the script sched2vc (vc2sched) to do the conversion ; 3) in xwinnmr put the corresponding vclist ;IMPORTANT: td1*td2=4*(number of hypercomplex points sampled) ; : first entry in vclist is for 15N ;if 2d.sched has N pairs of points, the vclist will have 2N entries (one for each dimension) ;and the total number of FIDs recorded will be 4N (=td1*td2). ;DATA is stored in the order: ; 1) Re(15N) Re(13C) 2) Im(15N) Re(13C) 3) Re(15N) Im(13C) 4) Im(15N) Im(13C) ; The value of the evolution time of 15N is read first (first entry in vclist) ; Then the value of the 13C evolution (2nd entry in vclist) ;However it is the list that dictates which dimension is labeled first (i.e. which evolution ;periode is varied first). This can be modified if desired from 2d.sched by doing: ;"sort -n -k2 -k1 2d.sched > out.sched" or "sort -n -k1 -k2 2d.sched > out.sched" ;or simply make another list with rnmtk's sampsched2d ; check however that the first entry (and odd entries) correspond to nitrogen: ; example a vc list that looks like: ; 0 -> 15N ; 0 -> 13C (first 4 FIDs :ReRe ReIm ImRe ImIm have been acquired) ; 0 -> 15N ; 1 -> 13C (first 8 FIDs :ReRe ReIm ImRe ImIm have been acquired) ; 0 ; 3 ; 0 ; 5 ;means that 13C is the "fast dimension" (the one incremented first) (see, the value associated ;with 13C changes, whereas those with 15N will only change later on) ; ; a vc list that looks like: ; 0 ; 0 ; 1 ; 0 ; 2 ; 0 ; 7 ; 0 ;would mean that one increments first the 15N dimension ;also check that the sizes are corresponding to what you want (ex. 32 Complex points in 15N,64 Complex points in 13C : ; the list should have values at 63, or 62 for even lines, and not go higher than 32 for odd lines ;(not counting the comments!!!) ;****end****NLS************************************************************************************* ;note: interleaved 90Sx,180Ix,90Sx not necessary for recent spectrometers ; or spectrometers without cryoprobes. Then, replace by (CEN_CN2 p2*2 ph10):f2 (p3*2 ph10):f3 ;or on 3.1 and higher by (center (p2*2 ph10):f2 (p3*2 ph10):f3) etc. ;also you might want to replace the gron/groff commands by p16:gp1 etc. ;the current version works on both the oldest and the most recent instruments in our lab. ; on latest Bruker equipement, the LOCKDEC_ON & LOCKDEC_OFF cmds in the beginning and the end ;should be replaced by those currently commented in the pp. #include #include #include #define SED_ON (5u pl15 2u cpds8):f2 #define SED_OFF (2u do 5u pl2):f2 #define WALTZ_ON (5u pl12 p12 ph6 3u 20u cpds1 ph10):f1 #define WALTZ_OFF (2u do p12 ph7 5u pl1):f1 #define DDEC_ON (5u pl17 p4 ph6 3u 20u cpd4 ph10):f4 #define DDEC_OFF (2u do 3u p4 ph7):f4 "d0=3u" "d2=2.3m" "d3=5.5m" "d4=12m" "d8=6.8m" "d10=3u" "d11=30m" "d12=20u" "d5=d3-3u-p11-3u" "d9=12.0m" "d20=d4" "d14=d3-5u-2u-5u-p12-3u" "d15=d2-3u-3u-d30-200u" "d16=(d19-p3*2)/2" "d18=d2-5u-3u-d27-200u" "d17=d4-d3-2u-p12" "d24=d2-50u-d25-200u-d19*1.685" "DELTA2=d9-d3-5u-2u-20u+p2*2" "DELTA3=d9-5u-2u-5u-2u" "DELTA4=d8-5u-2u-2u-5u-2u-p12-5u-3u-3u-d21-200u-3u" "DELTA5=d8-5u-2u-2u-5u-5u-p12-3u-20u-3u-3u-d21-200u-3u" "CEN_HN1=(p3-p1)/2" "CEN_HN2=(p3-p1)" "l0=(td1*td2/4)" "l10=(td2/2)" aqseq 321 1 d11 ze d11 LOCKDEC_ON ; enables the use of the 2H-switch d11 pl31:f3 pl17:f4 2 d11 do:f3 H2_LOCK ; 2H-switch to lock, 15N decoupling off 6m LOCKH_OFF ; lockhold off ==> lock active 3 20u*2 10u 4 20u*2 5 20u 6 d1 pl1:f1 20u UNBLKGRAD 50u LOCKH_ON ; lockhold on ==> lock not active d12 H2_PULSE ; 2H-switch to pulse (p1 ph10):f1 5u pl3:f3 3u gron27 ; gradient on d27 ; sandwich gradient duration 200u groff ; gradient off d18 (CEN_HN2 p1*2 ph10):f1 (p3*2 ph10):f3 5u 3u gron27 ; gradient on d27 ; sandwich gradient duration 200u groff ; gradient off d18 (p1 ph6):f1 4u pl11:f1 ; power for H2O pulse (p11 ph25:r):f1 ; selective H2O pulse 3u 2u gron29 ; gradient on d29 ; crushing gradient duration 200u groff ; gradient off (p3 ph1):f3 SED_ON d14 ; 1/2JHN to start the 1H dec. WALTZ_ON DELTA2 SED_OFF (p2 ph10):f2 (p3*2 ph10):f3 ; Interleaved 13C/15N 180 (p2 ph10):f2 SED_ON DELTA3 SED_OFF (p3 ph10):f3 WALTZ_OFF 3u 2u gron28 ; gradient on d28 ; crushing gradient duration 200u groff ; gradient off WALTZ_ON ;1m LOCKDEC_ON DDEC_ON (p2 ph2):f2 SED_ON DELTA4 SED_OFF WALTZ_OFF DDEC_OFF ; 2H decoupling off 3u gron21 ; gradient on d21 ; sandwich gradient duration 200u groff ; gradient off 3u (p2*2 ph10):f2 3u 3u gron21 ; gradient on d21 ; sandwich gradient duration 200u groff ; gradient off SED_ON WALTZ_ON DDEC_ON ; 2H decoupling on DELTA5 SED_OFF (p2 ph3):f2 SED_ON d0 ;SED_OFF ;(p3*2 ph10):f3 ; put back only if using small d8 value ;SED_ON ; ie--If CA CS is active during d0. d0 SED_OFF (p2 ph4):f2 SED_ON DELTA4 SED_OFF WALTZ_OFF DDEC_OFF ; 2H decoupling off 3u gron19 ; gradient on d21 ; sandwich gradient duration 200u groff ; gradient off 3u (p2*2 ph10):f2 3u 3u gron19 ; gradient on d21 ; sandwich gradient duration 200u groff ; gradient off SED_ON WALTZ_ON DDEC_ON ; 2H decoupling on DELTA5 SED_OFF (p2 ph10):f2 WALTZ_OFF DDEC_OFF ; 2H decoupling off ;1m LOCKDEC_OFF 2u gron23 ; gradient on d23 ; crushing gradient duration 200u groff ; gradient off WALTZ_ON (p3 ph5):f3 SED_ON d20 SED_OFF (p2 ph10):f2 (p3*2 ph8):f3 ;Interleaved 13C/15N 180 (p2 ph10):f2 SED_ON (d17 d10 2u do p12 ph7 d5 3u pl11 p11 ph26 3u pl1):f1 (d4 d10):f2 ; WALTZ_OFF included SED_OFF (CEN_HN1 p1 ph10):f1 (p3 ph10):f3 ;----------------------------------3-9-19 WATERGATE--------------- 4u d24 50u gron25 ; gradient on d25 ; watergate gradient duration groff ; gradient off 200u p1*0.2308 ph6 d19 p1*0.6923 ph6 d19 p1*1.4615 ph6 d16 (p3*2 ph10 ):f3 d16 p1*1.4615 ph7 d19 p1*0.6923 ph7 d19 p1*0.231 ph7 50u gron25 ; gradient on d25 ; watergate gradient duration groff 200u d24 pl31:f3 ; Set power for 15N decoupling 4u BLKGRAD ;----------------------------------Sampling period if (l20 == 1) { go=2 ph31 cpd3:f3 d11 do:f3 wr #0 } if (l20 == 3) { go=2 ph31 cpd3:f3 d11 do:f3 wr #0 if #0 ip5 zd H2_LOCK;15N 20u LOCKH_OFF 20u lo to 3 times 2 20u ip2 20u ip3 lo to 5 times 2 ;13C ; reseting everything 20u rd10 20u rd20 20u rd0 20u rp31 20u rp5 20u rp2 20u rp3 ; increment 15N States-TPPI 95 10u 20u id10 ip5*2 20u dd20 ip31*2 lo to 95 times c 20u ivc ; increment 13C states-TPPI 99 20u id0 ip31*2 20u ip2*2 20u ip3*2 lo to 99 times c 20u ivc lo to 6 times l0 } ; Original linear version: ; go=2 ph31 cpd3:f3 ; d11 do:f3 wr #0 if #0 ip5 zd H2_LOCK ; 3m LOCKH_OFF ; 3m ; lo to 3 times 2 ; 10u ; 20u id10 ; 20u dd20 ip31*2 ; lo to 4 times l10 ; 20u rd10 ip2 ; 20u rd20 ip3 ; lo to 5 times 2 ; 20u id0 ip31*2 ; lo to 6 times l0 d11 LOCKDEC_OFF ; disables the use of the 2H-switch d12 do:f1 d12 do:f2 d12 do:f3 exit ph1=0 2 ph2=0 0 2 2 ph3=1 1 1 1 3 3 3 3 ph4=1 1 1 1 1 1 1 1 3 3 3 3 3 3 3 3 ph5=0 ph6=1 ph7=3 ph8=0 0 0 0 2 2 2 2 ph9=0 ph10=0 ph25=0 ph26=2 ph31=0 2 2 0 ;-----------PARAMETERS--------- ;------Pulses and powers------- ;p1: 90-deg 1H pulses @ pl1 ;p2: 90-deg 13C-pulses @ pl2 ;p3: 90-deg 15N-pulses @ pl3 ;p11: water selective pulse @ pl11 ~2ms ;pl1: 1H high power level ;pl2: 13Ca high power level (Ca/b 90) ;pl3: 15N high power level ;pl11: water selective power ;------decoupling------------- ;pcpd1: 90-deg pulse for 1H cpds1-dec. @ pl12 ;p12: p12=pcpd1 ;pcpd2: 90-deg pulse for CO cpds8-dec. @ pl15 ;pcpd3: 90-deg pulse for 15N cpd3-dec. @ pl31 ;pl12: power level for cpds1-dec. on f1 ;pl31: power level for cpd3-dec. on f3 ;pl17: power level for cpd4-dec. on f4 ;cpdprg1: decoupling sequence on f1 [waltz16] ;cpdprg3: decoupling sequence on f3 [garp] ;cpdprg4: decoupling sequence on f4 [waltz16] ;pl15: power level for seduce dec. ;sp15: sp15=pl15 ;spnam15: name of seduce shape pulse ;cpdprg8: seduce dec. seq. on f2 [seduce_wa] ;------delays------------------ ;d0: 13C evolution time ;d2: 2.3 m < 1/4JHN ;d3: 1/2JHN to start the dec. [5.5msec] ;d4: 15N constant time [12.4msec] ;d10: 15N evolution time ;d11: delay for disk I/O [30 msec] ;d19: 3-9-19 WTG delay ;------gradients--------------- ;d21: 0.1m duration sandwich gradient ;d22: 0.25m duration sandwich gradient ;d23: 0.3m duration crushing gradient ;d25: 1m WTG gradient ;d27: 0.5m duration sandwich gradient ;d28: 0.5m duration crushing gradient ;d29: 0.5m duration crushing gradient ;d30: 0.3m duration of sandwich gradient ;gpz19: 43% ;gpz21: 29% ;gpz22: 23% ;gpz23: 28% ;gpz24: 50% ;gpz25: 50% ;gpz26: gpz26= gpz25*-1.0 -50% ;gpz27: 6% ;gpz28: 12% ;gpz29: 60% ;gpz30: 3% ;------others----------------- ;in0: inc. 13C dim. in0: 1/(2*SW(X)) = DW(X) ;in10: inc. 15N dim. in10: 1/(2*SW(X)) = DW(X) ;in20: in10=in20 ;l0: # of complex points in 13C dim. = td1/2 ;l10: # of complex points in 15N dim. = td2/2 ;nd0: 2 ;nd10: 2 ;ds: 32 ;ns: 8 ;phcor25:0