PIR Datalogger Programming

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