|
<br />ouenamelll "a, \c:uhp\gtur:c:10yr .cho"
<br />lIum&1ll1!!(l) "a,\cuhp\gtur:cloyr.txt."
<br />nlJlnltVenes . 1
<br />END SBUCT 'mainbuin
<br />
<br />FOR evenen.um 1 TO nl1lllevents
<br />
<br />.
<br />
<br />PRINT "NOW Working on,-
<br />PRINT outname(evenenuml; eventnum
<br />OPEN outname\eventnuml FOR INPUT AS '1
<br />OPEN swnname (eventnuml FOR OUTPUT AS ';Z
<br />
<br />numbasins . 0, baainnum . a
<br />
<br />WHILE m>T EOP(ll
<br />
<br />WHILE INS1'R(sentS, search$(lJI . a AND NOT EOP(l)
<br />LINE INPUT U, sentS
<br />""'"
<br />basinnum " basinnum . 1
<br />
<br />'PRItn' sentS
<br />id(basinnum) . LTRIM$ (MIDS (sentS, INSTR(sentS, search$(ll) . LtN(searchSll)), all
<br />'PRINT b4.sinnum
<br />'PRItn' id(basinnum)
<br />
<br />WHILE INSTR(sent$, search$())) 0 0 AND NOT EOP(ll
<br />LINE INPUT n, !lent$
<br />""'"
<br />IV NOT Earll) '!'HEN LINE INPUT n, sentS
<br />Ir NOT EOP(l) '!'HEN INPtrl' U, area(l:Iasinnuml, l:Iasinlengehll:lasinnuml, distance(basinnum), imperv(basinnum), slope(basinnuml,
<br />duraeion lbasinnum)
<br />'PRINT arealbasinnumJ, basinlengthlbasinnum), distancelbasinnum), impervlb.sinnuml, !llope(basinaum), area (basinnuml , basinlengthlbasinnumJ,
<br />distance Ibasinnuml, itnperv IbasinnumJ, ~31ope lbasinnuml, duracion (basinnuml
<br />'WHIL& INXEYS . .": WEND
<br />'PRINT
<br />
<br />WHILE INSTR(sentS, search$;21) . 0 AND NOT EOP(ll
<br />'WHILE N01' EOrn) AND LEFTS (sentS, 1&) <> . 'JOLUME" AND m)T EOP!l:
<br />LINE INPUT #1, sent$
<br />WEND
<br />runoff (eventnum, basinnum) . VAL :MIDS (sentS, INSTR I sentS, searchs (2)1 . LENl searchS (2) ), a))
<br />IP NOT EOrCl) ':HEN LINE rNPUT 1$1, sentS
<br />peakqieVentnum, basinnuml . VAL,MIO$(sentS, INSTR(sentS, "PEA~ 0 .n) . ~ENl'PEAK Q 0"), Ii) 1
<br />peakeimeleventnum, basinnuml 0 VAL(MID${sentS, INSTRlseneS, "'I:'IME or PEAlt .") . LEN("TIME or PEAlt ."J, 5))
<br />PRINT nlnoff(eventnum, basinnuml, peakq(eventnum, balllinnum), ~eakt.illlelevent.num, basinnullll
<br />IP NOT Earll) THEN LINE INPUT ~l, sentS
<br />
<br />.
<br />
<br />WEND 'not eof(l)
<br />nulllbaB1ns . baS1finUlll - 1
<br />totalarea . 0, tot.all:lasinlength . 0, t.otaldist&nce . 0, tota1tmperv
<br />toealslope . 0, toealduration. 0, tot.alrunoff 0 0, totalp~akq
<br />totalpeaktillle . 0, cotalqa . 0
<br />'FOR x . 1 TO numbasins: tot.alarea . totalarea . area(x): KErr
<br />'PRINT totalarea
<br />CLOSE l!:l
<br />
<br />PRINT #;Z, DATES; TIMES
<br />PRINT ~2, 'SUTmlary File, "; sumname leventnumJ
<br />PRINT 112. "BASIN "; " AREA.; "LENG1iI"; ;:'lIST.
<br />PRINT 112, 'm SOMI)"; 'MI)";" (MI)
<br />FOR x . 1 TO numbasin!l
<br />PRINT ~2, idlx); area\xl; bas1nlength(x); distance (x) ; impervlx); slopelx); durat.ion(xJ; runofflevencnum, x); peakq(eventnum, xl;
<br />peakt.ime(eventnulll, x); IN'r lpeakq (eventnum, x) / are.\x) / &40 . 100) / 100
<br />totalarea . tot.alar~a . area(x)
<br />tot.albasinlengt.h " tot.albasinlengeh . basinlength(xl
<br />totaldistance . totaldistance . distance (x)
<br />totalimperv . eotalimperv . imperv(xl
<br />totals lope 0 totalslope . slope Ix)
<br />t.ot.alduraeion 0 totaldurat.ion . duraeionlxl
<br />eotalrunoft " tota1runott . runoff (eventnua, x)
<br />totalpealtq . tot.alpukq . peuqle:ventrlUlll, xl
<br />toealpeaktime 0 tot:alpeaktime . peaktilllllll(eventDum, :0;)
<br />toealqa . totalqa . :NT(peakq(eventnum, xl / are.(xl / &40 . 100) / 100
<br />NEXT x
<br />
<br />"IMPERV,
<br />:1;J
<br />
<br />" SLOPE "; "DURATION";
<br />" l:'T/FT)"; (MIN).;
<br />
<br />VOLUME ",
<br />(ACFT)
<br />
<br />PEAlCQ ".
<br />(CPSJ
<br />
<br />,EAJ(T
<br />(MIN)
<br />
<br />a/AREA "
<br />lCFS/AC) "
<br />
<br />PRINT .2,
<br />PRINT 112, USING "Total U#.lI lIlIt. /I: lI' .11. " " " II.".. lIlI.... .. ".: totalarea: totalbillinlength; totaldistanCe; "_"; . _ "; "_.; total runoff ;
<br />totalpeakq; "_"; '_"
<br />PRINT 112, USING .Average .,1,1.,1 111111.11 1111.11. ..... ..... ": totalareil I numbaBins; totalba,inlength I numba.ina; totaldistance / numDasins;
<br />totalirnperv / numbas~ns; totals1ope I numb.sins:
<br />PRINT #2, USING "1111.11 ...... 111111,1., ... 11..11"; totalduration I numbasins; totalrunoff / numDa.ins; totalpeakq / numbasins; totalpeaktime /
<br />numb.sins; totalqa I numbllsins
<br />PRINT *2,
<br />
<br />CLOSE .2
<br />
<br />NEXT eVentnum
<br />SELSCT CASE mainbasin
<br />CASE 1
<br />SELECT CASE condition
<br />CASE I
<br />CASE ,
<br />filenllllle$ "P: \coweldOl \existi-l \Godd.in-l \9hexc:uhp txe.
<br />
<br />.
<br />
<br />CASE ]
<br />filenameS
<br />
<br />"P: \coweldOl \futu:r;..-l \Ooddin.-l \ghfuc:uhp txe"
<br />
<br />::NO SELECT
<br />CASE ,
<br />SELECT CAS! condit10n
<br />CASE l
<br />CASE 2
<br />
|