Campbell IRTS-P Instruction Manual page 14

IRTS-P Precision Infrared Temperature Sensor
CR1000 Example Program
'CR1000
Dim SB, Psb, Hsb, Ksb, SenEC
Public PTemp_C, ATT_C, CTT_C
DataTable(IRTS-P,True,-1)
DataInterval(0,60,Min,0)
Average(1,ATT_C,IEEE4,0)
Average(1,CTT_C,IEEE4,0)
EndTable
BeginProg
Scan(1,Sec,1,0)
'Wiring Panel Temperature measurement PTemp_C:
PanelTemp(PTemp_C,_60Hz)
'IRTS-P Precision Infrared Temperature Sensor measurements ATT_C and CTT_C:
'Measure apparent target temperature with IRTS-P.
TCDiff(ATT_C,1,mV2_5C,1,TypeK,PTemp_C,True,0,_60Hz,1,0)
'Measure IRTS-P sensor body temperature.
TCDiff(SB,1,mV2_5C,2,TypeK,PTemp_C,True,0,_60Hz,1,0)
'Calculate Psb, Hsb, & Ksb coefficients.
Psb=49.9092+(0.59237*SB)-(0.00558*SB^2)
Hsb=4.2828+(0.4248*SB)-(0.00077*SB^2)
Ksb=52.0705-(5.3816*SB)+(0.387*SB^2)
'Calculate correction factor.
SenEC=(0.25/Psb)*((ATT_C-Hsb)^2-Ksb)
'Calculate corrected target temperature.
CTT_C=ATT_C-SenEC
CallTable(IRTS-P)
NextScan
EndProg
10