Campbell 229 Especificaciones descargar pdf (Pagina 14)

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=LoopCount+1

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

1 2 ... 9 10 11 12 13 14 15 16 17 18 19 ... 33 34

Sin comentarios

Campbell 229 Especificaciones Pagina 14