Difference between revisions of "PIR Datalogger Programming"

From IARC 207 Wiki
Jump to navigation Jump to search
imported>Ekyoucha
(Created page with " Wiring ' 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 -- th...")
 
imported>Ekyoucha
 
(6 intermediate revisions by the same user not shown)
Line 1: Line 1:
  
−
Wiring
+
CR1000 possible PIR Wiring with Case thermistor only
−
' SE1  -- therm1 (PIR lw up thermistor) case temp white
+
 
−
' SE2  -- 1Kohm precision resistor to VX1  
+
* SE1  -- therm1 (PIR lw up thermistor) case temp white
−
' AG  -- therm1 (PIR lw up thermistor) case temp green
+
* SE2  -- 1Kohm precision resistor to VX1  
−
' SE3  -- therm2 (PIR lw dn thermistor) case temp white
+
* AG  -- therm1 (PIR lw up thermistor) case temp green
−
' SE4  -- 1Kohm precision resistor to VX1
+
* SE3  -- therm2 (PIR lw dn thermistor) case temp white
−
' AG  -- therm2 (PIR lw dn thermistor) case temp green
+
* SE4  -- 1Kohm precision resistor to VX1
−
' SE5  -- rad1 (PIR lw up) red
+
* AG  -- therm2 (PIR lw dn thermistor) case temp green
−
' SE6  -- rad1 (PIR lw up) black
+
* SE5  -- rad1 (PIR lw up) red
−
' AG  -- shields  
+
* SE6  -- rad1 (PIR lw up) black
−
' SE7  -- rad2 (PIR lw dn) red
+
* AG  -- shields  
−
' SE8  -- rad2 (PIR lw dn) black
+
* SE7  -- rad2 (PIR lw dn) red
−
' AG  -- shields
+
* 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

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
Retrieved from "http://ocotal.iarc.uaf.edu/index.php?title=PIR_Datalogger_Programming&oldid=3209"