beautypg.com

Campbell Scientific ASPTC Aspirated Thermocouple User Manual

Page 11

background image

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