Campbell CS655 Manuale Utente Scaricare il pdf (Pagina 14)

Model HFP01SC Self-Calibrating Soil Heat Flux Plate

Dim V_Rf(4)

Dim V_Rf_run(4)

Dim V_Rf_180(4)

Dim shf_cal_on As Boolean

Dim sw12_state As Boolean 'State of the switched 12Vdc port.

Dim j

DataTable (mean,TRUE,100)

DataInterval (0,OUTPUT_INTERVAL,Min,10)

Average (4,hfp01sc_1,IEEE4,shf_cal_on)

Sample (4,shf_cal(1),IEEE4)

EndTable

Sub hfp01sc_cal

'Begin HFP01SC calibration on a fixed interval.

If ( IfTime (1,CAL_INTERVAL,Min) ) Then

shf_cal_on = TRUE

Move (shf_mV_0(1),4,shf_mV_run(1),4)

sw12_state = TRUE

EndIf

If ( IfTime (4,CAL_INTERVAL,Min) ) Then

Move (shf_mV_180(1),4,shf_mV_run(1),4)

Move (V_Rf_180(1),4,V_Rf_run(1),4)

sw12_state = FALSE

EndIf

If ( IfTime (END_CAL,CAL_INTERVAL,Min) ) Then

Move (shf_mV_end(1),4,shf_mV_run(1),4)

'Compute new HFP01SC calibration factors.

For j = 1 to 4

shf_cal(j) = (V_Rf_180(j)*V_Rf_180(j)*128.7)/ABS (((shf_mV_0(j)+shf_mV_end(j))/2)-shf_mV_180(j))

Next j

shf_cal_on = FALSE

EndIf

EndSub

BeginProg

'HFP01SC factory calibration in W/(m^2 mV) = 1000/sensitivity.

shf_cal(1) = HFP01SC_CAL_1

shf_cal(2) = HFP01SC_CAL_2

shf_cal(3) = HFP01SC_CAL_3

shf_cal(4) = HFP01SC_CAL_4

Scan (100,mSec,3,0)

'Measure the HFP01SC soil heat flux plates.

VoltDiff (shf_mV(1),4,mV50C,15,TRUE,200,250,1,0)

'Apply calibration to HFP01SC soil heat flux plates.

For j = 1 to 4

shf(j) = shf_mV(j)*shf_cal(j)

Next j

'Power the HFP01SC heaters.

PortSet (9,sw12_state)

'Measure voltage across the heater (Rf_V).

VoltSe (V_Rf(1),4,mV5000,37,TRUE,200,250,0.001,0)

'Maintain a 100 sample running average.

AvgRun (shf_mV_run(1),4,shf_mV(1),100)

AvgRun (V_Rf_run(1),4,V_Rf(1),100)

CallTable (mean)

Call hfp01sc_cal

NextScan

EndProg

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

Commenti su questo manuale

Nessun commento

Campbell CS655 Manuale Utente Pagina 14

Commenti su questo manuale

Prodotti e manuali riguardandi Misurazione, test & controllo Campbell CS655