Difference between revisions of "PIR Datalogger Programming"
Jump to navigation
Jump to search
imported>Ekyoucha |
imported>Ekyoucha |
||
| (4 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| − | CR1000 | + | CR1000 possible PIR Wiring with Case thermistor only |
* SE1 -- therm1 (PIR lw up thermistor) case temp white | * SE1 -- therm1 (PIR lw up thermistor) case temp white | ||
| Line 14: | Line 14: | ||
* SE8 -- rad2 (PIR lw dn) black | * SE8 -- rad2 (PIR lw dn) black | ||
* AG -- shields | * AG -- shields | ||
| + | * VX1 -- 1 Kohm precision resistor to SE2, 1 kohm precision resistor to SE4 | ||
| − | CR1000 Example program for PIR with Case thermistor | + | |
| + | CR1000 Example program for PIR with Case thermistor (long wave rad) and a PSP (short wave rad). The radiation is a thermopile connected to a hi and lo differential channel. the measurement is a VoltDiff. The thermistors are a half bridge measurement. | ||
| + | |||
| + | *' eppley-pir | ||
| + | **Public rad_mv(4), rad(4) | ||
| + | **Dim k | ||
| + | **Alias rad = rad_lw_up, rad_lw_down, rad_sw_up, rad_sw_down | ||
| + | **Units rad_mv() = mV | ||
| + | **Units rad() = w/m2 | ||
| + | |||
| + | *'Eppley Radiometers, Upper KUparuk Met example (Multiplexor) | ||
| + | ** PortSet(MUX2_RESET__CP,1) | ||
| + | ** k=1 | ||
| + | ** SubScan(0,uSec,NO_OF_EPPLEY) | ||
| + | ** PulsePort (MUX2_CLOCK__CP,MUX_PULSE_USEC) | ||
| + | ** 'Switch to next AM16/32 Multiplexer channel | ||
| + | ** If k=1 Then | ||
| + | ** VoltDiff(rad_mv(1),1,mV2_5C,MUX2__DIFF,True,0,250,1,0) | ||
| + | ** ElseIf k=2 Then | ||
| + | ** VoltDiff(rad_mv(2),1,mV2_5C,MUX2__DIFF,True,0,250,1,0) | ||
| + | ** ElseIf k=3 Then | ||
| + | ** VoltDiff(rad_mv(3),1,mV25C,MUX2__DIFF,True,0,250,1,0) | ||
| + | ** ElseIf k=4 Then | ||
| + | ** VoltDiff(rad_mv(4),1,mV25C,MUX2__DIFF,True,0,250,1,0) | ||
| + | ** EndIf | ||
| + | ** k = k + 1 | ||
| + | ** NextSubScan | ||
| + | |||
| + | ** rad(1) = (rad_mv(1)*PIR_MULT_LW_UP) + (5.6697E-8 * (therm(14))^4) | ||
| + | ** rad(2) = (rad_mv(2)*PIR_MULT_LW_DOWN) + (5.6697E-8 * (therm(15))^4) | ||
| + | ** rad(3) = rad_mv(3)* PSP_MULT_SW_UP | ||
| + | ** rad(4) = rad_mv(4)* PSP_MULT_SW_DOWN | ||
Latest revision as of 10:52, 2 May 2019
CR1000 possible PIR Wiring with Case thermistor only
- SE1 -- therm1 (PIR lw up thermistor) case temp white
- SE2 -- 1Kohm precision resistor to VX1
- AG -- therm1 (PIR lw up thermistor) case temp green
- SE3 -- therm2 (PIR lw dn thermistor) case temp white
- SE4 -- 1Kohm precision resistor to VX1
- AG -- therm2 (PIR lw dn thermistor) case temp green
- SE5 -- rad1 (PIR lw up) red
- SE6 -- rad1 (PIR lw up) black
- AG -- shields
- SE7 -- rad2 (PIR lw dn) red
- SE8 -- rad2 (PIR lw dn) black
- AG -- shields
- VX1 -- 1 Kohm precision resistor to SE2, 1 kohm precision resistor to SE4
CR1000 Example program for PIR with Case thermistor (long wave rad) and a PSP (short wave rad). The radiation is a thermopile connected to a hi and lo differential channel. the measurement is a VoltDiff. The thermistors are a half bridge measurement.
- ' eppley-pir
- Public rad_mv(4), rad(4)
- Dim k
- Alias rad = rad_lw_up, rad_lw_down, rad_sw_up, rad_sw_down
- Units rad_mv() = mV
- Units rad() = w/m2
*'Eppley Radiometers, Upper KUparuk Met example (Multiplexor) ** PortSet(MUX2_RESET__CP,1) ** k=1 ** SubScan(0,uSec,NO_OF_EPPLEY) ** PulsePort (MUX2_CLOCK__CP,MUX_PULSE_USEC) ** 'Switch to next AM16/32 Multiplexer channel ** If k=1 Then ** VoltDiff(rad_mv(1),1,mV2_5C,MUX2__DIFF,True,0,250,1,0) ** ElseIf k=2 Then ** VoltDiff(rad_mv(2),1,mV2_5C,MUX2__DIFF,True,0,250,1,0) ** ElseIf k=3 Then ** VoltDiff(rad_mv(3),1,mV25C,MUX2__DIFF,True,0,250,1,0) ** ElseIf k=4 Then ** VoltDiff(rad_mv(4),1,mV25C,MUX2__DIFF,True,0,250,1,0) ** EndIf ** k = k + 1 ** NextSubScan
** rad(1) = (rad_mv(1)*PIR_MULT_LW_UP) + (5.6697E-8 * (therm(14))^4) ** rad(2) = (rad_mv(2)*PIR_MULT_LW_DOWN) + (5.6697E-8 * (therm(15))^4) ** rad(3) = rad_mv(3)* PSP_MULT_SW_UP ** rad(4) = rad_mv(4)* PSP_MULT_SW_DOWN
