My WebLink
|
Help
|
About
|
Sign Out
Home
Browse
Search
FLOOD03462
CWCB
>
Floodplain Documents
>
Backfile
>
3001-4000
>
FLOOD03462
Metadata
Thumbnails
Annotations
Entry Properties
Last modified
1/25/2010 6:27:22 PM
Creation date
10/4/2006 11:46:57 PM
Metadata
Fields
Template:
Floodplain Documents
County
Statewide
Community
State of Colorado
Basin
Statewide
Title
Procedure for Approximate Dam Failure Floodplain Mapping
Date
1/1/1988
Prepared For
Association of State Dam Safety Officials
Prepared By
John W. Van Sciver
Floodplain - Doc Type
Educational/Technical/Reference Information
There are no annotations on this page.
Document management portal powered by Laserfiche WebLink 9 © 1998-2015
Laserfiche.
All rights reserved.
/
41
PDF
Print
Pages to print
Enter page numbers and/or page ranges separated by commas. For example, 1,3,5-12.
After downloading, print the document using a PDF reader (e.g. Adobe Reader).
Show annotations
View images
View plain text
<br />BASIC PROGRllJII LISTING OF HAZARD2 (CONTDnnm) <br /> <br />500 Kl=(H/5+10)/KC <br />:; 1 0 I F I> 1 < . 5 TlIDi 11: 1 = . 5 <br />520 IF 11:1>1.5 THE~ Kl=I.5 <br />530 PRINT US1SG .Kl='.....;Kl <br />540 LPRIST USING "K1=...=.";11:1 <br />..- -----_.._--------------_._._---~.- -_._- ._.__._~--- -. -.. <br />..550-R;:rrO=Y/H --- ----- . <br />560 K2=H"6.01*LC"-.545*A"4.45*Y"-5.39 <br />570 PRIST USI~G "PRELI~lISARY K2=...#.=#" ;1>2 <br />580 LPRIXT USING "PRELIMINARY K2=='.=*.".;K2 <br />590 IF 11:2>1.5 THEN GOTO 690 <br />600 IF RATIO<200 THEN GOTO 630 <br />610 IF RATIO>200 AND RATIO<=1000 THEN GO TO 650 <br />620 IF RATIO>10CO THEN GOTO 670 <br />630 IF K2<.5 THEN K2=.5 <br />640 GOTO 700 <br />650 IF K2<.05 THEN K2=.05 <br />660 GO TO 700 <br />670 IF K2<.005 THEN K2=.005 <br />680 GO TO 700 <br />690 1;:2=1.5 <br />700 PRIXT USING .FINAL <br />710 LPRINT USING .FINAL <br />720 K3=SQR(5/(Zl+Z2)) <br />730 If K3<.5 THEN K3=.5 <br />740 IF K3>1.5 THEX K3=1.5 <br />750 PRINT USING .K3=##....;K3 <br />760 LPRINT USING "K3=......;K3 <br />770 ISPUT .E:-ITER EROSIVENESS, K4"; 1;:4 <br />780 LPRINT USING .EROSIVENESS K4==.:=";K4 <br />790 K=YO/H*Kl*K2*K3*K4 <br />800 PRIXT USING "IT==.:.";K <br />810 LPRI:-IT USING "K=:=.".;K <br />820 T=3.37*V".C93IEXP(-1.7*KIV"-.1) <br />830 PRINT USING "T===".==";T <br />840 LPRI:-IT USING "T=....:.";T <br />850 QP=V/T*24.2 <br />860 PRIXT USING "Qp=,,=,,#"";QP <br />870 LPRINT USING "QP='::'::'";QP <br />880 AXSS=" " <br />890 IXPUT "DO YOU WISH TO CHANGE K4.;ANSS <br />900 IF LEFTS(ANSS,ll="Y" THEN LCNT=LCNT+4 <br />910 IF A:\SS="Y"OR ANSS="YE"OR ANSS=.YES"THEN GOTO no <br />920 KNT=O <br />930 QA=O <br />940 LCNT=LCNT+20 <br />950 IX?UT "ENTER <br />950 IF QA=O THE~; <br />870 LPRI:\T ;;SriG <br />980 QP=QP+QA <br />990 LPRDiT t'SING "TOL\L Q AT BEGIN:\I~;G OF THIS Rf-'':lI===:;:=='''' ;QF <br /> <br />I~2==.###" ;K2 <br />I~2=;:.#*#";K2. <br /> <br />ADDITIO~AL Q: ";QA <br />GOTO 1150 <br />"ADDITIO~AL Q=#=#;#~~!r;QA <br /> <br />A-5 <br />
The URL can be used to link to this page
Your browser does not support the video tag.