数据记录仪pro CR1000X系列数据记录仪的例子gram for Apogee Instruments S2-131 series red - far red sensors 'date: August 05 2019 'Revised: December 31 2020 '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 (Red detector, different differential channel from Far Red detector) 'Blue -> Low side differential channel (Red detector, different differential channel from Far Red detector) 'Clear -> Shield ground 'Explanation of Constants and Variables Used in Datalogger Program 'RedMult = calibration multiplier for Red detector 'FarRedMult = calibration multiplier for Far Red detector 'BattV = datalogger battery voltage 'PanelT = datalogger panel temperature 'Red = Detector reading in umol/m2/sec for Red detector 'FarRed = Detector reading in umol/m2/sec for Far Red detector 'RedmV = mV output of the Red detector 'FarRedmV = mV output of the Far Red detector 'RedFarRed = Ratio of Red and Far Red light 'FRFraction = The fraction of Far Red light relative to the total 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 Red, FarRed, RedmV, FarRedmV, RedFarRed, FRFraction 'Declare Calibration Coefficients (sensor-specific) 'These variables must be changed to reflect the detector specific multipliers for the sensor(s) being used. Public RedMult = 12 Public FarRedMult = 12 'Define Data Tables DataTable (RFR,1,-1) DataInterval (0,1,Min,10) Minimum(1,BattV,IEEE4,0,False) Sample(1,PanelT,IEEE4) Average(1,RedmV,IEEE4,False) Average(1,FarRedmV,IEEE4,False) Average(1,Red,IEEE4,False) Average(1,FarRed,IEEE4,False) Average(1,RedFarRed,IEEE4,False) Average(1,FRFraction,IEEE4,False) EndTable 'Main Program BeginProg Scan(1,Sec,0,0) Battery(BattV) PanelTemp(PanelT,_60Hz) 'Measure Red detector mV signal VoltDiff(FarRedmV,1,mV200,1,True,0,_60Hz,1.0,0) 'Measure Far Red detector mV signal VoltDiff(RedmV,1,mV200,2,True,0,_60Hz,1.0,0) 'Apply multipliers Red = RedmV * RedMult FarRed = FarRedmV * FarRedMult 'Calculate Red Far Red Ratio RedFarRed = Red / FarRed 'Calculate Far Red Fraction FRFraction = FarRed / (Red + FarRed) 'Call Output Tables CallTable RFR NextScan EndProg