数据记录仪prog CR1000系列数据记录仪的例子ram for Apogee Instruments TS-100 aspirated radiation shield 'date: July 17, 2013 'program author: Skiffington Smith 'Explanation of Constants and Variables Used in Datalogger Program 'BattV = datalogger battery voltage 'PanelT = datalogger panel temperature 'SWi = incoming shortwave radiation in watts per square meter 'duty_cycle = duty cycle for pulse width modulation (PWM) 'RPM = fan revolutions per minute 'AirT_therm = air temperature from thermistor in degrees Celsius 'Declare Public Variables Public BattV, PanelT Public SWi Public AirT_therm Public RPM Public duty_cycle 'Define Data Tables DataTable (AirT,1,-1) DataInterval (0,1,Min,10) Minimum(1,BattV,IEEE4,0,False) Sample(1,PanelT,IEEE4) Average(1,SWi,IEEE4,False) Average(1,duty_cycle,IEEE4,False) Average(1,RPM,IEEE4,False) Average(1,AirT_therm,IEEE4,False) EndTable 'Main Program BeginProg Scan(1,Sec,0,0) Battery(BattV) PanelTemp(PanelT,_60Hz) 'Measure Incoming Shortwave Radiation with Apogee SP-110 Pyranometer VoltDiff (SWi,1,mV250,1,True,0,_60Hz,5.0,0) 'Set Pulse Width Modulation (PWM) Based on Incoming Shortwave Radiation If SWi > 10 Then duty_cycle = 1 Else duty_cycle = 0.5 EndIf PWM(duty_cycle,4,50,uSec) 'Measure RPM with Tachometer PulseCount(RPM,1,2,0,1,30,0) 'Measure Air Temperature with ST-110 Thermistor Therm109(AirT_therm,1,3,Vx1,0,_60Hz,1.0,0) 'Call Output Tables CallTable AirT NextScan EndProg