Ocean-optics Jaz Scripting Language and Scripting Engine Uživatelský manuál stáhnout pdf (Strana 63)

A: Example Scripts

013-RD000-000-12- 201010 55

OpenFile(LowFile, ForWrite)

WriteSpectrum(LowFile,LowpHSpectrumDark)

CloseFile(LowFile)

LocateWavelength(MaxpHSpectrumDark, 750, MaxIntensityBase)

LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)

MaxBaseRatio := MaxpHSpectrumDark[MaxIntensityBase] /

LowpHSpectrumDark[LowIntensityBase]

LOG10(MaxBaseRatio, MaxBaseAbsorbance)

MaxBaseAbsorbance := -(MaxBaseAbsorbance)

LocateWavelength(MaxpHSpectrumDark, 618, MaxIntensityPeak1)

LocateWavelength(LowpHSpectrumDark, 618, LowIntensityPeak1)

MaxPeakRatio1 := MaxpHSpectrumDark[MaxIntensityPeak1] /

LowpHSpectrumDark[LowIntensityPeak1]

LOG10(MaxPeakRatio1, MaxPeakAbsorbance1)

MaxPeakAbsorbance1 := -(MaxPeakAbsorbance1)

MaxAbsorbance := MaxPeakAbsorbance1 - MaxBaseAbsorbance

Display("Max Abs = ",MaxAbsorbance,"")

Pause(2)

END

//Reset pK and Slope Menu

[PROCESS Refresh]

LABEL TOP

ShowMenu("Manual Entry","Quick Reset","Full Reset","Back")

OnButtonClick(UserSelection,TimeoutSeconds)

If(UserSelection = 0) GOTO Manual

If(UserSelection = 1) GOTO Quick

If(UserSelection = 2) GOTO Full

If(UserSelection = 3) GOTO EXIT

1 2 ... 58 59 60 61 62 63 64 65 66 67 68 ... 73 74

Žádné komentáře

Ocean-optics Jaz Scripting Language and Scripting Engine Uživatelský manuál Strana 63