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

A: Example Scripts

56 013-RD000-000-12- 201010

GOTO EXIT

LABEL Manual

//Not yet a feature in Scriptor

DisplayMsg("Not yet a$usable feature")

Pause(2)

GOTO TOP

//Quick single buffer calibration

LABEL Quick

DisplayMsg("Make sure Dark,$Low, and Max Refs$have been taken")

Pause(3)

DisplayMsg("pH = 7 Buffer$Should Be$Present")

Pause(2)

GetSpectrum(SPECTROMETER_CHANNEL_NUMBER, QuickSpectrum)

Sub(QuickSpectrum, DarkSpectrum, QuickSpectrumDark)

iMax1 := 596

LocateWavelength(QuickSpectrumDark, 750, QuickIntensityBase)

LocateWavelength(LowpHSpectrumDark, 750, LowIntensityBase)

QuickBaseRatio := QuickSpectrumDark[QuickIntensityBase] /

LowpHSpectrumDark[LowIntensityBase]

LOG10(QuickBaseRatio, QuickBaseAbsorbance)

QuickBaseAbsorbance := -(QuickBaseAbsorbance)

QuickAbsorbance := 0

LABEL Loop2

iMax1 := iMax1 + 1

LocateWavelength(QuickSpectrumDark, iMax1, QuickIntensityPeak1)

LocateWavelength(LowpHSpectrumDark, iMax1, LowIntensityPeak1)

QuickPeakRatio1 := QuickSpectrumDark[QuickIntensityPeak1] /

LowpHSpectrumDark[LowIntensityPeak1]

LOG10(QuickPeakRatio1, QuickPeakAbsorbance1)

QuickPeakAbsorbance1 := -(QuickPeakAbsorbance1)

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

Žádné komentáře

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