NUTSMacro Varian magnitude cosy

; import data before running macro

;macro prompts for name of data set
; select translated NUTS data file (starts with $)

ask filea
ga
set sl 1
set s# 0
set filec ft1.2d

; 1st dimension processing using sine sq window fcn
ga bc ms ms ft bc sc in

; reset file names and transpose
set filec td.2d
set filea ft1.2d
set sl 1
ga
td

set filea td.2d
set filec ft2.2d
set sl 1
set lb 5

; 2nd dimension processing using sine sq, zero-fill, 
; magnitude calculation and spectrum reverse
ga ms ms zf ft mc sr bc sc in

; reset file names and transpose 
set filea ft2.2d
set filec final.2d
set sl 1
ga
td
set filea final.2d
ga
ss
set mh 1
ip
end