'CR1000 Program for MAE255 Homework 3
'Sensors: NRlite net radiometer, 105E temperature, IRR-P 

'Declare Variables and Units
Public Batt_Volt
Public Temperature
Public ThermV
Public PTemp, SBTemp, TmV, Surface_Temperature
Public RSolar_W(2)
Public m, b, Tsqr1, Tsqr2, TargTempK, SBTempK
Public Net_Radiation



Units Batt_Volt=Volts
Units PTemp=Deg C
Units Temperature=Deg C
Units Net_Radiation=W/meter²
Units Surface_Temperature = Deg C


'Define Data Tables
DataTable(Met,True,-1)
	DataInterval(0,2,Sec,10)
	Average(1,Surface_Temperature,Fp2,False)
	Average(1,Net_Radiation,FP2,False)
	Average(1,Temperature,Fp2,False)
EndTable	

'THESE VARIABLES ARE SENSOR SPECIFIC!!!!  
'SEE CALIBRATION SHEET for IRR-P 1299
Const mC2 = 80687.2
Const mC1 = 8752140
Const mC0 = 1475510000
Const bC2 = 16754.9
Const bC1 = -112532
Const bC0 = 4990630


'Main Program
BeginProg
	Scan(2,Sec,0,0)

		'Default Datalogger Battery Voltage measurement Batt_Volt:
		Battery(Batt_Volt)
		
		'Wiring Panel Temperature measurement PTemp_C:
		PanelTemp(PTemp,_60Hz)
		'Type E (chromel-constantan) Thermocouple measurements Temp_C:
		TCDiff(Temperature,1,mV2_5C,1,TypeE,PTemp,True,0,_60Hz,1,0)
		
		'NR-LITE Net Radiometer (no wind speed correction) measurement NR_Wm2:
		VoltDiff(Net_Radiation,1,mv25,3,True,0,_60Hz,1000/14.1,0)

    'IRR-P radiometer
		'Intsruction to measure the sensor body temperature.
		Therm109(SBTemp,1,13,3,0,_60Hz,1.0,0)
		'Instruction to measure the mV output thermopile.
		VoltDiff(TmV,1,mV2_5,6,True,0,_60Hz,1.0,0)
		'Calculation of m (slope) and b (intercept) coefficients for target temperature calculation
		m = mC2*SBTemp*SBTemp +mC1*SbTemp+mC0
		b = bC2*SBTemp*SBTemp +bC1*SBTemp+bC0
		'Target Temperature calculation based on m and b coefficients
		SBTempK = SBTemp + 273.15
		Tsqr1 = SBTempK*SBTempK*SBTempK*SBTempK +m*TmV+b
		Tsqr2 = SQR(Tsqr1)
		TargTempK = SQR(Tsqr2)
		Surface_Temperature = TargTempK - 273.15  
    
		CallTable(Met)

	NextScan


EndProg

'wiring instructions

'MAE207
'IRR-P Infrared radiometer
'  white: EX3 / Vx3
'  Clear: power G
'  Red: Diff 6H
'  Black: Diff 6L
'  Green: SE13
'  Blue: G
'
'NR-Lite
'  3H: White
'  3L: Green
'  G:  clear
'
'T105E Thermistor
' purple: Diff 1H
' red: Diff 1L
' clear: ground