;alpha/beta-HSQC-alpha/beta
;generalized TROSY type experiment.
;ref: P. Andersson, JMR, vol 133, p. 364-367 (1998)
;TPPI frequency sign discrimination. (SEE PROCESSING NOTES at end).

"p2=p1*2"
"p4=p3*2"
"d0=3u"
;"d4=1s/94/4"

ze
30m pl1:f1 pl2:f2
1 120m
2 d1
(p1 ph4):f1
d4
(p2 ph1):f1 (p4 ph11):f2
d4
(p1 ph12):f1 (p3 ph13):f2
d0
(p1 ph14):f1
d4
(p2 ph1):f1 (p4 ph4):f2
d4
(p1 ph2):f1 (p3 ph1):f2
d4
(p2 ph4):f1 (p4 ph4):f2
d4
(p3 ph15):f2
go=1 ph31
30m wr #0 if #0 zd
30m ip11
30m ip13
30m id0
lo to 2 times td1
exit

ph1=1
ph2=2
ph3=3
ph4=0
ph11=0
ph12=1 1 3 3
ph13=1 3

ph14=1 ;A
ph15=0 ;A
;ph14=3 ;B
;ph15=2 ;B
;ph14=3 ;C
;ph15=0 ;C
;ph14=1 ;D
;ph15=2 ;D

ph31=0 2 2 0

;nd0=2


;Each of the four data sets (A,B,C,&D) requires different settings
;for the phases ph14 and ph15. Uncomment the appropriate pair,
;and comment out the rest.

;Processing Notes:
;Special processing is required in order to obtain useful spectra.
;Definitions of linear combinations of raw data (where A,B,C,&D
;represent the data sets collected with the phases indicated above):
;a=A+B
;b=A-B
;c=C+D
;d=C-D
;a90=conj(i*real(a)+imag(a)) = -i*a
;c90=conj(i*real(c)+imag(c)) = -i*c

;(a90 & c90 are 90 degree phase correction in both dimensions,
;accomplished in the time domain.)
;Processed data sets are indicated with a PP (i.e. PPa90 is the
;processed data from the a90 data set.)
;Processing itself requires no phase correction

;To obtain each of the four multiplet components, the following
;linear combinations of processed spectra are required. ('o' represents
;the desired multiplet component; 'x' represents absent components.)

; x x
; x o use i*(Im[PPb]+Re[PPa90])+(Re[PPb]+Im[PPa90])

; o x
; x x use i*(Im[PPb]-Re[PPa90])+(Re[PPb]-Im[PPa90])

; x o
; x x use i*(Im[PPd]+Re[PPc90])+(Re[PPd]+Im[PPc90])

; x x
; o x use i*(Im[PPd]-Re[PPc90])+(Re[PPd]-Im[PPc90])

;MATLAB CODE:

; serA=vs_runCalc.ser0; etc
; aa=serA+serB; bb=serA-serB; aa90=-i*aa; vs_runCalc.ser0=aa90;
; PPa90=vs_runCalc.spe; vs_runCalc.ser0=bb;
; PPb=vs_runCalc.spe;
; vs_runCalc.spe=i*(imag(PPb)+real(PPa90))+real(PPb)+imag(PPa90);
; vs_runCalc.spe=i*(imag(PPb)-real(PPa90))+real(PPb)-imag(PPa90);

; cc=serC+serD; dd=serC-serD; cc90=-i*cc; vs_runCalc.ser0=cc90;
; PPc90=vs_runCalc.spe; vs_runCalc.ser0=dd;
; PPd=vs_runCalc.spe;
; vs_runCalc.spe=i*(imag(PPd)+real(PPc90))+real(PPd)+imag(PPc90);
; vs_runCalc.spe=i*(imag(PPd)-real(PPc90))+real(PPd)-imag(PPc90);
Go Back
Back to Top

These processing instructions were designed by Peter Nicholas. Modified by David Fushman & Olivier Walker.