CR1000X数据记录器用途:Alias HygroVUE10(2) = rawRH Public e_Sat '饱和蒸气压Public e_Act '实际蒸气压Public avgRH '用于正确计算平均RH Dim interm_RH(2) Alias interm_RH(1) = es Alias interm_RH(2) = ea单位BattV=Volts单位PTemp_C=℃单位AirTC=℃单位rawRH=%单位e_Sat=kPa单位e_Act=kPa单位avgRH=% '数据表DataTable(scratch,True,10) TableHide DataInterval(0,60,Min,10)平均值(1,e_Sat,IEEE4,False)平均值(1,e_Act,IEEE4,False) EndTable DataTable(hour,True，-1) DataInterval(0,60,Min,10)平均值(1,AirTC,FP2,False)样本(1,avgRH,FP2) Average (1,e_Sat,FP2,False) Average (1,e_Act,FP2,False) EndTable 'Main Program BeginProg 'Main Scan Scan(5,Sec,1,0) Battery(BattV) PanelTemp(PTemp_C,60)“测量HygroVUE10温度和RH传感器SDI12Recorder (HygroVUE10()，C1,0，“M!”，1.0,0，-1)蒸发压力(e_Act,AirTC,rawRH) SatVP (e_Sat,AirTC)如果(scratch. output (1,1)) Then GetRecord (interm_RH()，scratch,1) avgRH = 100*ea/es EndIf '存储数据CallTable hour NextScan EndProg