Appendix A
diffusion time Δ. Set the directory for data saving. Then T2, profile and
restricted diffusion measurements will start one-by-one automatically.
4. After measurements, data will be saved to set directory automatically.
File set~prarameters.ris
Option Explicit
I******************************************************
'* Script for setting default parameters of a diffusion sequence
'* Set the parameters for cpmg, profile and diffgp sequence
Sub Main()
'* General
NMR.Execute("RFAO 100")
NMR.Execute("DEAD1 60")
NMR.Execute("DEAD2 20")
'* FID sequence
NMR-ExecuteC-AMODE")
NMR.Execute("LOAD FID") ' load the sequence
NMR.Execute("FW 100Ktt)
NMR-ExecuteCSI 1048")
NMR-ExecuteCRG 20")
NMR.Execute("DS 0")
NMR-ExecuteCRG 5")
NMR.Execute(,'RD 1S")
'* CPMG sequence
NMR-ExecuteC-AMODE")
NMR.Execute("LOAD CPMG") ' load the sequence
200