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

A: Example Scripts
013-RD000-000-12- 201010 61
[PROCESS CalculatepH]
//Gets sample spectrum, calculates and displays pH, returns to previous screen
GetSpectrum(SPECTROMETER_CHANNEL_NUMBER, SamplepHSpectrum)
Sub(SamplepHSpectrum, DarkSpectrum, SamplepHSpectrumDark)
LocateWavelength(SamplepHSpectrumDark, 750, SampleIntensityBase)
LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)
SampleBaseRatio := SamplepHSpectrumDark[SampleIntensityBase] /
LowpHSpectrumDark[LowIntensityBase]
LOG10(SampleBaseRatio, SampleBaseAbsorbance)
SampleBaseAbsorbance := -(SampleBaseAbsorbance)
LocateWavelength(SamplepHSpectrumDark, 618, SampleIntensityPeak1)
LocateWavelength(LowpHSpectrumDark, 618, LowIntensityPeak1)
SamplePeakRatio1 := SamplepHSpectrumDark[SampleIntensityPeak1] /
LowpHSpectrumDark[LowIntensityPeak1]
LOG10(SamplePeakRatio1, SamplePeakAbsorbance1)
SamplePeakAbsorbance1 := -(SamplePeakAbsorbance1)
SampleAbsorbance := SamplePeakAbsorbance1 - SampleBaseAbsorbance
LogArgument := SampleAbsorbance/(MaxAbsorbance - SampleAbsorbance)
if(LogArgument> 0.0) GOTO OK6
GOTO ABORT
Label OK6
LOG10(LogArgument, LogTerm)
pH := (Slope * LogTerm) + pK
Display("pH = ", pH, "")
Pause(5)
CALL ViewpH
GOTO EXIT
Label ABORT
DisplayMsg("Internal$Math$ERROR")
Pause(2)
LABEL EXIT
END
STOP