Ocean-optics Jaz Scripting Language and Scripting Engine Manuel d'utilisateur télécharger pdf (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

1 2 ... 64 65 66 67 68 69 70 71 72 73 74

Pas de commentaire

Ocean-optics Jaz Scripting Language and Scripting Engine Manuel d'utilisateur Page 69