Laserfiche WebLink
<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 />