Laserfiche WebLink
<br />Appendix D <br />Program PFHTS <br /> <br />I C- THIS PROGRAM 15 A~ INTERACTI~E (TE~MINAL) PROGRAM. <br />2 C- GIVE~ A DISTRIBUTION rUNCTICN F{X} OF THE FORM OF <br />3C- EQUATION e8} OF CHAPTER 2 "HERE C AND C- HAVE BEEN <br />4 C- REPA~^METERIZED AS THETA(}) AND TH~TA(2} AS IN <br />5 C- EQUATION (2G) OF CHAPTER 3. FO>=!: AI':Y X (FLOOD HEIGHT)< <br />6 C- F(X} THE PROBABILITY THAT ANY POSSIBLE FLOOD IS <br />7 C- LESS THAN OR E~UAL TO X IS EVALUATED. THUS THE <br />8 c- SELECTED RETURN PERIODS OR RECUR RANCE INTERVALS <br />9 C- CAN BE FOUND BY FINDING SOME X {TO THE NEAqEST <br />I D C- INTEGER} ~rHICH YFILDS THE DESIRED f(X} PRDBA9ILITY. <br />11 C- REQUIRED AS INPUT ARE BB--THE MAXIMUM POSSIBLE <br />E C- FLOOD HEIGHT, CC--THE SCALE fACTa~, ALPHA{I}. ALPHA(2}, <br />13 C- THETA(I). AND THE.TA(2)-_THE PARAMETERS OF THE <br />1 q C- PA~TICULAq DISTRIBUTION FUNCTION rex), AND X--THE <br />15 C- FLOOD HEIGHT FOR t..'HICH r{x> IS DESIRED. f(X) fo:AY <br />16 c- BE POUND FOR AS MANY X VALUES AS REQIJIqED. <br />17 c- FHEN rINISH~D SIMPLY ENTER ?END AND A NE\oJ <br />18 C- F(X) MAY BE EXAMH.'ED OR ONE MAY LOG OFF THE <br />19 C- COMPUTER AS DESIRED. <br />IuD DIMENSION ALPHA(2).THETAC2) <br />}SO PRITE(o,160) <br />160 16u FQl1:MAT( lX,M ENTER B8 AND CC") <br />200 READC5,/)B9,CC <br />250 WRITE(6,170) <br />260 170 FORMAT( lX,"ENTER ALPHA<I> AND ALPHA(29"./) <br />3 00 READ(S ,I) (ALPHA( I). I=' 1,2) <br />3S0 l,.JRITEC6,I80} <br />360 180 FORMATC IX," ENTER THETACI) AND THETA(2).,?) <br />400 READ(S./)(THETACI),I=1.2) <br />450 1 WRITEC6,190,END=99> <br />469 190 FORMAT( IX,. ENTER X..,/) <br />5~O READ(5,I,ENO=99)X <br />600 Y=(BB-X)/CC <br />700 F=EXP{-THETA(1)*Y**ALPHACI)-THETAC2)*Y:*ALPHA(2)) <br />800 l,JRITEC6.10.:!)F <br />850 100 FORMAT(IX.-;:-(X}=-,F20.IS./) <br />900 GO TO I <br />IOOD 99 STOP <br />1100 END <br /> <br />34 <br />