Laserfiche WebLink
<br />1324 IF Tl<l THEN 1340 <br />1326 PRINT 'IS THIS AN INSTANTANEOUS FAILURE?' <br />1328 INPUT L$ <br />1330 TO=5 <br />1332 IF L$<>'YES' THEN 1340 <br />1334 TO=H2/1500 <br />1340 PRINT 'ESTIMATED TIME OF FAILURE =':TO:'MINUTES' <br />1350 IF V$=S$ THEN 1440 <br />1355 PRINT <br />1360 PRINT 'INPUT TURBINE/SPILLWAY/OVERTOPPING FLOW (CFS). ' <br />1370 PRINT 'IF N/A, ENTER 0.0. DEFAULT = 0.0' <br />13 80 INPUT QO <br />13 90 PRINT <br />1400 PRINT 'INPUT NUMBER OF X-SECTIONS (STARTING AT DAM) USED TO' <br />1410 PRINT 'DESCRIBE ROUTING REACH. lMIN-1, MAX-8)' <br />1420 INPUT NO , <br />1430 IF NO<1 THEN 1390 <br />1440 PRINT <br />1450 PRINT 'INPUT NUMBER OF PAIRS OF ELEV-TOPWIDTaS USED TO' <br />1460 PRINT 'DESCRIBE EACH X-SECTION (MIN=2, MAX=8)' <br />1462 IF V$<>S$ THEN 1470 <br />1464 PRINT 'MODEL ASSUMES DEPTH #1 = O. AND TOPWIDTH #1 - 0.' <br />1470 INPUT N1 <br />1480 IF Nl<2 THEN 1440 <br />1490 REM# <br />1500 REM# BEGIN READING IN X-SECTION INFORMATION <br />1520 D(I)=O <br />1530 FOR I=l TO NO <br />1540 T(I 1)=0 <br />1550 IF i=l THEN 1580 <br />1555 PRINT <br />1560 PRINT 'INPUT DISTANCE DOWNSTREAM FROM DAM (MILES) TO X-SECTION #':I <br />1570 INPUT D(I) <br />1580 IF V$<>S$ THEN 1590 <br />1581 E(I,1)=O <br />1582 CO=H2 <br />1584 BO=O <br />1585 E$=F$ <br />1586 M$=N$ <br />1587 GOTO 1625 <br />1590 PRINT <br />1600 PRINT 'INPUT LOWEST C~NNEL ELEV. (FT. MSL) AT X-SECTION #':I <br />1610 IF 1>1 THEN 1620 <br />1615 PRINT '(ELEVATION OF BASE OF DAM (FT. MSL))' <br />1620 INPUT E(I 1) <br />1625 IF 1>1 THtN 1720 <br />1630 REM# <br />1640 REM# IF SURFACE AREA NOT GIVEN, ESTIMATE AO USING VO <br />1645 IF AO>O THEN 1655 <br />1647 AO=2*VO/(CO-E(l,l)) <br />1650 REM# IF VOLUME NOT GIVEN, ESTIMATE VO USING AO <br />1655 IF VO>O THEN 1670 <br />1657 VO=(AO/2)*(CO-E(l,l)) <br />1660 REI1# <br />1670 IF BO<=(E(1,1)+5) THEN 1720 <br />1680 REI1# PERCHED BREACH...RECOMPUTE VO BASED ON AVAILABLE VOLUY~ <br />1690 VO=H2/2*AO*(I+((BO-E(l,I))/lcO-E(l,I)))A2) <br />1700 REI1# <br />1710 REM# ONCE 1ST X-S ~S BEEN READ IN & FITTED & SLOPE FOUND COMPUTE PEAK <br />1720 IF 1<>2 THEN 1915 <br />1750 M=MO <br />1760 K=KO <br />1770 N=C(I~l) <br />1780 H3=C( ~,1) <br />i~68 ~~~3~34~~0 <br />1810 REM# SAVE FLOW,DEPTH AND TPEAK AT DAM <br />1820 P(I,l~=Q <br />1830 P(I,2 =111 <br />1840 P(lf3 =TO/60 <br />1850 Tl= 0/60 <br />1860 GOSUB 5320 <br />1870 REM# SAVE TIMES OF FLOODING AND DEFLOODING AT DAM <br />1880 P(I,4)=T4 <br />1890 P(l,5)=T5 III-4 <br />