数据记录仪prog CR1000系列数据记录仪的例子ram for Apogee Instruments S2-141 series PAR - far red sensors 'date: August 22 2019 'program author: John Huber 'Wiring: 'White -> High side differential channel (Far Red detector) 'Black -> Low side differential channel (Far Red detector) 'Yellow -> High side differential channel (PAR detector, different differential channel from Far Red detector) 'Blue -> Low side differential channel (PAR detector, different differential channel from Far Red detector) 'Clear -> Shield ground 'Explanation of Constants and Variables Used in Datalogger Program 'PARMult = calibration multiplier for Red detector 'FarRedMult = calibration multiplier for Far Red detector 'BattV = datalogger battery voltage 'PanelT = datalogger panel temperature 'PAR = Detector reading in umol/m2/sec for PAR detector 'FarRed = Detector reading in umol/m2/sec for Far Red detector 'PARmV = mV output of the Red detector 'FarRedmV = mV output of the Far Red detector 'PARFarRed = Ratio of Red and Far Red light 'Note that all calibration multipliers are sensor-specific, as well as detector specific; those listed below are examples and must be changed based on the specific sensor being used. 'Declare Public Variables Public BattV, PanelT Public PAR, FarRed, PARmV, FarRedmV, PARFarRed, 'Declare Calibration Coefficients (sensor-specific) 'These variables must be changed to reflect the detector specific multipliers for the sensor(s) being used. Public PARMult = 70 Public FarRedMult = 50 'Define Data Tables DataTable (PARFar,1,-1) DataInterval (0,1,Min,10) Minimum(1,BattV,IEEE4,0,False) Sample(1,PanelT,IEEE4) Average(1,PARmV,IEEE4,False) Average(1,FarRedmV,IEEE4,False) Average(1,PAR,IEEE4,False) Average(1,FarRed,IEEE4,False) Average(1,PARFarRed,IEEE4,False) EndTable 'Main Program BeginProg Scan(1,Sec,0,0) Battery(BattV) PanelTemp(PanelT,_60Hz) 'Measure Red detector mV signal VoltDiff(FarRedmV,1,mV250,1,True,0,_60Hz,1.0,0) 'Measure Far Red detector mV signal VoltDiff(PARmV,1,mV250,2,True,0,_60Hz,1.0,0) 'Apply multipliers PAR = PARmV * PARMult FarRed = FarRedmV * FarRedMult 'Calculate Red Far Red Ratio PARFarRed = PAR / FarRed 'Call Output Tables CallTable PARFar NextScan EndProg