IRTS-P Precision Infrared Temperature Sensor
11
CR5000 Example Program
Public RefT, TargetCorrT, TC(2), SensorCorr, Psb, Hsb, Ksb
Alias TC(1) = TargetApparentT
Alias TC(2) = SensorBodyT
DataTable (AllDat,1,-1)
DataInterval
(0,60,Min,10)
Average
(1,RefT,FP2,0)
Average
(2,TC(),IEEE4,0)
Average
(1,TargetCorrT,IEEE4,0)
EndTable
BeginProg
Scan
(1,Sec,3,0)
PanelTemp
(RefT,250)
TCDiff (TC(),2,mV20C ,1,TypeK,RefT,True ,0,_60Hz,1.0,0)
Psb = 49.9092 + 0.59237 * SensorBodyT - 0.00558 * SensorBodyT^2
Hsb = 4.2828 + 0.4248 * SensorBodyT - 0.00077 * SensorBodyT^2
Ksb = 52.0705 - 5.3816 * Senso 0.387 * SensorBodyT^2
SensorCorr = (0.25/Psb) * ((TargetApparentT - Hsb)^2 - Ksb)
TargetCorrT = TargetApparentT - SensorCorr
CallTable
Alldat
NextScan
EndProg
6. Maintenance
As with any optical sensor, it is important to keep the lens and view clean.
Otherwise the sensor will be measuring the temperature of the obstruction
instead of the surface of interest.
Clean the lens gently with a moistened cotton swab. Distilled water or alcohol
works well for most dust/dirt. Salt deposits dissolve better in a weak acid
solution (~0.1 molar).
