Laserfiche WebLink
<br />Appendix E <br />Program EPROB <br /> <br />C THIS PROGRAM CALCULATES THF EXP[CT~O PPURtBIlIT' OF A <br />C HAxlHUM 'EARLY FlUOO PflNG 'HEATEH THI. OR fQUIl TO A GIVEN <br />C HEIGHT ~SING THE 06SERVfD DATA RECORO. THoSE PROeA~IlITIES <br />CARE ESTIMATEO USI~G THf THRlE FOPMULAE <br />C -- HAZEN, CHEGOOAYEV, A~O ~EIRIJL~. THt DESIRfD QECURQANCf <br />C INTERVALS OR .ErURN PEPIOUS ARE fOUND b' LINEAR INTER- <br />C POlAIION BET"EEN THE ToO ObSERVED FLOOD H~IGHTS "HOSE <br />C EXPECTED PROBAdIlITIES .HACKET THE DfSIREu P.OBA~ILITY. <br />C REQUIRED INPUT IS THE NUMBER 0' YEARS 0' THl DATA RECORD <br />C AND THE DATA I1SFLF. ~ IS THE NVMdER Uf YE~RS OF O'TA ANO <br />C X IS AN ARHAY FOq T~[ ~L(IOD kECO~O. <br />'ILE II<IND;UISK,TITLE."SAGUfNA,/DATA") <br /> <br />DIMENSION XC20n),HAZPR(20P).CHEGP~1200),.EIePRI20n) <br />C M, THE NUMBER OF vfARS OF DATA, IS READ.. <br />RlAOeSd)" <br /> <br />C THE 'LOOO DATA IS REAO TMTO IR.AY X 'NOM DISK. <br />READ(l,IO!)(X(]),I=l,M) <br />JOl FORMAT(IX,FI2.2) <br />C EXpECTEO PPO~A"ILITlf.S AHE CALCULATED. HAZP., CHEGPR, <br />C ANa _USPR APE ARPAYS FOP THE POOR'RILlTns FOUND USI',G THE <br />C HAZEN, CHfGODAYf.V, AND ~fIHULL FO~MULAF RF.SPFCTlv[LY. <br />ITfShM/2.-1. <br />00 105 I;IIEST," <br />HIZPRCI);(eM-Itl.l-n.SI/M <br />CHEGPR (I); ((M_I + I. )-0. 3) 1(t1+0.4) <br />"EIBPR(I)-I"-lt].)/lM+l.) <br />105 CONT H'UE <br />_PI TUb,200) <br /> <br />200 FORMATCIX,' EXPECIED PkO~'bllITIf.S'./I//I) <br />_kITE (b,qq) , <br />99 FORMA1(J~,5x,'DATA',32x,' HAlfNt,25x,tCli~GODAYEYf,lqx,1 ~E]Bul.L') <br />.RITElb,lOO) (X(]),"AZPRII),CHEGPk(I),-EIRpN(I),I=llEST,M) <br />100 FORMATIIX,F12.2,IAX,3F3n.lb) <br />STOO <br />END <br /> <br />35 <br />