|
<br />Appendix F
<br />Program DEVIATION
<br />
<br />C IHIS PROGRA~ COMPUTfS IHE HEAN OF IHE 'BSOLUTE RFL.TIVE UEVI-
<br />C AIIONS AND THE HfAN QU.eRAIIC DEVIATION HET_fEN A GiVEN
<br />C DATA SfT AND ITS PRfOJCIING OISIRI~UIIUH FUNCIION FUR A
<br />C SELECTFO SET OF HflUHN PERIODS AS OESC.IBEO IN CH'RI!R 4.
<br />~ HAZEN, CHfGODAY~V, AND ~E!aULl A~E TRFATED AS OIFFfRt~T
<br />C METHUDS. RfQUl~fD INPUT JNClUDFS TH, Te, AND T~, THE NUMPE~
<br />C OF SELECTED RECUPRANCE INTERVALS FOR THF HAZEN, CHEGOO.VEV,
<br />C AND o,IBULL HETHOOS RESPECIIVELY. IHE 'PEDICIEO FLOOU HEIGHIS
<br />C UF THE ESTIHAIE~ DISTRIBUTION FUNCTION ARE ObTAINED FROH
<br />t THE INTERACTIvE PROGRAM PFHTS ~~O APE I~PUT AS A~P.AY PF.
<br />C THE EXPECIED,FLOOD HEIGHIS FOR THE SELECTED REIURN P(PIODS
<br />C AHE FOU~b U$ING THE PAUGPA~ PROS AND Ll~EAR I!JT[gPOLATIDN
<br />C AND ,iRE INPUT .AS AQ'~AYS fFH, Ero-C, AIW f.FIIj FOR THE: HAZEN,
<br />C CHfG{JOAYFV AND ~~IBULl ~ETHOOS PESPECTIVflY.
<br />
<br />DIMENSION EFHlI~),EFCClnl,(Fo(lO),PFll~I,HClnl,CclOl,_(l~I,PRClnI
<br />PRlll'.S/pR(2)',"/PPC]I..9,PRC41';QS/'HCSI',08,PR(6l0,OR
<br />C lH, le, AND TW, THE" NlI~If.1E:R OF PETIJRN PtfHuDS, A~E READ.
<br />READCS,/lTH,TC,TW
<br />
<br />C THE PREDICTED FLOOD HEIGHIS ARE READ INIO AHH'V PF,
<br />REAOlS,I) lPFll),I=I,OI
<br />C THE EXPtCTfD F~onD ~fI~HTS PRE RE~D INTO .RRAYS fFH, ~FC,
<br />C AND EFW RfSPECTIYtLV.
<br />REAOCS,/) (EFHCI),I.I,TH)
<br />REAOlS,I) CEFCCll,I'I,TC)
<br />REAO(S,/I (EFOCII,I.I,T_I
<br />WRllllbdOl
<br />
<br />10 FOR~IAT( IX,' PROBABIlITY',2X, I PRF-OICTED HEIGHT',SX, tHAlfr"I,Rll:,
<br />* I CHEGODAYfV',bX,' WfJ~ULLt,/l
<br />WRITE(o,?DllPRll),PFCIJ,EFHCII,lFCII),EF.CI),I'I,bl
<br />10 FORHAT( lx,rJO.2,6~,FB.?,~X,FA.2,8X,FA.2,8~,F8.2l
<br />C MEAN A8S0LUIE AND MEAN aU.DPATIC DlVIAIIONS ARE COMPUTED
<br />C FOR tACH METHOD EMPLOVING THREF 00 LOOPS USING EQUATIONS C2l1
<br />C AND C241 OF CHAPTER 4, IHE SHALLER IHE DrYIAIIONS THE HETTER
<br />C THE FI1,
<br />DIFfH=O.'DIFFc:n.;DIFrw=O.IDHS=O,'Dcs=n.JD~S=O.
<br />DO I 1=I,TI1
<br />H(l"ABSClPFlI'-EFHlII)/EFHCI,oIOO,)
<br />DIFFH.DIFFH+f<CI)
<br />OHS.OhStHCI)'H(I)
<br />CONTINUE
<br />00 2 hl"C
<br />ClIl'AOS(CPFCI)-tFCCI))/EFCIIloIOO,)
<br />DIFFC.OlFrctC (I)
<br />DCS.DCStCCI)'CCI)
<br />2 CONTINUE
<br />00 ] l'l,TR
<br />'ll)OABS((PFll)-EF'Clll/EFoCI)*IOO,)
<br />DIFFH=OIfF",well
<br />O-S.O'StWlllo,CI)
<br />3 CONTINUE
<br />AOIFFHoOIEFH/TH
<br />AD IF FC 00 I F FC ITC
<br />'D I FF 0 '(lIFFW,,_
<br />ADHSoOHS/TH
<br />ADCS'OCSITC
<br />'O_S'l'"SIT_
<br />"RITECo,IOO) AOIFFH,AOIFPC,ADIFF_
<br />JOO fORH4T(IIII,' MEAN OF THE ,iBSOLuJE PELATIVf DEVIATIONS',III,lllX,
<br />. I HAlEN',F20.2 ,1, 5X,' CHEGODAY[V',F~O.2 ,I, ~X,I wfIBULL',
<br />o F20,2 ,III/I
<br />"RITElb,200l AOHS,AOCS,'~'S
<br />200 FORMATC 5X ,. ~EAN OUA~kATIC DEVIATION',III, lOX,' ~lAZENt,
<br />* F20.2 ,1, bX, 'CHfGOD.vF.....n,F20.2 ,I, QX,'iIlElbULll,FZO.2 )
<br />STOP
<br />END
<br />
<br />36
<br />
|