Sample macro for 3D processing

nutsmacro 3D processing
; Bruker data from DuPont Pharmaceuticals
; data is States-type hypercomplex in both indirect dimensions
; macro uses long command mode
; data size is 512 x 55 x 48 (complex) (43 MByte file)
; with RD, DH and phasing in proton dimension
; total time, after data loaded into 3D mode, 42 sec (PII-400)
; without RD and DH, total time 18 sec

; before starting, open file, MS (S#=90) RD, DH (to set parameters)
; FT 1st slice and determing phasing

; note that spaces are *not ignored* in non-2-letter command mode!

2f,
ga,
set s# 90

; enter 3D arrayed mode
ar 3d,

; cosine mult, RD (this is Bruker digitally filtered data) and
; digital high-pass filter (this has residual water peak)
ms,
rd,
dh,

; ft and phase, then combine Real parts to form complex FT in
; second dimension (see Help on States)
ft,
ps,
tr,tr,st,

; transpose data to exchange 1st and 3rd dimensions
td 3,

; transpose data to exchange 2nd and 3rd dimensions, so
; we are ready to process 2nd dimension, similar to 1st
td 2,
ms,
ft,
tr,tr,st,

; transpose 2nd and 3rd dimensions so we can FT in 3rd dimension
td 2,
ms,
ft,

; transpose again so direct dimension is displayed horizontally
td 3,
ss,
ip,

end

Last updated: 05/25/02