Appendix A
NMR.Execute(''GZ 32767")
NMR.Execute(',DS 2")
NMR.Execute("D1 200 ,,)
NMR.Execute(l,D2 40000 ',)
NMR.Execute("D3 3000 ")
NMR.Execute("D4 500000 ")
NMR.Execute("D5 200 ,,)
NMR.Execute(,'D6 1000")
NMR.Execute("G2 500")
NMR.Execute("RD 15S")
NMR-ExecuteCSI 2048")
NMR.Execute("DW 6")
NMR.Execute("NS 16")
NMR.StatusMessage("FID, CPMG, profile and Diffgp set ")
end sub
File t2_diff j>rofie.ris
Option Explicit
∙******************************************************
'* Script to perform diffusion for multiple D4 values
,* g is varied according to the list and the range is decreased
'* according to D4ref
'* A CPMG and a profile is performed before each diffusion sequence
'* a delay waittime can be inserted
I******************************************************
Dim ListNameI ' Name of list file 1
Dim ListName2 ' Name of list file 2
Dim DataName ' Name of data file
Sub Main()
Dim r, q
202