Ocean-optics Jaz Scripting Language and Scripting Engine Instrukcja Użytkownika Pobierz pdf (Strona 65)

A: Example Scripts

013-RD000-000-12- 201010 57

QuickAbsorbance1 := QuickPeakAbsorbance1 - QuickBaseAbsorbance

if(QuickAbsorbance1 >= QuickAbsorbance) GOTO AssignQuick

If(iMax1 < 645) GOTO Loop2

GOTO Calculate2

LABEL AssignQuick

QuickAbsorbance := QuickAbsorbance1

QuickPeak := QuickIntensityPeak1

GOTO Loop2

LABEL Calculate2

LogArgumentRefresh := QuickAbsorbance/(MaxAbsorbance - QuickAbsorbance)

if(LogArgumentRefresh> 0.0) GOTO OK6

GOTO ABORT

Label OK6

LOG10(LogArgumentRefresh, LogTermRefresh)

pK := -(1.9287 * LogTermRefresh) + 7.069

Slope := 11.19225 / pK

DisplayMsg("Quick Reset$Successful")

Pause(2)

Display("pK = ",pK,"")

Pause(2)

Display("Slope = ",Slope,"")

Pause(2)

GOTO TOP

Label ABORT

DisplayMsg("Internal$Math$ERROR")

Pause(2)

GOTO TOP

//Full four buffer calibration

LABEL Full

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

Brak uwag

Ocean-optics Jaz Scripting Language and Scripting Engine Instrukcja Użytkownika Strona 65