Campbell Scientific ASPTC Aspirated Thermocouple - Manual (Page 11)

Model ASPTC Aspirated Shield with Fine Wire Thermocouple
EXAMPLE 3. Sample CR1000 program for measuring Temperature
Gradient with the ASPTC
'CR1000
'Declare Variables and Units
Public PTemp_C
Public AirTemp(2)
Alias AirTemp(1)=Temp_C_1
Alias AirTemp(2)=Temp_C_2
Public Delta_Temp_C
Units PTemp_C=Deg C
Units AirTemp=Deg C
Units Delta_Temp_C=Deg C
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,60,Min,10)
Average(1,Temp_C_1,FP2,False)
Average(1,Temp_C_2,FP2,False)
Average(1,Delta_Temp_C,FP2,False)
EndTable
'Main Program
BeginProg
Scan(1,Sec,1,0)
'Wiring Panel Temperature measurement PTemp_C
PanelTemp(PTemp_C,_60Hz)
'Type E (chromel-constantan) Thermocouple measurements Temp_C
TCDiff(Temp_C_1,2,mV2_5C,1,TypeE,PTemp_C,True,0,_60Hz,1,0)
Delta_Temp_C=Temp_C_1-Temp_C_2
'Call Data Tables and Store Data
CallTable(Table1)
NextScan
EndProg
7