229 Heat Dissipation Matric Water Potential Sensor
'CR1000
SequentialMode
Const Num229 = 4
'Enter number of 229 sensors to measure
Dim LoopCount
Public RefTemp_C, StartTemp_C(Num229), Temp_1sec_C(Num229)
Public Temp_30sec_C(Num229), DeltaT_C(Num229)
Public Flag(1) as Boolean
Units StartTemp_C()=Deg C
Units DeltaT_C()=Deg C
DataTable(Matric,Flag(1),-1)
Sample(Num229,StartTemp_C(),FP2)
Sample(Num229,DeltaT_C(),FP2)
EndTable
BeginProg
Scan(30,Sec,1,0)
PanelTemp
(RefTemp_C,250)
If IfTime (0,240,Min) Then Flag(1)=True
'Every 4 hours set Flag(1) high
If Flag(1) = True Then
'Flag(1) true triggers 229 readings
'Measure
starting
temperature
before
heating
TCDiff(StartTemp_C(),Num229,mV2_5C,1,TypeT,RefTemp_C,True,0,_60Hz,1,0)
PortSet
(1,1
)
'Set C1 high to activate CE4
Delay
(0,1,Sec)
'Wait 1 second
'Measure
temperature
after
1
second
of
heating
TCDiff(Temp_1sec_C(),Num229,mV2_5C,1,TypeT,RefTemp_C,True,0,_60Hz,1,0)
'Measure temperature after 30 second of heating
Delay (0,29,Sec)
'Wait 29 seconds more for total of 30 seconds heating
TCDiff(Temp_30sec_C(),Num229,mV2_5C,1,TypeT,RefTemp_C,True,0,_60Hz,1,0)
PortSet
(1,0
)
'Set C1 low to deactivate CE4
For
LoopCount=1
to
Num229
'Calculate
temperature
rise
DeltaT_C(LoopCount)=Temp_30sec_C(LoopCount)-Temp_1sec_C(LoopCount)
'LoopCount=Lo1
Next
LoopCount
EndIf
'Ends Flag(1) true condition
CallTable(Matric)
'Call Data Tables and Store Data
Flag(1)=False
'Set Flag 1 false to disable 229 measurements
NextScan
EndProg
10
Summary of Contents for 229
Page 33: ......
