Appendix B. Example Programs
B-4
'Measure the Battery Voltage and Panel Temperature
PanelTemp
(PTemp,60)
Battery
(Batt_Volt)
'Measure the CMP21 pyranometer. Multiplier (M) = 1000/c where c = 8.65.
VoltDiff
(CMP21_Irr,1,mV200C,3,True,10000,60,1000/8.65,0)
'CMP21 Thermistor Measurement
BrHalf
(Vs_Vx,1,mV5000,15,Vx1,1,2500,True ,0,250,1.0,0)
Rs = 1000*(Vs_Vx/(1-Vs_Vx))
CMP21_T_C = 1/(1.0295e-3+2.391e-4*LN(Rs)+1.568e-7*(LN(Rs))^3)-273.15
'Convert CMP21 temp to Kelvin.
CMP21_T_K = CM273.15
CallTable
TenMin
NextScan
EndProg