Ocean Optics Jaz Scripting Language and Scripting Engine - Manual (Page 67)

A: Example Scripts
013-RD000-000-12- 201010 59
GOTO FullMenu
LABEL Eight
DisplayMsg("pH = 8 Buffer$Should Be$Present")
Pause(2)
GetSpectrum(SPECTROMETER_CHANNEL_NUMBER, EightSpectrum)
Sub(EightSpectrum, DarkSpectrum, EightSpectrumDark)
LocateWavelength(EightSpectrumDark, 750, EightIntensityBase)
LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)
EightBaseRatio := EightSpectrumDark[EightIntensityBase] /
LowpHSpectrumDark[LowIntensityBase]
LOG10(EightBaseRatio, EightBaseAbsorbance)
EightBaseAbsorbance := -(EightBaseAbsorbance)
LocateWavelength(EightSpectrumDark, 618, EightIntensityPeak1)
LocateWavelength(LowpHSpectrumDark, 618, LowIntensityPeak1)
EightPeakRatio1 := EightSpectrumDark[EightIntensityPeak1] /
LowpHSpectrumDark[LowIntensityPeak1]
LOG10(EightPeakRatio1, EightPeakAbsorbance1)
EightPeakAbsorbance1 := -(EightPeakAbsorbance1)
EightAbsorbance := EightPeakAbsorbance1 - EightBaseAbsorbance
LogArgumentEight := EightAbsorbance/(MaxAbsorbance - EightAbsorbance)
if(LogArgumentEight > 0.0) GOTO OK26
GOTO ABORT
LABEL OK26
LOG10(LogArgumentEight, LogTermEight)
Slope := 2/(LogTermEight - LogTermSix)
pK2 := 6 - (Slope*LogTermSix)
pK4 := 8 - (Slope*LogTermEight)
pKSum := pK2 + pK4
pK := pKSum / 2
DisplayMsg("Calibration$successful")
Pause(2)