Difference between revisions of "PIR Datalogger Programming"
Jump to navigation
Jump to search
imported>Ekyoucha |
imported>Ekyoucha |
||
| 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 18: | Line 18: | ||
CR1000 Example program for PIR with Case thermistor. 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. | CR1000 Example program for PIR with Case thermistor. 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 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 | ||
Revision as of 10:49, 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. 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 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
