Laserfiche WebLink
<br />B1unc PROGRA!'I LISTING OF HlIZI\RD2 (CON'rIHUED) <br /> <br />1500 Y=Y+.01 <br />1510 GOSCB 3040 <br />1520 IF QC)QP THEN GOTO 1540 <br />1530 NEXT I <br />1540 Y=Y-.Ol <br />1550 Al=YI(B+Y/21(Zl+Z2)) <br />1560 Pl=B+YISQR(ZlA2+1)+YISQR(Z2A2+1) <br />1570 Rl=Al/Pl <br />1580 VC=QC/A1 <br />1590 PRINT USING "CRITICAL DEPTH=#.#."";Y <br />1600 LPRINT USING" CRITICAL DEPTH=.#.....";y <br />1610 PRINT USING "CRITICAL VELOCITY=.....";VC <br />1620 LPRINT USING" CRITICAL VELOCITY=H#I.#";VC <br />1630 LCNT=LCl'T+2 <br />1640 IF S<.002 THEN GOTO 1710 <br />1650 N=.39ISA.38IR1A-.16 <br />1660 PRINT USING "JARRETT'S N='.,,##.";N <br />1670 LPRII\T USING" JARRETT'S N=#..#....";N <br />1680 LCI\T=LCNT+2 <br />1690 INPUT "CHANGE N? ";ANSl$ <br />1700 IF ANSlS="Y" OR ANS1$="YE" OR ANS1$="YES" THEN GOTO 1710 ELSE GOTO 1730 <br />1710 INPUT "ENTER N VALCE:";N <br />1720 LPRHT USING "CSER'S ASSUMED N=#.'='~.'";N <br />1730 PRDiT "USOLVING )IAXNING'S EQUATION I" <br />1740 LPRINT "IIIIISOLVING MANNING'S EQUATIONIIIII" <br />1750 LCNT=LC:':T+2 <br />1760 D=O <br />1770 Q=O <br />1780 FOR 1=1 TO 500 <br />1790 D=D+1 <br />:800 GOSLE 2980 <br />18:0 IF Q)QP THEN GOTO 1830 <br />1820 NEXT I <br />1830 D=D-l <br />1840 FOR 1=1 TO 10 <br />1850 D=D+.l <br />1860 GOSCa 2980 <br /> <br />: ~; 7 0 <br /> <br />r-;, ""'. r'l' <br />........ \1;1(/\:(....- <br /> <br />THE~\ GOiO <br /> <br />1890 <br /> <br />1880 \EXT I <br />1890 D=D-.l <br />1900 FOR 1=1 TO 10 <br />1910 D=D+.01 <br />1920 GOSlJB 2980 <br />1930 IF Q)QP THEN GO TO 1950 <br />1940 NEXT I <br />1950 PRINT CSING "Q=.....=. D==".='";Q,D <br />1960 LPRIXT CSI~G ., Q=#~~=#~~ D=:###.~=";Q,D <br />1970 \TL=Q/A <br />:980 AXSS=" <br />1990 Pi:I~T t.-S:X:; "\"ELOCITY=;:==. ;:;:" ;\"EL <br /> <br />A-7 <br />