数据记录仪pro CR1000X系列数据记录仪的例子gram for Apogee Instruments TS-100 aspirated radiation shield 'date: December 23rd, 2020 'program author: Skiffington Smith, Noah Leclerc (2020) 'White -> Single ended channel (Positive thermistor lead) 'Black -> Ground (negative thermistor lead) 'Red -> 12V port (Input power) 'Clear -> Shield/ground '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,mV200,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,C4,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