C150227 Final Report

• Applicant: South Platte Ditch Company
• Grant Type: Non-Reimbursable
• Fiscal Year ‎(i.e. 2008)‎: 2006
• Project Name: Canal Modernization and Radio Telemetry Demonstration Project
• CWCB Section: Finance
• Contract/PO #: C150227
• Grants - Doc Type: Final Deliverables

5020 X =X +1
REM read analog flow depth signal
REM register 2 is the first analog input, register 3
REM is the 2nd ai, etc...
5030 AII= REGREAD(2)
5035 AI2= REGREAD(3)
REM add current signal reading to previous sum
5040 IF AI1<4096 THEN DPTHSUMI = DPTHSUMI +AI1
5045 IF A22<4096 THEN DPTHSUM2 = DPTHSUM2 +AI2
REM continue until x readings have been taken
5050 UNTIL X =100
REM calculate average of readings
5060 SIGAVGI = DPTHSUMI /X
5065 SIGAVG2= DPTHSUM2 /X
REM calculate flow depth
REM get slope and offset values from modbus registers
5070 SLPI= REGREAD(7033) : SLP2= REGREAD(7034)
5075 OFFI= REGREAD(7037) : OFF2= REGREAD(7038)
5076 CAL1= REGREAD(7039) : CAL2= REGREAD(7040)
REM calculate flow depth using slope, offset and
REM a sensor calibration factor
5080 Y1= (SIGAVGI *(SLP1 *CAL1)) +OFF1
5085 Y2= (SIGAVG2 *(SLP2 *CAL2)) +OFF2
REM if ereg =7061, skip to flow discharge calcs
5090 IF EREG =7061 GOTO 5200
REM 1
5100 PRINT
5110 PRINT
5120 PRINT
5130 PRINT
5140 PRINT
)rint depth to lcd
#2,CHR(12),
#2, "Calculated Depth:"
#2," Depth 1 > ",Y1
#2," Depth 2 > ",Y2
#2, "Press F3 to Exit"
REM if ereg =7062, skip flow disch. calcs
5150 IF EREG =7062 GOTO 5300
REM calculate flow discharge
REM get multipliers, constants & exponents from
REM modbus registers
5200 K1= REGREAD(7041) : K2= REGREAD(7042)
5205 K3= REGREAD(7043) : K4= REGREAD(7044)
5210 U1= REGREAD(7045) : U2= REGREAD(7046)
REM calculate flow rate (if Y >0)
REM power equation formula
5220 IF Y1 >0 THEN Q1= K1 *Y1 * *U1
5225 IF Y2 >0 THEN Q2= K2 *Y2 * *U2
REM set q =0 when sensor output < =0
5230 IF Yl< =0 THEN Q1 =0
5235 IF Y2< =0 THEN Q2 =0
REM print flow discharge to lcd
5250 PRINT #2,CHR(12),
5260 PRINT #2, "Calculated Flow(s):"
31