
SP Lite2 Silicon Pyranometer
'{CR1000}
'\\\\\\\\\\\\\\\\\\\\\\\\\ DECLARATIONS /////////////////////////
Public W_m2
'\\\\\\\\\\\\\\\\\\\\\\\\ OUTPUT SECTION ////////////////////////
DataTable(Average_Flux,true,-1)
OpenInterval
DataInterval(0,30,Min,10)
Average(1, W_m2, FP2, 0)
EndTable
'\\\\\\\\\\\\\\\\\\\\\\\\\\\ PROGRAM ////////////////////////////
BeginProg
Scan(5,Sec, 3, 0)
VoltDiff(W_m2, 1, mV250, 1, True, 0, _60Hz, 12.3457, 0)
' Set negative values to zero
If (W_m2 < 0) Then
W_m2 = 0
EndIf
CallTable Average_Flux
NextScan
EndProg
EXAMPLE 2. Sample Instructions used to Measure an Average Flux with
a CR10X
;{CR10X}
;
*Table 1 Program
01: 5 Execution Interval (seconds)
1: Volt (Diff) (P2)
1: 1 Reps
2: 24 250 mV 60 Hz Rejection Range ; **
3: 1 DIFF Channel ; *
4: 1 Loc [ W_m2 ] ; *
5: 12.3457 Multiplier ; ***
6: 0 Offset
; Set negative values to zero
2: If (X<=>F) (P89)
1: 1 X Loc [ W_m2 ]
2: 4 <
3: 0 F
4: 30 Then Do
3: Z=F x 10^n (P30)
1: 0 F
2: 0 n, Exponent of 10
3: 1 Z Loc [ W_m2 ]
4: End (P95)
9
Commenti su questo manuale