Create a Forum Topic by Logging In or Creating an Account

Load spectre

Mon, 03/20/2017 - 02:09 am

Dear,
I would like to load several spectra in a file.When I load one spectre I use this program:
// Spectre
//-------------------------------------------------------

Macro SpectreTotal(ctrlName) : ButtonControl

String ctrlName

KillWaves/Z Wavelength,Intensity

dowindow/K Graph0

dowindow/K Table0

LoadWave/A/G

String list = waveList("*", ";", "")

String traceName

variable i

variable/G cpix,Lgond

String/G mypath=S_path

variable/G npt

traceName = StringFromList(0, list)

npt=pnt2x($traceName,numpnts($traceName)-1)+1 // N = numpnts(waveName)

Make/O/N=(npt) Wavelength=$traceName

traceName = StringFromList(1, list)

Make/O/N=(npt) Intensity=$traceName

edit Intensity,Wavelength

display /W=(10, 20, 600, 400) Intensity vs Wavelength

ModifyGraph rgb=(0,0,0)

Label left "\\u#2Intensité (u.a.)";DelayUpdate

Label bottom "\\u#2longueur d'onde (A°)"

KillWaves/Z wave0,wave1

ShowInfo

End