ࡱ>  ~ n o p i tuvwxyq j r k s l v m x h z CompObjpi17,E7 n````fo68CompObjpi219A? n``PGPGf,9o>@$ f2ɀ\pggibsonyke Ba= ThisWorkbook=,x"Calibri14"Calibri1<"Calibri1?"Calibri1h8"Cambria1"Calibri1 "Calibri"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)\$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)                                                                      ff + ) , *     P  P        `            a>  ||>hD}A} .00\)_(*ef;_(@_) }A} .00\)_(*ef;_(@_) }A} .00\)_(*ef;_(@_) }A} .00\)_(*ef;_(@_) }A} .00\)_(*ef;_(@_) }A} .00\)_(*ef ;_(@_) }A} .00\)_(*L;_(@_) }A} .00\)_(*L;_(@_) }A} .00\)_(*L;_(@_) }A} .00\)_(*L;_(@_) }A} .00\)_(*L;_(@_) }A} .00\)_(*L ;_(@_) }A} .00\)_(*23;_(@_) }A} .00\)_(*23;_(@_) }A} .00\)_(*23;_(@_) }A} .00\)_(*23;_(@_) }A}  .00\)_(*23;_(@_) }A}! .00\)_(*23 ;_(@_) }A}" .00\)_(*;_(@_) }A}# .00\)_(*;_(@_) }A}$ .00\)_(*;_(@_) }A}% .00\)_(*;_(@_) }A}& .00\)_(*;_(@_) }A}' .00\)_(* ;_(@_) }A}( .00\)_(*;_(@_) }}) }.00\)_(*;_(@_)    }}* .00\)_(*;_(@_) ??? ??? ??? ???}-}/ .00\)_(*}A}0 a.00\)_(*;_(@_) }A}1 .00\)_(*;_(@_) }A}2 .00\)_(*?;_(@_) }A}3 .00\)_(*23;_(@_) }-}4 .00\)_(*}}5 ??v.00\)_(*̙;_(@_)    }A}6 }.00\)_(*;_(@_) }A}7 e.00\)_(*;_(@_) }x}8.00\)_(*;_(  }}9 ???.00\)_(*;_(??? ???  ??? ???}-}; .00\)_(*}U}< .00\)_(*;_( }-}= .00\)_(* 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L渷 % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  Lմ % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23ږ % 60% - Accent3M( 60% - Accent3 23כ % 60% - Accent4M, 60% - Accent4 23 % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23 % "Accent1AAccent1 O % #Accent2A!Accent2 PM % $Accent3A%Accent3 Y % %Accent4A)Accent4 d % &Accent5A-Accent5 K % 'Accent6A1Accent6  F %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text % 0Good;Good  a%1 Heading 1G Heading 1 I}%O2 Heading 2G Heading 2 I}%?3 Heading 3G Heading 3 I}%234 Heading 49 Heading 4 I}% 5InputuInput ̙ ??v% 6 Linked CellK Linked Cell }% 7NeutralANeutral  e%"Normal 8Noteb Note   9OutputwOutput  ???%????????? ???:$Percent ;Title1Title I}% <TotalMTotal %OO= Warning Text? Warning Text %XTableStyleMedium9PivotStyleLight16`*Sheet14cc~BOUj_ KU f2ɀ +  dMbP?_*+%&?'?(?)?"O??t&U>@7 Sheet1ggD ThisWorkbook {Sheet1RunBatchModeMod 2H__SRP_2  !"#$%&(*+,-./0123456789:;=>?@ABCDEFGHIJKMNOPRSTUVWXYZ[\^_`acdeghijklmopqrstuvwxyz{|}~SIBILITYAOn Err"Resu@N*I.VBProject.!erences.bFromGuidE(, 5, 3 GoTo 0C'(1)DeleanyFisting one. We mV uKÍ&n& _in cAit doNnot.15App@@Yon".ms("sh0eet Bu@")@&HEFR@.L 8'(2)S` ahQ va\ri^B mV baL cbT~=] 3)Return the Index numb`Uofba_ 1ca"nb2/t A[}a ca be@[e0 'i=@tH+ +b '(4) M !)߂1a16 A E'0d1A$/ |5`(Type:=mso Popup,:=db ('(5)G 0c#ca'.CTHD'(6)ANAmwith our new,M` s&nd&Ogm0 tell which macro3run (OnAca)0W-bN)Button'R H&s,.e!$x_Stage1Eá'qlu!]th!f` half waų?!? y $inue G q 4 RD a#5`Sh?IE? C 'Rep step "6a2"Roea"AOit@em yount#q"E1Y&C7? ~2C"уru})sIA\llC | Library_Load("{420B2830-E718-11C@F-893Dp|A0C9054228}", 1, 0, "Scrip?q-time"0'"{0D452EE1-E08F-101A-8-02608C4D0BB4$22Mi:soft Forms0 2.0 Ms@gBox "' Ri w `wprogress. Ple1xz"EcAq"report #y  4Dan Opd yke ahe Texas ParkPr8ldlife Departpht: (512)389-873-'Ra$,j`S@wi0I d ofmo0obri/aez!a'a/apDLaTLQ2a' _^T^U"7_^1L(&61,' S3 \ol5Gr=, j4 cQMabovLu6yn6q86&Chb \.F2u 88s\ÿ#رUniįx Ư 6remd, Tfp0usz_v Ŧ $p  8Xp ,''Ke#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}(I' #xMEPSLSS<0< 6<<<N0{00020819-0000-0000-C000-000000000046}8 ,BB .XE6 %`2of 4%@8L X% .N+J " (8@H FPVj 6  8. r@ @ ,$H  $p  8Xp , j :   \( `  : , R *P 6  < D .H (x <   "  6 .H x   x"Dim cbc_Menu1 As CommandBarControl]@]`]x?refer to VBA extensibility 5.3 for adding modules automatically]&{0002E157-0000-0000-C000-000000000046}?MS VBA EXTENSIBILITY 5.3 GUID 8 (!:!<B@>[(1)Delete any existing one. We must use On Error Resume next in case it does not exist.h&HEFRWorksheet Menu Bar @%B%DB@F(2(2)Set a CommandBar variable to Worksheet menu bar Worksheet Menu Bar @%B..d(3)Return the Index number of the Help menu. We can then use this to place a custom menu before.Help .%D!H'29(4)Add a Control to the "Worksheet Menu Bar" before Help.&Set a CommandBarControl variable to it Ll 2N .!D%J.4 (5)Give the control a caption&HEFR 4(Pw(6)Working with our new Control, add a sub control and give it a Caption and tell it which macro to run (OnAction). Rl 4!D%J Run H&EFR9P HEFR_Stage19Tqp&qlu, added to handle run from half way Rl 4!D%J&Continue HEFR9P HEFR_Stage49Tq\(6a)Add another sub control give it a Caption and tell it which macro to run (OnAction)4Repeat step "6a" for each menu item you want to add. Rl 4!D%J Instructions9PHEFR_InstructionsAll9TqVCall Library_Load("{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0, "Scripting Runtime")YCall Library_Load("{0D452EE1-E08F-101A-852E-02608C4D0BB4}", 22, 0, "Microsoft Forms 2.0")HEFR is a work in progress. Please use with caution and report any problems to Dan Opdyke at the Texas Parks and Wildlife Department: (512)389-8734A@V3Add another menu that will lead off to another menu&Set a CommandBarControl variable to itK Set cbc_CustomMenu = cbc_CustomMenu.Controls.Add(Type:=msoControlPopup)# ' Give the control a caption0 cbc_CustomMenu.Caption = "Instruc&tions"6 'Add a contol to the sub menu, just created above= With cbc_CustomMenu.Controls.Add(Type:=msoControlButton)( .Caption = "&Charts"! .FaceId = 4206 .OnAction = "HEFR_InstructionsAll" End Witho&HEFRWorksheet Menu Bar @%B%DB@F#HEFR removed, Thanks for using HEFRA@Voxp(Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit` P"& Sub _AddinInstall() 'Dim cbc_Menu1 As CommandBarControlMainiHe lpInteger !c_Cb7'refer to@A extensibility 5.3 for a3g modules auEatic6y@2: GUI0DRef‡E1,57A-Ї 'MSEXTEN@(%H@0.N+xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU~|  Y1 Y 1a 9QYq  4 4Btt54K?: %0$ 04  0)0 54K1 : %0$ 0 d )0 0$ 0 T 0.0'%: %$ 0a4`1T054.0'%: %$ 0a4UpN054rkNcr4 4Bth54WkrD%(%0'%: %$ 04   a`1P)0 64WkrD%(%0'%: %$ 04   a`1d)0 64WkrD%(%0'%: %$ 04   a`1H)0 64WkrD%(%0'%: %$ 04   a`1D)0 64!lTlP*#*#ld*1`2lT*#lH*1X/!lTlP*#*#lD*1\2\X`  t4 4ohk Q%krD%(%0'%:%$ 0p   ,)0 64p rdg4 ''' :4otk ((<p(<P@:0 6 4@0 +'p'': N44 64p| D,P`HD\XdTD0 4pP@0 k rU $__SRP_3'gHEFRInputs?__SRP_c n__SRP_d)`n*\R1*#119rU $y `l$ `p$ `t$9 `x$y `|$ `$ `$9 ` $y `$ ` $  `" 08H P `p x "  h " p x@ " H P " (  8  H  X h  p     "  <  "   2( ` " h p   $    "   "   0 88p6xj (0HPX`h  (08@Xhpx ND.(fX    H 08HX `px ('TxME,6 LLL <0<4<8<<< ^`k//``t`br`dhx`fd`h``j\`lX`nT`pXP`r@N`tH`vD\%p0HhP8x|@V#yA@x4 pWWW@0 @ @ @ @  "rolWWW@ 8tionXW@0 @H @` @ @ @ entW@ zeWW@ @ @  @Hp @` &@`P @x@ @0 @ @ @ h`.N+$*\Rffff*1O4eb9507c*\R0*#13*\R1*#385*\R1*#125*\R1*#250*\R1*#24f*\R1*#119*\R1*#114*\R1*#253$*\Rffff*1P4eb9507c*\R0*#171 "  (08@HPX`h  p  ?1 ..   8*WH(Wx&W(W !!0P<th   >g 4+ @Px]@]X]p]]]]]]]]0]H$x'`zxHEFR_Master.xlsm$|B@~P FileNames$B@H @B@MainDir$!'n CountRuns$!'r b r$x'd b SubDirCol$%!'p bEFCsCol$%!'f bXMLCol$%!'t bHEFRCol$%!'v n p\ f'h nMasters\ t'l n p\ v'j h l jA@$x d Q b RunTimeCol$%( bdone$x ` << secondsA@V|z*you must have a HEFR_master.xlsm file openA@VoAttribute VB_Name = "RunBatchMode " Option Explicit Pub, SubB ^HEFRf()8Dim st arttiAs Do\e 0i Integter"S* 'InputEFCsK3Sng2INPUTXLSFILEO OUT8ML8MainDir'SubA Count}sG g\XML[Outj = NowOrror GoTBo MastWindows("%_ .xlsm").Activ at0 SheetFil e@s SeleRcuApwaz.CalculEE= Range("@Valu@BG F12i@1 2F D=@]aColOffset(i, 0). ˋA EkF  q c A: = W&AA& "\" &K3 cs D3?A +AzExMnal ),y, CE`T@U"`A("] -D@) * 8640@U Next i MsgBox "do " 8> V@> :>> >>? ? ? 8?H? X?h?<??????@@(@8@H@`@Px@@ $@AA(A@A (XA$A&A$A A B]   [Check this box if you want to distribute the workbook with HEFR results to someone who may )not have HEFR installed on their machine. bBut first you need to quit HEFR and follow these steps or else HEFR output files will have errors: @Excel2003: Click on Excel menu: Tools->Macro->Security->Trusted JPublishers and check the box with Trusted access to Visual Basic Project.  QExcel2007: Click on the Office Button (upper left corner), then 'Excel Options', ^'Trust Center', 'Trust Center Settings', 'Macro Settings' and check the box for 'Trust Access  to the VBA Project Object Model' (ohX !!KT !( !(KT !(no !!KT !( !(KT !(no  ZCheck this box if you want to include peak flow as one criteria to define high flow pulse iand overbank event recommendations, e.g., if this box is checked, then a high flow pulse must exceed the wuser-specified percentile for the high flow recommendation in order to be classified as a high tier qualifying pulse. \This entry is ignored if you select the Frequency Approach under the Episodic Events Option. (o  WCheck this box if you want to include volume as one criteria to define high flow pulse iand overbank event recommendations, e.g., if this box is checked, then a high flow pulse must exceed the wuser-specified percentile for the high flow recommendation in order to be classified as a high tier qualifying pulse. \This entry is ignored if you select the Frequency Approach under the Episodic Events Option. (oxX  YCheck this box if you want to include duration as one criteria to define high flow pulse iand overbank event recommendations, e.g., if this box is checked, then a high flow pulse must exceed the uuser-specified percentile for the high flow recommendation in order to be classified as a high tier qualifying pulse.\This entry is ignored if you select the Frequency Approach under the Episodic Events Option. (o ! ( ( (dP ( ( (ko qlu addedQPercentile Approach: defaults are 75th , 50th , and 25th percentiles. These can ]be changed by the user by setting different percentiles for the Flow Recommendation Levels. hFrequency Approach: user can input up to 5 tiers for high flow pulses plus one tier for overbank events. (o qlu, addedMChoose type of season: normal or custom. A normal season will have 4 seasons [of 3 months each and will be named Winter, Spring, Summer, and Fall. By selecting 'custom' cyou can set a different number of seasons, different months per season, and different season names. (oXX qlu, added !Custom !( !! $ !( B@k o Enter the first month of the winter season. Subsequent months will be assigned to winter, spring, summer, and fall, each being three months long. This entry is ignored if you select a custom season type. (o ]0H`]x]]]1qlu, 4/17/2009, validate high flow pulse criteria' !! !! !!`You must check at least one of the check boxes that define overbank events and high flow pulses.A@V|X kP !!'d( 'k !!'d 'k !!'d 'k !!'d 'kp !'dP 'k@ !!d !!d'd 'k !!d'Gqlu, 4/17/2009, check if there are gaps in the data, if there are, quit)#v$C:$C daily efcs$% @!%'A3:A  daily efcs$%.a  daily efcs$%!$A3 daily efcs$%!$  '  !!Your data set contains a gap. Data gaps are not allowed in HEFR. Please rerun your hydrographic separation on a data set without gaps and rerun HEFR. HEFR will now abort.A@V'A|kAqlu, 4/17/2009, add to allow user to change hydrologic conditions !?'d` !'kH ! ?' d  ! ' k !?'d !'k !!3#Or HEFRInputs.txtbx_MMHFP = "" TheneA'' !$ !e$Invalid Multipeaks Multiplier value !3 entered, please enter a positive numeric value > 0A@V !B@ !B@ !( ! !(| !$ ! e !X'kH !!3#Or HEFRInputs.txtbx_MMOBF = "" TheneA' ' !$ !e$Invalid Multipeaks Multiplier value !3 entered, please enter a positive numeric value > 0A@V !B@ !( ! !(| !$ ! e !X' kh3/5/2010--qlu, modified subsistence flow threshold logic, added two radio buttons: OptBtn_thr,OptBtn_Q95$user could choose either one of them/then compare with water quality protection flowthe logic, let. If HEFRInputs.txtbx_SubThreshold = "" Then& dbl_SubsistenceThreshold = 0.5' bool_DefaultSubThreshold = True ElseIf Not IsNumeric(HEFRInputs.txtbx_SubThreshold) Or HEFRInputs.txtbx_SubThreshold > 1 Or HEFRInputs.txtbx_SubThreshold < 0 Then MsgBox "Invalid Subsistence Threshold percentile value " & HEFRInputs.txtbx_SubThreshold & " entered, please enter a value between 0 and 1". HEFRInputs.txtbx_SubThreshold.SetFocus2 HEFRInputs.txtbx_SubThreshold.SelStart = 0T HEFRInputs.txtbx_SubThreshold.SelLength = Len(HEFRInputs.txtbx_SubThreshold) Exit Sub ElseIf IsNumeric(HEFRInputs.txtbx_SubThreshold) Or HEFRInputs.txtbx_SubThreshold < 1 Or HEFRInputs.txtbx_SubThreshold > 0 ThenF dbl_SubsistenceThreshold = CDbl(HEFRInputs.txtbx_SubThreshold) End If !"! !$?'&' !$$ !$  !$ e/Invalid Subsistence Threshold percentile value !$. entered, please enter a value between 0 and 1A@V !$B@ !$( !$ !$(| !$$ !$  !$ e !$X'&kXdP?'&k8 !(-qlu, -9999 might generate error, changed to 0 dbl_7Q2 = -9999'*' !($ !( e/Invalid Subsistence Threshold percentile value !(3 entered, please enter a positive numeric value > 0A@V !(B@ !(( !( !((| !($ !(e !(X'*kHEFR inputs are set to the following values. Please verify before running HEFR. Click 'OK' to proceed. Click 'Cancel' to re-edit inputs.'   , ,3Multipeaks_Multiplier high flow pulses (default) =  'd  , ,*Multipeaks_Multiplier high flow pulses =  'kH   , ,1Multipeaks_Multiplier overbank flows (default) =  'd  , ,'Multipeaks_Multiplier overbank flows =  'k   , ,*Water quality protection flow (default) =  *'d   , , Water quality protection flow =  *'k   , ,3Subsistence flows threshold percentile (default) =  &'dh  , ,)Subsistence flows threshold percentile =  &'k !!d / 1 / 2001Xm$'. .   , ,"Winter starting month (default) =  !!d'dx  , ,Winter starting month =  !!d'k0 !0  , ,D**IHA "analysis.ini" path missing, Metadata sheet will be incomplete' !0 e   !2!d $[ $ \analysis.ini $ \analysis.ini'4yk  , ,*IHA project "analysis.ini" path is set to  , 4'k  6 8 HEFR Inputs$V' KT !:(KT !:! !:(k(| n !>!d'< !@!'Bd 'Bk !!'Dd 'Dk o "qlu, populate global season arrays B@H'g@ o8 PA@Lo ]]]'R T  T! BaseFlows'Ry k RCAll sheets created in the previous run will be deleted, is this ok? V HEFR Message$V'P PAXd HEFR will now abortA@VA| k k AZo GWith this option, HEFR will calculate subsistence flows and base flows using non-zero flows only. (o0 XGWith this option, HEFR will use the higher of Q95 or the Water Quality mProtection Flow as the subsistence flow recommendation. Q95 is the 5th percentile of flows binned by season (irrespective of hydrographic separation. (o DWith this option, HEFR will use the higher of your input percentile eof the extreme low flows or the Water Quality Protection Flow as the subsistence flow recommendation.  BFor example, enter 0.5 to use the median of the extreme low flows. (o`Enter the percentile value in decimal format corresponding to the low level flow recommendation. (ohcEnter the percentile value in decimal format corresponding to the medium level flow recommendation. (oX`Enter the percentile value in decimal format corresonding to the high level flow recommendation. (oh !(j  REnter the flow needed to protect water quality, which will be used as the minimum Zsubsistence and base flow recommendation. One possibility is to enter the TCEQ-published _7Q2 value, with the rationale being that certain numeric criteria in the surface water quality \standards apply only at or above that value. If the published 7Q2 value is not expected to aprotect water quality, then another value can be entered here instead. Leave blank or enter zero >if you do not want to specify a water quality protection flow. (oPlease enter your best estimate of the bankfull flow at this location. This input value is optional and is not required to run HEFR. (oX]X]x]]Navigate or Browse to your desired IHA Projects folder. This input is optional and simply loads your analysis.ini file into this HEFR workbook for documentation purposes. (X"Creating a folderpicker dialog box  @%r.p p$Browse for the IHA Working Directory98&Sets the title of the Folderpicker boxIHA Wrkng Fldr9''Sets the button of the folderpicker box59If loop for when the user click cancel the sub will exit.|d7Else the folder path is assigned to txtbx_IHAPrjDirPath !0(5! p% !0(d !0(_The above line of code takes the selected path and concatenates to "\Projects" and this createsaa path to the IHA working directory Projects folder where IHA saves all the analysis of differentprojectskq.p"&Setting up the folderpicker to NothingNThe following lines create a FileSystemObject to extract the subfolders in theRIHA Working directory and these are passed into an array which then is passed intoWthe combo box that lists all the projects in the working directory for the user to pickthe right analysis.Scripting.FileSystemObject$.x<Creating the filesystemobject 0!d x%.tC(Reading Folder object into fs_subfoldersMAt this point fs_subfolders will contain the Projects folder and its contentsrDimensioning the array to hold the all the IHA projects. Using the .Subfolders property for the list of subfolders t!! @BFor loop for reading the sub folders and storing them in the array z t! z!. |  0!d\ z!\ |! + |! +  '// !2B@   $ !2B@h/  !2( !2( !2(o0/H !(  GThe Multipeaks_Multiplier parameter is an optional input parameter thatB is designed to split long high flow pulses into multiple discreteN events for statistical calculations. For example, enter 1.5 to trigger a new9 high flow pulse when the flow increases by more than 50%E from one day to the next. If you leave this box unchecked, the codeH will use a value of 1e9, which effectively turns this function off. IfG you check this box, you must enter a numerical value in the associated input box.  dEvents that are created with this value are highlighted in light green in corresponding work sheets. (oP, !(  GThe Multipeaks_Multiplier parameter is an optional input parameter thatA is designed to split long overbank events into multiple discreteN events for statistical calculations. For example, enter 1.5 to trigger a new8 overbank event when the flow increases by more than 50%E from one day to the next. If you leave this box unchecked, the codeH will use a value of 1e9, which effectively turns this function off. IfG you check this box, you must enter a numerical value in the associated input box.  dEvents that are created with this value are highlighted in light green in corresponding work sheets. (op) !!j(HEnter the percentile (in decimal format) of the extreme low flow values didentified by the hydrographic separation algorithm to use as the subsistence flow recommendation. BFor example, enter 0.5 to use the median of the extreme low flows. (o0(  !(7Enter the ID of the flow gage. If unknown, leave blank. (o'H PThe following lines of code will populate the Winter start combo box with months4Format function is used to create months on the fly.] (0 !0( !2B@ ((? ($ (> !B@ (    / 1 / 2001Xmmmm$ !B@8&  !( !( !( !( !( !( !( !:( !!j( !!j(DDisplays information about various inputs and other status messages. ( !B@qlu, populate season type box !B@Normal !(Normal !B@Custom !B@"qlu, populate frequency choice boxPercentile Approach !(Percentile Approach !B@Frequency Approach !B@o$#Attribute VB_Name = "HEFRInputs"D Bas0{AB247848-1B40-4962-B8E8-405185411CF3}{B7FD9B0A-8642-4E90-B97F-A395C998916D} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizD Public arr_FolderPaths  '+ Sub chkbx_Dis_Ente r() .lbl_MsgHlpCheck this box if you want to d%e workbook with ) resultssomeon@ ho may " & _ "not havein stall@Bon ir chine.vbLfBut firs2t(ne(quitCand f`ollow@steps or e{outHles@1llC$e@rrors:Excel2003: C@ak @, menu: Tools->Macro->Security-> dBsshers ,c`eB`VAEaccesWVisual @̀Project.BPJ,7,the` Offi@Rt0(upper left cor ner),ANn 'C7Option(s',N0'( Ce Setting'"'f4A0 GC<VBA $ Ob Modetl' ~E`? `bMMHFP_ChangeaRSel ( C!ctxt h.@.i'X dZalu" `rela'# <%OBF?%@.%%?%dP?% ?%"б?%Peak__߫jӫinclude p fa-@cabefA highcpud"overbank ev# comdax, e.g.,!s@eda m e@user-specifizciPtQ=A;g re inYl!be ussS0)ttiIqpOifJyE . H"FTk`ry `igno@zlss>Frequency Approa`ch unp EpisodUE4s O.EvVolume tsvWvvv v _ d_ _ _ _ _ @"h_ t&_ }"_ _ s+_ or_ $_ l_ _ _ _ _ _ n_ vurB6  ou d 0 @@H I@a@@   @@o{ Pym@fEChoP_!aIf ce.*LIHxh0 pThenSf.EnmGD$$.E0φp9= 5IfOoT'qlu addedPerk%&U]:RaR 75, 50b12jsehcane"Qi2d8 by2#-sefferg|es0r&}R[oZLylvt"oi: iq up9Qr5 /܀s xplu22wsOLGLaSeaso`nTypeW,/%'mo htype of season: normal or custom. AL will have 4s " & P_ "3 months each andhbe named Winter, Spring1umm)Fa@ll. By[lHect '' fyou can&t a different n umbers,p ,qSs." E]Sub Private  cmbx_S_Change() 'qlBu*ddedI fT.Value = "C" ThenFlex-s.C/4i41s\tM3N(HEFRInputs.aStart.ListIndex + 1@2"#ShowCFIfHH_EA|H lbl_Ms0gHlpCB the firstwqwB{A. asequ|t@assignYto@Ùsęsșf,beA threeloDngThin0try or@if Ase7' dbDtn@eckb_`ClickF[Dim bool_De(utMMHHFP,ulO,BFT/sholdK7Q2ClstrA\Box As Stߧ`,_decisionI'gr8cou) TotalDaymRngLimit L)rng_dailyefcsRag%g4/17/2009, valid!nhigh flow pulse cr2iiac %BatchRunIseC`o)^hkvDuratc A}nVolume?x_Peakz\."Y"m~ ch@ at lt on°a]#boxesCa defiverbank ev^s"L#bHaEx/Cc!v!"(TrR(D 2# H2L.]!C*9FR= Av _@CBnr`gt<`teamsfK5p#S o`#OptBKQ95 C0",RK*txt;B/FuText <> "sdbl^_U(=t E+ 04An ATx|K~q cMC>d?re a0gaps in#"ppOa, , qui V= A ppdSMWorksheetFun!Гon.MQ(1E+306, (s("RX aX").RX("$C:$C"),&Set +[=OLA3:~A!y !bD^B( a#() - _t "A3)q&{ %:.Row!p̚x]r Q`t cain0Z P a4no0lCn A*0P`e rerplr hydrographircppakb!atawithout*Tantabo,2ZAbLC` _Q'e1~.padd Pu6sc log diays1 tx?W(0E?lwrc3$0.75?=Pe3oe@%>GAwagb/#2"QE! _IDO 12/(1-`'aX2.Vbl\1 'Or"_F  ZZMi pslier 10#P ;x Not IsNuPicYϓC` ) x_` <= 0>Inr g q 1PJ*G&@`}pp?=pos00serP1>L 0;xfr0_VHбP.ZF>oŅs HEFRInputs.txtbx_MMHFP.SelStart = 0!LengthZ()Exi t SubElseIf IsN@umeric? Or Z > 0 Thenbdbl_Multipeaks lierCDblSEnd If (Oith`one of em@nmpare "w  wa@E qu@Nty protection#letav'ˑvT= fqᆀe0.aIp #qB _qa3r* > 1E.Val^= A/b8x_yp Gi18SSo8c88 8:8N8q8WWG8_uL8u8d 8 8ub 8?Xi,9fq_9Yw+o9 9J{.V+9 %?:.0.>0l"Tc:x_(7Q2Y:'B-9 might genery error, changqoH{ xI=<<A+= _0Å/$str_$0)L iR 1set to fo"lingSs. Pvfy befoPrunnA. Clidck0K'acHeedfCa lre-ed. 5-P51-s & vbCrLf&"הMh`9puOs (ds)<@E_Multipeakslier@HFP Else$4str_MsgBox = 0& vbCrLf " high f@low pus "7dbl nd IfIf bool_DefaMMOBFGTrue ThenJoverbankZs (d}:)\ICN H= C7Q2O"Water quality protectionC{MH[FASubThreshold?D"sistenceĎtFpercentileF$?J#g&(cint_WerStart@'Form at(CD`B(HEFRInput@s.cmbxI.Text"/ 1 / 2001"), "m")C } 12|#@ing month0{a/E0# %txt -IHAPrjDirP6a@` "''** ""analy [.ini"" pa miss), Metadata sheet will be incompl0ete"''@LenC) > 0K t_cou n=!o UBd(arr_F@xes, 1I_&aK%bR AL`vR= L (aQ  Debug.Pr;0)a_\ *#E d9Z  Exit `)+e%1N :X/-P `j`#!r#is s`"towBlV/h#;/decisaf= (' ,pOKCaXl +InfIPF2 IFSel CasQ+t_117cmdbtn_RunA.Enabled\2[ߍ)'a FaJq=2! `# AUSGSGageNum:b=<ID5\hkJD@7ribute.Vdal`= ߜCToHefrWorkРk{3Y¢?v kfrequ0}yChoice.BInde!}JAFs` 0? et&g R Fvv: T'!=1 _C lick(O'qlu, poන@global@7as@Days#HidTBCa nd H8ELP1%_I n#usAll9_teY,Di0m xD`:pAs = 6H Ca`cOldS:Q("C now abortQuit$W૜ge0Y1?6 CJ"I!mittS"t`ms_erO6 lbPsgHlp`?"WikPp,Sc alcul:sujblabhqs%r_ "uQ non-zerodonly.pf BOptBiQ95S () HEFRInputs.lbl_MsgHlp = "With this option,  will usehe higher of @Q95 or(Wat&Quality " & _"Protec Flow as0subsistence frecommendda+. ]the 5percentilez2s binned by season xirrespzv2hydrographi"cpar4" End Sub Prive OptBt@n_thr_ a\E="fd(pg`/apP. j]oP array@nq0(mboM r t'call this function multiple times to interpolate a set of vals7 Return an error if lookup_value is not within range1(06/24/09 DRO code change integer to longOriginal code:Dim i As Integer DRO new code:]  $  $ ''zk!interpolation grid is as follows: x array y array . . . . . . x(i) y(i) val result x(i+1) y(i+1) . . . . . ..where result = value returned by this function b    b$  b $ b$ b $ b$   b$  b $ b$  'zk bi]PA06/24/09 DRO change integers to longs to accomodate larger arraysOriginal code:Dim   'hFindWindowA4ql aGetWindowLongAX SetWindowLongA|DDrawMenuBarhSendMessageAReleaseCapturexME(SPSSS0{B49E3F20-1E8F-470D-9746-FBC92123D319}{F8A9F8F1-5189-4FF9-8D96-5EDF4A9B8B78}X+@ i`ddediof s+  i i+@D i`ii+h i+@ i`%ii takicate+0 (Cojec`save `g up` Not  ii i@i`% %bCb0`.N+" H H H H H  H(0@ "HP`$x$ 0.@p " x   ]D]@0]pio @!$ ue ThunderDFrame !P$'$|dX ThunderXFrame !P$'k( G|jr$  $' '  A@ A@  x00:00:03$ KillForm @B@oCode to drag the form G|j A@ A@koAttribute VB_Name = "SplashScreen" Bas0{B49E3F20-1E8F-470D-9746-FBC92123D319}{F8A9F8F1-5189-4FF9-8D96-5EDF4A9@B8B78} dG lobalSpacoFalse CreatablPredec$laIdTru BExpose#0Temte DerivCu@stomizD T PaDA Function@ FindWow Lib "user32" A@lias "A" (ByValP lpCsAs Sng, '&) LongDGet #J#hwnd!nIndexE=SJ%dw8NewB7DC%DrawMenuBar EDcI?9ndM@essageYSe8wMsg]@wParamGlAnya'RelezCaptur (Const GWL_STY LE%l(-16)MwHandsPGSub U^Form_Initialize( Dim frstyi If c(Applicaak.Vers`l) >= 9 Then Aa=(p("TDhuVrDF(e", Me.A! CE"derXseIf G0 Exit "S#a= jo(D,'/%Or &HC0g &4,+B*#I^+OnTi N + A/ue("00:A3"), "Kill:`NEb?Mo@DownjButtEIntegerxShiftMSingleEYC#'Code to drag the fyN ^1= 1If%Dy'.&HA1, 2,< 0#A$MaxIndex As IntegerDim i, j As Integer DRO new code:]h]9 Step through the elements in the array starting with the last element in the array. b 4 Set MaxVal to the element in the array and save the# index of this element as MaxIndex. b$' b'5 Loop through the remaining elements to see if any is3 larger than MaxVal. If it is then set this element to $  %'xMEP<> <<< `k@ NNi `ddediof s`h)/(n`d I u``ion `\`X`T P@( `Lx``<    +` 8&&N)px X) i`b ` 0 ''ti ` `@b ` `  I  high "(er Q%`$ as tdati%8@HPp8(P@l he e`8 flowster Qu@(, w as@( w reon.@$ exam 0.5 t@h  the w flow@o @`Ente  V val iformat@@ e lo@ ndath3@ Ente3entile5decima@ ng t8um lev@ on.8:`Ente@X ue i@p reso@ vel @ @ @ @hH.N+$*\Rffff*1[4eb9507e*\R0*#14*\R0*#0*\R0*#17B    8  LP 0 X L( \x &  0(X :` "     0@ H  X hx       T `@p  ,$( P`h&  V  ,8 *h *   J 0H P@+X  B   4 . P h N D > .X     ,     (( P h        ( 4@  x * d 0 8  @ P B  X ` Hh      ( @8 "x  : *0@ <H :  ( 0 8 :H ,     B   N( Rx * "( P hx       to run:nd1 select a column of data2 run this codeEnote that the Excel percentile function uses the equation (i-1)/(n-1)$|)wheras I use the Weibull Equation i/(n+1)be the new MaxVal.  b $  $' 'k 3 If the index of the largest element is not i, then& exchange this element with element i.  b b$ +  b+k bStop'iHThis function is used in the HFPs sheet in the Hidden Columns I, J, K, L eLThis function looks up for a non boolean values in a given range and returns!#the non boolean value as the output(]]0'$ " eMsgBox rng_Criteria.Address "$  uts.tx "!'"" T'$yxkph $'kH Stopd Multi( ~Attribute VB_Name = "HEFRExp" Function PercentileWell(arr_Input As Variant, dbl_pV(Double) ' to run:1 select a column of d(ata2, thisdenothate Excel t fuseBs"equa(i-1)/(nKwheras I o E2i+1c6's )only mak5sensesif you have sa mpled/ENTIRE populI 'DRO 06/24/09 changdeclars from inxo long2dle more'Original: Di_Temp,_CouҀ$Bc BaseCN!RankoIn teger(New )codept L@%qInc KN CjAD|()A ×GA s='AΰtmpA'Loopi`hrougBhuxArregecZnum0bers= *ge("D2:0D40"ŗ= 00.25 CFor Each AyA&InBAIf Not (-Type@ )@vbBoolean) Then Bc7=gE + 1Reb)res er`[F21 To a CDb End IfNex@@@#IsEmpty(H =9 -9CExit  0&  C dUBFd($#LMElsdCall_S SortO"#'\?& A-l= mN0%-CV 'n the pqA̠` _dr BINA) * dYcDB+BCcs s(o - 1)b!ymN  'posm/(N5' E" C u) /e iA x($B@x)) Orl =A;A<ӂF+ (hY(i-"r(}-{p5)gPpqc OQA 2 nSort(TempArray As Varia@nt) Dim MaxVall '06/24/09 DRO change integers to longaccomodate lar)< asOriginYcode:o'pInd4exrITi, j 'new G FLCB  . Step throughe elempentsm] starting0 witla,st .For i = UBound) To 1?-1G`' SetthJIand saveS6i$of isMas)&A z= (iāe= i(LooMrem8ainHFP/sef any i'Et:. If it 4n s@AthG08@b= 1H5]j]1Y.C:j) > pThen HjWH Jj E@iIfNext }G'>Aynɖsh no@G,BGIexDIKb iG <`S#)))D )')  2'Stop AFunctio`/% @_Crite(rngD/'TCf$AFusedcHFPs she Hin% Hidden Columns I, J, K, L looks up fwa.n boolean valueba g4iv` raqrePturn\':no, pout8putAtm:paR '_FlagaB!/= FalseGa`Each e InB*''MsgBox.AddresHv @G`0Type2 ) <> vbth9D$.Du(! aɉTr1ExgLaM%0"" E ' aXald (,llPlPL (,lPM,` 5  lPLq\lPlPLqXlXqTl\lXLdlXdldlXldlL dfilXLdlXdldlXldlL dflPL  k,l+''':,N  6 <H0l(<PL 0   0   0   \rU ,`/+8`  kk+(` /(`) /nrU $ `H$A `L$ `P$ `T$ `X$A `\$ ``$ `d$ `h$A `l$ `pFlexSeasonszV__SRP_a__SRP_bQHEFRGo_7'*nA2#populate season start and end boxeso long 4( more  6(UOr 8(e: Dim b (nt, in cmbx_Season b0$ Name '0 0 %D(.x cmbx_season b0$ Start '0 0 %D95:  $C@ khq` cmbx_season b0$ End '0 0 %D95:  $C@ kq b populate all b ( cmbx_Season b0$ Name '0 0 %D!: Season b0$ 0 %D(Enter your own season name... 0 %DB@Winter 0 %DB@Spring 0 %DB@Summer 0 %DB@Fall 0 %DB@  (Season 0$ 0 %DB@ k cmbx_Season b0$ Start '0 * b  , '< < G < '<j < G < '<j <$ 0 %D( cmbx_Season b0$ End '0 * b ,  '< Stop < G < '<j < G < '<j <$ 0 %D( b !4Winter >(Spring @(Summer B(Fall D(ko.populate first month combobox, control index 31this happens when purposely set to "", do nothing !G|j !( !H( !!: !first time appears, not populated b  b$ !B@ btipliedDsome controls already became visible, hide unnecessary and show some b !!  cmbx_Season b0$Name'0 0 %D!CompObj9pi56=IG n``fLoFHK,reduce form height !J (JRI !L!N !L(N !P!N !P(N 0 %D( cmbx_Season b0$Start'0! 0 %D(se e cmbx_Season b0$End'0 0 %D( kMe.Height = Me.Height - 18 b call hide_or_showA@2kPoH >!Enter name for this season: HEFR Warning$V'Tr,OptB T >($us T >B@e ko8 @!Enter name for this season: HEFR Warning$V'Tet T @( HEF T @B@Suk@o8x B!Enter name for this season: HEFR Warning$V'TSubThr T B(e T BB@Ifko D!Enter name for this season: HEFR Warning$V'Txtbx_S T D(< 0 T DB@ k0o( `!Enter name for this season: HEFR Warning0 ^ B'pAj|"-'GzI8HMDEHLtdԜ#"@O,K 6x,K 6j|"-'GzI8MEPSPSSS6"<<<0{4D18F948-44E6-4502-A98A-8448EA4C7464}{DE9CD4AD-23F1-4022-97C9-C64FCB04FFAC}  &` HSS`(`*`,x`. `0 F` L%%S R8` Px Xx` T Z` X \` \ ^8` ` bx` d f` h j ` l  n8 ` p  rx ` t  v ` x  z ` |  ~` OO`(@T poh`'0` `b 0`  p` $ 2` DKK6i `(Seas%@ %p088xxx8%%pDH.N+$*\Rffff*1W4eb9507d.48<@ D!HLPTX\ `d hl p tx| " \ &h    ( *0 ` p  02( @ HXp  0   ( 8@ H X p0 . 6 @ `   0 2 Xx 0 (8Xx    " ( 40 8h   (0 HX J` &0 (  @  X  x    2    0  0 H P  p     "  :    0 8 " @ H :X     "  :  0 @ H " P X :h     "  :  0 @ P X " ` h :x     "  : @P`h" px: " : P`px" : " :  `p" :  "  8 X`   00>`2>X8X  $($P x&@H P `(h HXpx  ( F*H`x J * 2 0H x  $ $   @X"h<6J Dp&&.8 H Xh " px "  : 8P hx   "   0 H X h .x 0   8X x .6(Hh0   2  8  @ P h  x     0      ! !0! 8! B@! 2! !  ! ! ! "" 0(" X" p""""2"#00#`# x# ### ## # #Useason start and end boxes will be populated based on the choice of number of seasonsand start month of first season]@]Xlength of a season]p] !!'( !! ',] MsgBox iSeasonStartEN ($V'T enter T `(nter T `B@enko8 d!Enter name for this season: HEFR Warning$V'T T d( T dB@k ox h!Enter name for this season: HEFR Warning$V'T T h( T hB@ko l!Enter name for this season: HEFR Warning$V'T T l( T lB@ko p!Enter name for this season: HEFR Warning$V'T T p( T pB@ko8 t!Enter name for this season: HEFR Warning$V'T T t( T tB@kox x!Enter name for this season: HEFR Warning$V'T T x( T xB@kxop |!Enter name for this season: HEFR Warning$V'T T |( T |B@ko1check if there are 12 consecutive months selected]8 !!G|j !G|j !>!G|j !!'(first check for numbersStop b ( b ' G ('j cmbx_season 0$End' cmbx_Season 0$Name %D!' cmbx_Season b0$Start' cmbx_Season b0$Name %D!'  %D!Season 0$0 was not assigned properly, please make changes.A@V|h k`  %D!Season 0$0 was not assigned properly, please make changes.A@V| k 1/  %D!$'1/  %D!$'Stop      ! The start month of . does not immediately follow the end month of  . Please make changes. HEFR WarningA@V| k b (' !!d !! $]PYou changed start month of the !>! from  !! $ to  !!, is this what you wanted? V HEFR Warning$V'T T  !! !(dd | kx kp B@H!now populate arr_SeasonsAndMonths? get start and end month for each season from FlexSeasons form'b !d / 1 / 2001Xm$'.       cmbx_Season 0$Name %D!d  +'position of month in season cmbx_season 0$Start' cmbx_season 0$End' FlexSeasons.Show]1/  %D!$'1/  %D!$'   G  'j     +     ' . b b+A1-12 b$ G b$ b+j  $ b+Jname of the season b$' $ b+;,name of the month, eg. January, Febuary, etc $$ b+Cfirst 3 letters of the month  b+5 season number  b+/month position b b+3sequence number b 'b  o !!G|j !!G|jA2 !(o(04populate number of seasons combobox, controlsindex 1 !!: b b !B@ bk !4Winter >(Spring @(Summer B(Fall D(k (Jop] !!'( show 4( 6( 8(' lbl_SeasonMonths.Visible = True b ( cmbx_Season b0$ Name '0 0 %D! 0 %D( !J (J !L!N !L(N !P!N !P(Nk 0 %D!: Season b0$ 0 %D(Enter your own season name... 0 %DB@Winter 0 %DB@Spring 0 %DB@Summer 0 %DB@Fall 0 %DB@  (Season 0$ 0 %DB@ k cmbx_season b0$ Start '0 0 %D95:  $C@ kpqh cmbx_season b0$ End '0 0 %D95:  $C@ kq< ctrl = "txbx_Season" + Format(i, "0") + "months", Me.Controls(ctrl).Visible = True bd hide 4( 6( 8( b ( cmbx_Season b0$ Name '0 0 %D! !J (J !L!N !L(N !P!N !P(N 0 %D( cmbx_season b0$ Start '0  0 %D( cmbx_season b0$ End '0 0 %D(k b !( !H( Stopk0o( Attribute VB_Name = "FlexSeasons" Bas0{4D18F948-44E6-4502-A98A-8448EA4C7464}{DE9CD4AD-23F1-4022-97C9-C64FCB04 FFAC} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizDP Sub Cmbx_1stMonth_Change() 's start and eboxes will be poDpuAd bd on the choiof number ݃&s+%*m9@first   Dim iNumz As IntegerLen 'lengtha S4vctrlObject "= Me.L6Cs.ValAo.iI X.ListIndex `+ 1 G3SngIAMsgBox $>= 12 /IK CCajhide_or_show(Aw@oIz0lbl_.VisiCCA*W1EndNFor i1 Too4! %cW")mat(i, "0")"awaa6Nrols(a)r!* R3 BH WiO  aIf "DCount < 10 Then+$j$12.AddItem b{!(j ?AiNext jK4 Ifg'$0@_$~_$h_$ I_$_$_$ K$"i|'l@q'#8]="]-@I/^'5PK/B5m'%,"E r youwnen...lWiqC=fSpring2"Summeryl9cQrl)&;"& MjMK)A(_y;Z:/RLiy=gf* (i -| 1U/i @'>QiK #Jng&*OXOn]cxW Si{Stop oo5Jϔ_P?4"BH1ae9293=9480 X1? v[comboP, cG iҜ3`this happenC0p{ pur1lyNt to "", do no?Qp!odS Exit !r榭 ^ia1%'cti`1 ars, W-N&ln5Y99(bE'so0sH aldycIb vӧ, Q unnecessaryB! = 2!E ݻ<1 Step -`11BBY& D+i,5'u@form heighǥ Hb`6@8cxcmdbtn_"]Over.TopS?Proceedyr?: q_Trmat(i, "0") & "Start"  Me.Controls(ctrl).Visible = Fa8lse \D2"cmbx_SeasHon"Fo End7< Ify'HeightCw - 18 N ext i,call hide_or_show  (True) 2Sub Priva(te  r1Name_ChanHge(If.ListIndexT0 Then>str_TempStringInputBox("Enter n- for t his s:"HEFR Watrn": J.Valu 3= AddItem B>XB2ZBBBmBdB fBT3ABAAA da6c4  ?c?c r Bm 5    6    7  yciccR8Xisssss3csr9xscp10to:1sb/T1S?cK?? ??tS ]dbtn_Proceed_ Click'check if ere a012 consecu@tive m0hlectedCDim iNumSs As IǸger@C1&nV""2 E8xit81stMa=?3 _ =  'fir8st Sq bersStop  i` 1 Todend1i @#PiT 8 #C6)a'PsdAqa ?Poc;A")712 | Format(i, "0") & "Start" name2 = Me.Controls("cmbx_Season"Nj").Val$ueIf ctrl1@]"" 0Then*vMs0gBoxdend1 was not assigned properly, pl 1 AS-11z! s 2 of A0 doeC{immediately follow t>"1. PQ, HEFR Wa rningއNext i int_NumberofAQi D GFlex.1.TA-LMAl(#InPputs WerC + 1)PDimMr_TempStr0fstw("YoudM[a(!.!za* from?"49tob$C, is`<what ywanted?", vbYesNom9D\0!"(ghY/5= ĝE|ls$! SE tH$id'nXpopul [ arr dsiB,s ' get7alg^for eacxh s3( ermCi`B0AY'MDCD (Cq1stbcV 2/|/ 2001"2) /m"-a RegRc_Gs( -f-YAs IW'!#@LengthZI1Ager' i@o P!ECd @C`#! aIj0 'position#in9`=vD ‡HaC* ' Z0Show i pD;. step([l7y8(AiA?Y:8n5C> =c M2 aCu+`r[d-)nG+ cou0-rT,  $.jaDh8, 0)qP?+ i '1-1 !p@2TKt6_b:O:'q4Qm32~K0? 5 2QA>(K) <, eg. @JanuarFebetc3Left( , p'first 3 letters-4uS' n/OOC5Aj z' M6 B- quenceOq)0li/w439 ABS Privw cmdbtn_LOver_Click( F0/aaqpcs= } Wft Call h _or_sU(F>apOH teA1 UserEm_Inealiz~eA "s combobo x,cindex 1R.ListCJ < 10L`6Ao EO.AddItemc CR "4y9/GOq2SpWA3urۯ4lQ(EHeight=q2`Q(*)!truthtBoo@n"rx)vsons = Me.Cmbx_n umSea.Value If truthTrue Then 'showC|Flbl_tName.VisiblebLStaDrt NEnd%'q uMonthsAOFor i1 To iN!'ctrl"cCf" + mat(i, "0")"q"Jrols(,)NFals BHei8ght]+ 18cmdbtn_Over.8TopCRProceedN1u If'MListCount < 55CZA 5"Uq!AddItem "Enter your own s n9..́pWi Spring ummer Rl0agj`){g|5e1&%jj#jo1Next j1F v2v]lWi@mEV.T10T)12 .eFB!(j)%Q&a!+ )$(rl(f (#o($(E (F (с(txu!mhs@)Q[&bi8#E'hid$A6w2~@o11/wnsQ'/wA4blIvPs -s_rsrtu4tsyy?4mof<1SS#?flasӈ' ?nOZ11$E!ǥ_9Ǎ21stU,ou 11 d;S8topc% b Sub 1Q   QqA i` 1Q`   i` 1Q1QA`I 1Qq1Q1Qɧ1Q _  W    W    W    _    0   0   0   0 8  0 x  0   0   0 8  0 x  0   0   0 8  0 x  0   0   0   0 0 ( 0 p  @8`t  T \ d lOQqrU @. i41QY81Q `I <1Q1@1Qa`  D1Q   H1Q!!!L1Q P1Q9T1Qi ` X1Q\1Qɠ ` `1Q   ` d1Q) ` h1QY   l1Q `Q p1Q   t1Q   ` x1Q|1QA1Qi1Q1Q`  1Q `I 1Q!QqyQqQqɣ 1` Qq1Q ` 1Q9` 1Qi1Q1Q1Q$ `t$  `x$I `|$ `$ `$  `(I `E#nrU~| 0   0   0 o askStopNarCall CopyModule("HEFRExp", Workbooks("hefr_ver7.0.xla").VBProject, Application.VBE.VBProjects("VBAProject"), True)3users have to have the code module to work properlyActiveWorkbook.Save !' $'(Tto export workbook, this couldn't done before run hefr, so not use this part of code4 basFileName = ThisWorkbook.Path & "\HEFRExp.bas"E ThisWorkbook.VBProject.VBComponents("HEFRExp").Export basFileNamer ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Left(wkbkName, Len(wkbkName) - 4) & "-forDistribution.xls"q Workbooks.Open FileName:=ThisWorkbook.Path & "\" & Left(wkbkName, Len(wkbkName) - 4) & "-forDistribution.xls"P Windows(Left(wkbkName, Len(wkbkName) - 4) & "-forDistribution.xls").Activate* Set VBP = ActiveWorkbook.VBProject' VBP.VBComponents.Import basFileName Application.StatusBar = "HEFR results saved to " & ThisWorkbook.Path & "\" & Left(wkbkName, Len(wkbkName) - 4) & "-forDistribution.xls." ActiveWorkbook.Save ActiveWorkbook.Close Windows(wkbkName).Activate Application.StatusBar = ""StopHEFRExp $!: !:A | HYou have not allowed access to Visual Basic Projects. Because of this, Gthe PercentileWeibull function used by HEFR may not be portable and mayHnot work on other computers or if the HEFR add-in is moved or replaced. ETo fix this potential problem, please refer to the HEFR help windows.A@VB@\Access to Visual Basic Project denied. Please enable programmatic access to the VBA Project bat the Excel Tools->Macro->Security->Trusted Publishers->Trust access to the Visual Basic Project.A@Vgo   >''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''N CopyModule4 ThiCompObjPpi71O n``5VXfe)oNPa)' xME (1<6 <$:$@% sta ` 00``x +H` 2i UTh)@Hr wa%)hpomeo%i EFR X%`ect`\` `Work`p.ba @isWo% `   eCop% & Le%ꀮ@HOpenH.N+*\R7*#1d$*\Rffff*1V4eb9507d "  \ "p4     20 0h (  x :H    Z :8 Lx x x@  V 0 .@ p  ( $H $p * JH( 0 B$ 8 DP  : 8 ( H P (h D *  D *X  <  F B @h B B $8 ` Dh         2 (  2H       (8@H PXp : 4 & :8*x  , * ( (@ h ,"      ( 8HP .X . . ( 0 @Ph x *  6   :  6`  :  * (H p *(  4 2H 4 2 ,   4@x   $  " @P"`     "  8P `] UThis module is called when user want to distribute Excel workbook to someone else whodoesn't have HEFR installed@]X]p] HEFRProject (!:%!\$+ Stop @(Ms  ((tENThe options are:,xlUpdateLinksNever -don 't ask, don't update 4(*xlUpdateLinksAlways -don 't ask, do update!xlUpdateLinksUserSetting - ds function copies a module from one VBProject to 0 1 another. It returns True if successful or False if an error occurs.  Parameters:Me.Hei! --------------------------------= FromVBProject The VBProject that contains the moduleEnte$ to be copied.V'= ToVBProject The VBProject into which the module is$ to be copied.arning6 ModuleName The name of the module to copy.@ OverwriteExisting If True, the VBComponent named ModuleNamehr< in ToVBProject will be removed before9 importing the module. If False and< a VBComponent named ModuleName exists; in ToVBProject, the code will returnT ` False.>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''']]]]]]](,''''''''''''''''''''''''''''''''''''''''''''ason:! Do some housekeeping validation.,''''''''''''''''''''''''''''''''''''''''''''l! Ente'z`kX $ V''z0k( 'zk ! 'zk ! 'zk  %. !'zpkh3'''''''''''''''''''''''''''''''''''''''''''''''''''. FName is the name of the temporary file to be used in the Export/Import code.s 3'''''''''''''''''''''''''''''''''''''''''''''''''''T xTemp$\ .bas' name f%'''''''''''''''''''''''''''''''''''''# If OverwriteExisting is True, Kill" the existing temp file and remove" the existing VBComponent from the ToVBProject.%'''''''''''''''''''''''''''''''''''''|j     $~ for nu B@St A@ b !'z k k  !cmbx 7C@q d (''''''''''''''''''''''''''''''''''''''''Na( OverwriteExisting is False. If there is( already a VBComponent named ModuleName,n" exit with a return code of False.)''''''''''''''''''''''''''''''''''''''''' B@0$  %.igne ! ! $ module doesn't exist. ignore error.d@ 0 other error. get out with return value of Falseer'z k k k 3''''''''''''''''''''''''''''''''''''''''''''''''''' %/ Do the Export and Import operation using FName and then Kill FName.! Th3'''''''''''''''''''''''''''''''''''''''''''''''''''he end   %B@se m$'''''''''''''''''''''''''''''''''''' ! Extract the module name from the export file name.$''''''''''''''''''''''''''''''''''''h of t \$' f .$'      $'-'''''''''''''''''''''''''''''''''''''''''''''T+ Document modules (SheetX and ThisWorkbook) . cannot be removed. So, if we are working withrr_S+ a document object, delete all code in thatr each% component and add the lines of FName!d back in to the module.'-'''''''''''''''''''''''''''''''''''''''''''''.  %.cmbx   !B@d8 !l   VBComp is destination modulenth  !%.  TempVBComp is source modulet' !cmbx5 C@  !!  !%'FlexSe C@q`X  !B@ %k8k0 A@1/ 'iH]] !:. HEFRExp %.  !B@ oeAttribute VB_Name = "HEFRGo" Public CurrentWorkBook As Sng Sub `_Stage5() 'This mo dule called when user want to dis~Excel4 wbbbsomeone else;oWdoesn't havet inst] Dim basFileCwkbknmArray() q = Spl8it(qV.VBProject.Couction( ").I`, "\"+SHtop\Ap+ca.DisplayAlerts9Fa ;UpdateLink xlAlwayse op+s are: Nevd-don Vask, ]u   UzSetting -  ='Cn Cop yMLExp", Ws("hefr_)7.0.xlaS\, NVBEbVBA`, True^;@ sCBthe code proper$ly_'Avve~SC= 'I= ŔUBound()@(AC On Error GoTo NotAcces`sable1(e xport, tcouldre befor@e run AR, so notɃ pa@of KNPath n&X~`5.``' bVBCompynt28 ,DyS"ALeft(0,P Len)O4)-@!ktIs&N.Op v:="g%Windows(_.R).B&D `oP )&3τfg4.I5`B3ȔtusBa r ": resul@sbd2''Ĥ'.E6q"Q,ClosAf"-eEn'Iks(H()g /&2Ɣ!0cExit VMsgBox p"You@owa"EVisual Bas@Ss. Becza S BEl4_ 1"SPerc@wWell 8fun@ed Dby{mayGb e KL and~ p"iQ BX0o%0rJmprs2 0QifKtadd-inmov@ re@tced. }TfixOMacro->Secu@rity->ostbsher@2t End @' FE'X{{K, Fr0omVB \VBIDhzToo3UOw ep0sϢ0`n)q)'D(QM.copiekՃf@ ' t#'.,. ItSturns -su8ful. 'an eoc@s.E Pa$et@' -k -1T0&( h`'conta`735U{4>d 9W [inwhic>h(>_y_ '*(QnbN y o(Ifau d  P wiT0reM/*|Ds'f#%W=a r>ex y!vXX 3" re/O/:SⓩaCeIFGFM SA:Sn`A Bla shPosLo1ExtTempO L  _$ Do some housekeeping validation. ')dIf FromVBProject Is NothaThenJCopyModule = FalseExit FuncEnd8 If jTrim(DName)IvbNullhStrTqodm.tqext_pp_lockxed ЫG9{  tOn Error ResuN:{Set VBComp@Fonents F.Number <> 0KC'j D F is the n oftemporary fi!@to b' !d in Ex t/IA t c8odec= Environ("T`") & 8"\"gmA.bas"qOve@rwrite@=sto= True_- AG'~ o & , Kill)exi#A)(aremovȌ'(I f) Tb ! %Dir("-, ormal +@HiddenBSys`)V8#[ClearG "CLaaezFaWpith )*xK.R6 .I@"/| {! E3$'N.QLre`wIalready a"{d fF,I@Ot w!!a returnxc PC?_T#=K= 9?a ' mdoesn't R8. igno~eQ`L@[U'N Ѕ] gpbouD$pPHU2 %.?.RA.CoQMs_ M_operaWEUq`nR#AbOSx@hx. F`ln:= o0tra0A#rsZ'$qs_?SlashPosInRev[p)CExt/me, "."$b~= Mid%a+ 1,Q a- f- 1 /4"c0nt6s (SheetX#ThisWorkbook' cannotІHrd. So, if we za`9w%!KeaH doob!,@ deletllLatcP#Q)addbxli8nesObackoBSOɟipQ@OkUBV>.DP@ f @P    666H486*(0X <\X6ZbpvNP ($0(X2 j:0px(  "  "  D JX b F 6X T P  8 H " P X :` T T P  ^   d0 N    "   *, &#frame_IHAInfoss &,-8cmdbtn_RunHEFRssC3&,.<cmdbtn_ExitHEFRs>&( /4cmdbtn_HELPHjJ&05<cmdbtn_CheckInputsnf'&$8# Frame1+T :2P $ProgressBar1 99368265E-85FE-11d1-8BE3-0000F8754DA1$H# Frame30G# Frame_DefineOverbank &; ,Ql chkbx_Distribute&$ ,o'ֱ>$!Sleep%xME0$ , (t80<@ ` < <<< <  LL  L" "*LPL*<<<<<<<<<<<<<<<<<<<  8@ʘPBʐ0EX @*0 @8 @HX @YL?Gray-25%XTan 8 p @"x@ʐ$ H%ʐ(H0Hʐ,0Hʐ.p(H| @@ @Light TurqoiseRedʐ4@HDx!@8 "@` $@ &@6'@ Light GreenGray-25%8Gray-40%n foH :pi<(Th L`  4 @``  =`LFRIn B` J`LFunc D` ''e`Llass Fh` `L) H` `L7 J`  N@`  Z(`xk `\ of ``n, q`b8`d`f`h`p X ` N@b ` %  ` e 8 ` m ` ` x aai i I  I  I  @ @b @ `  %  %  %  %  % 0 % P %@ @ @ @  @" `$`& ( % <8 % >X % ^p ` dI  I` @b @b @ ``d`f ` 4i`@b ` @ Fi`I `@b ` KKT@b @ @b `````@ @ @ @ @( @ ` x ` 00`````@b @ @ @ `@ @ ` ` X eeixI I ````@b @ @ @ `````` ` H NN4I @b @ @ @ ```b``pX ` @ @ % ` @ i`I I ````@b @ @ @ ``@ %` %` ``@ ``@  `  bbjiI (I ````@b @ @ @ `````` `  iI I ```@b @ @ @ ``` $@%@ ` ``@ ``@  ` H i&@b @ `  MMi&@b @ @ ` ``@ @  ``  i@b `(` *0 `  --0ii,i.@b @ #` p ]I0  I  I  I  I8 !I 0!I P!I @ @2 @ @4 @6 @b @ @8 @: @< @> `@ @ @ @B @D `F@H @J @L @N @P @V RX$` # z I #I $I0 8$I  %` $ FF i$i&$I^ $I` @b @ @B ``d`f`h`j`l h.` 0&  I0 P&I p&I &I &I8 &I &I `` vX'%@b x'% z'%`b |'%@~ `@ ``@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ `@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ ```` 3` . \\ I0 .I .I /I (/I8 H/I ` `````  0% 00% P0% p0%@b @ @ @ @  11 X1@1 1x1 11 21 @ `````2 2 2 2 T6 ` X3 !SS I0 x3I 3I 3I 3I @b @ @ @& @( @* @, @. @0 @ @  @ @2 @ @ @ @4 @6 @8 :5% <5% >6% @86% BX6% Dx6%@F @H `@J N`7!` 7 " 2 )P@7%@R T8"` 7 #< iV7)Y77%IZ 8I\ (8i^H8i`h8ib L;#` 8 $K I 8I< 9I> (9ID H9I@ h9IB 9IF 9I& 9I( 9I* :I, (:I  <`:% >:%@b l:: @n @p @r @t @v @x z;%`|`~ >$` < %L IF  <I @<I& `<I( <I* <I, <I  :<% <=% >8=%```@ @b l== @x <(>% >H>%@n @r A%` > &IF >I ?I&  ?I( @?I* `?I,  :?% <?% >?%```@ @b l@p@ @x @ @ @ @ @ <@A% >`A%@ hB&` A ' IV A)YBB%I< (BI> HBI  D'` B (#I BI0 BI CI (CI HCI @b @ @ `@  @. @0 @ @  @ @2 @ @ @  `H(` D )++I EI0 8EI XEI xEI EI @b @ @ `@ @  @. @0 @ @  @ @2 @ @ @ 8G%@ @ @ @ @ @ @ @ @ @ @ @ "L)` H *DI HI0 HI II  II @II @b @ @ `@ @  @. @0 @ @  @ @2 @ @ @ @ KJ PK8K ` ` ` K%@ @ @ @ @ @ @ @ @ @ $O*` L +\I MI0 0MI PMI pMI MI @b @ @ `@  @. @0 @ @  @ @2 @ @ @ @ PQ+` XO ,11I xOI @ ` ``@ (P% HP% hP% P%@ @ @ ` `@ @ @  S,` Q -))#I QI  Q% R% (R% HR%  hR%` ``@ @ @ @ @ `@ @ @ \T-` S .L)=SS%I TI& lpTPT `b hV.` T /,,iTI& @ @4 ` 6 pU% 8 U% : U% < U%@> @@ @B @` @D @b P Y/` V 0ii I VI VI` WI (WI HWI  hWIR WIT WIV WIX @ @b @ ` `X% X% X% Z X%@\ ^ X % N `[0` @Y 1}} I `YI` YI YI YI  YIR ZIT  ZIV @ZIX @ @b @ ` Z% Z% [% Z 8[% ^ X[ % L \1` [ 2''I [Ih [)6 \%@b @ `@j @l H ]2` \ 3..*I \I& ]In  ]Ip `B  < p]%`@ @4 @r J ^3` ^ 4??XI 8^Ih X^I x^)6 ^%@b `@ F `4` (_ 5LLI H_I h_Ih ` 8 _% : _% _%@ @ @@ @> `@ @J `5` 688  b6` (a 7AAiHai&haI^ aI` @b @ @B ``d`f`h`j`l rc7` b 8\I bI& cI` @ `B@b @ ` pd8` c 9``I& cI dI 8dI XdI @B ` d%` @b + Xe9` 8e: HI   Pf:` e ;!!RI& eI eI eI  "0f%@ lf;` f <sI   g<` f =zi npg=` Pg >i rg>` g ?igI  vh?` 0h @((I  hh%` t k@` h AAAihi& " i% @i%@ @ @ @ @ @ @ ` @ Xj8j``@ `b ` `b@ @ |@lA`k`k B11I  kI `k kI  kI  kI k lI $  "kd8l% hmB`0kl C00II  lI"  lI$  lI& H mI(  mI* m$ @mI, l(  "ldxm% lnC`pkm DEEyI  mI2  nI4   nI6 m @nI8  " ndxn% nppD` n EQQiB nID oIF  oIH @ @J @L `B@N @P `R  T p%8p p @V @X txrE` p F::IH pI& pID qIF @ @J @L @B `Z @N @P `R  T r%@r(r @b @ + sF` rGI I rI\ rI sI 8sI^ Xsi` xsIb sId sI sIf  h tG` k8t HaIj  XtI 8t xtIl   "ht%  8uH`4kt Itij uir   uI` xu J((i& vJ` u KiuI~ vI  Pv%@ ` @ ` @b @ + wK` (wL$$LiHwi  w% w%` `   xL` x M""pi8xi&Xxi  x% x%` `  ~hzM` (y NnnI HyI& hyI ` ``  y%@ @ @ @ @b ^|N`(\kz Olli zizi&{i ({i { H{i $@4 z\ `J Z` ({H {D{%`b{`  z ~O` @| PUUli`|i&@4 `J ` `b`  }%@ @ @ @ @ @ @ ` ` ` `   ~P`@(k`~ Qij ~I `~  "h~%+ Q` RI  I @i `I + `R`+SI I  i  I  @I   jPS` TI I I I  I @ @4 @J @ @ ` % %`&@ @ `@ ` @ Ђ%` @b @ @ @  T` U..qI& I `b  U` ( V//I  "`%`b``+PV`H o Wi  *W`kP Xi h %@bX X` Yi  hY` H ZaaiB hI~ IH I ȆI I I @J @ @B `Z @ @ @ %  %  (%  H%`b + Z` [ LI ȈI +H[`X+(\VVVI   \` ] I I @  ]` ^I @I `I I @  p^` _I I 8I @  (_` `I ЋI I" ` $ `` h a**I I I& `  a` b/I @I `I& @b ( 8b` ؍ cGI*  ,  % "0% . xc` dW 0 d` ekk[I ؎I2 4 0 @ @J ` V`e`pk f77I  I2  @\ @J L `J`6 H``04`0`,`b*`(`&`$`8 0" f` g**I I2 @ @J `@b `6 Xx+: Xg` ؒh99' I< I> I@ 8IB XID xIF IH IJ ؓIL @N @P @R `T  Zh`(k i` I& iؔIV  IX  @Z X @\ H @^ 8 @` ( @b  @d  @f ` @h x @j @l  @n @p ؔ @r @H @t 8x @v h `\`b`f0 xИi` jVV?!I& @i`IX @Z @x @^ @` @b @z @f @| @p @r @ `\`b`f |8j`  k!I& 0I~ PipIX @Z @ @^ @` @b @ @f @ @ @ @ @ @ @ @ ` ` ` ` ` @ @b `  Л%` ` `T `  `k` l~~N" % % , М % `  H% h% % %` %` ` ` ` `   Hl` m"IF I IV I  I @I  x% %  % ؟%  %`` `   m` n"  Ȣn` Ƞ o))"i i i (i HiVhi i ib % ,  % % @%` ` ` `   $%  o`  pDD#i (i HI hiVi i ȣib % %  @% "`% ,  % %  %  $%` `   0(%  P,%``   p`ȥ qEE[# ii iZ(i\HiVhi i ibȦi ` ` @ @ `% " $%`$ ,  % ا%  $%  %`& `( `* `,   8q` r;;#i iVi  i @i^`i ib % ة %  ,%  $%` +0 r` x s#I I   s` t#I2 I4 8I6 XI8 @:  Pt` Ы u<<#i i@ iB 0iD @ `J  F % H % ج%@J @L N ( % P H % u` v:$I IB ЭI@ I& IT  V H % X h % Z % \ %  0v` wY$I  F (%  w` p xp$I IV  ȯ%  % ` x` 0 y$I PIV  %  % b Ȱ % d 0%``f  h y` ` z%%$) %IV Ij ȱIl In Ip (Ir HIt   %@v @x @z @| @~ @ @ @ @B `  z` ȳ {&&$) %IV Ij 0Il PIn pIp Ir It   %@v @x @z @| @~ @ @ @ @B ȵ  0{` |$ |` }ss$```J @ @ʘ(B&x@ (@.@ @4зh @<`l @ t @ʐ&Hʐ*Hʐ0X8Hꀐ~@@2(@BP @ #@ %@8`(@`8uXhgPf(`8 0t]0Y`Hs>8Hm8S;xpvHh3cwg00 d@`hV`7 kИ8PQnXe@lȢ (` Px#0ppfhz`xX$(HP~A``X``[ ~Pз` Lp h.hBO|h8T8Xpgu`bDxrp(h6Px%\^Ƚ4%`Pz н@t 2.02.cн н@Hd @` @0P @`@ @0 @ 0x`XPRB.@x V2Z^j@t @d @T @PD @8@ @0 @ @  @ @ @h @ @ @ @ @ @ @ @ Hlnrtvxz|(~D@@rV0HHАx`xH(@Vl 8.@8 @  x @ @ #@ #@0 @H @` @ @ @ @ @ @ @ /0ȖؕPh H`0H`x@Zl x@P*@xh @X @hT @ D @8@ @0 @ @ @ @ Xpl|jh @P @ @ @ @ @ @ @ @ @(t @Xd @@T @pD @4 @$ @ @` 2  @ @0 @ @ @ @ @ ``@ `@ `d@ (f@8x Pf@ph `8f8j@X pn@H @P8 @@P4 @$ @0 @H @ @ : @ @ @h @ @ @ @8t @d @` @P @@ @0 @ @ @ @ @( @ h@x P@ x@ @ pPP@*l hP@T @ D @84 @$ @x P@ 0x@ @X @ @@ @ @ x@ @ `n@nmn`x@H(@ll 8@ : < t@ @h @T @D @@ @h"`> >>> > "> ? (?0?P?h????????@ @(@@@X@`@x@@@@@A8AXAxAAAAAB8BXBxBBBBBC8CXCxCCCCCD8DXDxDDDDDDE(E0EPEpEEEEEEF8FXFxFFFFFG G(GHGhGGGGGGH0HPHpHxHHHHHI I (I 0I8I @IXIf`II.I2J28J JpJHJ\KHhKHK K(L D@L(L*L&LM0M@M0HM8xM:M<M40N fhN NB  NNO O8OXO`O,hO<ODO D PDhPDP  P Q Q(Q 0Q@QHQXQ hQ xQQ QQ QQ Q &R(R @RHRPR hRR 2R@R(S(0S(XS  $S S6SPT PT`T pTTTT TTT T T U U U (U@U PUXU`U pUU U U UU lU >hV >V  VVW.W 8W @WPWpWW W WW W W WXB  XXX(X@X 4PX X X&XxXx@YZY`ZTxZVZ*([dX["[d[(P\dx\ \ 2\ p0] ] *]"]*^"8^*`^"^&^^*_"0_&X___ _ P`  `,`" a,Ha"xa,a"a(a b,@b"pb(bb  b b ccPddeff Hg Xgjhg  2g<h,Phh.h8hri6iiii j8jPjhj >j j<j>k@Xk@k k k &k l,l l m  m 8m$Pm xmm ZmmJn2Xn n n (n n ndo po o vo <p Xp `pxpRp ppxq<qq q q q r (r Hr "hr r r r r s s 0sHs Ps hs >s sBsL t pt t<t6t8u<@u6u8u u :v JHv v pvDw `wD8x xDy "Hypy,y^y0zHz0z({0{d|2x||28}p}2~8~2~~22H2FH2~ȁ2H  B   Ȃ ؂ d Xh   ȃ ؃  B    0 H &h"  Ȅ ؄" p :X,؅$&0&X&LL PXpȇЇ*؇ N X` $p >   08 x@* ( ,@&Xr  2 P:p (0 8$Hp@ Ȍ،  t D   0 H VX   4 4 :P Xx <  r   P F0 x 2&&  H X&p0,  ( 0 @` p \ p4p 2 $.H N`  ؖ N*@  p  8З    0 8 P ` p   4 4 8( (` 8  Lș 6 xP pȚ 8 H X$`    &       ($@ $h  Ȝ X"@ hx6؝&(08H"h 6Ȟ&( FPП  X("  ؠ 6 0&@hp X"8 `p6Тآ& (08@X` h x  .JУr 6JФr 6 2Х26@2x $ئ . & (8 (` (ȧtЧH ` p  ((PtXЩ    0 H Xh $p  F2(` > BL@    0ج4 h@6@< :`<2,.Hx  B    8Ph 4ذ $  28px &б .  @&Px 4Ȳв &( .@px & г (B  08Xx *  ȴش  @PVpȵ4ص"8X `h ض0 (@ HX p"""ط  ~\^hȻ(((0 XbdH    , d .  : H8Pp x 4  *P@ X4` pFxH   ( 8P bh ` @0 p VTTP B  &  (8 $X  00(08Nh "( 2@x   ( t P p.  X x&( P`p  @HX` h    B   @`hp   0 @(ph @( hx P. 0@X` h @ > : Xnp@B 0P`p@B Xx    >X`hpx  \^<X88<\^`    4 8H8<(\h^(<8 \X^ (0 HXR8 $$>$>$68 p x $0 DX    $$$  L  Lp  $$B$>$,$.H$x$$$Bh$>$,$. $P$h$x  $$ X$>h$B$b$dX$$>$B$b$dx $$<$8$,$.0$`$x$$<@$8$,$.$$0$@ H P$h$  $>0$Bp $$b$d $$$>P$B$b$d@  $ x>BbdxBbdX   > B bP d  B b0 d       @0>pDVTPl  B  (0Ppx *    8HVh4" 0 P X ` x      0    8  @ P  h "  \h ^ ( (@  h :@ bd P ` p , d .   :P H  4(` x . *P `p(40 hh@FHH       b8 ` @ @ PVpTT x B    8H0X p(@ HX@p.   0 @H > : n @XB ` @B ( H X hx  >    (  0  @  ` p   H!\H"^"<#8H##88$<p$\$^% p% % % 4%% %%&8'<'\(^x((<)8)\*^h* *** *+++R+ @,$P,$>h,$>,$6,  - (- $- D.  P. X. p.$.$.$. . L. L / p/ /$/$B@0$>0$,0$.0$(1$@1$P1$B2$>`2$,2$.2$3$3$(3 0383 @3$P3$ 4$>5$BX5$b5$d6$p6$>87$Bx7$b7$d(8 8$8$<89$8x9$,9$.9$:$(:$8:$<:$80;$,h;$.;$;$;$; ; <$<$ <$>=$B > $$bh>$d> $$8?$>@$B@@$b@$d@ XA $`AhApA (B>8CBxCbCd(DDBXEbEdFpF F @G >PH BH bH d@I I BpJ bJ d KKK K K  K  K @K>LDPLVLTLlHMMM B  MM MM MdNbxNN NO OO HP VPP PbP (Q 8QHQPQB  XQ`QxQQQQQ QdQb0R RRRVHSS bS T0T HT T U> U`UhUpUxUU U UVUVbV V V 6VVV(W0W HWXW8pWWWRW(X@XHX(`XFXX &XY Y(Y0Y 8Y bHYY &Y YYY \ZhZpZxZbZZ\[`[h[ p[  [ [[[B  [[[  [ [ [\(\@\X\p\ *\0\\2]*8]h] 0]2]]2^28^p^ ^ B  ^^^^^^^^ZH_V_X`TX`V`<a8HaFa<a8b:@bb Bb >b F c hcxc c@c c c`dThdXdTeXpe`eD(f pf Pf >f Pg hgxg g B  g g FggLh&Xhhhh  h hhFh i(i$@ihi ii i,ii,i j (j$0jXjpjjj jj j,jk,k8k @k Xkxk k rkl  l0lHl Pl `l pll l l ll 2l$l  m*8m*hm*mm*m*n*0n`nhnnnnn @n:n (o88opo<xoo>o<p@p  Pp>`ppBppDpB@q qDqqHq0rJ8rHrr*rs s @0s:ps s 8ss <t@t>Ht<tt  t >t(u B0uxuDuBu v D vhv HpvvJvHw Xwhw tpww(x(x0xHx Px`xxxx x.xxxy y(y0@y0py0yy0y0z08zhz  pz8zz<z{>{<H{  {>{{B{(|D0|Bx| |D|}H }h}Jp}H}~*~@~X~ h~ 8x~~ <~~><@   > B D(Bp  DȀ H`JhH   J(x2 Ђ .(X`x  ȃ؃   (8 HX hx $<<08(h( ,Ѕ   >0p>x42 0H X<h<0((@h,p   >0>8x42B  48Hh  Ȋ,(,X228B  @BH J X 8 H8X  0 * * H *X   JȎ 60 Lh  ؏ & &  $H $p  @   p ( r8 \ $ 8 *   dȖ 20 Lh L L *X  > $ؘ  * ؙ  D Lؚ L( nx L *8h p  ȜB  М &؜ T   x   6 $  (8"P*xО(@XpП0H "Px P 4Р2@ *H x 8 P ( У x X 8   ب   xX ` 6p "Ь Jج 4(2`  0 Э  Ю    8 0 (         (80`ػ(@Xpм0 "8` Hh 42   ( 8     H      h H (    6 "@ HH 42  $ 0 P 0     x p h ` X P H @ 8 0 8 H`x  $  0 08h p       "(PXp  x88 ( 8H `p2,. 8Ph880hp0Pp0Pp "  * *8 h p((  &0X>` *  0H 0P x8  8 8Ph(@Xp0H`x  0 8H`x *   08@X x     0 2P4  8Ph       @ `       @ `   ..  (8P X 0x  &>@H X8h  80H`x 8Ph(@XpP  0 8 0X   B   P8n@&  2@*x8  2@ ` p   @@P$X$$  *  8@ X4pJ(H P ` "p ,   68 $@.h2   &  0Pp   .0P ` p        (  H  X  x       4 !B  ! !8! X!x!!!&!!! :! D0"x" " X" " D" @# P#p# 6x### @#$T$&h$$*$$$$*%,H%(x%*%6% & &0&P&p&x&*&,&(&* '6P' '''''((0(,X(((*(6( )0)@)`)))*),)( **H*6x* * *&* 2+ (, ,B  ,,,, , , --- -B  (-0- 8-H-X-h-p-x----- - B  -----. .(.0.@.H. VP..$.$.(/ 8/P/$h/$/0/ L/80$P0$x0.0 00.1$01$X1.1 8111 2 202 @2P2 `2p2x22  2222222 22 3 4 3 &X3 &3 &3 3 3 4 : 4`4 6p4 4444 4  &4 &5 &@5 h5 5 5 :55 *6 *86 *h6 *6 &6 6 7 : 7`7 ,p7 *7 *7 *8 &08 X8 p8 :8888 899 9  989H9 P9 p9 999999 9 ::0:8:@:H: P:  X:h: x: :: :: :; (;@; `; h; ; ; ; ; ; ; ; < < $8<D`< <L< = = = (0= @X== = = = = > >  > (> 0> P> "p> > $> > > > ? (? ,@? p? (? @?? ? ? @ (@8@@@ X@ h@nx@ @l@ `A hA xAA A AnA 0Bl8B B B BB B CNC hCNpC C CPC (DH0D xD  D DD D DND 0EN8E E EPE EHE @F HF `FxF F F F F F F FG (G 8G HG XGhG"pGGGB  GGGGH H(H8H :HHVHH$H$ I(HI pI0I II I IJ 0J8JHJXJ`J hJpJ J .J .JJ K 0K .@KpK K .K .KK L 0L .@LpLxLL LLL LLL LL M M M8MPMhMM M MMMMMM M  MM N N<(N hN>N N$N O&O @O HO hO xO O O O O O O P P 8P XP (pP @PP P P Q Q @Q PQ `Q hQ pQ Q "Q Q $Q R  R 8R HR hR ,R  R R (R @SHS PS XS xS SSS S SnS HTlPT T T TT U Un U UlU V V V0V HV XVNhV VNV W WP(W xWHW W  W WW X XN(X xXNX X XPX 8YH@Y Y Y YY Y Y Y Y Y Z (ZHZ `Z pZ Z Z ZZB  ZZZZZ&[8[H[:P[V[[$\$(\(P\ x\2\\\ \ ] ] @]H]X]h]p] x]] 0] 6] .](^ (8^ 8`^ .^^ &^ 6_ .8_h_ &x_ 8_ ._`` ` 8`H`P` X` ``h` ` `````a a a(a@aHaPaXa `a  ha xa *a a a a (b 20b .hb b bb b b<b(c 0c<Hcc c$cc c$cd  d (d Hd Xd hd pd xd d d d d &d  e @e (Xe @eee e e>f @f>Xf f&f f&f g g @g Pg `g hg pg g "g g $g h  h 8h Hh hh (h @hhh h i (i8i@i Xi hinxi ili `j hj xjj j jnj 0kl8k k k kk k kNl XlN`l l lPl mH m hm  pm mm m mNm nN n pn xnPn nHn (o 0o @oPo Xo ho xo o o o oo p p p 0p @pHpPp`pppppppp >q @qPqXq `qpqxqq qq qqqqqr* r*Pr0r0r 0r 0s .@spssss s sss ss B  st tt t(t0t8t @t B  Ht Ptht&ttt Dt u (uHu 6Puu  u u u u u.u vv@(v hvv vvvvv w w8wXw pw  w w w Nw(x 0xxy y @yPyXy `yhy.xy yyyy z0zHzhz zz "zz { {8{X{x{ { {{.{ |0|P| $p|||||} (}H}h}  p} } .}}p}pX~r~ @p|0~ 0 l x l z؄l(  Phppr Xl؈H؉XlX 4 HX  `p x JB @X Bh D 2 8@ 2x 8 0  x@   vh v vX vД zH zȕ vH v v8 v x( x ~ x x  h v@ v v0 v z  z v  v v v x xx ~ xp 0PpH أH@X pl0إ0H0lP6اR6hH,0,H,x8ةV(&:T`6x6,0,H,x B    &0Xhx D Э  6@  H X h x . ȮЮ@   8.X>ȯЯد..H`   8 X x$&(H"h"ز$8`.h.ȳ" 0Ph   ȴ$&8Xx""(Hh$$$$$0$X$$$з$$  H @` @ x xh l lP  P  ؼ zp    z( > > @( @h  H  t x l   H  t z   p @ z >X > @ @ X   t@   2 8@ 6x 8    0  x@   vh v vX v zH z vH v v8  x` x ~P ~ xP x H  v vp v v` z zX v vP v @ x xh ~ ~` xX ` H HHh$l0`l06HR6J,`,, 88PV&, PTp66,P,,( HP h p  D   ( @ D` ,   6@`Z      D     D@ ,  Z(    h @PX`B  h p &  ( D0 x  6      0.@ px@ .>0px..0Pp     $0$X"$0.8.h  0 P p $$ @"`$$$$$0$X$$$$   8 .P 0 l l0  0  H  h  z  l  l  n` n @  @  p   z@ l l0 n n    08 P  6h 8 6 8  H `  xp  v  v`! v! vP" v" v@# v# z0$ x$ z(% z% v(& v& ~' x'( x( v( v) v) v) vp* v* v`+ z+ xX, z, zP- v- vH. ~. x@////0 0@0"`0"0000616816p16161626P26262626036h3 X3>3N84 4444>`55 $(6$P6x66666d66`7R7,7 888,P8,8,88889&H9,p99T9:60:6h:,:::;,;,H;,x;;;; ;< << D(< p< < <  D< ,= 0= H=`==Z=>>> > (> 8> > ?? h@x@ D@ @ @ @ DA ,XA A AAAZAXB`BhB pB B B 8CPC D D(D0DB  8D @DXD&xDDDD DD E  E@E 6HEE  E E E E E.E FF@ F `F xF.FFF.FG0G"PG*xGG.GGH" H*HHxHH  HH H  I zJ J@K HK L zL (MM MMM N  2N 8PN 2N 8N  NO  x O vO vP vP vQ zxQ xQ pR HS v T vT ~U xUV xV vV vW vxW vW zhX xX `Y 8Z v[ v[ ~\ x\\$](]H] h] ]H]]^^__8__,_ `@````````a6aRPa6a,a,b,@bpbb8b&b,c0cTPcc6c6c,0d`dxd,d,dde(e 0e B  8e *@e (peeee,eff 8f HfXf xff@ff$f$g$0gXg .xg g &g .g h 0h *Ph h h h hh hh &h Bi `i i *i i i i2i0j HjPjXj`jpjB  xj *j (j jj,kHk hk xkkk kk@kl$l$@l$hll<l  l &m *(m Xm xm m m *mn &n B8n n n n *n *o@oHoPo`oB  ho<poo o (o :oV8pp$p$p p q  q@q $Hqpq xqqq$q$q LrXr$pr$r 0rr$s$0s 0Xss$s$s ,s t$8t$`t ,tt$t$t 0 uPu$hu$u 0uu$v$(v ,Pvv$v$v ,vw$0w$Xw 0ww$w$w 0xHx$`x$x xxxxyy 0y@y HyXy`yxy y y yy yyz z8z  Pz  Xzhz&pz zz zz z{ {{ {0{ @{ H{ h{ { { { { { { { { { { | (| @0|p|x| | |"| |(| } } (} 8} H} P} X} `}p} x}} } } } } } } } (~ @0~p~ x~~ ~B  ~~~~~~ \ h         0P p  >؀( V@  > ,("@ Zh  Ȃ ؂B  8HX@`((ȃ(( @>XT   86X8<ȅ 2 d@ d(8$` &"   &8@@x pl(00Ȋ0 (X 8  HXp   x   ( $H<p8:>(:hX  ""8"` PpB  h"xBBD0BxBB@PBBؗD @hBBD8  HB    (B 4 0 <hȜ @(H(p((  B XDh 8Ȟ@ @ Pj`fП 86X8<Ƞ 2 @PX(x$ ȡ&ء  "8n` Т  00@ pX hxB8    $<8(:`>:X  x"""ا d(vB    @@X تZ\Hh6  , B(@pB@D8   ~8 ^ȯ( ( 8 LP B(XpBȳBBX@B@( JhBеȶfX  з B   (8 P @hD((hP  >ȹ@@H^ .@0p Nd`Pȼ  0n@    ȾB  оؾ  0HL`L   0XH  ,   8HXL0 8 Xx@((*   P h l  ( B  08H P hHF @ pXX< <`   t p     n ~`  R( "D   >8 Vx  0,P J  |(:  0>P   .86h6\t8 B  , P (X&   *0(@ 4h      00P0Z  0@P0h( 4  (08 h  0ZX`0p F  ( 0H&x " ( " 0 8 H,X24(H,X>( , @&X 2  &8 @6` 0 6288p8..8@(x(20.0.`,.     B  ( X0  8    (8 @PXh  6x L    &@ &h $ $RR8dRRP L >  `>x  D @ LH L L *8 h *x > > P DX d L nX L *HP hx  B     "0@H*P   LH&P &x  FB PpB>p x  | (F  | F  h | F    LX`phrlP T   Hp pHrz0  J2 8LH prplX      ~h ~ h x     ~0 ~8     |  ~ (0 8zH | PX ``    2    p r8  @ H  B  P  X  h  x           (    (  8  X  `  ,h  (   8@ x @ 0   4 60 Jh   H>@D 8bzBP X 4` 6 J  8"@th    t@H P `h xb b `hp x b b px  <  B      (08B  @ `H     ^ ^  ^0^    bHn p    B  @   !! B  !  2 ! X! 6h! ! H! J" P"`"p""" B  "  \" \# <`# # 6# # H$ $H$(p$ $$$$$ $$$% % B  (% 80% h% 6x% % H% .&>@& &&&&&&& B  &2& ' 0'8' @' P' `'','' '''( $(60(h( .( ( ( ( $( ) *()X)`) p) ) ) ) ) ) )) B  ) )4) 0* @*H*2P***** V* (+ 8+ H+X+ `+p+ x+++ + + +, (,  X8, F,B,: -:`-:-:-  ^ . V. .J. 8/6H// />/./ 0D(0:p0 D00D1B`111 \1 ^ 2X2\2B83|3 "4 (484@4 H4X4`444 ^4X 5`x5B5 6666  7 7^87X7`7 dP8 8 @89 T9h9|p99^9XX:`:x;; v;< < <<< $<v=dx=b=dH>T>b?\p??pX@n@p8AjA`BnxBhBPCXC(pC.C CCC  CD DX(D D D .D`D E @E $F f(FFvFG GG GGGZG@H HH I I(Ib0I IIbIJ  J 08J|hJ J DJ 8K (L8L MM N N 0N 0HN xNN NN N >N >N 8O 2XOOOVOOPPPPPPQ<XQ^QQJRB`RDRDR 8S SPS T(T 0T *T T pU XUU6V 8VJHVVV XVW6W PWJ`WWWW WRW @X  HX XXhX pXXXbX X 0Y|@Y Y 4Y`Z`Z Z fH[[v[8\ @\ ]]h^ p^^^Z^_ _ ` D ` h`x` PaXa @b Hb 0Xb 0b bb bb b >b >8c xc 2ccc Jc0d8d F@ddddPeXee<e^0ffNfBfD@gDg gJg0h8hV@h h hi B pi rxi ji 6`j Vj dj dXk Jk bl @xl bl " m "0m @m,Hm  `mQpmmmm  dmFn (n 8nHn PnXn hnxn nn nn nn nn nn o o o(o B0o J@o Jo Jo J0p Jp Jp J q Jpq Jq Jr J`r Jr  fs :hs "s "s s,s  s st  t t t  (t8tHt Pt `tpt xt tt t tt t B t Rt R0u Ru Ru R8v Rv Rv R@w Rw Rw RHx Rx x y , y RPy Dy |y pz "z "z z 6z 6zF{  { ({J0{JH{R`{x{  { {J{J{R{{  { {J|J|R0|H|  P| `|Jh|J|R|| | |0/|} } } }0}8} @} H} B  P} X} h}>x} }}}}} ~  ~0~ J@~H~H~J Np\   ؀     (0 8 @ HP X ` hp x ȁ؁    J( Hx H J TX  DP    0  HX x   B   ȅ ؅D "0Xhpx   4<8@ HP X` hpx  ,  x    @ 4 @    (8@P  XJpHHJPN\ P B X hhЎ \PhFp@ n0FNXpx  B ,  ȑؑ '' ( 8@H P` B h!p  % ''ȒВؒ ' * * (08 @ B  H P ` p \^j@  \ ^lpJ08D@D@Ж@@PDLؗD(DpFDDH VXX@ J B   J X h:x Л 6 (8Ph hp؜ J P .` .  Н *H"`,BО"$@h LПBPhTVV8PNL0 TVآP0N>У "J8 ( "Ф".8 2hJVVHPLL@ 8:ȧ   (@X 8x: VVH TVNP @ >8 TPVN *P  b b &h 0  Я * 8 RP &Ȱ (0 X h x 6б"ر(@`x    в B  ز * * <@ F :ȳ 6 4@ x   ȴ     ( 0@ HX `h B  p 6x T L X ` :h ` 4 @ P `hpx  8(ط8 F8 Fȸ$8@ H B  PX`p Hxع   p p4غ8 (D8BȻл0ػ  0H` x \ <h( .B .(RX *оJP *pJ  $ R8 6  VP Xh^x  VX `p  >  HX ` >p  ^(8` h .>  2PX` @hB l h  " %VL 2( J8L VZZZ8 VX JxP , $W8 ` *p * * ( @( bhB @$X  & ; DD`(qF (0DHD(qV  xDD(q0TX      $ $ 8  (>@> N.u @PX>p> XHP` >> NX<   X h x B   2  ( 8 H  X` F B :h:::(0h 0::@     ( 8HTRHTx Tp " x&b fbX, (D@  .,(8, P Jh    B ,  '' 8@H %X 'h *x *   B  TV8 B \1VAX B  `&h  \ (8 @4` $ & 0 0@p $ ` :` 8,P`  n "p . "  <0H X <8x Xx fJJ8    L N T` p(40 Ph N J HX H J H8    \ P8 P R r0 r ( 0@ &PLxd0H <X  $Z\xb @ PXh"  "0 H  X x@ Z\(d  "8 ` x : JJ8(  HJBh  B      $ 0  p^x\  8  xV ^` X  $  f@  f  f  dx   L  P V` ^ X Dp F D PHVV HV`V B   ^  F  X` p  2 p\8^d h`jr8 np v 2 *@ p  "   4LP.0( ( @8rxth  B G( B 08@ (Hp .S $E M ( 8@ B  H P `p  B  $  0 @`  `\@*((* .P  D   x              8  @  H  P X  "`    0! "8! R`!R! "# <8#Vx# $$$ B% <X%X%%X&`& <x&X&'X(' ' R' ' h( ( ) * * `P+ V+ T, T`, V, N-  `- x- -  - - B  - -*-..(. 0. B 8. @.H.X.`.p.x.........// /(/8/@/P/X/p/x// // ////// /00(0 00@0H0`0 h0x0000000 00 001110181H1P1`1 h1x111 11 1111122 2(2@2H2X2`2p2x2 2 B  2222 $223 3 3(3 03B  83@3H3`3 B333440484 @4H4P4h4 444445(505 85@5H5 P5 B  X5`5 h55 $555660686 @6H6P6h6 666 6666 B  6667 P(7x77 7777 7,7(8@8"H8p888 8 888 B  8 j8 p09 n9 R: Nh: >: 8: 0;8;P; X;x; ; ; ;; ;; ; < < < (<H< X< p< << << << << < < <= =B  = j= p= n= Rh> N> >? 8P? F?  ? &?@ @(@0@ H@`@x@ @ @@@ B  @ F@ @ A A HB ~B HCPC XCFpCCC " CCC B  CCD h(D D E tE F ~F ~F ~G ~G ~H ~H >I XI ~xI ~I ~xJ ~J ~xK ~K ~xL hL p`M vM ,HN BxN >N BO BHO :O :O :P :PP :P :P :Q :PQ :Q <Q <R <PR BR BR  S8SPSXSxSSSSSST(THThTT rT U  Z8UU 0U UU VV0VHV`V xVVVVV VW W8WPW hWWWWWWW X X&@XhX pXxXX  LXdXHZPZB XZ`ZxZ BZ fZ $0[VX[ [ [[  [ 2[ (\ r0\ b\ `],p] ](^0^@^H^`^x^^ ^ D^ _ (_!@_<_X_6'__J(_DE8`&`&`. `  a a a 0a L8ada bB  bc c B(c fpc 0cd d @8d xd d  $dddd de(eHe`eee ee e e e f f0f 8fHfXf Lxfdf 0h B  8h @h h TXi Pi Jj fPj lj j(k lkl (l>8l xl<ll l<l m (m<8mxm 2mmHm  n 0n<@nn n<nn n<n0o 28opoJo o o<p@p Hp<Xpp p<pp 2p0qTPqh>qu u B u xv Rxv "v %v "v  w& wHwXw 8`ww w  w w ww ww 2x)x ! x&H@x$Hhx(Hx&Hx(Hx&Hy0yPy(HXyPyHyNzHhzzz *z B{H{PP{H{N{H8|| \| |x}&f}&f}&f}1~  (~(0~,H~ VX~ ~ !~ H~    @HPp x"S  PHHz H  Ȁ (#Ѐ 2 P( "H.IXIIIȁ2| H  hHx#$W O؂  # ^(T $     ( 0@<X4؄ 4@:H V  l ` Hh ЇPHP(vx  PHhP  & 0 8 @ H PX h1x  Z  J P،H( *H2x P ".IIII(2|H HȎ  ؎ <H4P 4:8@ H BhАPpHPvX ВؒPHHP &    (01@ ` Eh  29ؔ*9  ( L0B   .  Е   (8  @ P `p x  (Ж & P@HNؗH( \p И`&x&&ș0 @ ,` ȚК  , 8 H hx2 Л ؛<@4H 4:08  &@hpx    ,ȝ L PB  X 6` 2О( @  H X h  x   ȟП    82H0* : (@`  J $J(x   (p P > ( >8 x  : ؤ    `ئ B8  B     Ш( &8P`HNHH  Ъ  4 P`  ,  ث 8 P XhHȬ@Ь (@@FЭح     2 X (`& :: :` ^::@0"ر" &8 `&  ȲTسR0T T` ж"&^0bfb`ȸ&PxD ع.0,@P, P Jh  Ⱦ ؾ "  j vX vп 2H      : `  xb ""($P(x(*  0H`x 88 0 6H6. ,,HxBDXx22  . P hxF(08@HPX`xR j H : V0 :VHLP <  ( 8HPjX( t J(  (l0 B   n l( d     8 HXpB    0H ` x   "  DHX B ` Lp l n0 p v 8 R J Th @ X X 4 (HX ` p   RP@ h " B   X x0 R R JX T @ X@  4  Xx    nX p dd P Rh < 6 l8     x. . 8 *@p    (08@H  vP" B  v D @ 0 08 Jh 8  x d Np   (  `8   4   F(p .  .h 0 :@ :    L 8H h@"(("0X `h B p L @ " "8 h` @ @ .H *x * 2 * "@ *h 8 ( 8 .0 .` 4   >.Hx: (> @<X  ( H0.x B   >0 B  8 d@   J L8 \  ( 6@x&(hpx& B   F    :X  d, d  ` p       L \P4 l6X  L8 x vZ  h, " H  @("h D   B   ` Lp < D DH D  & "  H h  .   , HPX` h  B   @ @   H  X  6h  n  (  8  H P X  ` x  , 2     B    (  @8  x            B   (  H(  p x                  0  H  B P  $`  &  L     "( "P Hx $  " "0X`&p     2@x V   B  $ & L 8 H  "` " H $   "@ "h &   8 HX 2x V0  8 "   "  R 8@ nx  0HPh p  > ((*0`h Fx :> `<p LL p 6  L(J0 . 4 8 X h*    BXB` @>PX hBp@DB`@B P `  h hp  j P!X! h! x!xp] /=0.25 'Percentile constant for Dry/Low category w] 6=0.5 'Percentile constant for Average/Medium category@] 1= 0.75 'Percentile constant for Wet/High categoryNOTE_In spring 2010, terminology was changed. Variable names in the code were not changed, but text9 visible to the user was. The following are equivalent: dry = lowX average = medium wet = high]$$Percentile constant for MIN category]$($Percentile constant for MAX category]$YL?P)dsf to ac-ft conversion factor] 0*&Subsistence threshold percentile value ] x-*Multipeaks Multiplier for High Flow Pulses] X-(Multipeaks Multiplier for Overbank flows''] 7Q2 value passed by the user] "bank full value passed by the user] $Start of the winter month, this value is used to define the Seasons and also is used to determine year to which a season belongs$6Look in Func_ProcessMultipeaks function for this logic] #AMatrix that holds the names       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Y#Frame5 &     Microsoft Forms 2.0 FormEmbedded Object9q * + , - . / 0 VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} HEFRInputs Caption = "HEFR Inputs" ClientHeight = 8685 ClientLeft = 45 ClientTop = 330 ClientWidth = 15105 StartUpPosition = 1 'CenterOwner TypeInfoVer = 230 End }  of months seasons and their positions] %(The path of the current IHA project file] з$USGS gage number] ` KThis is used to carry some messages from during run-time to HEFRInputs form] &THolds the number of flow values. This is generated in Func_CreateFlowRange function. ] hHolds the range of dates, flows, IHA classification. This is generated in Func_CreateFlowRange function.]$Gray-25%)4Title color for all tables. It is set to be Gray-25%]$Light Turqoise 7]$Tan]$RedH]$ Light Green]$Gray-25%0]$Gray-40%p] X] &Number of seasons, qlu] #names of the seasons, qlu] %$number of months in each season, qlu] ] -[HFPS subtables start column, based on 4 seasons at location N, assigned at HEFR_stage2, qlu]$2.02.c( "Enter the HEFR version number here] ] P] x8] `] ] hA@ABADAFAHAJo]H L!Brief HEFR Instructions (Version  4) ,'L L/----------------------------------------------- , ,'L LG 1. Perform hydrographic separation using either IHA or MBFIT Methods. , ,'L L, 2. Export results to an Excel spreadsheet. , ,'L L 3. Open that spreadsheet. , ,'L L4 4. Click on the 'HEFR' menu and choose 'Run HEFR.' , , ,'L LAClick OK to continue for spreadsheet color scheme description....'L LA@Vo`]+HEFR Output Sheets Color Scheme Description ,'L L:---------------------------------------------------------- , ,'L L9 The tabs of HEFR sheets are color coded for ease of use. , ,'L L 1. 'Grey' tabs (ann, sco, lsq, pct, msg, daily efcs): These are IHA or MBFIT ('daily efcs' sheet only) output sheets that also serve as input sheets for HEFR. , ,'L Lh 2. 'Gold' tabs (Base Flows, BaseFlowsPlot, HFPS, OBFS, etc.): These have intermediate output from HEFR. , ,'L LC 3. 'Lavender' tab (Metadata): This sheet summarizes model inputs.  , ,'L Li 4. 'Dark Blue' tabs (Flow Matrix Monthly, Flow Matrix Seasonal): These contain the final flow matrices.  , ,'L L 5. 'Bright Green' tabs (HFP_OBF_Frequency, Charts_Freq, EE_Recs, etc.): These contain the intermediate calculations of the Frequency Approach.  , ,'L LI 6. 'Yellow' tabs: These contain the regression calculations and charts.  , ,'L L ,9Click OK to continue for warnings and recommendations....'L LA@Vo]Warnings and Recommendations ,'L L(---------------------------------------- , ,'L L~ 1. HEFR recreates every output sheet from scratch every time it is run, so it is recommended to backup each HEFR run in case ,'L Lv you want to use it for comparison later. Sheets that are renamed by the user will not be overwritten by HEFR. , ,'L Lv 2. It is not recommended that the user make changes to IHA output sheets, MBFIT output sheets, or HEFR calculations. ,'L Lj If changes are necessary to array functions, be sure to enter them correctly using Ctrl-Shift-Enter. ,'L L  , ,'L LCClick OK to continue for additional warnings and recommendations...'L LA@V 3. HEFR uses the manual calculation mode in Excel. This is done to avoid the often time consuming Excel automatic calculation mode. ,'L L It is very important for the user to understand the calculation mode. Look at the lower left corner of the Excel window for a ,'L LS 'Calculate' flag. If found, press the 'F9' key every time you make changes. , ,'L La 4. HEFR uses the IHA naming scheme. Please do not change the names of sheets obtained from IHA.'L L , ,:Click OK to continue for HEFR output sheet descriptions...'L LA@Vo( ]P(Table of Contents for HEFR Output Sheets ,'L LSTitle Color Description ,'L L:========================================================== ,'L LXBase Flows Gold Base flow computations ,'L LgBaseFlowsPlot Gold A plot of different levels of base flow ,'L LaHFPS Gold High flow pulse computations ,'L L_OBFS Gold Overbank flow computations ,'L LjMetadata Lavender Summary of user inputs and analysis.ini file ,'L L[Flow Matrix Monthly Dark Blue Colored monthly flow matrix table  ,'L LZFlow Matrix Seasonal Dark Blue Colored seasonal flow matrix table , ,'L LFClick OK to continue for additional HEFR Output Sheets descriptions...'L LA@VcHFP_OBF_frequency Bright Green Annual and seasonal frequency table ,'L LlCharts_Freq Bright Green Frequency charts and user input table ,'L LFlow Matrix Monthly US Bright Green Colored monthly flow matrix table for (user specified) frequency-based method outputs ,'L LFlow Matrix Seasonal US Bright Green Colored seasonal flow matrix table for (user specified) frequency-based method outputs ,'L L`Regression worksheets Yellow Regression table and charts , ,'L L , ,DClick OK to continue for instructions to distribute HEFR workbook...'L LA@Vo(h]For distributing HEFR outputs: , ,'L L:========================================================== ,'L LOThis part of the instructions is for those who need to distribute HEFR outputs. , ,'L LYCalculations created by HEFR may not display properly on machines without HEFR installed, ,'L LPwhich don't have the correct HEFR version, or if HEFR is not properly installed. , ,'L LdIf you wish to distribute HEFR output spreadsheets, you must follow these steps before running HEFR: , ,'L LUExcel2003: In the menu select: Tools->Macro->Security. Click Trusted Publishers tab. ,'L L<Check the box for 'Trusted access to Visual Basic Project'.  ,'L L ,'L LaExcel2007: Click on the Office Button (upper left corner), then 'Excel Options', 'Trust Center',  ,'L LN'Trust Center Settings', 'Macro Settings' and check the box for 'Trust Access  to the VBA Project Object Model' ,'L L , ,'L LIf you follow these steps before running HEFR, your HEFR output spreadsheets will open properly on machines without HEFR installed. ,'L L , ,4Click OK to continue for HEFR contact information...'L LA@Vo:The Hydrology-based Environmental Flow Regime (HEFR) modelT was developed to support the Senate Bill 3 Environmental Flows Allocation Process.  , , ,Contact Information: ,------------------------- ,VDan Opdyke: (512) 389-8734 Dan.Opdyke@tpwd.state.tx.us ,WPraveen Kokkanti: (512) 754-6844 x234 Praveen.Kokkanti@tpwd.state.tx.us ,XQingguang Lu: (512) 463-7987 Qingguang.Lu@twdb.state.tx.usA@Vo B@ B@oX@ daily efcs$P | kqlu, this is a work arroundeif a user distributes his workbook to someone who do not have HEFR installed properly on his machine,gthe workbook with funcitons like percentileWeibull, Func_Critiria, Func_Interpolate, Func_SelectionSort will bomb5to solve this I designed a check box chkbx_distributeUif a user want to distribute his workbook, he need to check chkbx_distribute checkboxithen a code module with the above functions is copied to the workbook, Excel start to use these functions6from this code module instead of from the addin moduleFso the workbook will not bomb when distributed to someone without HEFR  R!TAk8d0 Stop BGAjkStop?this seems fine with the party who get the distributed workbookThowever, if the one who issued the workbook still want to do something with HEFR and1he don't like the code module and get it removed,eand he runs HEFR again, now Excel will still look for those functions from the code module (not HEFR)things will go wrong.High Flow Pulse Section  .AV4qlu, asign starting column of the subtables in HFPS,gpublic str_subtable_srart_col as string 'HFPS subtables start column, based on 4 seasons at location N1  N1$%!X$'2hqlu/ HEFRInputs.ProgressBar1.Value = (1 / 18) * 100A1HFPShigh flow pulse .AZ?qlu, populated HFPS left panel, now the right panel, statistics.HEFRInputs.ProgressBar1.Value = (2 / 18) * 100]!qlu 21'\7used to be "N1", qlu PercentilesHFPS \Peak Flows (cfs)F2C2A^.HEFRInputs.ProgressBar1.Value = (3 / 18) * 100,qlu, change "T1" to the offset away from N1]  \$%!X'`R used to be "T1", qlug Call Func_EFCSCalcs("Percentages", "HFPS", "T1", "Peak Flows as % of Overbank Flows Threshold") PercentagesHFPS `+Peak Flows as % of Overbank Flows ThresholdA^.HEFRInputs.ProgressBar1.Value = (4 / 18) * 100] \$%!X'b<used to be "N9" PercentilesHFPS bTotal Volume (dsf)F2B2A^.HEFRInputs.ProgressBar1.Value = (5 / 18) * 100-qlu, change "T9" to the offset away from "N1"]  \$%!X'dY Call Func_EFCSCalcs("Acrefeet", "HFPS", "T9", "Total Volume (ac-ft)", "F2", "B2")AcrefeetHFPS dTotal Volume (ac-ft)F2B2A^.HEFRInputs.ProgressBar1.Value = (6 / 18) * 100] \$%!X'f PercentilesHFPS fDuration (days)F2A2A^.HEFRInputs.ProgressBar1.Value = (7 / 18) * 100]"used to be "N26", qlu \$%!X'hHFPS hEGHAj.HEFRInputs.ProgressBar1.Value = (8 / 18) * 100HFPSAl.HEFRInputs.ProgressBar1.Value = (9 / 18) * 100HFPSAn/HEFRInputs.ProgressBar1.Value = (10 / 18) * 1004qlu, change columns to hide to allow variable season]  I1$%!X$'pHFPSI: pArBase Flow Section BaseFlowsF1At/HEFRInputs.ProgressBar1.Value = (11 / 18) * 100 BaseFlowsAn/HEFRInputs.ProgressBar1.Value = (12 / 18) * 100 BaseFlowsAl/HEFRInputs.ProgressBar1.Value = (13 / 18) * 100 BaseFlowsAvzero flows sectionA1 ZeroFlows .Ax ZeroFlowsG2Azsubsistence flow sectionH1M2SubsistenceDurations .A|Overbank Flows SectionA1OBFS small flood .AZ/HEFRInputs.ProgressBar1.Value = (14 / 18) * 100OBFSJ1 daily efcsA~/HEFRInputs.ProgressBar1.Value = (15 / 18) * 100OBFSAn/HEFRInputs.ProgressBar1.Value = (16 / 18) * 100OBFSAlplot flow duration curveCIf HEFRInputs.cmbx_frequencyChoice.ListIndex = 0 Then Call FDC_HEFR DGAjMetadata SectionMetadataHFPSOBFSA/HEFRInputs.ProgressBar1.Value = (17 / 18) * 100MetadataAn&Updating calculations, Please wait.... @(HFPS$B@ BaseFlows$B@OBFS$B@Metadata$B@[DRO 7/14/2010 Write a new subroutine to save all HEFR inputs to a new sheet called "Inputs"A3qlu, modified to handle different frequency schemesStop D!Flow Matrices portion of the HEFRA /HEFRInputs.ProgressBar1.Value = (18 / 18) * 100FlwMtxSeasonal$B@~dxA /HEFRInputs.ProgressBar1.Value = (18 / 18) * 100k0 A@r A@r @( @(Application.StatusBar = Falsed6No IHA output spreadsheets found, HEFR cannot continueA@Vkxop(]h]]delete chart sheets @(  @! B@FMetadata$P b3 bMetadata$%' Gyj bMetadata$, $P Metadata A@k  bkFunc_Delete_Sheet ("Metadata")o A@r A@r @( @(Application.StatusBar = Falseo`/qlu, added to handle user specified frequencies G B@Hj @(  @( daily efcs$P |kHigh Flow Pulse Section  N1 %%!X$'2tqlu,now, create and populate frequency worksheetHFP_OBF_FrequencyA1A;now, populate frequency table and draw the frequency chartsHFP_OBF_Frequency$B@produce chartsHFP_OBF_frequency Charts_FreqMTAAA batch modefill in charts_freq and run   !R!I54; !R!LnLnXF57;F58;d`F57;XF58;k( !R!LnLnXG57;?G58;d?G57;XG58;k?F617# !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; !R!; KT !R!; !R!; !R!; !R!; !R!;KT !R!; !R!; !R!; !R!; !R!;KT !R!; !R!; !R!; !R!; !R!;KT !R! ; !R! ; !R! ; !R! ; !R! ; KT !R! ; !R! ; !R! ; !R! ; !R! ; KT !R! ; !R! ; !R! ; !R! ; !R! ; KT !R! ; !R! ; !R! ; !R! ; !R! ;n6q6q6Ak6run statisticsd6\This program is based on IHA analysis, please run IHA first and export to an Excel workbook!A@Vk06Gold$ BaseFlows %!b( Daily efcs$ BaseFlows$B@Gold$ BaseFlowsPlot %!b(C Worksheets("BaseFlowsPlot").Move After:=Worksheets("BaseFlows") ZeroFlows$PGGold$ ZeroFlows %!b(jSubsistenceDurations$PGGold$SubsistenceDurations %!b(j FDC_Calcs$PGGold$ FDC_Calcs %!b(j FlwDurCur$PGGold$ FlwDurCur %!b(jHFPS$POBFS$PGold$HFPS %!b(> Worksheets("HFPS").Move After:=Worksheets("BaseFlowsPlot")Gold$OBFS %!b(OBFS$Metadata$B@HFPS$OBFS$B@d2 BaseFlows$Metadata$B@k2lavender$Metadata %!b(Metadata$HFP_OBF_frequency$B@ Bright Green$HFP_OBF_frequency$!b(HFP_OBF_frequency$ Charts_Freq$B@ Bright Green$ Charts_Freq$!b( GKHEFR has finished frequency calculations. It needs user input to continue.. @(jo(18 ] 0 H ` ]x    ]  8 ]X p   ] ] ] minimum value for y axis scaleeA'&( set to arbitrarily high value initially] 6Cell variable for looping through range to get minimum worksheets( ). 3:  )' worksheets( ). 3:  )' worksheets( ). "3: " )'  $P A@ A@*d. A@*k. $B@~ @!,(. @( B@H'@ 0(2d ,(4D:D$6B@H 0(8F:F$6B@H 0(8 Range(str_Start_cell).SelectP $!:(4] ]@ $!@.>calculate ranges $B@~,Set rng_TitleCell = ActiveSheet.Range("AJ8"))#v$ :$  % %' 3:   %.  3:   %. 3:   %.now calculate data for seriesyear series data ranges 3:   $%.gm  !X $%%.obased on 4 seasons at ar peak chart !J.< FD  <%B.<chtFreq <!H( <5J!a7JB@F(+ N9L year series5J!P 9R 9TAnnual9 @!(@ V5!(k*q* (  (! @!%X & (! @!%Z'&kH* ( season series b  eSet rng_TitleCell = Worksheets(str_ShtName).Range("AA1").Offset(1, 13 + int_NumberofSeasons + i * 12)  b  !X $%%.  b  !X $%%.5J!P 9R 9T b $9/rng_TitleCell_Valueq( (  (! @!%X & (! @!%Z'&kh( ( bq@( < &A\ E40A^ @(i'` ] $B@~]  ( ]@ X .summary table, let users input text for floods @( Annual `7%( `7%!X:   `7%!XWhite By Season j jAh `7%!X:   `7%!X BorderArround n pBlackAl `7!X:  `7%!XTop n pBlackAl x t `7%!X:  `7%!X7%r(v `7!X: `7%!XLeft n pBlackAl `7!X: `7%!XRight n pBlackAl Frequency `7%( `7%!X:  `7%!XRight n pBlackAlf `7%( `7%!X:  `7%!XRight n pBlackAlQp(ann) `7%( `7%!X:  `7%!XRight n pBlackAl b  b $ b `7%( b `7%!X:  b `7%!XRight n pBlackAl b 1 per 5 years `7,? `7, 1 per 2 years `7,? `7, 3 per 5 years `7,333333? `7, 1 per year `7, `7, 3 per 2 years `7,? `7, 2 per year `7, `7, b .Range(str_Start_Cell).Offset(1 + i, 2).Formula = "=Func_FrequencytoPeak(" & .Range(str_Start_Cell).Offset(i + 1, 1).Address & ", 0)" '0 - annual=+HFP_OBF_Frequency! b    AI1HFP_OBF_Frequency$%%!X b  `7%(z b1 per 5 seasons `7,? `7,1 per 2 seasons `7,?  `7,3 per 5 seasons `7,333333?  `7, 1 per season `7,  `7,3 per 2 seasons `7,?  `7, 2 per season `7,  `7,For i = 1 To 6  .Range(str_Start_Cell).Offset(7 + i, 2 + j).Formula = "=Func_FrequencytoPeak(" & .Range(str_Start_Cell).Offset(7 + i, 1).Address & "," & j & ")" '0 - annual=+HFP_OBF_Frequency!       AT1HFP_OBF_Frequency$%%!X  `7%(z=+HFP_OBF_Frequency!       AT1HFP_OBF_Frequency$%%!X   `7%(z=+HFP_OBF_Frequency!       AT1HFP_OBF_Frequency$%%!X   `7%(z=+HFP_OBF_Frequency!      AT1HFP_OBF_Frequency$%%!X   `7%(z=+HFP_OBF_Frequency!      AT1HFP_OBF_Frequency$%%!X   `7%(z=+HFP_OBF_Frequency!      AT1HFP_OBF_Frequency$%%!X   `7%(z Next i `7%!X:   `7%!XBottom n pBlackAl+user input for regression, regression forms%Please enter significance level here:E547(E54TahomaBoldRedA|33333Q@I547(Light Turqoise$I547!~(I547!X BorderAround n pBlueAl[Please indicate which regression method is desired by placing an X in the approriate cells.E557(E557!XTahomaBoldRedA|VolumeF567(DurationG567(LN/LNE577( QuadraticE587(XG577(XF587( b bE567%!XLeft n pBlueAl Light Turqoise$ b E567%!~( b E567%!XTop n pBlueAl b E567%!XRight n pBlueAl b E567%!XBottom n pBlueAl  b user input for regression, tiersPlease define an overbank event and high flow tiers in the blue cells in this table, following the examples provided below the table.E607(E60TahomaBoldRedA|F617 Frequency9Annual; b  b $ b ; bqpTpopulate the blue cells with data from last run, which were saved at metadata sheet.F627B@HC50:  C50 Charts_Freq$%%!X'dMetadata Charts_Freq dF62 AF627bankfull checkBank Full Check b ;'f   fAND(  7!X>0,  7!X "",   7!X>Metadata!D3),'f  f f $'f=IF(OR( fG),"Warning: One or more of your high flow pulses is above bankfull","")  b 7(z  b 7!XTahomaBoldRedA|'f qF687Examples; 3 per 2 years; 1 per year;10 per 5 seasons; 1 per season;`; .Offset(1, 1) = 21000.;.;;;q overbank flow b bE617%!XLeft n pBlueAl   Light Turqoise$ b  E617%!~( b  E617%!X BorderAround n pBlueAl  bD62:E62WhiteOverbank Pulses j jAhD62:E62 BorderArround n pBlackAlD62$!XTahomaBoldBlackA|D63:D67WhiteHigh Flow Pulses j jAhD63:D67 BorderArround n pBlackAlD63$!XTahomaBoldBlackA| bTier b0$ bE627%( bE627%!X BorderArround n pBlackAl bKTo specify an annual event, simply enter a flow value in the Annual column. H687%( H68$%!XTahomaBoldRedA|As a convenience, if you wish to recommend the statistically calculated flows at a given frequency, you may simply copy/paste the frequency and then leave the flow values blank. H697%( H69$%!XTahomaBoldRedA|\To specify an event across more than one season, enter identical values in adjacent seasons. H707%( H70$%!XTahomaBoldRedA| Instructions:M27(M27(2M2TahomaBoldBlack A|IAt this point in the HEFR code, the user needs to make several decisions.M47(M4TahomaRegularBlackA|The figure to the left shows the relationship between the peak flow of high flow pulses and their historical frequencies, both by year and by season.M67(M6TahomaRegularBlackA|The table immediately below the figure includes several numerical outputs based on the figure. These are not flow recommendations, they are example statistics.M87(M8TahomaRegularBlackA|NAt this time, the user needs to enter values in the blue cells, which include:M107(M10TahomaRegularBlackA|l1. The significance level desired for the duration versus peak flow and volume versus peak flow regressions.M117(M11TahomaRegularBlackA|z2. The functional form of the duration versus peak flow and volume versus peak flow regressions (i.e., LN/LN or quadratic)M127(M12TahomaRegularBlackA|i3. The desired frequency and magnitudes of an overbank event and up to 5 tiers of high flow pulse events.M137(M13TahomaRegularBlackA|tThe user-entered overbank and high flow pulse events will become the flow recommendations in the HEFR output matrix.M157(M15TahomaRegularBlackA|yThe historical frequencies can be used to guide the recommended frequencies, but these frequencies need not be identical.M177(M17TahomaRegularBlackA|wIn the table of examples, #N/A means that HFPs did not occur at that frequency in that season in the historical record.M197(M19TahomaRegularBlackA|/Additional instructional notes are in red text.M217(M21TahomaRegularBlackA|gWhen you have finished making your selections, click "HEFR" on the menu bar and select "Continue HEFR."M237(M23TahomaRegularBlackA| bank fullqh}  @(iP}p ] ] 1-6 annual 7-12 seasonal]this functions corresponding to entries in the table in the middle of worksheet "charts_freq"E41' b b $%  bAnnual'd8|Season'k |y|k| bi{]]E41' b b $%  b  $%$ b  $%'k@{k8{ bi {jsupposed that user created worksheet "Charts_Freq" and properly input a couple of lines in user inpur area3now we need to run HEFR again to proceed regression] 8]Ph]H   F11 BaseFlows$%'F12 BaseFlows$%' F13 BaseFlows$%'kPyD4Metadata$%$GD4Metadata$%'jD5Metadata$%$GD5Metadata$%'j Charts_Freq$PMYou need to run HEFR and select the Frequency Approach for this code to work.A@V|0xk(xNow, accepting user inputs... @(Gre-populate season month matrix, this time read from metadata worksheet  .AStarting to gather user input  @(8if read in from xml file, and only has text frequencies,starting from F62F62'b Charts_Freq$B@~'6 rcheck if user input has mistakes, fill in missing values, but you must have something in the text frequency cells! b0 is overbank tier "annual or season based on the text b b7%$Annual   b  b7%gAnnual frequency but you have put value in the season cells. Please check your input in the tier table.A@V|ukt ,if no annual value then get from upper table b b7% b b7%$ b b7,kHtd seasonal, annual should be blank]`'   b  b7%G'j  0get from upper table   b b7% $ b  b7, k sks bHow many tiers? maximum 5nyou can have both annual tiers and seasonal tiers, I will need to tell how many by checking the text frequency'6 b b b7%=only check the text frequency 6 '6dqyqkq bno tiers? quit 6LUser input in the area starting from F62 at worksheet Charts_freq is needed!A@V|Hqk@q str_Method = InputBox("Would you like to select Regression by R2 or Standard Error of the Estimates? " &' "(Type 'R2' or 'SEE', default is R2):", "HEFR Input")-If str_Method = "" Then str_Method = "R2" 'R2-read regression method rather than ask for itF577! Quadratic+(volume, default is quadraticdoLn+!volumekoG577! Quadratic+(Duration, default is quadraticdoLn+!volumeknknum_SP = InputBox("Please give Significance Probability for this analysis:(default is 68.3)", "HEFR Input")I547!' G33333Q@'j 6 8Icollect tier information, again need to differentiate annual and seasonal?overbank tier, annual, a must, collected at Func_OverbankFlowUShigh flow tiers b 6 b b7%> annual tier b b7% b+8   b b7% b +8 d season tier b b7% b+8   b  b7% @!%X b  b7% b +8kk kk b now create HFP_Recs sheetEE_Recs' A Charts_Freq$B@~VAddition of annual column in the tier table affects regression results, to work aroundjcopy the user input into metadata sheet, fill the char_freq the way it was, and change it back when finishF62:  F627%!X' Charts_FreqMetadata C50 A 7B@to make it work for old logicC50Metadata$%F62;  C50Metadata$%%! F627,  b 6  H arr_Tiers(i, j) = .Range(str_TierStart).Offset(i + 1, j) b $8 b F627,  bqhh2now create monthly and seasonal flow matrix sheets FlwMtxMnthUS' $P A@ A@*dg A@*kg FlwMtxSsnlUS' $P A@ A@*dxg A@*k`g b 6 -contents of arr_Tiers() int_NumbeofTiers = 3. i= j=0 1 2 3 41 0 1 per year 21000 21000 21000 21000! 1 2 per year 12000 120001 2 4 per year 5000 5000 3260 3260Ftest to see if it is a season tier, cross season tier, or annual tier?0if it is annual tier, only 1 round of regressionqif it is seasonal tier, round of regressions equal to or less than int_NumberofSeasons, depending on values giveniif it is a cross season tier, rounds of regression less than int_NumberofSeasons, how many? need to check bOBSA'ddT b0$SA'kpd $PG Aj A*Yellow$  %!b( b$8''' season1'   b $8  $what if a tier starts with 0?  '   annual tier b    8 AQpopulate statistics aggregation worksheet and flow matrix worksheet for this tier b    8  A bOBP 0$'d`bT b0$P 0$'k b $B@ $B@ b    8   Akada $ b    8 A b    8  A bOBP 0$'d8aT b0$P 0$'k` $B@ $B@ b    8   A?Call func_flowmatrixseasonmonth(i, int_Period,arr_tiers,num_SP)  ' ' ' b $8'   $ annual tier b    8 AQpopulate statistics aggregation worksheet and flow matrix worksheet for this tier b    8  A bOBP 0$'d _T b0$P 0$'k^ $B@ $B@ b    8   Ak^ b $8$e  ' ' ' b $8' b    8 AQpopulate statistics aggregation worksheet and flow matrix worksheet for this tier b    8  A bOBP 0$'dh]T b0$P 0$'k(] $B@ $B@ b    8   Ad\' ' ' b $8'k\k\  b End With'now populate the rest of the worksheets FlwMtxMnthUSA b 0$Monthlyac-ftAA3$!X: b A3$%!X Dark BlueHigh Flow Pulses j jAhA3$!XTahomaBoldWhite A| FlwMtxSsnlUSA b 0$Seasonalac-ftAA3$!X: b A3$%!X Dark BlueHigh Flow Pulses j jAhA3$!XTahomaBoldWhite A|Metadata$ FlwMtxMnthUS$B@ Dark Blue$ FlwMtxMnthUS$!b( FlwMtxMnthUS$ FlwMtxSsnlUS$B@ Dark Blue$ FlwMtxSsnlUS$!b(now create the other 4 chartsA'now you can delete HFPS and OBFS sheetsdelete "HFPS" and "OBFS" sheets" Call Func_Delete_Sheet("HFPS")" Call Func_Delete_Sheet("OBFS")OBFS$B@~ ddK !%B@H 0hThis sheet does not contain any Frequency Approach results. It only contains intermediate calculations.5(dCalibri5j(5j(5j(qxWHFPS$B@~} int_RngLimit = Application.WorksheetFunction.Match(1E+306, ActiveSheet.Range("$N:$N").Offset(0, int_NumberofSeasons - 4), 1) ddK !%B@H 0hThis sheet does not contain any Frequency Approach results. It only contains intermediate calculations.5(dCalibri5j(5j(5j(qUget rid of "TxSA" sheets b 6 bOBSA'dUT b0$SA'k`U A brecover the tier tableC50:  C50Metadata$%%!X'Metadata Charts_Freq F62 A Charts_Freq$B@H  b bE617%!XLeft n pBlueAl   Light Turqoise$ b  E617%!~( b  E617%!X BorderAround n pBlueAl  bqHSreorder some sheet tabsMetadata$N daily efcs$B@ FlwMtxSsnlUS$ BaseFlows$B@bnote: BaseFlowsPlot is a chart sheet not a worksheet and must use "Sheets" instead of "Worksheets" BaseFlows$ BaseFlowsPlot$B@ BaseFlowsPlot$SubsistenceDurations$B@SubsistenceDurations$ ZeroFlows$B@ ZeroFlows$HFP_OBF_Frequency$B@HFP_OBF_Frequency$ Charts_Freq$B@ Charts_Freq$EE_Recs$B@Metadata$Inputs$B@lavender$Inputs %!b( FlwMtxMnthUS$B@~ @(oPP]](@]Xp]]EE_CalFreq_PVD' EE_Freq_PVD'EE_CalFreq_Ponly' EE_Freq_Ponly' daily efcs$B@~)#v$C:$C % @!%'A3:A ' $%$'  $%$'+create and polulate sheet "HFP_CalFreq_PVD" ' $PG A@j A@* Light Blue$ $!b(   A(create and populate sheet "HFP_Freq_PVD" ' $PG A@j A@* Light Blue$ $!b(   A-create and polulate sheet "HFP_CalFreq_Ponly" ' $PG A@j A@* Light Blue$ $!b(   A(create and populate sheet "HFP_Freq_PVD" ' $PG A@j A@* Light Blue$ $!b(   A $ $B@ $ $B@iK]]0H`]x]# str_ShtName = "HFP_CalFreq_PVD" 'HFPS'A:G $%B@ $B@~A1 %B@H   0B@OBFS'A2 $%A2:G)#v$A:$A $% @!% $%B@ $B@~)#v$A:$A % @!%'A   %B@H   0B@kI D:F7B@FA2:D27B@q`Inow populate table heads] $B@~)#v$A:$A % %'D1AD1$B@H content b     7!X'   7!X'   7!X'} .Offset(i - 1, 1 + (j - 1)).Formula = "=if(and(hfp_recs!" & E4 & ">0,not(hfp_recs!" & E4 & "=""N/A""),not(hfp_recs!" & E13 & "=""N/A""),not(hfp_recs!" & E22 & "=""N/A"")),if(and(" & .Offset(i - 1, -3).Address & ">hfp_recs!" & E22 & "," & .Offset(i - 1, -2).Address & ">hfp_recs!" & E13 & "/1.98," & .Offset(i - 1, -1).Address & ">hfp_recs!" & E4 & "),1,0),""N/A"")"=if(and(ee_recs! >0,not(ee_recs! ="N/A"),not(ee_recs! ="N/A"),not(ee_recs! ="N/A")),if(and( b 7!X >ee_recs! , b 7!X >ee_recs! /1.98, b 7!X >ee_recs!  ),1,0),"N/A") b      7(z b      7!X BorderAround n pBlackAl b      7!XTahomaRegularBlack A|       7!X'     7!X'     7!X'.Offset(i - 1, k + 1 + (j - 1) * (int_NumberofSeasons + 1)).Formula = "=if(and(ee_recs!" & E4 & ">0,not(ee_recs!" & E4 & "=""N/A""),not(ee_recs!" & E13 & "=""N/A""),not(ee_recs!" & E22 & "=""N/A"")),if(and(" & .Offset(i - 1, -3).Address & ">ee_recs!" & E22 & "," & .Offset(i - 1, -2).Address & ">ee_recs!" & E13 & "/1.98," & .Offset(i - 1, -1).Address & ">ee_recs!" & E4 & "),1,0),""N/A"")"=if(and(ee_recs! >0,not(ee_recs! ="N/A"),not(ee_recs! ="N/A"),not(ee_recs! ="N/A"),not(iserror(find(      7!X, b 7!X )))),if(and( b 7!X >ee_recs! , b 7!X >ee_recs! /1.98, b 7!X >ee_recs!  ),1,0),"N/A") b      7(z b      7!X BorderAround n pBlackAl b      7!XTahomaRegularBlack A|   bq?% Worksheets("daily efcs").Activate] int_RngLimit = Application.WorksheetFunction.Match(1E+306, ActiveSheet.Range("$C:$C"), 1)' str_DateCol = "A3:A" & int_RngLimit4 int_StartYear = Year(Range(str_DateCol).Rows(1))A int_EndYear = Year(Range(str_DateCol).Rows(int_RngLimit - 2))D  AD  $B@H contentD3$!X:D $!X' b  '          ' D1$%!X: D $%!X' =if( D3$%!X ="N/A","N/A",sum(if(value(right( ,4))= b  7!X, ))) b  7(d;     D1$%!X'.Offset(i + 2 - int_StartYear, l).FormulaArray = "=if(" & Range("D3").Offset(0, l).Address & "=""N/A"",""N/A"",sum(if(" & str_SeasonYearCol & "=" & .Offset(1, l).Address & "&" & .Offset(i + 2 - int_StartYear, 0).Address & "," & str_FreqCol & ")))"=if(and(ee_recs! >0,not(ee_recs! ="N/A")),sum(if( = 7!X& b  7!X,  )),"N/A") b  7(k9 b  7!X BorderAround n pBlackAl b  7!XTahomaRegularBlack A|   b year column b   b  7!X:7!X BorderAround n pBlackAl b  7!X:7!XTahomaBoldBlack A| b  7!XGray-25% b j jAh bleft upper table head7!X:7!X BorderAround n pBlackAl7!X:7!XTahomaBoldBlack A|7!X:7!XGray-25%Year j jAhqP6iH6]h](]@]x]]F62'b Charts_Freq$B@~now count events for each tierfirst overbank tier, $B@~*overbank tier, only need to look at annual)#v$A:$A % %'d  ' $B@~)#v$D:$d % %' $%!X:D $%!X' $ @!% '  b 6 annual tier or seasonal tier   b $8 b$88 annual tier'dx3'yh3k`3  #only need to test annual b   $%!X:   b   $%!X' $ @!% '   G 'jd %seasonal, need to test lumped seasons'    b     $%!X:   b     $%!X' $ @!% ' '  $ !$ ! +d(1 +k1  '0k0 b $8$ b $8 b  $8lump  ' b     $%!X:   b     $%!X''  $ !$ $ ! +k/  '/d/ test season j   @!% 'kP/'   G 'jk(/k / k/ b 'i.]]0H]`]x]]]]]0]H]`]xEE_CalFreq_PVD' $B@~ $B@)#v$A:$A % %':now find the max number of events in a period, all periods  D1$%!X:       D1$%!X'  $!6  @!% 'b b  G b'j,:can't do this any more, need to combine seasons to periodsso first $' $B@~A2$B@HHTable of Historical Frequencies based on Peak Flow, Volume, and Duration' !XTahomaBoldBlackA|A4AA4$B@H 98overbank tiers b  b 7!X BorderAround n pBlackAl b 7!XTahomaBoldBlack A| b 7!XGray-25% b j jAh    D  $%!X:   D  $%!X'=if( ! D  $%!X="N/A","N/A",sum(if( ! = b 7!X,1,0))/Metadata!$B$12) b 7( b 7!X BorderAround n pBlackAl b 7!XTahomaRegularBlack A|0.0% b 7( j b 7(=sum( 7!X:  7!X)  7(z  7!X BorderAround n pBlackAl  7!XTahomaRegularBlack A|0.0%  7( j  7(  b hfp tiers  6  check annual or seasonal  $8  $8B annual tier'd&'y&k& annual or seasonal?  b          D  $%!X:        D  $%!X'=if( !      D  $%!X="N/A","N/A",sum(if( ! = b 7!X,1,0))/Metadata!$B$12) b      7( b      7!X BorderAround n pBlackAl b      7!XTahomaRegularBlack A|0.0% b      7( j b      7(=sum(      7!X:       7!X)       7(z j       7(0.0%       7(       7!X BorderAround n pBlackAl       7!XTahomaRegularBlack A|  bd!-seasonal need to check to see if lumped cells  annual     D  $%!X:       D  $%!X'=if( !     D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      7( j      7(0.0%      7(      7!X BorderAround n pBlackAl      7!XTahomaRegularBlack A|=sum(     7!X:      7!X)      7(z0.0%      7( j      7(      7!X BorderAround n pBlackAl      7!XTahomaRegularBlack A|seasons' b       b  D  $%!X:       b  D  $%!X'k  b$8$  b$8  b $8Rlumped, need to know more  ! '      b  7!X'      b  7!X' ! $%!X="N/A"'k     b  D  $%!X:       b  D  $%!X' + ! ' , ! $%!X="N/A"'] :'     $' :'    $'k :      b  7!X' :      b  7!X'  ' b  =if(or( ),"N/A",sum(if( =  7!X,1,0))/Metadata!$B$12)      b  7(0.0%      b  7( j      b  7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"=sum(     b  7!X:      b  7!X)      b  7(z0.0%      b  7( j      b  7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"'kxdp      b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|d=if(or( ),"N/A",sum(if( =  7!X,1,0))/Metadata!$B$12)      b 7(0.0%      b 7( j      b 7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"=sum(     b 7!X:      b 7!X)      b 7(z0.0%      b 7( j      b 7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"'k b       b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|kPkHd@     b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A| b  k k bk     b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|  check  7!X BorderAround n pBlackAl  7!XTahomaBoldBlack A|  7!XGray-25% Check 100% j jAh7!X:7!X BorderAround n pBlackAl7!X:7!XTahomaBoldBlack A|7!X:7!XGray-25%Number of Events per Period j jAhqi]H`x]]] 8# str_ShtName = "HFP_CalFreq_PVD" 'HFPS'A:G $%B@ $B@~A1 %B@H   0B@OBFS'A2 $%A2:G)#v$A:$A $% @!% $%B@ $B@~)#v$A:$A % @!%'A   %B@H   0B@k D:F7B@FA2:D27B@qhnow populate table heads]Ph $B@~)#v$A:$A % %'D1AD1$B@H content b     7!X'=if(and(ee_recs! >0,not(ee_recs!  ="N/A")),if( b 7!X >ee_recs!  ,1,0),"N/A") b      7(z b      7!X BorderAround n pBlackAl b      7!XTahomaRegularBlack A|       7!X'.Offset(i - 1, k + 1 + (j - 1) * (int_NumberofSeasons + 1)).Formula = "=if(and(ee_recs!" & E4 & ">0,not(ee_recs!" & E4 & "=""N/A"")),if(" & .Offset(i - 1, -1).Address & ">ee_recs!" & E4 & ",1,0),""N/A"")"=if(and(ee_recs! >0,not(ee_recs! ="N/A"),not(iserror(find(      7!X, b 7!X)))),if( b 7!X >ee_recs!  ,1,0),"N/A") b      7(z b      7!X BorderAround n pBlackAl b      7!XTahomaRegularBlack A|   bqx% Worksheets("daily efcs").Activate] int_RngLimit = Application.WorksheetFunction.Match(1E+306, ActiveSheet.Range("$C:$C"), 1)' str_DateCol = "A3:A" & int_RngLimit4 int_StartYear = Year(Range(str_DateCol).Rows(1))A int_EndYear = Year(Range(str_DateCol).Rows(int_RngLimit - 2))D  AD  $B@H contentD3$!X:D $!X' b  '    D1$%!X'         ' D1$%!X: D $%!X' =if( D3$%!X ="N/A","N/A",sum(if(value(right( ,4))= b  7!X, ))) b  7(d     D1$%!X'.Offset(i + 2 - int_StartYear, l).FormulaArray = "=if(" & Range("D3").Offset(0, l).Address & "=""N/A"",""N/A"",sum(if(" & str_SeasonYearCol & "=" & .Offset(1, l).Address & "&" & .Offset(i + 2 - int_StartYear, 0).Address & "," & str_FreqCol & ")))"=if(and(ee_recs! >0,not(ee_recs! ="N/A")),sum(if( = 7!X& b  7!X,  )),"N/A") b  7(k b  7!X BorderAround n pBlackAl b  7!XTahomaRegularBlack A|   b year column b   b  7!X:7!X BorderAround n pBlackAl b  7!X:7!XTahomaBoldBlack A| b  7!XGray-25% b j jAh bleft upper table head7!X:7!X BorderAround n pBlackAl7!X:7!XTahomaBoldBlack A|7!X:7!XGray-25%Year j jAhqix]8Ph]]]](]H]`]x]]]EE_CalFreq_Ponly' $B@~ $B@)#v$A:$A % %'  D1$%!X:       D1$%!X' $ $!6 $ @!% 'b b  G b'j $B@~A2$B@H7Table of Historical Frequencies based on Peak Flow Only' !XTahomaBoldBlackA|A4AA4$B@H 98overbank tiers b  b 7!X BorderAround n pBlackAl b 7!XTahomaBoldBlack A| b 7!XGray-25% b j jAh    D  $%!X:   D  $%!X'=if( ! D  $%!X="N/A","N/A",sum(if( ! = b 7!X,1,0))/Metadata!$B$12) b 7( b 7!X BorderAround n pBlackAl b 7!XTahomaRegularBlack A|0.0% b 7( j b 7(=sum( 7!X:  7!X)  7(z  7!X BorderAround n pBlackAl  7!XTahomaRegularBlack A|0.0%  7( j  7(  b hfp tiers  6  check annual or seasonal  $8  $8B annual tier'd'yk annual or seasonal?  b          D  $%!X:        D  $%!X'=if( !      D  $%!X="N/A","N/A",sum(if( ! = b 7!X,1,0))/Metadata!$B$12) b      7( b      7!X BorderAround n pBlackAl b      7!XTahomaRegularBlack A|0.0% b      7( j b      7(=sum(      7!X:       7!X)       7(z j       7(0.0%       7(       7!X BorderAround n pBlackAl       7!XTahomaRegularBlack A|  bdh-seasonal need to check to see if lumped cells  annual     D  $%!X:       D  $%!X'=if( !     D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      7( j      7(0.0%      7(      7!X BorderAround n pBlackAl      7!XTahomaRegularBlack A|=sum(     7!X:      7!X)      7(z0.0%      7( j      7(      7!X BorderAround n pBlackAl      7!XTahomaRegularBlack A|seasons' b       b  D  $%!X:       b  D  $%!X'k8  b$8$  b$8  b $8Rlumped, need to know more  ! '      b  7!X'      b  7!X' ! $%!X="N/A"'k     b  D  $%!X:       b  D  $%!X' + ! ' , ! $%!X="N/A"'] :'     $' :'    $'k0 :      b  7!X' :      b  7!X'  ' b  =if(or( ),"N/A",sum(if( =  7!X,1,0))/Metadata!$B$12)      b  7(0.0%      b  7( j      b  7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"=sum(     b  7!X:      b  7!X)      b  7(z0.0%      b  7( j      b  7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"'kd      b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|dh=if(or( ),"N/A",sum(if( =  7!X,1,0))/Metadata!$B$12)      b 7(0.0%      b 7( j      b 7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"=sum(     b 7!X:      b 7!X)      b 7(z0.0%      b 7( j      b 7(  BorderAround n pBlackAl TahomaRegularBlack A| j $( $B@"'k b       b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|kkd     b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A| b       b  D  $%!X:       b  D  $%!X'=if( !     b  D  $%!X="N/A","N/A",sum(if( ! =  7!X,1,0))/Metadata!$B$12)      b  7( j      b  7(0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|=sum(     b  7!X:      b  7!X)      b  7(z0.0%      b  7(      b  7!X BorderAround n pBlackAl      b  7!XTahomaRegularBlack A|kpkh b k@   7!X BorderAround n pBlackAl  7!XTahomaBoldBlack A|  7!XGray-25% Check 100% j jAh7!X:7!X BorderAround n pBlackAl7!X:7!XTahomaBoldBlack A|7!X:7!XGray-25%Number of Events per Period j jAhq@i8]h &$B@H  table title7!X:  7!X BorderAround n pBlackAl7!X:  7!XTahomaBoldBlack A|       7!X:       7!XGray-25%Overbank j jAhdX     7!X:       7!XGray-25%Tier   j jAhk     7!XGray-25%Annual j jAh b      b 7!XGray-25% b $ j jAh b qi](]@]Xp] &$B@H  table title7!X:   67!X BorderAround n pBlackAl7!X:   67!XTahomaBoldBlack A|overbank'     7!X:       7!XGray-25%Overbank j jAh     7!XGray-25%Annual j jAh b      b 7!XGray-25% b $ j jAh b  6     7!X:       7!XGray-25%Tier   j jAh b  check annual or seasonal  b$8  $8B annual tier'd'ykx b      7!XGray-25%Annual j jAh b      b 7!XGray-25% b $ j jAh bdh0seasonal, need to see if seasons lumped together     7!XGray-25%Annual j jAh' b   b $'     b 7!X'kP  b$8$  b$8  b $8Nlumped, need to know more  b$'] :'   G   $'j :     b 7!X' b   Gray-25%  j jAhd  'kЦdȦ      b 7!XGray-25% b $ j jAhdH Gray-25%  j jAh'k b       b 7!XGray-25% b$ j jAhkkd     b 7!XGray-25% b $ j jAh b       b 7!XGray-25% b$ j jAhkk bkx q`iX]0]H $PG A@j A@*Peak Flow (cfs)'( B1 (A*Volume (ac-ft)'( B10 (A*Duration (days)'( B19 (A*  K10$%!X'(Upper Prediction Interval Volume (ac-ft)'(   (A*)Upper Prediction Interval Duration (days)'(  K19$%!X'   (A*(Lower Prediction Interval Volume (ac-ft)'(  T10$%!X'   (A*)Lower Prediction Interval Duration (days)'(  T19$%!X'   (A*ip`]  $B@~ ,$B@~ 7(87!X:  7!X BorderArround n pBlackAl7!X:  7!XTahomaBoldBlack A|7!X:  7!XGray-25% . j jAh7!X:7!X BorderArround n pBlackAl7!X:7!XTahomaBoldBlack A|7!X:7!XGray-25%Events j jAh7!X BorderArround n pBlackAl7!XTahomaBoldBlack A|7!XGray-25%Average Frequency j jAh7!X BorderArround n pBlackAl7!XTahomaBoldBlack A|7!XGray-25%Annual j jAh b  b 7!X BorderArround n pBlackAl b 7!XTahomaBoldBlack A| b 7!XGray-25% b $ j jAh b b   b 7!X BorderAround n pBlackAl  b7!X:7!XGray-25%Overbank Events j jAh7!X:7!XTahomaBoldBlack A|7!X:7!X BorderArround n pBlackAl7!X:7!XTahomaBoldBlack A|7!X:7!X BorderArround n pBlackAl7!X:7!XGray-25%High Flow Pulses j jAhD61 Charts_Freq$%%!; b b 7!XGray-25%Tier b0$ j jAh b 7!XTahomaBoldBlack A| b D61 Charts_Freq$%% b 7( bqix0 str_method@high pulse portion of flow matrix for user specified frequencies]p!!!!]!>Cell location for tier 0 and Period 1 on worksheets str_ShtMTX]!""0"H"`"]x"]""""]" 0OBSA'd(T 00$SA'5tier statistics aggregationkؖ FlwMtxSsnlUS'4 b  season loop b$ Gyj b b ' 0 0 A1 4$%%!X'd 0 A2 4$%%!X'kؕ' b  season loop b$  G b'j  'k` b   ' 0 0 A1 4$%%!X'2d 0 A2 4$%%!X'2k now the text]# #8#P#h# 0 $8'Hvolumnlclearup regression sheets, delete Columns AJ:EF, copy column B:N of sheet TxSA to TxPx and delete sheet TxSA'@ @   0 AR 'BT44':BT58'<BT70'>dxC44':C58'<C70'>k@+MsgBox arr_Tiers(int_Tier, int_PeriodStart) 0    0 $8AT$Ln  : $%%!'L  < $%%!'N  > $%%!'Pd0  : $%%!'L  < $%%!'N  > $%%!'Pk    'Bdp  'BkX 0 $8 0 BD1EE_Recs$%, j 0 BD1EE_Recs$%%( L L 0 BD10EE_Recs$%,dN/A 0 BD10EE_Recs$%,k@0 0 BD10EE_Recs$%%( j 0 BD10EE_Recs$%%(  'F P P 0 B F M10EE_Recs$%,dXN/A 0 B F M10EE_Recs$%,k0 0 B F M10EE_Recs$%%( j 0 B F M10EE_Recs$%%( N N 0 B F V10EE_Recs$%,dN/A 0 B F V10EE_Recs$%,kȍ0 0 B F V10EE_Recs$%%( j 0 B F V10EE_Recs$%%( B'D       b   D b 'D 0 $8 0 DD1EE_Recs$%, j 0 DD1EE_Recs$%%( L L 0 DD10EE_Recs$%,dN/A 0 DD10EE_Recs$%,k0 0 DD10EE_Recs$%%( j 0 DD10EE_Recs$%%(  'F P P 0 D F M10EE_Recs$%,dЊN/A 0 D F M10EE_Recs$%,k0 0 D F M10EE_Recs$%%( j 0 D F M10EE_Recs$%%( N N 0 D F V10EE_Recs$%,dN/A 0 D F V10EE_Recs$%,k@0 0 D F V10EE_Recs$%%( j 0 D F V10EE_Recs$%%( bkQp: H#,##0$ cfs with Average Frequency  0$8 Regressed Volume is 'J N$ N  J N#,###0$ to 'JdЇ J#N/A to 'Jk P J P#,###0$'Jdx J P#,###0$'JkP L J ( L#,###0$)'Jd J (#N/A)'Jkduration$Ln   : $%%!'L   < $%%!'N   > $%%!'Pd(   : $%%!'L   < $%%!'N   > $%%!'Pk L L 0 BD19EE_Recs$%,d@N/A 0 BD19EE_Recs$%,k0 0 BD19EE_Recs$%%( j 0 BD19EE_Recs$%%( P P 0 B F M19EE_Recs$%,d N/A 0 B F M19EE_Recs$%,kЃ0 0 B F M19EE_Recs$%%( j 0 B F M19EE_Recs$%%( N N 0 B F V19EE_Recs$%,dN/A 0 B F V19EE_Recs$%,k0 0 B F V19EE_Recs$%%( j 0 B F V19EE_Recs$%%( B'D       b   D b 'D L L 0 DD19EE_Recs$%,dHN/A 0 DD19EE_Recs$%,k0 0 DD19EE_Recs$%%( j 0 DD19EE_Recs$%%( P P 0 D F M19EE_Recs$%,d(N/A 0 D F M19EE_Recs$%,k0 0 D F M19EE_Recs$%%( j 0 D F M19EE_Recs$%%( N N 0 D F V19EE_Recs$%,d~N/A 0 D F V19EE_Recs$%,k~0 0 D F V19EE_Recs$%%( j 0 D F V19EE_Recs$%%( bk} N J Regressed Duration is  N#,###0$ to 'Jd} J Regressed Duration is #N/A to 'Jk@} P J P#,###0$'Jd} J#N/A'Jk| L J ( L#,###0$)'Jd| J (#N/A)'Jk|put text in place FlwMtxMnthUS'4 4$B@~]# 0Black'V 0eGray-80%'V 0eGray-50%'V 0eGray-40%'V 0eGray-25%'V 0eWhite'Vkp{ 0overbank flow tierA1:A2 Dark BlueOverbank Flows j jAhB1:M2 Dark BlueOverbank Flows j jAhA1:A2TahomaBoldWhite A|A2Right X pWhiteAlA2Bottom X pWhiteAlk@zStop : 2 V J j jAhP : 2$(2 0 : 2 Courier NewBoldBlack A|dy : 2 Courier NewBoldWhite A|k@y : 2Right X pWhiteAl : 2Left X pWhiteAl FlwMtxSsnlUS'4 4$B@~ 0A1:A2 Dark BlueOverbank Flows j jAhB1:M2 Dark BlueOverbank Flows j jAhA1:A2TahomaBoldWhite A|A2Right X pWhiteAlA2Bottom X pWhiteAlkw : 2 V J j jAhP : 2$(2 : 2$(8 0 : 2 Courier NewBoldBlack A|dv : 2 Courier NewBoldWhite A|kv : 2Right X pWhiteAl : 2Left X pWhiteAliv#  EG:HC $%%B@ $B@~A1 $%B@H Z  0B@ \  0B@BX:HC $%B@FB:C $%B@BS1 $%B@H \  0B@ C:C $%%B@ BT1 $%%B@H \  0B@   C:C $%%B@   BT1 $%%B@H \  0B@isX$5Now, populating flow matrix worksheet, please wait... @(Dqlu, modified flow matrix function, changed to allow different tiersQ Call Func_FlowMatrixMonthlySeasonal("FlwMtxMnthly", "A1", "Monthly", "ac-ft") @( @(&Creating and Updating Summary Table in  @(]%]0%H%`%')If Func_WorksheetExists(str_ShtName) Then# Func_Delete_Sheet (str_ShtName)# Func_Create_Sheet (str_ShtName)Else# Func_Create_Sheet (str_ShtName)End If $B@~Range(str_DestCell).SelectCstr_DestCell used to indicate the starting point of Baseflow matrixA1$B@H/qlu, define data areas to allow variable seasonFneed to consider number of seasons and number of months in each season]x%%%%% peak_area = "O4:R6" volume_area_dsf = "O12:R14" volume_area_acft = "U12:X14" duration_area = "O20:R22" frequency_area = "O28:R30" peak_area = Range(str_HFPS_subtable_start_col & 1).Offset(3, 1).Address & ":" & Range(str_HFPS_subtable_start_col & 1).Offset(5, int_NumberofSeasons).Address volume_area_dsf = Range(str_HFPS_subtable_start_col & 1).Offset(11, 1).Address & ":" & Range(str_HFPS_subtable_start_col & 1).Offset(13, int_NumberofSeasons).Address volume_area_acft = Range(str_HFPS_subtable_start_col & 1).Offset(11, int_NumberofSeasons + 3).Address & ":" & Range(str_HFPS_subtable_start_col & 1).Offset(13, int_NumberofSeasons * 2 + 2).Address duration_area = Range(str_HFPS_subtable_start_col & 1).Offset(19, 1).Address & ":" & Range(str_HFPS_subtable_start_col & 1).Offset(21, int_NumberofSeasons).Address frequency_area = Range(str_HFPS_subtable_start_col & 1).Offset(27, 1).Address & ":" & Range(str_HFPS_subtable_start_col & 1).Offset(29, int_NumberofSeasons).Address ^MonthlyKT lCall Func_OBFMatrix(Range(str_DestCell).Address, str_ShtName, "OBFS", "K2:K6") 'fixed, no need to change qlu UCall Func_OBFMatrix("A1", str_ShtName, "OBFS", "K2:K6") 'fixed, no need to change qlu If str_UnitsType = "dfs" Then Call Func_HighFlowPulseMatrix(Range(str_DestCell).Offset(1, 0).Address, "HFPS", str_ShtName, peak_area, volume_area_dsf, duration_area, frequency_area) #ElseIf str_UnitsType = "ac-ft" Then Call Func_HighFlowPulseMatrix(Range(str_DestCell).Offset(1, 0).Address, "HFPS", str_ShtName, peak_area, volume_area_acft, duration_area, frequency_area) End If]qlu, changed baseflow starting cell, because str_destCell were set to baseflow starting point &$!XH22:AE24 BaseFlows AnEqlu, changed subsistenceflow starting cell to offset 19 instead of 13 &$%!X  BaseFlowsMonthlyH20:AE20ApFqlu, changed flowmatrixtitles starting cell to offset 20 instead of 14  &$%!X `ArSeasonalKT 7Call Func_OBFMatrix("A1", str_ShtName, "OBFS", "K2:K6") If str_UnitsType = "dfs" Then Call Func_HighFlowPulseMatrix(Range(str_DestCell).Offset(1, 0).Address, "HFPS", str_ShtName, peak_area, volume_area_dsf, duration_area, frequency_area) #ElseIf str_UnitsType = "ac-ft" Then Call Func_HighFlowPulseMatrix(Range(str_DestCell).Offset(1, 0).Address, "HFPS", str_ShtName, peak_area, volume_area_acft, duration_area, frequency_area) End If=qlu, changed baseflow starting cell to offset 13 instead of 7  &H11: H11$%!X BaseFlowsAtEqlu, changed subsistenceflow starting cell to offset 16 instead of 10 &$%!X  BaseFlowsSeasonalH9: H9$%!XApFqlu, changed flowmatrixtitles starting cell to offset 17 instead of 11  &$%!X `ArncA:A$6B@H 0(8 &$B@Hthat's the end of iti0c%each tier will have a worksheet]'(']@']`'NApplication.StatusBar = "Now, preparing regression statistics, please wait..." 0OBP 0$'OBSA'd@bT 00$P 0$'T 00$SA'ka $B@~C3 %B@H Volume Ln's , Duration Ln's  ,  Assoc. R2; Assoc. SEE's;Function;Linear;B;A;Ln ;B ;A ;Quad ;A ;B;C;Power;B;A;q_ For i = 1 To int_Period 'bI str_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & Format(i, "0").Set rng_TP = Worksheets(str_ShtTP).Range("A1")  EG1 $%%.v Period b0$ b; .Offset(4, i).Formula = "=VLookup(" & .Offset(2, i).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 7).Address & ", 7, False)"Ln b;=offset( ! v%!X,match( b7!X, ! v%!X: !w v%!X ,0)-1,0,1,1) b7(z =vLookup( b7!X, ! v%!X: !w v%!X , 3, False) b7(z =vLookup( b7!X, ! v%!X: !w v%!X , 3, False) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,6,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(zqS Next i0ActiveCell.Offset(0, int_NumberofSeasons).Select For i = 1 To int_Period 'bC str_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & Format(i, "0").Set rng_TP = Worksheets(str_ShtTP).Range("J1")  EP1 $%%.v Period b0$ b  ;Ln b  ;=offset( ! v%!X,match( b7!X, ! v%!X: !w v%!X ,0)-1,0,1,1) b  7(z .Offset(2, i + int_NumberofSeasons).Formula = "=max(" & str_ShtTP & "!" & rng_TP.Offset(23, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(49, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(84, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(114, 1).Address & ")" =vLookup( b  7!X, ! v%!X: !w v%!X , 3, False) b  7(z .Offset(4, i + int_NumberofSeasons).Formula = "=VLookup(" & .Offset(2, i + int_NumberofSeasons).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 7).Address & ", 7, False)" =vLookup( b  7!X, ! v%!X: !w v%!X , 3, False) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,6,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(zqE Next i SEE sectionC24 %B@HVolume Quadratic's ,Duration Quadratic's  ,  Assoc. SEE's; Assoc. R2's;Function;Linear;B;A;Ln;B ;A ;Quad ;A ;B ;C;Power;B;A;qB For i = 1 To int_Period 'bBstr_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & Format(i, "0").Set rng_TP = Worksheets(str_ShtTP).Range("A1")  EG1 $%%.v  .Offset(1, i).Formula = "=min(" & str_ShtTP & "!" & rng_TP.Offset(28, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(54, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(88, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(118, 1).Address & ")" .Offset(4, i).Formula = "=vLookup(" & .Offset(1, i).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 3).Address & ", 3, False)"Quad b;=offset( ! v%!X,match( b7!X, ! v%!X: !w v%!X ,0)-1,0,1,1) b7(z =vLookup( b7!X, ! v%!X: !w v%!X , 3, False) b7(z =vLookup( b7!X, ! v%!X: !w v%!X , 3, False) b7(z .Offset(2, i).Formula = "=vLookup(" & .Offset(1, i).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 3).Address & ", 3, False)" .Offset(3, i).Formula = "=VLookup(" & .Offset(1, i).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 7).Address & ", 7, False)"=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(z=if( 7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,6,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,4,false),NA()) b7(z=if(7!X= b7!X ,vlookup( b7!X, ! v%!X: !w v%!X,5,false),NA()) b7(zq04 Next i0ActiveCell.Offset(0, int_NumberofSeasons).Select For i = 1 To int_Period 'bBstr_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & Format(i, "0").Set rng_TP = Worksheets(str_ShtTP).Range("j1")  EP1 $%%.v  .Offset(1, i + int_NumberofSeasons).Formula = "=min(" & str_ShtTP & "!" & rng_TP.Offset(28, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(54, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(88, 1).Address & "," & str_ShtTP & "!" & rng_TP.Offset(118, 1).Address & ")"Quad b  ;=offset( ! v%!X,match( b7!X, ! v%!X: !w v%!X ,0)-1,0,1,1) b  7(z =vLookup( b  7!X, ! v%!X: !w v%!X , 3, False) b  7(z =vLookup( b  7!X, ! v%!X: !w v%!X , 3, False) b  7(z .Offset(2, i + int_NumberofSeasons).Formula = "=vLookup(" & .Offset(1, i + int_NumberofSeasons).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 3).Address & ", 3, False)" .Offset(3, i + int_NumberofSeasons).Formula = "=VLookup(" & .Offset(1, i + int_NumberofSeasons).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 7).Address & ", 7, False)" .Offset(4, i + int_NumberofSeasons).Formula = "=vLookup(" & .Offset(1, i + int_NumberofSeasons).Address & "," & str_ShtTP & "!" & rng_TP.Offset(4, 1).Address & ":" & str_ShtTP & "!" & rng_TP.Offset(119, 3).Address & ", 3, False)"=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(z=if( 7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,6,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,4,false),NA()) b  7(z=if(7!X= b  7!X ,vlookup( b  7!X, ! v%!X: !w v%!X,5,false),NA()) b  7(zq# Next icentral tendencyC44 %B@H Center;volume;Duration  ; For i = 1 To int_Tier 0 'b 0OBF;d"Tier b 0$;k"Ln/Ln; Quadratic; Next iq8"]x'']'F62'b]'UI - user input value address]'point value address]( Charts_Freq'] ( 0 !  b $%%!X'~d8! ! 0  b $%%!X'~k ~ $%.|]8(P(C3'  %.xC24'  %.z]h(]((](((()()@)X)  D7 %%!X'  D27 %%!X'  ="Linear",' ="Ln",' ="Quad",'  ="Power",'  ="Linear",' ="Ln",' ="Quad",'  ="Power",']p))))))**0*]H*`*x******+ '  x%!X'  x%!X'  x%!X'  x%!X'  x%!X'  x%!X'  x%!X'  x%!X'  x%!X'  z%!X'  z%!X'  z%!X'  z%!X'  z%!X'  z%!X'  z%!X'  z%!X'  z%!X' For i = 1 To int_Period 0 'b Volume;Period 0$ ;# For j = 1 To int_Period 'central=if(  * ~+ ,if( exp( *ln( ~)+ ),if(  * ~* ~+ * ~+ ,if( ( * ~^  ),NA())))) 7(z=if(  * ~+ ,if( exp( *ln( ~)+ ),if(  * ~* ~+ * ~+ ,if( ( * ~^  ),NA())))) 7(zq(lower PIC58 %B@H Lower P. I.'] + 0OBP 0$!'dT 00$P 0$!'kXwith activecell volume;Period 0$ ; 0 'b 0OBF;dTier b 0$;kxLn/Ln; Quadratic;]8+P+h+++++++,(,@,X,p,,,,,,--0-H-`-x------]. .  EH1$%!X$' EH = "EH" EI = "EI"  EI1$%!X$'  5'  14'  20'  22'  23'  28'  29'  32'  41'  46'  48'  49'  54'  55'  59'  63'  67'  68'  78'  79'  80'  88'  89'  99'  107'  108'  109'  110'  118'  119' >v=if(  ~* + - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + - * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )- * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na())))) 7(z >v=if(  ~* + - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + - * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )- * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na())))) 7(zq upper PIC70 %B@H Upper P. I.' 0 'b Volume;Period 0$ ; 0OBF;d Tier b 0$;k Ln/Ln; Quadratic; F =if(  ~* + + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + + * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )+ * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na())))) 7(z H =if(  ~* + + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + + * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )+ * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na())))) 7(zq@durationC44 %B@HCENTRAL Duration  ;Period 0$   ;   D7 %%!X'   D27 %%!X'  ="Linear",' ="Ln",' ="Quad",'  ="Power",'  ="Linear",' ="Ln",' ="Quad",'  ="Power",'   x%!X'   x%!X'   x%!X'   x%!X'   x%!X'   x%!X'   x%!X'   x%!X'   x%!X'   z%!X'   z%!X'   z%!X'   z%!X'   z%!X'   z%!X'   z%!X'   z%!X'   z%!X'=if(  * ~+ ,if( exp( *ln( ~)+ ),if(  * ~* ~+ * ~+ ,if( ( * ~^  ),NA()))))   7(z=if(  * ~+ ,if( exp( *ln( ~)+ ),if(  * ~* ~+ * ~+ ,if( ( * ~^  ),NA()))))   7(zqlower PIC58 %B@H Duration  ;Period 0$   ;str_ShtP = "T0P1!" 0OBP 0$!'dT 00$P 0$!'k]8.P. EQ = "EQ"  EQ1$%!X$' ER = "ER"  ER1$%!X$'  5'  14'  20'  22'  23'  28'  29'  32'  41'  46'  48'  49'  54'  55'  59'  63'  67'  68'  78'  79'  80'  88'  89'  99'  107'  108'  109'  110'  118'  119'=if(  ~* + - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + - * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )- * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na()))))   7(z=if(  ~* + - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + - * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ - * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )- * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na()))))   7(zqupper PIC70 %B@H Upper P. I.' Duration  ;Period 0$   ;=if(  ~* + + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + + * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )+ * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na()))))   7(z=if(  ~* + + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( EXP(LN( ~)* + + * *SQRT( /(  -2))*SQRT(1/ +(LN( ~)- )^2/( ^2*  )+1)),IF( ( * ~* ~)+ * ~+ + * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2* )+1),IF( ( * ~^ )+ * *SQRT( /(  -2))*SQRT(1/ +( ~- )^2/( ^2*  )+1),na()))))   7(zq@i0h. 0'Regression for overbank pulses: Period , please wait... @(d&Regression for high flow pulses: Tier 00$ Period  , please wait... @(kH]h//////]/080X0]x00000]0(1`111]2#R2 or SEE, Significance Probability] 2sheet of a period of a tier]82*sheet for statistics aggression for a tier]P2h2]2 Stop,int_TierBegin=int_TierEnd=1 'first seasonAA'  as alwaysL'K' M'T'HFP_OBF_frequency' $B@~)#v$ :$  % %' 2 2 2 3  3:  7. 3:  7.  3:  7.  %. #populate peak,volume,duration arrayfirst rerank them'   b     b 17%$  '  7! +  7!YL? +Gchanged from cfs to ac-ft  7! +k b  int_TotalPulses = k&Overbank will always be the first tier 0OBP 0$'dT 00$P 0$'kcalculate left hand site width  1$%!X'A1:   $%!X' $P Ak A*Yellow$  %!b(copy the left hand side  $%B@A1 $%B@H B@get rid of columns h-i,r-sH1:I $B@R1:W $B@(color 1st row of the calculation columns :EZ1$B@H 0!~(linearV 0    AD 0    ALnV 0    A D 0    A  quadraticV 0    A"D 0    A"powerV 0    A$D 0    A$q`Stop $B@~do charts here.populate tier statistics aggregation worksheeti3]34(4]@4X4p44]44445]505]H5`5]x555]556 6@6`6]66]63Dim arr_X, arr_Y, arr_Center, arr_LowPI, arr_HighPI=Dim arr_Xvalue, arr_Yvalue, arr_Center, arr_LowPI, arr_HighPI]6U'Rstr_TPStart = Range(str_Peak_col & "1").Offset(0, 5 + int_NumberofSeasons).Address$A$1'>str_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & int_Period 0OBP 0$'dT 00$P 0$'kH $B@~)#v$ :$  % %'  7%!X:  7%!X7.: :%.<21) 'peakChtVL'F0 7%'&2102-102/ 7%'('*1 7%', :%.>2 4) 'volume :%.D2 48) 'v-center :%.@2 51) 'v-low :%.B3 52) 'v-high  < > D @ B F & ( * , AL duration/LNChtDL'F0 7%'&/ 7%'('*1 7%', :%.>2 ) 'duration :%.D2 55) 'd-center! :%.@1 58) 'd-low" :%.B2 59) 'd-high  < > D @ B F & ( * , AL volumn/quadChtVQ'FM 7%'&N 7%'(O 7%'*T 7%', :%.>2 4) 'volume# :%.D3 62) 'v-center$ :%.@1 65) 'v-low% :%.B2 66) 'v-high  < > D @ B F & ( * , AL duration/quadChtDQ'FM 7%'&N 7%'(O 7%'*T 7%', :%.>3 6) 'duration& :%.D2 69) 'd-center' :%.@1 72) 'd-low( :%.B2 73) 'd-high  < > D @ B F & ( * , AL qHdurationpFunction Func_PlotXYRanges(str_ShtName As String, str_ChartName As String, str_XRange As String, str_YRange As String, str_SeriesName As String, var_MarkerStyle As Variant, str_MarkerColor As String, int_MarkerSize As Integer, str_PlotByWhat As String)+Call Func_PlotXYRanges(str_ShtTP, "chartV")Call Func_PlotXYRanges("BaseFlowChart", "FlwDurCur", "B:B", "A:A", "Flow", xlMarkerStyleCircle, "Dark Blue", 5, "Entire Column")iH6]H7 R P R!$ N R! R!'Nkki`7 X5J!P \$9R Z$9T V9 b9d `9f ^$9h ^$5j(qPqHi@8]H:h:]:]:]::;](;@;]X;]p;];; '| F'~7+l>XlColorIndex.xlColorIndexNone 'markerforgroundcolor for annual +l+l marker size +l marker style +llink color index2+l +l+l marker size +l marker style+lcenter line color index+l3XlColorIndex.xlColorIndexNone 'markerforgroundcolor +l+l marker size +l marker style +llower line color index !+l4markerforgroundcolor +lmarkerbackgroundcolor+l marker size +l marker style +lhigh line color index2Set objCharts = Worksheets(str_shttp).ChartObjects $B@~ 'nMsgBox rng_Xrange.Address <.z z$N'r >.z z$N't !J.< < ~9qx FD  <%B.< F <!H( <5J!a7JB@F N9L FChtVLKTget alpha and betaVolume < < >LN/LNAUscatterCenter < < DLN/LNALowPI < < @LN/LNAHighPI < < BLN/LNA ( n$ & $'p nc31 , pd31 , Recommanded <c31d31Red  ATChtDLKTDuration < < >LN/LNAWscatter7J @!(@ V5!(kqCenter < < DLN/LNALowPI < < @LN/LNAHighPI < < BLN/LNA ( n$ & $'p nl31 , pm31 , Recommanded <l31m31Red  ATChtVQKTVolume < < > QuadraticACenter < < D QuadraticALowPI < < @ QuadraticAHighPI < < B QuadraticA & n n ( n * 'p nc58 , pd58 , Recommanded <c58d58Red  ATChtDQKTDuration < < > QuadraticACenter < < D QuadraticALowPI < < @ QuadraticAHighPI < < B QuadraticA & n n ( n * 'p nl58 , pm58 , Recommanded <l58m58Red  ATn07J @!(@ V5!(kqqobjChart.Activate $B@  b4 series b 7JB@H 0 b$l9 b$l9h b$l9d b$l9f9 b  0!j b$l9 9 X9vqkq b 79 FChtVL Volume (acft)5(d FChtDLeDuration (days)5(d FChtVQe Volume (acft)5(d FChtDQeDuration (days)5(dkTimes New Roman5!j( 5!j(5!j(995!j(#,##05( .ReversePlotOrder = False .CrossesAt = 0.001 .ScaleType = xlLogarithmic FChtVL FChtDL ( n$ & $? t @!%Z9dP & n n ( n * ? t @!%Z9k9 .MajorUnit = 1005!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq`  79Peak Flow, Qp (cfs)5(dTimes New Roman5!j( 5!j(5!j(99 .ScaleType = xlLogarithmic If int_ChtType = 0 Then  .ReversePlotOrder = True Else  .ReversePlotOrder = False End If#,##05(5!j( .CrossesAt = 0.0001 .MajorUnit = 10 n? r @!%Z9905!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq9.Legend.Height = 905H(J5H(9 FChtVLLnY='x & x ( 0.0000000$*LnX+ & 0.0000000$ ,R^2= ,0.000$'xd x ( 0.0000000$*LnX & 0.0000000$ ,R^2= ,0.000$'xk5H(N 5H( FChtDLeLnY='x & x ( 0.0000000$*LnX+ & 0.0000000$ ,R^2= ,0.000$'xdȽ x ( 0.0000000$*LnX & 0.0000000$ ,R^2= ,0.000$'xkP5H(N 25 5H(470 FChtVQeY='x ( x & 0.0000000$*X2+ ( 0.0000000$*X'xd x & 0.0000000$*X2 ( 0.0000000$*X'xk8 * x+ * 0.0000000$ ,R^2= ,0.000$'xdл x * 0.0000000$ ,R^2= ,0.000$'xk5H(N 320 5H( FChtDQeY='x ( x & 0.0000000$*X2+ ( 0.0000000$*X'xdȺ x & 0.0000000$*X2 ( 0.0000000$*X'xkp * x+ * 0.0000000$ ,R^2= ,0.000$'xd x * 0.0000000$ ,R^2= ,0.000$'xk5H(N 320 5H(470k x5(d5B@HZ 0( 0(N.Legend.Top = 198.Legend.Left = 380.Legend.Width = 104 !5!~(5(N5(5(J5(q F  & ( * , A F  & ( * ,Ai@;]<= =]@=X=]p===]=]=]>0>]P>h>Annaul+lname of the seriescollection7+l>XlColorIndex.xlColorIndexNone 'markerforgroundcolor for annual +l+l marker size +l marker style +llink color index $B@~)#v$U:$U % %'U3:U '  %.: !J.< FD  <%B.< FResidual <!H( <5J!a7JB@F N9L FChtVLKT :.< :%.>:volume residualVolume < < >APscatterChtDLKT :.< :%.>:duration residualVolume < < >APscatterChtVQKT :.<$ :%.>:volume residualVolume < < >APscatterChtDQKT :.<+ :%.>:duration residualVolume < < >APscattern7J @!(@ V5!(kHq@q8 'n <$N'r  b b 7JB@H 0 b$l9 b$l9h b$l9d b$l9f9 b  0!j b$l9 9 X9vq(k q b 79 FChtVL0Volume Residuals in Natural Log Space (ln(acft))5(d FChtDLe2Duration Residuals in Natural Log Space (ln(days))5(d FChtVQeVolume Residuals (acft)5(d FChtDQeDuration Residuals (days)5(dkTimes New Roman5!j( 5!j(5!j(995!j(#,##05( MsgBox .MaximumScale .ReversePlotOrder = False .CrossesAt = 0.001 .ScaleType = xlLogarithmic .MinimumScale = 1000 .MajorUnit = 1005!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq   79Peak Flow, Qp (cfs)5(dTimes New Roman5!j( 5!j(5!j(99 .ScaleType = xlLogarithmic If int_ChtType = 0 Then  .ReversePlotOrder = True Else  .ReversePlotOrder = False End If#,##05(5!j( .CrossesAt = 0.0001 .MajorUnit = 10 n? r @!%Z99 .MinimumScale = 0.0105!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq9.Legend.Height = 905H(J5H(9 FChtVLLnY='x & x ( 0.0000000$*LnX+ & 0.0000000$ ,R^2= ,0.000$'xd x ( 0.0000000$*LnX & 0.0000000$ ,R^2= ,0.000$'xk85H(N5H( FChtDLeLnY='x & x ( 0.0000000$*LnX+ & 0.0000000$ ,R^2= ,0.000$'xdh x ( 0.0000000$*LnX & 0.0000000$ ,R^2= ,0.000$'xk5H(N5H( FChtVQeY='x ( x & 0.0000000$*X2+ ( 0.0000000$*X'xd@ x & 0.0000000$*X2 ( 0.0000000$*X'xk * x+ * 0.0000000$ ,R^2= ,0.000$'xd x * 0.0000000$ ,R^2= ,0.000$'xk05H(N5H( FChtDQeY='x ( x & 0.0000000$*X2+ ( 0.0000000$*X'xd x & 0.0000000$*X2 ( 0.0000000$*X'xk( * x+ * 0.0000000$ ,R^2= ,0.000$'xd x * 0.0000000$ ,R^2= ,0.000$'xkp5H(N5H(kH x5(d5B@HZ 0( 0(N.Legend.Top = 198.Legend.Left = 380.Legend.Width = 104 !5!~(5(N5(5(J5(qXiP>]???]??]@(@@@]X@]@@@@@A](AHA]hAAnnaul+lname of the seriescollection7+l>XlColorIndex.xlColorIndexNone 'markerforgroundcolor for annual +l+l marker size +l marker style +llink color index $B@~)#v$AT:$AT % %'U3:U '  %.: !J.< FD  <%B.< FNormal <!H( <5J!a7JB@F N9L FChtVLKT :%.<:expected residual :%.>:ordered volume residualVolume < < >APscatterChtDLKT! :%.<: expected :%.>:ordered duration residualVolume < < >APscatterChtVQKT( :%.<:expected% :%.>:ordered volume residualVolume < < >APscatterChtDQKT/ :%.<:expected, :%.>:ordered duration residualVolume < < >APscattern7J @!(@ V5!(kqq  b b 7JB@H 0 b$l9 b$l9h b$l9d b$l9f9 b  0!j b$l9 9 X9vqkq bWith .Axes(xlValue)$ num_maximumScale = .MaximumScale MsgBox .MinimumScale  StopEnd With!With .Axes(xlCategory, xlPrimary), If num_maximumScale < .MaximumScale Then ' num_maximumScale = .MaximumScale End IfEnd With 79 FChtVL0Actual Residuals in Natural Log Space (ln(acft))5(d' FChtDLe0Actual Residuals in Natural Log Space (ln(days))5(d' FChtVQeActual Residuals (acft)5(d' FChtDQeActual Residuals (days)5(d'k؛Times New Roman5!j( 5!j(5!j(995!j(#,##05( .ReversePlotOrder = False .CrossesAt = 0.001 .ScaleType = xlLogarithmic .MaximumScale = num_maximumScale .MinimumScale = 1000 .MajorUnit = 1005!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq8  79 FChtVL2Expected Residuals in Natural Log Space (ln(acft))5(d FChtDLe2Expected Residuals in Natural Log Space (ln(days))5(d FChtVQeExpected Residuals (acft)5(d FChtDQeExpected Residuals (days)5(dkTimes New Roman5!j( 5!j(5!j(99 .ScaleType = xlLogarithmic If int_ChtType = 0 Then  .ReversePlotOrder = True Else  .ReversePlotOrder = False End If#,##05(5!j( .CrossesAt = 0.0001 .MajorUnit = 1005!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq9.Legend.Height = 905H(J5H(9 FChtVLLnY='x & x ( 0.0000000$*LnX+ & 0.0000000$ ,R^2= ,0.000$'xd x ( 0.0000000$*LnX & 0.0000000$ ,R^2= ,0.000$'xk5H(N5H( FChtDLeLnY='x & x ( 0.0000000$*LnX+ & 0.0000000$ ,R^2= ,0.000$'xdȔ x ( 0.0000000$*LnX & 0.0000000$ ,R^2= ,0.000$'xkP5H(N5H( FChtVQeY='x ( x & 0.0000000$*X2+ ( 0.0000000$*X'xd x & 0.0000000$*X2+ ( 0.0000000$*X'xkH * x+ * 0.0000000$ ,R^2= ,0.000$'xd x * 0.0000000$ ,R^2= ,0.000$'xk5H(N5H( FChtDQeY='x ( x & 0.0000000$*X2+ ( 0.0000000$*X'xd x & 0.0000000$*X2+ ( 0.0000000$*X'xk * x+ * 0.0000000$ ,R^2= ,0.000$'xd x * 0.0000000$ ,R^2= ,0.000$'xkА5H(N5H(k x5(d5B@HZ 0( 0(N.Legend.Top = 198.Legend.Left = 380.Legend.Width = 104 !5!~(5(N5(5(J5(q < 7( 7(  7(  7(  7!'  7!' 7!' 7!'8only true if x_min<0 and x_max>0 and y_min<0 and y_max>0   'k   'k   'dX 'k@  7(  7(   7(   7(    CG3 %,    CG3 %,    CG3 %,    CG3 %,   CG3:CG4 %%.>   CG3:CG4 %%.<Volume < < >APscatter7J$@5j( 9 9h @!(@ 5!(k qqiA X5J!P >9R <9T V9qȋqihBwinter regression]hCCCC]CCCD(D@D]XDpD]DD>str_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & int_Period 0OBP 0$'dT 00$P 0$'kpAA' O'0L'K' M'  1$%!X' $B@~)#v$ :$  % %'  %B@H V Tier:; 0 ;Period:; ; Start Season:; ; End Season; ;first rerank the pulses Period Test; b    b  1 %%!X=7!X'2dЇ &:and( b  1 %%!X>=7!X, b  1 %%!X<=7!X)'2k=if( 2,1,"")'2 2 b ; bqk  V  EG1 %%!X'. str_SumCell = "EG1"Date;Qp;Qpy;.Offset(1, 2) = "ln(Qp)"Volume; Vol(ac-ft); Vol(ac-ft)z;.Offset(1, 5) = "ln(Vol)"Qp2;.Offset(1, 9) = "(ln(Qp))2"(Vi)2 ;.Offset(1, 11) = "(LnVi)2"QpVi; (Vi-Vav)2;VolLinp; Vi-VolLinp; (Vi-VolLinp)2;(VolLinp-Vav)2;d  EP1 %%!X'. str_SumCell = "EP1"Duration;Duration{;.Offset(1, 7) = "ln(Duration)"Dur2 ;QpDur; (Di-Dav)2;DurLinp"; Di-DurLinp#; (Di-DurLinp)2$; DurLinp-Dav2%;k b for charting purpose(Peak 1-121, volume 4-122, duration 6-123 V =if(isnumber( b 7!X), 0 b0$,"") b 7(z =if(isnumber( b 7!X),  b0$,"") b 7(z =if(isnumber( b 7!X),  b0$,#N/A) b y7(zz.Offset(i - 1, 2).Formula = "=if(isnumber(" & .Offset(i - 1, -2).Address & "),ln(" & .Offset(i - 1, 1).Address & "),"""")" =if(isnumber( b 7!X),  b0$,"") b 7(z =if(isnumber( b 7!X), b 7!X *1.983471,"") b 7(z =if(isnumber( b 7!X), b 7!X*1.983471,#N/A) b z7(zz.Offset(i - 1, 5).Formula = "=if(isnumber(" & .Offset(i - 1, -2).Address & "),ln(" & .Offset(i - 1, 4).Address & "),"""")"=if( b 7!X="","", b 7!X^2) b 7(zr.Offset(i - 1, 9).Formula = "=if(" & .Offset(i - 1, 0).Address & "="""",""""," & .Offset(i - 1, 2).Address & "^2)"=if( b 7!X="","", b 7!X^2) b 7(zs.Offset(i - 1, 11).Formula = "=if(" & .Offset(i - 1, 0).Address & "="""",""""," & .Offset(i - 1, 5).Address & "^2)"=if( b 7!X="","", b 7!X* b 7!X) b 7(z =if(isnumber( b 7!X),( b 7!X -(average(7!X:  7!X )))^2,"") b 7(z=if( b 7!X="","", . %%!X* b 7!X+ . %%!X) b 7(z=if( b 7!X="","", b 7!X- b 7!X) b 7(z=if( b 7!X="","", b 7!X^2) b 7(z=if( b 7!X="","",( b 7!X -(average(7!X:  7!X)))^2) b 7(z Stopdx =if(isnumber( b 7!X),  b0$,"") b 7(z =if(isnumber( b 7!X),  b0$,#N/A) b {7(zz.Offset(i - 1, 7).Formula = "=if(isnumber(" & .Offset(i - 1, -2).Address & "),ln(" & .Offset(i - 1, 6).Address & "),"""")"=if( b 7!X="","", b 7!X^2) b 7(z=if( b 7!X="","", b 7!X* b 7!X) b 7(z =if(isnumber( b 7!X),( b 7!X -(average(7!X:  7!X )))^2,"") b 7(z=if( b 7!X="","", . %%!X* b 7!X+ . %%!X) b "7(z=if( b 7!X="","", b 7!X- b "7!X) b #7(z=if( b 7!X="","", b #7!X^2) b $7(z=if( b 7!X="","",( b "7!X -(average("7!X:  "7!X)))^2) b %7(z..Offset(i - 1, 42).Formula = "=if(isnumber(" & .Offset(i - 1, -2).Address & ")," & .Offset(i - 1, 1).Address & "*" & ActiveSheet.Range(str_SumCell).Offset(21, 1).Address & "+" & ActiveSheet.Range(str_SumCell).Offset(22, 1).Address & "+" & ActiveSheet.Range(str_SumCell).Offset(29, 1).Address & ","""")"Stopkq bqq summary panel . %B@H %!XGray-25%Significance Probability=Ah %!XTahomaRegularBlue A| . % V7!XTahomaBoldBlack VolumeA|dHp7!XTahomaBoldBlack DurationA|ko7!XGray-25%LinearAh7!XTahomaBoldBlack A|7!XGray-25%y=bx+aAh7!XTahomaBoldBlack A|N=;beta=;alpha=; V=count(  %%!X:    %%!X)7(z=slope(  %%!X:    %%!X,  %%!X:    %%!X)7(z =intercept(  %%!X:    %%!X,  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:   %%!X) 7(z =average(  %%!X:    %%!X) 7(z =average(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=stdev(  %%!X:    %%!X)7(z=stdev(  %%!X:    %%!X)7(z=sqrt(average(  %%!X:    %%!X))7(z=stdev(  %%!X:    %%!X)7(zde=count(  %%!X:    %%!X)7(z=slope(  %%!X:    %%!X,  %%!X:    %%!X)7(z =intercept(  %%!X:    %%!X,  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:   %%!X) 7(z =average(  %%!X:    %%!X) 7(z =average(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum($  %%!X:  $  %%!X)7(z=sum(%  %%!X:  %  %%!X)7(z=stdev(  %%!X:    %%!X)7(z=stdev(  %%!X:    %%!X)7(z=sqrt(average($  %%!X:  $  %%!X))7(z=stdev(#  %%!X:  #  %%!X)7(zk] SUM(Qpi)=; SUM(Voli)=; SUM(Qpi2)= ; SUM(Voli2)= ; (SUM(Qpi))2= ;=7!X*7!X 7(z (SUM(Voli))2= ;=7!X*7!X 7(zQmean= ;Vmean=;SUM(QpiVoli2)=;= 7!X-( 7!X/7!X)7(zSST=;SSE=;= 7!X-(7!X*7!X)-(7!X*7!X)7(zSsreg=;stdevX=;stdevY=;beta =;=((7!X*7!X)-(7!X*7!X))/((7!X* 7!X)- 7!X)7(zalpha =;=7!X-(7!X* 7!X)7(zR2 =;7!XTahomaBoldRedA|=1-(7!X/7!X)7(z7!XTahomaBoldRedA|=7!X/7!X7(z=7!X7(zbeta;alpha;=7!X7(z=7!X7(zLinear;R =;=sqrt(7!X)7(zSigma=;=sqrt(7!X/(7!X-2))7(zSignivicance Prob =;=1-7!X*0.017(z critical t =;=tinv(7!X,7!X)7(zSEE =;7!XTahomaBoldRedA|7!XTahomaBoldRedA|=7!X7(zbeta;alpha;=7!X7(z=7!X7(zLinear; StDevResid =;qSiSDwinter regression]EEEFF]0FHF`FxFFF]FF]FG] G]@G>str_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & int_Period 0OBP 0$'dQT 00$P 0$'kQAA' O'0L'K' M'  1$%!X' $B@~)#v$ :$  % %'  %B@Hneed to calculate this one  EH2 %%!X']XGpGGGGGGHH0H]HH  V  EG31 %%!X'.  EG1 %%!X'Ln(Qp);Ln(Vol); (Ln(Qp))2 ;(LnVi)2 ; Ln(Qp)*Ln(Vi); (LnVi-LnVav)2;LnVolp*; LnVi-LnVolp*;(LnVi-LnVolp)2,;Volp (From Ln)0;Volp (From Ln);Vi-Volp (From Ln)1;(Vi-Volp)2 (From Ln)2; LnLower P.I.3; LnUpper P.I.4; LnLower P.I.; LnUpper P.I.;SimpLnLower P.I.5;SimpLnUpper P.I.6; lnVi-lnVolp;Ordered; Order Number; (Vol-Volp)^2;Expected Residual;dL  EP31 %%!X'.  EP1 %%!X' Ln(Duration);Ln(Dur)2 ;Ln(Qp)*Ln(Dur)2; (LnDi-LnDav)2;LnDurp-; LnDi-LnDurp.;(LnDi-LnDurp)2/;Durp (From Ln)7;Durp (From Ln);Di-Durp (From Ln)8;(Di-Durp)2 (From Ln)9; LnLower P.I.:; LnUpper P.I.;; LnLower P.I.; LnUpper P.I.;SimpLnLower P.I.<;SimpLnUpper P.I.=; LnDi-LnDurp;Ordered; Order Number; (Dur-Durp)^2;Expected Residual;kHI  %%!X'   %%!X'!  %%!X'(  %%!X'-  %%!X'/  %%!X'0  %%!X'5  %%!X'6  %%!X'7  %%!X' b 9V. central tendency 48-130, low pi 51-131, high pi 52-1329D. central tendency 55-133, low pi 58-134, high pi 59-135 V =if(isnumber( b 7!X),ln( b 7!X),"") b 7(z =if(isnumber( b 7!X),ln( b 7!X),"") b 7(z=if( b 7!X="","", b 7!X^2) b 7(z=if( b 7!X="","", b 7!X^2) b 7(z=if( b 7!X="","", b 7!X* b 7!X) b 7(z =if(isnumber( b 7!X),( b 7!X -(average(7!X:  7!X )))^2,"") b 7(z =if(isnumber( b 7!X), b 7!X* . %%!X+ . %%!X,"") b *7(z =if(isnumber( b 7!X), b 7!X- b *7!X,"") b +7(z =if(isnumber( b 7!X), b +7!X^2,"") b ,7(z =if(isnumber( b 7!X),exp( b 7!X* . %%!X+ . %%!X),"") b 07(z =if(isnumber( b 7!X),exp( b 7!X* . %%!X+ . %%!X),#N/A) b 7(z =if(isnumber( b 7!X), b 7!X- b 07!X,"") b 17(z =if(isnumber( b 7!X), b 17!X^2,"") b 27(z =if(isnumber( b 7!X),exp( b 7!X* + - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),"") b 37(z =if(isnumber( b 7!X),exp( b 7!X* + + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),"") b 47(z =if(isnumber( b 7!X),exp( b 7!X* + - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),#N/A) b 7(z =if(isnumber( b 7!X),exp( b 7!X* + + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),#N/A) b 7(z =if(isnumber( b 7!X),exp( b 7!X* + )- ,"") b 57(z =if(isnumber( b 7!X),exp( b 7!X* + )+ ,"") b 67(z .Offset(i - 1, 143).Formula = "=if(isnumber(" & .Offset(i - 1, -2).Address & ")," & .Offset(i - 1, 122).Address & "-" & .Offset(i - 1, 130).Address & ",#N/A)" =if(isnumber( b 7!X), b +7!X,#N/A) b 7(zd7 =if(isnumber( b 7!X),ln( b 7!X),"") b 7(z=if( b 7!X="","", b 7!X^2) b 7(z=if( b 7!X="","", b 7!X* b 7!X) b 7(z =if(isnumber( b 7!X),( b 7!X -(average(7!X:  7!X )))^2,"") b 7(z =if(isnumber( b 7!X), b 7!X* . %%!X+ . %%!X,"") b -7(z =if(isnumber( b 7!X), b 7!X- b -7!X,"") b .7(z =if(isnumber( b 7!X), b .7!X^2,"") b /7(z =if(isnumber( b 7!X), b 17!X^2,"") b 27(z =if(isnumber( b 7!X),exp( b 7!X* . %%!X+ . %%!X),"") b 77(z =if(isnumber( b 7!X),exp( b 7!X* . %%!X+ . %%!X),#N/A) b 7(z =if(isnumber( b 7!X), b 7!X- b 77!X,"") b 87(z =if(isnumber( b 7!X), b 87!X^2,"") b 97(z =if(isnumber( b 7!X),exp( b 7!X* + - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),"") b :7(z =if(isnumber( b 7!X),exp( b 7!X* + + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),"") b ;7(z =if(isnumber( b 7!X),exp( b 7!X* + - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),#N/A) b 7(z =if(isnumber( b 7!X),exp( b 7!X* + + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1)),#N/A) b 7(z =if(isnumber( b 7!X),exp( b 7!X* + )- ,"") b <7(z =if(isnumber( b 7!X),exp( b 7!X* + )+ ,"") b =7(z .Offset(i - 1, 150).Formula = "=if(isnumber(" & .Offset(i - 1, -2).Address & ")," & .Offset(i - 1, 123).Address & "-" & .Offset(i - 1, 133).Address & ",#N/A)" =if(isnumber( b 7!X), b .7!X,#N/A) b 7(zk@) bq() . %B@H . %7!XGray-25%Ln/LnAh7!XTahomaBoldBlack A|7!XGray-25% Lny=bLnx+aAh7!XTahomaBoldBlack A|N=;beta=;alpha=; V=count(  %%!X:    %%!X)7(z=slope(  %%!X:    %%!X,  %%!X:    %%!X)7(z =intercept(  %%!X:    %%!X,  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:   %%!X)7(z=sum(  %%!X:   %%!X)7(z =average(  %%!X:    %%!X) 7(z =average(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(,  %%!X:  ,  %%!X)7(z .Offset(15, 1).Formula = "=sum(" & ActiveSheet.Range(str_TPStart).Offset(2, 29).Address & ":" & ActiveSheet.Range(str_TPStart).Offset(int_RngLimit - 1, 29).Address & ")"=stdev(  %%!X:    %%!X)7(z=stdev(  %%!X:    %%!X)7(z=sqrt(average(2  %%!X:  2  %%!X))7(z=sqrt(average(,  %%!X:  ,  %%!X))7(z=stdev(1  %%!X:  1  %%!X)7(zd0=count(  %%!X:    %%!X)7(z=slope(  %%!X:    %%!X,  %%!X:    %%!X)7(z =intercept(  %%!X:    %%!X,  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:   %%!X)7(z=sum(  %%!X:   %%!X)7(z =average(  %%!X:    %%!X) 7(z =average(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(/  %%!X:  /  %%!X)7(z .Offset(15, 1).Formula = "=sum(" & ActiveSheet.Range(str_TPStart).Offset(2, 29).Address & ":" & ActiveSheet.Range(str_TPStart).Offset(int_RngLimit - 1, 29).Address & ")"=stdev(  %%!X:    %%!X)7(z=stdev(  %%!X:    %%!X)7(z=sqrt(average(9  %%!X:  9  %%!X))7(z=sqrt(average(/  %%!X:  /  %%!X))7(z=stdev(8  %%!X:  8  %%!X)7(zk SUM(Ln(Qpi))=;SUM(Ln(Duri))=; SUM(Qpi2)=; SUM(Duri2)=; (SUM(Qpi))2=;=7!X*7!X7(z (SUM(Voli))2= ;=7!X*7!X 7(zLnQmean= ; LnDurmean= ;SUM(LnQpiLnduri)= ;SST= ;=7!X-( 7!X/7!X) 7(zSSE=;=7!X-(7!X*7!X)-(7!X* 7!X)7(zstdevX=;stdevY=;beta =;=((7!X* 7!X)-(7!X*7!X))/((7!X*7!X)-7!X)7(zalpha =;= 7!X-(7!X* 7!X)7(zR2 =;7!XTahomaBoldRedA|=1-(7!X/ 7!X)7(z7!XTahomaBoldRedA|=1-7!X/ 7!X7(z=7!X7(zbeta;alpha;=7!X7(z=7!X7(zLn;R =;=sqrt(7!X)7(zSigma=;=sqrt(7!X/(7!X-2))7(zSignivicance Prob =;=1- *0.017(z critical t =;=tinv(7!X,7!X)7(zSEE =;7!XTahomaBoldRedA|7!XTahomaBoldRedA|=7!X7(zbeta;alpha;=7!X7(z=7!X7(zLn; StDevResid =;q  %B@H now compute residuals B@ V7!X:  7!X %. rng_Copy.Calculate B@7B@H \  0B@7!X:  7!X %. %6   B@  %B@H b / If str_ShtTP = "T4P4" Then Stop b 7$ b b ;= b 7!X* b 7!X b 7(zdyk b b '=sum(7!X:  7!X )/(count(7!X:  7!X)-2)7(z b =sqrt(7!X )*normsinv(( b 7!X-0.375)/(count(7!X:  7!X)+0.25)) b 7(z bdP7!X:  7!X %. B@7B@H \  0B@7!X:  7!X %. %6   B@  %B@H b  b 7$ b b ;= b 7!X* b 7!X b 7(zdpyhk` b b '=sum(7!X:  7!X )/(count(7!X:  7!X)-2)7(z b =sqrt(7!X )*normsinv(( b 7!X-0.375)/(count(7!X:  7!X)+0.25)) b 7(z bkqi`Hwinter regression]`IxIIII]IIJ J8JPJ]hJJJJJ]J K]XKpKK]K>str_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & int_Period 0OBP 0$'dPT 00$P 0$'kAA' O'0L'K' M'  1$%!X' $B@~)#v$ :$  % %'  %B@Hneed to calculate this one  EH2 %%!X']KKKL L8LPLhLLL  V  EG58 %%!X'.  EG1 %%!X'Qp3;Qp4;Qp2Vi; QuadVolp2>; QuadVolp2; vi-QuadVolp?;(Vi-QuadVolp)2@;QuadLower P.I.A;QuadUpper P.I.B;QuadLower P.I.;QuadUpper P.I.;SimpQuadLower P.I.C;SimpQuadUpper P.I.D; Vol-QuadVolp;Orderedp; Order Number;(Vol-QuadVolp)2;Expected Residual;d  EP58 %%!X'.  EP1 %%!X'Qp2Dur;QuadDurpE;QuadDurp; Di-QuadDurpF;(Di-QuadDurp)2G;QuadLower P.I.H;QuadUpper P.I.I;QuadLower P.I.;QuadUpper P.I.;SimpQuadLower P.I.J;SimpQuadUpper P.I.K; Dur-QuadDurp;Ordered; Order Number;(Dur-QuadDurp)2;Expected Residual;kH:  %%!X'B  %%!X'C  %%!X'M  %%!X'N  %%!X'O  %%!X'W  %%!X'X  %%!X'Y  %%!X' b  for charting'V: center 62-136,low 65-137,high 66-138)D: center 69-139, low 72-140, high 73-141 V=if( b 7!X="","", b 7!X^3) b 7(z=if( b 7!X="","", b 7!X^4) b 7(z=if( b 7!X="","", b 7!X* b 7!X) b 7(z =if(isnumber( b 7!X),( . %%!X*( b 7!X^2))+( . %%!X* b 7!X)+ . %%!X,"") b >7(z =if(isnumber( b 7!X),( . %%!X*( b 7!X^2))+( . %%!X* b 7!X)+ . %%!X,#N/A) b 7(z =if(isnumber( b 7!X), b 7!X- b >7!X,"") b ?7(z =if(isnumber( b 7!X), b ?7!X^2,"") b @7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2* )+1),"") b A7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2* )+1),"") b B7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1),#N/A) b 7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1),#N/A) b 7(z =if(isnumber( b 7!X), b >7!X- ,"") b C7(z =if(isnumber( b 7!X), b >7!X+ ,"") b D7(z =if(isnumber( b 7!X), b z7!X- b 7!X,#N/A) b 7(zd =if( b 7!X="","", b 7!X* b 7!X) b 7(z =if(isnumber( b 7!X),( . %%!X*( b 7!X^2))+( . %%!X* b 7!X)+ . %%!X,"") b E7(z =if(isnumber( b 7!X),( . %%!X*( b 7!X^2))+( . %%!X* b 7!X)+ . %%!X,#N/A) b 7(z =if(isnumber( b 7!X), b 7!X- b E7!X,"") b F7(z =if(isnumber( b 7!X), b F7!X^2,"") b G7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2* )+1),"") b H7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2* )+1),"") b I7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ - * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1),#N/A) b 7(z =if(isnumber( b 7!X),( * b 7!X^2)+ * b 7!X+ + * *sqrt( /(  -2))*sqrt(1/ +( b 7!X- )^2/( ^2*  )+1),#N/A) b 7(z =if(isnumber( b 7!X), b E7!X- ,"") b J7(z =if(isnumber( b 7!X), b E7!X+ ,"") b K7(z =if(isnumber( b 7!X), b {7!X- b 7!X,#N/A) b 7(zk bq . %B@H . %7!XGray-25% QuadraticAh7!XTahomaBoldBlack A|7!XGray-25% y=ax2+bx+cAh7!XTahomaBoldBlack A|N=; V=count(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z =average(  %%!X:    %%!X) 7(z=stdev(  %%!X:    %%!X) 7(z=stdevp(  %%!X:    %%!X)^27(z =average(@  %%!X:  @  %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(@  %%!X:  @  %%!X)7(z=sqrt(average(@  %%!X:  @  %%!X))7(z=stdev(?  %%!X:  ?  %%!X) 7(zd=count(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z =average(  %%!X:    %%!X) 7(z=stdev(  %%!X:    %%!X) 7(z=stdevp(  %%!X:    %%!X)^27(z =average(G  %%!X:  G  %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(G  %%!X:  G  %%!X)7(z=sqrt(average(G  %%!X:  G  %%!X))7(z=stdev(F  %%!X:  F  %%!X) 7(zk@ SUM(Qpi)=; SUM(Qpi2))=; SUM(Qpi3)=; SUM(Qpi4)=; SUM(Duri)=;(SUM(QpiDuri))=;(SUM(Qpi2Duri))=;Qmean= ;stdevX= ;Matrix ;=7!X 7(z=eh61=7!X7(z=eh62=7!X7(z=eh63=7!X 7(z=eh60=7!X7(z=eh61=7!X7(z=eh62=7!X 7(z=eh59=7!X7(z=eh60=7!X7(z=eh61=7!X 7(z=eh64=7!X7(z=eh65=7!X7(z=eh66 =minverse( 7!X:7!X)7(z7!X:7!X %B@H =minverse( 7!X:7!X) 0(a =;b =;c =;=mmult(7!X:7!X, 7!X:7!X)7(z7!X:7!X %B@H=mmult(7!X:7!X, 7!X:7!X) 0(Observed Variance=;Residual Variance=;SST=;SSE=;R2 =;7!XTahomaBoldRedA|=(7!X-7!X)/7!X7(z7!XTahomaBoldRedA|=1-(7!X/7!X)7(z=7!X7(zbeta;alpha;=7!X7(z=7!X7(z=7!X7(zQuad;R =;=sqrt(7!X)7(zSignivicance Prob =;=1- *0.017(z critical t =;=tinv(7!X,7!X)7(zSEE =;7!XTahomaBoldRedA|7!XTahomaBoldRedA|=7!X7(za;b;c;=7!X7(z=7!X7(z=7!X7(zQuad; StDevResid = ;q  %B@H  B@ V7!X:  7!X %. B@7B@H \  0B@7!X:  7!X %. %6   B@  %B@H b  b 7$ b b ;= b 7!X* b 7!X b 7(zdyk b b ' MsgBox "=sum(" & .Offset(2, 160).Address & ":" & .Offset(int_i - 1, 160).Address & ")/(count(" & .Offset(2, 160).Address & ":" & .Offset(int_i - 1, 160).Address & ")-2))"=sum(7!X:  7!X )/(count(7!X:  7!X)-2)7(z b =sqrt(7!X )*normsinv(( b 7!X-0.375)/(count(7!X:  7!X)+0.25)) b 7(z bd7!X:  7!X %. B@7B@H \  0B@7!X:  7!X %. %6   B@  %B@H b  b 7$ b b ;= b 7!X* b 7!X b 7(zdyk b b '=sum(7!X:  7!X )/(count(7!X:  7!X)-2)7(z b =sqrt(7!X )*normsinv(( b 7!X-0.375)/(count(7!X:  7!X)+0.25)) b 7(z bkػqлiȻLwinter regression]MMMM]N(N@NXNpNN]NN]NN]O>str_ShtTP = "T" & Format(int_Tier + 1, "0") & "P" & int_Period 0OBP 0$'dT 00$P 0$'kxAA' O'0L'K' M'  1$%!X' $B@~)#v$ :$  % %'  %B@Hneed to calculate this one  EH2 %%!X'  V  EG91 %%!X'. PowerVolpL; Vi-PowerVolpM;(Vi-PowerVolp)2N;(Ln(Vi)-Ln(PowerVolp))2O;dP  EP91 %%!X'. PowerDurpT; Di-PowerVolpU;(Di-PowerVolp)2V;(Ln(Di)-Ln(PowerVolp))2W;k b  Stop V =if(isnumber( b 7!X), . %%!X* b 7!X^ . %%!X,"") b L7(z =if(isnumber( b 7!X), b 7!X- b L7!X,"") b M7(z =if(isnumber( b 7!X), b M7!X^2,"") b N7(z =if(isnumber( b 7!X),( b 7!X-ln( b L7!X))^2,"") b O7(zd =if(isnumber( b 7!X), . %%!X* b 7!X^ . %%!X,"") b T7(z =if(isnumber( b 7!X), b 7!X- b T7!X,"") b U7(z =if(isnumber( b 7!X), b U7!X^2,"") b V7(z =if(isnumber( b 7!X),( b 7!X-ln( b T7!X))^2,"") b W7(zk0 bq . %B@H . %7!XGray-25%PowerAh7!XTahomaBoldBlack A|7!XGray-25%y=AxBAh7!XTahomaBoldBlack A|N=; V=count(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:   %%!X) 7(z =average(  %%!X:    %%!X)7(z=stdev(  %%!X:    %%!X)7(z=slope(  %%!X:    %%!X,  %%!X:    %%!X)7(z =intercept(  %%!X:    %%!X,  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(O  %%!X:  O  %%!X)7(z=sqrt(average(N  %%!X:  N  %%!X))7(z=stdev(M  %%!X:  M  %%!X)7(zd=count(  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:    %%!X) 7(z=sum(  %%!X:   %%!X) 7(z =average(  %%!X:    %%!X)7(z=stdev(  %%!X:    %%!X)7(z=slope(  %%!X:    %%!X,  %%!X:    %%!X)7(z =intercept(  %%!X:    %%!X,  %%!X:    %%!X)7(z=sum(  %%!X:    %%!X)7(z=sum(W  %%!X:  W  %%!X)7(z=sqrt(average(V  %%!X:  V  %%!X))7(z=stdev(U  %%!X:  U  %%!X)7(zkSUM(LnQpiLnVoli)= ; SUM(LnQpi)= ; SUM(LnVoli)= ;(SUM(LnQpi)2)= ;(SUM(LnQpi))2= ;= 7!X* 7!X 7(zbeta =;=(7!X* 7!X-( 7!X* 7!X))/((7!X* 7!X)- 7!X)7(zalpha =;=( 7!X-7!X* 7!X)/7!X7(zA =;=exp(7!X)7(zB =;=7!X7(zQpmean=;stdevx=;Slope =; Intercept =;SST =;SSE =;B;A;R2 =;7!XTahomaBoldRedA|=1-(7!X/7!X)7(z7!XTahomaBoldRedA|=7!X7(z=7!X7(z=7!X7(zPower;R =;=sqrt(7!X)7(zSignivicance Prob =;=1- *0.017(z critical t =;=tinv(7!X,7!X)7(zSEE =;7!XTahomaBoldRedA|7!XTahomaBoldRedA|=7!X7(zbeta;alpha;=7!X7(z=7!X7(zPower; StDevResid =;qКiȚO$find peak value with given frequency"if not found, then put the freq in]O]OOOO]P0PPPpP]PPPPPQ Q]8QAA'  as alwaysM'T'HFP_OBF_frequency' !' $B@~)#v$ :$  % %'  3:  7. 3:  7.  3:  7.  %. ( MsgBox rng_SeasonRankCol.Address  calculate annual lambda position  17%!X'  7%!'  7%!'      ? '  #NA'dX   % '   7!'kd calculate season lambda position     17%!X'  7%!'  7%!'      ? '  #NA'd   % ' [ away from M3   7!'kkq  $B@~iPQ$find peak value with given frequency"if not found, then put the freq in]QQR0RPR]pRRRR]RRSS0SHS`SAA'  as alwaysM'T'HFP_OBF_frequency']xS !' $B@~)#v$ :$  % %'  3:  7. 3:  7.  3:  7.  %.  3:  %!  7.  calculate annual lambda position  17%'  7%!'  7%!'  check if lamba is correct   % '    ?  ' d calculate season lambda position     17%!X'  7%!'  7%!'  check if lamba is correct    $   % '    ?  ' kq  $B@~iS] 8T!up to 12 seasons, 0 is for annual]xT marker styles!Application.DisplayAlerts = FalseAnnual+lname of the seriescollection7+l>XlColorIndex.xlColorIndexNone 'markerforgroundcolor for annual7+l+l marker size +l marker style b b  b $ b+ldseason b$ +lk b2+l2+l+l marker size +l marker style+l3XlColorIndex.xlColorIndexNone 'markerforgroundcolor+l+l marker size " +l! marker style !+l4markerforgroundcolor5+l+l marker size $ +l marker style !+l4markerforgroundcolor+l+l marker size & +l marker style+lmarkerforgroundcolor+l+l marker size +l marker style+lmarkerforgroundcolor+l+l marker size " +l! marker style !+l4markerforgroundcolor+l+l marker size $ +l marker style !+l4markerforgroundcolor+l+l marker size & +l marker style +lmarkerforgroundcolor +l +l marker size +l marker style +lmarkerforgroundcolor +l +l marker size " +l" marker style ! +l5markerforgroundcolor +l +l marker size $ +l marker style ! +l5markerforgroundcolor +l +l marker size & +l marker style With objChart 5H(N25o5H(J4685H(6005H!chtFreq25H(dX5H(k !5!~(#5(N85(+5(J5( b  b 7J b$l9 b$l9h b$l9d b$l9fq b9B8Metadata$%5(d95( (N198Z5( (J !H!chtFreq)5( (380d5( (k_5( ( 79Peak Flow, Qp (cfs)5(dTimes New Roman5!j( 5!j(5!j(99 5!j(05(9* MbP?9, 0 9. &9 92 05!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq  79  Frequency (per period)5(dd(Recurrence Interval (period)5(dkTimes New Roman5!j( 5!j(5!j(99 0 9.  9* d9* kp0.0005( 5!j(-C6?9, 92 .MaximumScale = 10 .MinimumScale = 0.0105!j(3set color to gray 9.MinorGridlines.Border.ColorIndex = 48 'set color to grayq5(qpihT]U(U@U]XU]xUUU]UUV V]8VPV-Please Wait. Currently Processing Frequencies in   Worksheet. @(create worksheet $P A@ A@*dH A@*k0 B@H%@ 0(2P ,(4 panel 1,2 A1K1AF rose, sort, rank, log K1T1U1AH frequency array Y1AA1 6 AJ y4:z15$.6 AA1 6 AL 7Annual frequency, column need to reflect chosen seasons $B@~AA1 %B@HOcalculate staring cell for annual frequency matrix, based on 4 seasons at "AI1"  %!X'`  `MTAASy23y24y25AN &seasonal frequency, 4 seasons at "AI1" b  b    'D  b D `$%!XMTAAzy23y24y25AP bdonei}hV]WXX0X]HXhXXX $B@~ `$B@H]X)#v$ :$  % %' 3:   %.  3:   %. 3:   %. R 3: R   %.Z Turqoise it !X: %!XTurqoiseAh !XTurqoiseFREQUENCY WITHIN  $ PERIODAhseasonSeason ,  ,annual peak count titles %!XWhiteYear jAh %!XWhiteAnnual jAh %!XWhite CountPeaks jAh+populate start and end year, and peak count]i = Year(Application.WorksheetFunction.Min(ActiveWorkbook.Sheets("daily efcs").Range("a:a")))]j = Year(Application.WorksheetFunction.Max(ActiveWorkbook.Sheets("daily efcs").Range("a:a")))]X daily efcs @%.^ bA:A ^ %!!A b ^ %Gyj ba b  ^ %$'a3 ^ %$'b  b    b , =sum(if(( !X=  b $!X)*( %!X= %!X), %!X))/ %!X  b  %(  right most 2 titles and contents %!XWhitelambda b Ah %!XWhiteN = CountPeaks b Ah =average(  %!X:  b  %!X) %(z=sum(  %!X:  b  %!X) %(z %!XGreenTAh %!XGreenfAh %!XGreenQAhCall Func_CellMergeWrapColorAlignment(ActiveCell.Offset(1, 8).Address & ":" & ActiveCell.Offset(1, 10).Address, False, True, "Yellow", "FPOT Season" & Format(int_Season, "0")) %!X: %!XBottom x pBlackAlcontentsY29'\   =if(isnumber(   1$%!X), %!X/( %!X*( %!X+0.5-   1$%!X)), \ )   %(z =if(isnumber(   %!X),1/   %!X, \ )  %(zDRO 6/22/09 changed "int_count + 1" to simply int_counter in next line of code because it seemed to be referring to the wrong roworiginal code: ActiveCell.Offset(int_Counter - 1, 10).Formula = "=if(isnumber(" & ActiveCell.Offset(int_Counter - 1, 8).Address & ")," & str_Peak_col & Format(int_Counter + 1, "0") & "," & str_Null_cell & ")" new DRO code: =if(isnumber(   %!X),  0$, \ )  %(z middle titles and contents1, 0.25, 0.5, 0.75 percentiles %!XWhite Percentile jAh %!XWhiteQpeak jAh %!XWhitej = Rank jAh %!XWhite T, = Period jAh %!XWhitef = 1/T jAh %!X: %!XBottom x pBlackAlcontents= T  %(z= V  %(z= X  %(z =percentileweibull(if(( %!X= %!X), !X),   %!X)   %( =vlookup(   %!X,if(  1$%!X:   1$%!X, 3:   1$%!X),17+ )   %(= %!X/( %!X*( %!X+0.5-   %!X))   %(z=1/   %!X   %(z  Other Pulses , %!XTahomaBoldBlue0.1A|  %!XTahomaBoldBlue0.2A|  %!XTahomaBoldBlue0.333A|  %!XTahomaBoldBlue0.4A|  %!XTahomaBoldBlue0.5A|  %!XTahomaBoldBlue0.6A| %!XTahomaBoldBlue1A| %!XTahomaBoldBlue1.33A| %!XTahomaBoldBlue1.5A| %!XTahomaBoldBlue1.667A| %!XTahomaBoldBlue2A| %!XTahomaBoldBlue2.33A| %!XTahomaBoldBlue2.5A| %!XTahomaBoldBlue2.667A| =percentrank(if(( %!X= %!X), !X),   %!X)   %(=offset( 3$!X,match(   %!X,  %!X),0,1,1)   %(z=-( %!X/ %!X/   %!X-0.5- %!X)   %(z=1/   %!X   %(zStop  season titles StopicY( str_Start_cell = AI1 based on 4 seasons5str_Peak_col="M", str_Rank_col="T", str_Year_col="AA"]`ZxZZZ]ZZ[ [ $B@~ `$B@H)#v$ :$  % %' 3:   %.  3:   %. 3:   %. R 3: R   %.Z format titlegreen it !X: %!X Bright GreenAh first cell !X Bright GreenFREQUENCY WITHIN ANNUAL PERIODAhleft most 2 titles %!XWhitelambda d Ah %!XWhiteN = CountPeaks b AhStopcontents =average(  %!X:   %!X) %(z=sum(  %!X:   %!X) %(zannual peak count titles %!XWhiteyear jAh %!XWhiteAnnual jAh %!XWhite CountPeaks jAh+populate start and end year, and peak countStop]@[ daily efcs @%.^ bA:A ^ %!!A b ^ %Gyj ba b  ^ %$'a3 ^ %$'b  b    b , =countif( !X,  b %!X)  b  %(z Stopright most 2 titles %!XGreenTAh %!XGreenfAhCall Func_CellMergeWrapColorAlignment(ActiveCell.Offset(1, 8).Address & ":" & ActiveCell.Offset(1, 9).Address, False, True, "Yellow", "FPOT Annual") %!X: %!XBottom x pBlackAlcontents  = %!X/( %!X*( %!X+0.5-  0$))   %(z=1/   %!X  %(z Stopmiddle titles and contents1, 0.25, 0.5, 0.75 percentiles %!XWhite Percentile jAh %!XWhiteQpeak jAh %!XWhitej = Rank jAh %!XWhite T, = Period jAh %!XWhitef = 1/T jAh %!X: %!XBottom x pBlackAlcontents= T  %(z= V  %(z= X  %(zStop  =percentile( !X,   %!X)   %(z =vlookup(   %!X, !X: !X,8 )   %(z= %!X/( %!X*( %!X+0.5-   %!X))   %(z=1/   %!X   %(z Stop2, Smallest OBFs titles %!XWhite Smallest OBFs jAh %!X: %!XBottom f pBlackAlcontents =percentrank( !X, %!X) %(z =min(if(( Z !X="OBFS"), !X)) %( =vlookup( %!X, 3:  ,8) %(z= %!X/( %!X*( %!X+0.5- %!X)) %(z=1/ %!X %(zStop%5 other floods, 0.5. 1, 1.5, 2, 1.667  %!XTahomaBoldBlue0.5A|  %!XTahomaBoldBlue1A| %!XTahomaBoldBlue1.5A| %!XTahomaBoldBlue2A| %!XTahomaBoldBlue1.667A|Stop btitle =concatenate( b   %!X,"-year flood") b   %(z b   %!X: b   %!XBottom f pBlackAlcontents=1/ b   %!X b   %(z=-( %!X/ %!X/ b   %!X- %!X-0.5) b   %(z=offset( 3$!X,match( b   %!X, !X),0,1,1) b   %(z =percentrank( !X, b   %!X) b   %(z b seasonal HFPsEchanged mind, just provide users a place to play with frequency-peakQ| Call Func_CellMergeWrapColorAlignment(ActiveCell.Offset(19, 4).Address, False, True, "White", "Seasonal HFPs", xlCenter) %!XWhiteAlternative HFPs jAh %!X: %!XBottom f pBlackAl %!XTahomaBoldBlue0.2A| %!XTahomaBoldBlue0.5A| %!XTahomaBoldBlue0.6A| %!XTahomaBoldBlue1A| %!XTahomaBoldBlue1.5A| %!XTahomaBoldBlue2A|Cto facilitate the user to play with a number of floods, input in AM b=1/ b  %!X b  %(z=-( %!X/ %!X/ b  %!X- %!X-0.5) b  %(z=offset( 3$!X,match( b  %!X, !X),0,1,1) b  %(z =percentrank( !X, b  %!X) b  %(z Stop bStopiH`[]\ \8\]P\h\ $B@~ h %B@Hformat the title !X:  %!XRoseAh b  b b , b %!XTahomaRegularBlueA| Season Rank b , %!X:  %!XWhite Season Rank j jAh b %!XWhiteyearPeak j jAh %!XWhite seasonPeak j jAh %!XWhite monthPeak j jAh %!X:  %!XBottom x pBlackAl put in data)#vK:K % %' %!X:  %!X'l b ~Year(Application.WorksheetFunction.Min(Range(str_pulse_Col))) To Year(Application.WorksheetFunction.Max(Range(str_pulse_Col)))=year( b  %!X) b %(z =vlookup( b  %!X, 6 !X,2) b  %(z=month( b  %!X) b  %(z   b=if( %!X=  %!X,1,"")  %(zdHB=if( b  %!X=  %!X,max(  %!X: b  %!X)+1,"") b  %(zkXA  bi0A\]@]]X]]x]]]]]]] $B@~*rose columns 1-5 of panel starting from K1 & %B@H)#v &$: &$ % %' %!X:   %!X %.< < B@H < !XRoseAhsort the panel &$%!X:   &$%!X %.< < B@H < %6  t  < B@put rank on column "T" str_Dest_range = "T1" n %B@H !XRoseAh %!X Light Yellow Annual RANK j jAh , %!X:  %!X %B@H z x | l ~ ZV 0B@v red the next 3 columns str_Dest_range = "U1" p %B@H !X:   %!XRedAhLogD p %%(LogV p %%(LogQp p %%(put in log fromula  4  =log( 4     p $%!X) 4   p $%(z 4 i;]]^^]^title formatting str_Dest_range = "Y1" $B@~ h %B@H %!X: %!XRoseAh %!XRoseSeason Definition j jAhboder xldoubleiFunction Func_CellBorders(str_RngAdd, var_Border, var_BorderLineStyle, var_BorderWeight, str_BorderColor) %!X: %!XBottom x pBlackAl %!XWhiteMonth j jAh %!XWhiteSeason j jAhput month and season b b b ,n06/26/09 DRO comment out this IF statement and subsequent ActiveCell.offset because it's not working correctly If i = 12 Then j = 0 Else j = i End Ifh ActiveCell.Offset(2 + i, 1) = arr_SeasonsAndMonths(j, 4) 'season order corresponding to month ix06/26/09 Begin DRO New Code: Find row (j) corresponding to month i (e.g., when i = 1, we're looking for the January row)  $ bGyj  $ b  ,A%season order corresponding to month iEnd of 06/26/09 DRO new code b  %!XTahomaRegularBlueA| Stop bset up season range %: % %.6 Oput minYear, MaxYear, countYear, count_peaks, Percentiles of interest,Null CellminYear ,maxYear , countYear , countPeaks ,Percentile of Interest ,Cqlu,4/17/2009,changed hard coded hydrologic condition to user input  ,  ,  ,Stopu Function Func_CellFonts(str_RngAdd, str_FontName, str_FontStyle, str_FontColor, int_FontSize, Optional var_Value) b b %!XTahomaBoldBlueA| b Null Cell ,#N/A , %!XTahomaRegularBlueA| Call Func_CellMergeWrapColorAlignment(ActiveCell.Offset(22, 0).Address & ":" & ActiveCell.Offset(24, 0).Address, False, False, "Rose")put in calculation)#vA:A % %'=YEAR(MIN('daily efcs'!A:A)) %(z=YEAR(MAX('daily efcs'!A:A)) %(z= %!X- %!X+1 %(z=count( $%!X:  $%!X) %(ziH0^]_]__]_]`]`0`]H`]``]x` $B@~ $B@H"str_source_Cell = "A1"]` List of HFPs and Overbank events'J Gray-25% J d jAhnumeric is hard coded here$copy high flow pulses picked earlierHFPS$B@~)#v$A:$A % %' $%!X'> AA2 > :   $%!X'> > %.8 8 B@paste 8 %!X'> $B@~ > %B@H B@put the symble "HFP"Source Worksheet $%()#v$A:$A % %'HFPS $%!X:   $%!X$(copy over bank pulsesOBFS' $B@~A2$)#v$A:$A % %' $%!X'@ EA2 @ :   $%!X'@ A2:G $.: : B@ $B@~)#v$A:$A % %'  : %!X'@ @ %B@H B@put OBF symble)#v$A:$A % %'OBFS  $%!X:   $%!X$(d* $B@~)#v$A:$A % %'kX* format the title $%!X: $%!X' Grey-25%Ahcopy to K2.K& int_RngLimit'RANKED list of HFPs and Overbank events'J h Gray-25% J d jAh G 'jA2:I $!X' %B@ h %%B@H B@i(` @( @( Creating the Flow matrices...... @( FlwMtxMnthlyA1Monthlyac-ftA FlwMtxSeasonalA1Seasonalac-ftA FlwMtxSeasonalAl FlwMtxMnthlyAl daily efcs$B@Hpct$Ppct$ daily efcs$B@d 5IHA sheets don't exist, so move "daily efcs" to front$N daily efcs$B@k'HFPS$B@H daily efcs$HFPS$B@OBFS$B@HHFPS$OBFS$B@ BaseFlows$B@H daily efcs$ BaseFlows$B@pct$Pmsg$Pmsg$B@Hpct$msg$B@k% BaseFlowsPlot$B@H BaseFlows$ BaseFlowsPlot$B@Metadata$B@H daily efcs$Metadata$B@FlwMtxSeasonal$B@H Dark Blue$ FlwMtxMnthly %!b(Metadata$ FlwMtxMnthly$B@ Dark Blue$FlwMtxSeasonal %!b( FlwMtxMnthly$FlwMtxSeasonal$B@Gold$ BaseFlows %!b(Gold$ ZeroFlows %!b(Gold$SubsistenceDurations %!b(Gold$HFPS %!b(Gold$OBFS %!b(Gold$ BaseFlowsPlot %!b(lavender$Metadata %!b(Gold$ FDC_Calcs %!b(Gold$ FlwDurCur %!b(Metadata$Inputs$B@lavender$Inputs %!b( @( @( @(o!`Q Call Func_FlowMatrixMonthlySeasonal("FlwMtxMnthly", "A1", "Monthly", "ac-ft") @( @(&Creating and Updating Summary Table in  @(]a]aaa' $P A@ A@*d A@*k $B@~ &$B@H/qlu, define data areas to allow variable seasonFneed to consider number of seasons and number of months in each season]b b8bPbhb peak_area = "O4:R6" volume_area_dsf = "O12:R14" volume_area_acft = "U12:X14" duration_area = "O20:R22" frequency_area = "O28:R30" 2$%!X:  2$%!X'f  2$%!X:  2$%!X'h  2$%!X:  2$%!X'j 2$%!X:  2$%!X'l 2$%!X:  2$%!X'd ^MonthlyKT &$!X OBFSK2:K6A [fixed, no need to change qlu `dfs &$%!XHFPS  f h l dA  `ac-fte &$%!XHFPS  f j l dA k@=qlu, changed baseflow starting cell to offset 13 instead of 7 &$%!XH22:AE24 BaseFlows AnEqlu, changed subsistenceflow starting cell to offset 19 instead of 13 &$%!X  BaseFlowsMonthlyH20:AE20ApFqlu, changed flowmatrixtitles starting cell to offset 20 instead of 14  &$%!X `ArSeasonalKT &$!X OBFSK2:K6A  `dfs &$%!XHFPS  f h l dA  `ac-fte &$%!XHFPS  f j l dA k=qlu, changed baseflow starting cell to offset 13 instead of 7  &$%!XH11: H11$%!X BaseFlowsAtEqlu, changed subsistenceflow starting cell to offset 16 instead of 10 &$%!X  BaseFlowsSeasonalH9: H9$%!XApFqlu, changed flowmatrixtitles starting cell to offset 17 instead of 11  &$%!X `ArnA:A$6B@H 0(8 &$B@Hthat's the end of itiPb @( @(] c8c $B@~ &$B@Hqlu, changed the loop logic]Pchc]c'b  /instead 12 Step 3* b &$%!X: b  $  &$%!XTahomaBoldWhite A|* b &$%!X: b  $  &$%!XRight pWhiteAl* b &$%!X: b  $  &$%!XTop pWhiteAl*0 b &$%!X: b  $  &$%!X Dark Blue  Full$  j jAhint_tmp = int_tmp + 2 b  $ 'bFqlu, changed hard coded season name to name from seasonsandmonth array'  / instead of 12 Select Case int_Counter Case 1 To 3@qlu, add this line to make width of a single month season proper  $G  &$%(8j b  $  '  &$%!XTahomaBoldWhite A|  &$%!XRight pWhiteAl0  &$%!X Dark Blue   $ bShort$  j jAh b Case 4 To 6u Call Func_CellFonts(Range(str_DestCell).Offset(0, int_Counter).Address, "Tahoma", "Bold", "White", 9){ Call Func_CellBorders(Range(str_DestCell).Offset(0, int_Counter).Address, "Right", xlDash, xlThin, "White")|7 Call Func_CellMergeWrapColorAlignment(Range(str_DestCell).Offset(0, int_Counter).Address, False, False, "Dark Blue", Func_SeasonsToMonths(arr_SeasonsAndMonths, arr_SeasonsAndMonths(int_Counter - 1, 1), int_Counter - 3, "Short"), xlCenter, xlCenter) Case 7 To 9u Call Func_CellFonts(Range(str_DestCell).Offset(0, int_Counter).Address, "Tahoma", "Bold", "White", 9){ Call Func_CellBorders(Range(str_DestCell).Offset(0, int_Counter).Address, "Right", xlDash, xlThin, "White")|7 Call Func_CellMergeWrapColorAlignment(Range(str_DestCell).Offset(0, int_Counter).Address, False, False, "Dark Blue", Func_SeasonsToMonths(arr_SeasonsAndMonths, arr_SeasonsAndMonths(int_Counter - 1, 1), int_Counter - 6, "Short"), xlCenter, xlCenter) Case 10 To 12u Call Func_CellFonts(Range(str_DestCell).Offset(0, int_Counter).Address, "Tahoma", "Bold", "White", 9){ Call Func_CellBorders(Range(str_DestCell).Offset(0, int_Counter).Address, "Right", xlDash, xlThin, "White")|7 Call Func_CellMergeWrapColorAlignment(Range(str_DestCell).Offset(0, int_Counter).Address, False, False, "Dark Blue", Func_SeasonsToMonths(arr_SeasonsAndMonths, arr_SeasonsAndMonths(int_Counter - 1, 1), int_Counter - 9, "Short"), xlCenter, xlCenter) End Select  /Legend 1 &$%!X: &$%!X$9 q ! &$%!X: &$%!XTahomaBoldBlack A|! &$%!X: &$%!X Borderaround X pBlackAl! &$%!X: &$%!XBottom X pBlackAlNqlu, 4/17/2009, change legend to reflect user input of wet,average,dry numbers| Call Func_CellMergeWrapColorAlignment(Range(str_DestCell).Offset(3, 3).Address & ":" & Range(str_DestCell).Offset(3, 4).Address, True, True, str_WetFlowsColorIndex, "Wet", xlHAlignLeft, xlCenter)| Call Func_CellMergeWrapColorAlignment(Range(str_DestCell).Offset(4, 3).Address & ":" & Range(str_DestCell).Offset(4, 4).Address, True, True, str_AverageFlowsColorIndex, "Average", xlHAlignLeft, xlCenter)| Call Func_CellMergeWrapColorAlignment(Range(str_DestCell).Offset(5, 3).Address & ":" & Range(str_DestCell).Offset(5, 4).Address, True, True, str_DryFlowsColorIndex, "Dry", xlHAlignLeft, xlCenter)!, &$%!X: &$%!X &High ( d0$th %ile) jAh!, &$%!X: &$%!X ,Medium ( d0$th %ile) jAh!- &$%!X: &$%!X (Low ( d0$th %ile) jAh!, &$%!X: &$%!X . Subsistence jAh! &$%!X: &$%!XTahomaBoldWhite A|! &$%!X: &$%!X Borderaround X pBlackAl!, &$%!X: &$%!X Dark Blue Flow Levels j jAhConly create the HFP legend if user selected the Percentile Approach  FlwMtxMnthly FlwMtxSeasonal /Legend 2 &$%!X: &$%!X$9 qX  ' d8 !!' k dk!  &$%!X: &$%!XTahomaBoldBlack A|!  &$%!X: &$%!X Borderaround X pBlackAl!  &$%!X: &$%!XBottom X pBlackAl!0 &$%!X: &$%!XWhiteF = Frequency (per season) jAh{qlu, 4/20/2009, put a "*" next to the D,V,Q if user didn't want the characteristics to be part of the frequency calculation!0 &$%!X: &$%!XWhiteD = Duration (days) jAh!0 &$%!X: &$%!XWhiteD* = Duration (days) jAh  ' dx !!' k` !0 &$%!X: &$%!XWhiteQ = Peak Flow (cfs) jAhd!0 &$%!X: &$%!XWhiteQ* = Peak Flow (cfs) jAhk@  ' d !!' k `ac-ft !0 &$%!X: &$%!XWhiteV = Volume (ac-ft) jAhdX!0 &$%!X: &$%!XWhiteV* = Volume (ac-ft) jAhkd !0 &$%!X: &$%!XWhiteV = Volume (dfs) jAhd0!0 &$%!X: &$%!XWhiteV* = Volume (dfs) jAhkkZ06/26/09 DRO new code: only post this note if one or more HFP characteristics is unchecked    !0 &$%!X: &$%!XWhite@* This characteristic not included in HFP frequency calculations jAhkXdP !! ! !!!0 &$%!X: &$%!XWhite@* This characteristic not included in HFP frequency calculations jAhk`kX06/26/09 DRO end new code!  &$%!X: &$%!XTahomaBoldWhite A|!  &$%!X: &$%!X Borderaround X pBlackAl!0 &$%!X: &$%!X Dark BlueHigh Flow Pulse Characteristics j jAhkic @( @(]xdd]d]d $%. $B@~ &$B@H'B H4 BaseFlows$%!' k SeasonalKTqlu, cahnged loop logic]d'b  7instead of 12 Step 3*$ b &$%!X: b  $  &$%!X Courier NewBoldBlack A|*$ b &$%!X: b  $  &$%!XRight X pWhiteAl*$ b &$%!X: b  $  &$%!X Borderaround X pWhiteAl2qlu,4/17/2009, replace 0 subsistence flow with N/Anooooo, B$ $*$ b &$%!X: b  $  &$%!X . B$  B$ $  @!%  j jAh B$  B$ $  @!% ( B  $ 0.0$%) b &$%!X: b  $  &$%!X$(d*$ b &$%!X: b  $  &$%!X .N/A j jAhkp*Debug.Print rng_Category.Address & int_tmp b  $ 'b B 'B &$!XTahomaBoldWhite A| &$!X Borderaround X pWhiteAl &$!X Dark BlueSubsistence Flows (cfs) j jAh( &$(2MonthlyKT   &$%!X Courier NewBoldBlack A|  &$%!XRight X pBlackAl  &$%!X Borderaround X pWhiteAl2qlu,4/17/2009, replace 0 subsistence flow with N/A $ $4  &$%!X . $  $ $  @!%  j jAh $  $ $  @!%  (  $ 0.0$%)  &$%(d4  &$%!X .N/A j jAhk &$!XTahomaBoldWhite A| &$!X Borderaround X pWhiteAl &$!X Dark BlueSubsistence Flows (cfs) j jAh( &$(2nNotes:  &$, 1. A5metadata$% : B5metadata$%.  &$,  * E 2. Q95 calculation used for subsistence flows. Annual Q95 value is  cfs.2 Water Quality Protection Flow entered by user is  * cfs.  &$,d8E 2. Q95 calculation used for subsistence flows. Annual Q95 value is  cfs.  &$,kk  R!  E 3. Subsistence and base flows calculated using non-zero flows only.  &$,dE 2. Subsistence and base flows calculated using non-zero flows only.  &$,kkd  E 3. Subsistence and base flows calculated using non-zero flows only.  &$,dE 2. Subsistence and base flows calculated using non-zero flows only.  &$,kkkxnow put &$! : &$!  $%B@H( 0(2id NT' NT' S' niXeZ Call Func_OBFMatrix(Range(str_DestCell).Address, str_ShtName, "OBFS", "K2:K6") @( @(]f]8f $%." $B@~ & %B@H %!X: %!X Borderaround X pWhiteAl %!X: %!X Borderaround X pWhiteAl,#, %!X: %!X 0Return Period (R) : $"$"$  @!%  (years) j jAh,#, %!X: %!X 0Duration (D) : $"$"$  @!%  (days) j jAh %!X: %!X Borderaround X pWhiteAl %!X: %!X Borderaround X pWhiteAl,#, %!X: %!X 0 Volume (V) : $"$"$  @!%  (ac-ft) j jAh,#, %!X: %!X 0Peak Flow (Q) : $"$"$  @!%  (cfs) j jAh &$!X: &$%!XTahomaBoldWhite A|, &$!X: &$%!X Dark BlueOverbank Flows j jAh# &$%!X: &$%!XTahomaBoldWhite A|ihPf-Please Wait. Clearing Gridlines in Worksheet  @( @( $B@~ @!,(.if+Purpose: To clear the grid lines and titlesInputs:/str_ShtName = Worksheet Name (eg: "daily efcs") Outputs: NoneASpecial Instructions: Use the call method to access the function.8Please Wait. Clearing Gridlines and Titles in Worksheet  @( @( $B@~ @!,(. @!,( ihgUPurpose: To Autofit the contents of a worksheet. This macro emulates the operation ofV selecting the entire spreadsheet and clicking between two columns to adjust5 column width to the contents of the cells.Inputs:/str_ShtName = Worksheet Name (eg: "daily efcs") Outputs: NoneASpecial Instructions: Use the call method to access the function.Eg: Func_Autofit("BaseFlows")Please Wait. Autofit  @( @( $Pz@k8 $B@~ B@H ! B@ ! B@ A1$B@Hipg2Purpose: To hide column or Columns in a Worksheet.Inputs:/str_ShtName = Worksheet Name (eg: "daily efcs") Outputs: NoneASpecial Instructions: Use the call method to access the function.(Eg: Call Func_HideColumns("HFPS", "I:J")Please Wait. Hiding Columns  in   @( @( $PzXkP $B@~ $6! ( i g&Please Wait. Creating Base Flow Chart @( @(]Ph]ph @( @(Create a new chart.  @! ! BaseFlowsPlotG B@Fj0 !J.  BaseFlowsPlot9 9LLink to the source data range. G22:S24 $% C@  =  !R19C8:R19C19 7J(T9 Base Flows5(d  7(Months  7!!(d  7( Flows (cfs)  7!!(d !( B@HH 0(- 0(N !B@H 0(Ns 0( 0(Jq(i h  @((Please Wait. Processing Base Flows...... @( @(]i](i]Hi`ixiiiiii]j  j]`jxjj]j]jOCode to check if the sheet exists then it will delete and recreate a new sheet. $P A@ A@*d A@*k daily efcs$B@~A:C$B@A1$B@H $B@~ B@MonthD1$(SeasonE1$( $B@HR/This portion of code creates address strings of Flow(Column B), Season(Column E),@efcClassification (Column C), Month(Column D) and stores them inA3:C)#v$C:$C % %$.E3:E)#v$C:$C % %' B3:B)#v$C:$C % %' C3:C)#v$C:$C % %' D3:D)#v$C:$C % %' XThis portion of the code converts the IHA imported text dates into values by multiplyingOwith number 1. The number is placed in cell D1 temorarily and is later cleared. @('Converting text Dates to Real Dates in  Worksheet @( @(D1$(Setting cell "D1" value to 1D1$B@H 0B@A3:A)#v$C:$C % %$B@H    0B@ @( mm/dd/yyyy 0(*'Setting the format of Column A to date.D1$B@ !Clearing the value 1 from cell D1!Evaluating Months and Seasons in  Worksheet @(  !!  $$Short$  $,  $$Full$  $,P &$B@HVApplication.StatusBar = "Applying Formats and Titles in " & str_ShtName & " Worksheet" %!X: %!X Borderaround X pBlackAl %!X: %!XRight X pBlackAl %!X: %!XTahomaBoldBlack A| %!XTahomaNormalBlack &A|, %!X: %!XGray-25%Subsistence Flow Percentile d jAhprocess intermittent streams ' d' k0.0 %( & %( %!X'  %!X: %!X Borderaround X pBlackAl %!X: %!XRight X pBlackAl %!X: %!XTahomaBoldBlack *A| %!XTahomaNormalBlack &A|, %!X: %!XGray-25%#Water Quality Protection Flow (cfs) d jAh * %( %!X'  %!X' 0.00 %( %!X: %!X Borderaround X pBlackAl %!X: %!XRight X pBlackAl %!X: %!XTahomaBoldBlack *A|]Call Func_CellFonts(ActiveCell.Offset(3, 2).Address, "Tahoma", "Normal", "Black", 9, dbl_Q95) =percentileweibull( ,0.05) %(d=percentileweibull(if( >0, ),0.05) %(k, %!X: %!XGray-25%Annual Subsistence Flow(Q95) d jAhd %!X: %!X Borderaround X pBlackAl %!X: %!XRight X pBlackAl %!X: %!XTahomaBoldBlack *A|, %!X: %!XGray-25%Annual Subsistence Flow d jAh =max(percentileweibull(if( =0, ), ), ) %(d=max(percentileweibull(if(if( =0, >0), ), ), ) %(kPkH %!XA qlu, changed number of seasons %!X:  %!XGray-25%Seasonal Baseflows (cfs) j jAh %!X:  %!X Borderaround X pBlackAl %!X:  %!XTahomaBoldBlack A| %!X:  %!X BorderAround X pBlackAl x t %!X:  %!X$%r(v %!X:  %!XTahomaBoldBlack A| %!X:  %!XGray-25% j jAh  %!X:   %!XGray-25%Occurrence Frequency (%) j jAh  %!X:   %!X Borderaround X pBlackAl  %!X:   %!XTahomaBoldBlack A|  %!X:   %!X BorderAround X pBlackAl  %!X:   %!XBottom x pBlackAl x t  %!X:  %!X$%r(v  %!X:   %!XTahomaBoldBlack A|  %!X:   %!XGray-25% j jAh]j b  b $ b , b $ b  , b]j]kseasonal table ' "   %!X:   %!X$ KT(qlu, 4/17/2009, changed subsistence flow4PercentileWeibull  "%!X $ '  $ ' rng_tmp.FormulaArray = "=if(count(if(if(" & str_SeasonCol & "=" & rng_tmp.Offset(-int_Counter, 0).Address & "," & str_efcCol & ")=0," & str_efcCol & "))>0," & str_Temp & ",""N/A"")"subsistence flow count season`dro 6/1/09 changed "N/A" to "#N/A" so flow duration curve will plot data even when some are #N/A  =count(if(if( =  "%!X, )=0, )) "%(d =count(if(( =  "%!X)*( >0)*( =0), )) "%(kP =  "(d =if(or( "%!X>0, >0), ,"#N/A") "(krng_tmp.FormulaArray = "=if(count(if(if(" & str_SeasonCol & "=" & rng_tmp.Offset(-int_Counter, 0).Address & "," & str_efcCol & ")=0," & str_efcCol & "))>0," & str_Temp & ",""N/A"")"KKT  ' 4 Percentile  "%!X false$ "( e ' 4 Percentile  "%!X false$ "(kKKKT)dbl_Percentile = (int_Counter - 2) * 0.254PercentileWeibull  "%!X "%!X false$ "(n=qlu, 10/13/2009, calculate occurrence frequency for the flows rng_tmp.Offset(0, int_NumberofSeasons).FormulaArray = "=if(" & rng_tmp.Address & "=""#N/A"",""#N/A"",percentrank(" & str_SeasonCol & "=" & rng_tmp.Offset(-int_Counter, 0).Address & "," & str_flowCol & ")," & rng_tmp.Address & ")*100)" =if( "!X="#N/A","#N/A",sum(( =  "%!X)*( >= "!X ))/sum(if( =  "%!X ,1,0))*100)  "%(d=if( "!X="#N/A","#N/A",sum(( =  "%!X)*( >= "!X))/sum(( =  "%!X)*(  >0))*100)  "%(k  ' "!XTahomaNormalBlack A| "!X Borderaround X pBlackAl "! 0.0 "(d`0 "(kH  "%!XTahomaNormalBlack A|  "%!X Borderaround X pBlackAl0.0  "%( ,Call Func_Formats(rng_Tmp.Address, , xlThin)h`    %!X:  %!X$%r x9vq  %!X:! %!XGray-25%GCount of Days Classified as Subsistence Flows and Greater than Zero cfs j jAhd@ %!X:! %!XGray-25%-Count of Days Classified as Subsistence Flows j jAhk %!XTahomaBoldBlack A| %!X:! %!X Borderaround X pBlackAl b   b %!XGray-25% b $ j jAh  b %!XTahomaBoldBlack A|  b %!X Borderaround X pBlackAl! b %!X Borderaround X pBlackAl~Call Func_CellBorders(ActiveCell.Offset(34, 1 + i).Address, "Borderaround", xlContinuous, xlThin, "Black") ' zero flow borders b t  %!X:   %!X$%r x9vqЫ~------------------------------------------------------------------------------------------------------------------------------#Monthly Calculations begin here....~------------------------------------------------------------------------------------------------------------------------------ %!XA  %!X: %!XMonthly Base Flows (cfs)A     %!X  $A   t %!X: %!X$%r x9vqX %!X: %!XOccurrence Frequency (%)A     %!X  $A   t %!X: %!X$%r x9vq@ ' "   %!X:  %!X$ KKT  ' e ' kp4 Percentile  "%!X false$ "(KKKT)dbl_Percentile = (int_Counter - 2) * 0.254PercentileWeibull  "%!X "%!X false$ "(KT-qlu, 4/17/2009, changed subsistence flow calc4PercentileWeibull  "%!X $ '  $ ' rng_tmp.FormulaArray = "=if(count(if(if(" & str_MonthCol & "=" & rng_tmp.Offset(-int_Counter, 0).Address & "," & str_efcCol & ")=0," & str_efcCol & "))>0," & str_Temp & ",#N/A)"`dro 6/1/09 changed "N/A" to "#N/A" so flow duration curve will plot data even when some are #N/A  =count(if(if( =  "%!X, )=0, )) "%(d rng_tmp.Offset(10, 0).FormulaArray = "=sum((" & str_MonthCol & "=" & rng_tmp.Offset(-int_counter, 0).Address & ")*(" & str_efcCol & "=0)*(" & str_FlowCol & ">0))" rng_tmp.Offset(10, 0).FormulaArray = "=count(if(if(IF(" & str_MonthCol & "=" & rng_tmp.Offset(-int_counter, 0).Address & "," & str_efcCol & ")=0," & str_FlowCol & ")>0," & str_efcCol & "))" =count(if(( =  "%!X)*( =0)*( >0), )) "%(k =  "(d`=if(or( "%!X>0, >0), ,"#N/A") "(k` rng_tmp.FormulaArray = Func_BaseFlowFormula("PercentileWeibull", str_MonthCol, str_efcCol, str_flowCol, rng_tmp.Offset(-int_Counter, 0).Address , 0, str_SubsistencePercAdd, str_7Q2Add)n=qlu, 10/13/2009, calculate occurrence frequency for the flows =if( "!X="#N/A","#N/A",sum(( =  "%!X)*( >= "!X ))/sum(if( =  "%!X ,1,0))*100) "%(d=if( "!X="#N/A","#N/A",sum(( =  "%!X)*( >= "!X))/sum(( =  "%!X)*(  >0))*100) "%(k  ' "!XTahomaNormalBlack A| "!X Borderaround X pBlackAl "! 0.0 "(d 0 "(k "%!XTahomaNormalBlack A| "%!X Borderaround X pBlackAl0.0 "%( ,Call Func_Formats(rng_Tmp.Address, , xlThin)(    %!X: %!X$%r x9vq?qlu, 4/17/2009, formatting monthly subsistence flow count table %B@H  %!X: %!XGray-25%GCount of Days Classified as Subsistence Flows and Greater than Zero cfs j jAhd %!X: %!XGray-25%-Count of Days Classified as Subsistence Flows j jAhk %!XTahomaBoldBlack A| %!X: %!X Borderaround X pBlackAl b  b %!XGray-25% b $ j jAh b %!XTahomaBoldBlack A| b %!X Borderaround X pBlackAl b %!X Borderaround X pBlackAl b t %!X: %!X$%r x9vq F$6(8";DRO change 5/5/2010. I want (cfs) to be visible in cell F4=MAX(PERCENTILE3(IF(IF(OFFSET(Dates!$B$3,0,0,Metadata!$B$24,1) = D$13, OFFSET('daily efcs'!$C$3,0,0,Metadata!$B$24,1))=0,OFFSET('daily efcs'!$B$3,0,0,Metadata!$B$24,1)), subperc,1),Metadata!$A$20)i kkPurpose: This funcion sets the desired fontstyle, type, size and optionally inputs a value into the cell.cInputs: str_RngAdd = Cell or Range Address whose Font charactaristics need to be changed.0 Eg: "A4", "A3:A5"P str_FontName = Font name in Double Quotes. Eg: "Times New Roman"] str_FontStyle = Font style in Double Quotes. Eg: "Bold", "Italic", "Underline"] str_FontColor = Font Color in Double Quotes. Eg: "Pale Blue", "Teal", "Yellow"D int_FontSize = Font size as a number. Eg: 9, 7.5, 16\ var_Value = An optional value into the cell can be passed Eg: "Fonts", 139Requirements: Use the Call method to call this function.[Example: Call Func_CellFonts("A4:A20", "Tahoma", "Italic", "Dark Blue", 10, "Cell Fonts") @( @(] l %." "!j  @!% 9  $9  9qX]Select case statement for different font styles, the user has to specify what sytle he wants.  @!% BoldKT "!j9qItalicKT "!j9 qx UnderlineKT "!j9 q@ StrikethroughKT "!j9 qn  $   "(kؐiА!@lC___________________________________________________________________D XlHAlign constants. | XLVAlign Constants |C-------------------------------------------------------------------D xlHAlignCenter | xlVAlignCenter |D xlHAlignCenterAcrossSelection | xlVAlignJustify |D xlHAlignDistributed | xlVAlignBottom |D xlHAlignFill | xlVAlignDistributed |D xlHAlignGeneral | xlVAlignTop |D xlHAlignJustify | |D xlHAlignLeft | |D xlHAlignRight | |C___________________________________________________________________`Purpose: This function sets a range to be merged, text wrapped, back ground color, Cell value,4 Horizantal Alignment, Vertical Alignment. @( @(]`m %." " "B@"k $  "(. k؋ "!~ & $9q * $  * "(k , $  , "(0 k` ( $  ( "(k8i0mK___________________________________________________________________________LXlLineStyle constants |XlBorderWeight constants |xlColorIndexConstants |K---------------------- |---------------------------------------------------LxlContinuous |xlHairline |xlColorIndexAutomatic |LxlDash |xlThin |xlColorIndexNone |LxlDashDot |xlMedium | |LxlDashDotDot |xlThick | |LxlDot | | |LxlDouble | | |LxlSlantDashDot | | |LxlLineStyleNone | | |L---------------------------------------------------------------------------- Examples: Sub Brdrs()% Worksheets("Sheet2").ActivateK Call Func_CellBorders("A3:A10", "Right", xlDashDot, xlThin, "Blue")= Call Func_CellFonts("A5", "Tahoma", "Bold", "Yellow")u Call Func_CellMergeWrapColorAlignment("A3:A10", True, False, "Black", "Gome", xlHAlignCenter, xlVAlignCenter) End Sub @( @(]`n/ Set rng_tmp = ActiveSheet.Range(str_RngAdd) " % 2 @!% RightKT " 4  7r(v 6  7r( 8 $  7r(qLeftKT " 4 : 7r(v 6 : 7r( 8 $ : 7r(qTopKT " 4 < 7r(v 6 < 7r( 8 $ < 7r(qBottomKT " 4 t7r(v 6 t7r( 8 $ t7r(qH BorderaroundKT "$ $ 4 v 6  8 $C@> qS " @ C@> qȂnin @(  @(1Creating Base Flow Report, Please Wait........... @(]@oXopoDo7]oo]o]o]p D F $%.T H $B@~ B $B@H !X: %!XRight pWhiteAl !X: %!XLeft pWhiteAl !X: %!XTop pWhiteAl !X: %!XBottom pWhiteAl !X: %!XTahomaBoldWhite A| !X: %!X Dark BlueBase Flows (cfs) j jAhCall Func_CellFormating(ActiveCell.Address & ":" & ActiveCell.Offset(5, 0).Address, 37, xlDash, xlDash, xlDash, xlDash, "Base Flows", xlCenter, xlCenter, "Merge") %B@H J  J KT &'R 'N 'P KT ,'R 'N 'P KT ('R 'N 'P n~]@pXp  KKT 'V 'X KKT 'V 'X K KT 'V 'X S} X'V X'X n} !X: %!XRight V pWhiteAl !X: %!XLeft X pWhiteAl !X: %!XTop X pWhiteAl !X: %!XBottom X pWhiteAl !X: %!X Courier NewBoldBlack A|44 !X: %!X R  J  $T ! J  $T !$  @!%  j jAh>qlu, 10/15/2009, add occurrance percentage to the flow numbers J  $T ! J  $T !$  @!%  ( J  $T 0.0$%)' %B@H   %B@H J B:M H $%B@H 0(8i@zpp @( @(8Please wait........ Preparing Base Flows seasonal matrix @(]0qHq`qxqDqA]qq]q]q]r D F $%.T H $B@~ &$B@H'B%positions in range, don't change, qlu $wet, average, dry, don't change, qlu'Z KT &'R KT ,'R KT ('R nxqlu, changed loop logic]Hr`r'b J  4instead of 12 Step 3*  b &$%!X:  b J  $  &$%!X Courier NewBoldBlack12A|*  b &$%!X:  b J  $  &$%!XRight X pWhiteAl*  b &$%!X:  b J  $  &$%!X Borderaround X pWhiteAl* 0  b &$%!X:  b J  $  &$%!X R B Z $T  B Z $T $  @!%  j jAh B Z $T  B Z $T $  @!% ( B Z  $T 0.0$%)  b &$%!X:  b J  $  &$%!X$( .If int_SeasonLength(int_Counter2 - 1) = 1 Then Range(Range(str_DestCell).Offset(int_Counter, i).Address & ":" & Range(str_DestCell).Offset(int_Counter, i + int_SeasonLength(int_Counter2 - 1) - 1).Address).ColumnWidth = 18 End If b J  $ 'b Z  'Z s B 'Bs //Last Step !X: %!XRight pWhiteAl !X: %!XLeft pWhiteAl !X: %!XTop pWhiteAl !X: %!XBottom pWhiteAl !X: %!XTahomaBoldWhite A| !X: %!X Dark BlueBase Flows (cfs) j jAhiq xra=MAX(PercentileWeibull(IF(IF($E$3:$E$28126 = H$8, $C$3:$C$28126) =0, $B$3:$B$28126), $H$2), $H$3)  f =MAX( (IF( \  =  ^ , ) ,  b ), '  d )' dp=MAX( (IF(( \  =  ^ )*(  '  = ` ),  ) ,  b ), '  d )' kodo f =MAX( (IF(( \  =  ^ )*( >0), ), b ), '  d )' d@o=MAX( (IF(( \  =  ^ )*( '  = ` )*( >0), ), b ), '  d )' knknixns]t " j $ " l $  l C@> k n 5j(Tahoma5j( n 9 p 90 09  $   9kmqm "imt j $C@"9. 5j( 5j(Tahoma5j( t 9 v 90 pC@> 5~( n5~(x | 5~(z r $  r 9klqlil8u @( @( &$B@H %!X: %!XTahomaBoldBlack A| %!X: %!X Borderaround X pBlackAl, %!X: %!XGray-25% Percentile t v Ah %!X: %!XTahomaBoldBlack A| %!X: %!X Borderaround X pBlackAl, %!X: %!XGray-25% Flow Levels t v Ah t %!X: %!X$%r x9vqi %!XTahomaBoldBlack n/aA| %!XTahomaBoldBlack MinA| %!XTahomaBoldBlack A| %!XTahomaBoldBlack A| %!XTahomaBoldBlack A| %!XTahomaBoldBlack MaxA| %!XTahomaBoldBlack SubsistenceA| %!XTahomaBoldBlack n/aA| %!XTahomaBoldBlack LowA| %!XTahomaBoldBlack MediumA| %!XTahomaBoldBlack HighA| %!XTahomaBoldBlack n/aA| %!X: %!XLeft X pBlackAl %!X: %!XRight X pBlackAl %!X: %!XBottom X pBlackAl   %!X: %!X$%r x9vqeieuDPurpose: To create the Metadata worksheet. This function sets up a @(  @(Please Wait. Creating  Worksheet. @(]8v]Xvpv]vv ~ $B@~)#v$D:$D % % ' ann$Pann$B@~A3$!' dcbJoe's MBFIT spreadsheet doesn't have a project name at this time, so leave this cell blank for nowk c daily efcs$B@~$A$3:$B$)#v$C:$C % @!%$. $P' Func_Delete_Sheet (str_ShtName)' Func_Create_Sheet (str_ShtName) Else A@*kb $B@~A1$B@H HEFR Version Number7( 47( USGS Gage ID7( <7(Period of Record used7($ to  !!$7( IHA Version7( Date/Time Run7($x7(E.Offset(6, 1).Formula = "=Mid(" & .Offset(59, 0).Address & ", 9, 10)"Project7( 7(+Minimum Flow to Protect Water Quality (cfs)7( *7(0.007(7!X:7!XTahomaBoldBlack A|7!X:7!XTahomaNormalBlack A|7!X:7!X Borderaround X pBlackAl7!X:7!XBottom X pBlackAl7!X:7!XGray-25% b jAh7!X:7!XWhite% d jAh 7!X: 7!XTahomaBoldBlack A| 7!X: 7!X Borderaround X pBlackAl 7!X: 7!XBottom X pBlackAl 7!X: 7!XGray-25% j jAh'Temporal and Hydrologic Characteristics 7( no. of years 7( !!$$$$  7(no. of data points 7( !! 7( no. of HFPs 7( 7( minimum flow7( %6 @!%Z7(no. of days of minimum flow7( %6 %6 @!%Z @!% 7( 7!X:7!XTahomaNormalBlack A| 7!X:7!X Borderaround X pBlackAl 7!X:7!XBottom X pBlackAl 7!X:7!XWhite b jAh 7!X:7!XWhite b jAh7!XTahomaBoldBlack A|7!X Borderaround X pBlackAl   7!XGray-25%SSubsistence flows will be the greater of the water quality protection flow and the Zfollowing percentile of all flows in each month or season (e.g., 0.05 for 5th percentile): b jAhdV  7!XGray-25%SSubsistence flows will be the greater of the water quality protection flow and the ]following percentile of the extreme low flows in each month or season (e.g., 0.5 for Median): b jAhkU$7(2 d 7( &7(0.007(7!XTahomaBoldBlack A|7!X Borderaround X pBlackAl7!X:7!XTahomaNormalBlack A|7!X:7!X Borderaround X pBlackAl7!X:7!XTahomaBoldBlack A|7!X:7!X Borderaround X pBlackAl7!X:7!XGray-25% b jAh*Multipeaks_Multiplier for High Flow Pulses7( 7((Multipeaks_Multiplier for Overbank Flows7( 7(7!X:7!XTahomaBoldBlack A|7!X:7!X Borderaround X pBlackAl7!X:7!XGray-25% b jAhLyons Criteria (cfs)7(    7!X:  7!XTahomaNormalBlack A|  7!X:  7!X Borderaround X pBlackAl x <   7%r(v  Short$   7( MetadataP1 4A MetadataAn$ActiveWindow.DisplayHeadings = False End IfLqlu, add to store user choices for the first run and use for subsequent runsarr_seasonsandmonthsSeason Definitions:;]vv b  b $ b  ;  bqN0qlu, add worksheet names to be read for next runA50$B@H HEFR generated worksheets:9qM Bank Full:C3+Q95:C4 , Non_Zero:C5 , D4 , D5 ,  G D3+j Tier Table:B50+i(Mv$Parameters: fName = FullPath to File# LineNumber = LineToRead6Returns: Contents of the line, or a blank string if@ LineNumber is greater than the total number of lines4Requires: Reference to Microsoft Scripting Runtime0Example: MsgBox ReadLine("C:\AutoExec.bat", 3). Displays third line of autoexec.bat @( @(]hw]w]w]w  %   % . ! b  '  ! ' xJkJ B@ J B@B. kJiJw/Parameters: str_ShtName = Name of the worksheetN str_DestCell = Location where you want to write the extracted textF str_fName = Full path to file from which text is extracted4Requires: Reference to Microsoft Scripting RuntimeZExample: Call Func_WriteTextFile("MetaData", "F1", "C:\Program Files\IHA7\analysis.ini"). Displays third line of autoexec.bat @( @(]xx]x]x]x $B@~ &$B@H % '"Verifies to see if the file exists % . 1Opens the file ! b)&loops until the end of the file stream  ' 2Counter to move to the next cell to write the text ! %(>"Text is written to the active cell Loop continues B@BCloses the text file. )Sets the Scripting.textstream to nothing.kFiFx]y]yy]yAqlu, 4/20/2009, added to reflect changes in frequency calculation]yz z]8z @(  @(BPlease Wait..... Processing Overbanking Flow event descriptors in  in   Worksheet. @( $B@~)#v$C:$C % @!%'A3:A $.A3:A ' !!$X$$X$  ' $B@~A2$)what if there no overbank events present?1No overbank events identified in the flow series.B3+z0Dk(D)#v$A:$A % %'E2:E ' qlu, 4/20A2:A ' B2:B ' c2:c ' &$B@H %!X: %!XTahomaBoldBlack A| %!X: %!XA , !X: %!XGray-25%OBF Event Descriptors j jAh &$%B@H !X: %!XA  %!X: %!X pAh Total Volume (ac-ft) %(=(PercentileWeibull(B2:b ,0.5))*  %(z0 %(Peak Flow (cfs) %(=PercentileWeibull(C2:C ,0.5) %(z0 %(Duration (days) %(=PercentileWeibull(A2:A ,0.5) %(z0 %( Frequency %(Lqlu, 4/20/2009, changed frequency calc to reflect user selection of criteria0single and multiple criteria handled differently]Pz'b  b 'b =count(if( >= %!X, ))/ ' k>  b 'b =count(if( >= %!X /1.983471, ))/ ' k >  b 'b =count(if( >= %!X, ))/ ' k= b  %(dh==sum('  ( >= %!X)*' k=  ( >= %!X /1.983471)*' k<  ( >= %!X)*' kH<  $' X ActiveCell.Offset(3, 1).Formula = "=Count(" & str_YearsRange & ")/" & int_NumOfYears )/  %(k;0.00 %(Return Period (yrs) %(=(1/ %!X) %(z0.0 %( !X: %!X$ n 99 q: %!X: %!X$ n 9qH:i@: hz]h{{]{]{eqlu, 4/20/2009, turn off the percentages table on HFPS worksheet if the "sco" worksheet doesn't exist Percentagessco$Pz`9kX9kP9 @(  @("Please Wait. Currently Processing  in   Worksheet. @( $B@~ &$!X: &$%!X PercentilesA  &$%!X:  &$%!X A Min &$,  &$,  &$,  &$,Max &$, &$%!X: &$%!XA@  &$%B@H%qlu, season name change to user input]{ b  b $ b , b#ActiveCell.Offset(-1, 1) = "Winter"#ActiveCell.Offset(-1, 2) = "Spring"#ActiveCell.Offset(-1, 3) = "Summer"!ActiveCell.Offset(-1, 4) = "Fall"9qlu, need to change titles according to number of seasons[ Func_Titles (ActiveCell.Offset(-1, 1).Address & ":" & ActiveCell.Offset(-1, 4).Address) %!X:  %!XA@ 9qlu, base 4 should be changed to base int_NumberofSeasons 4  0 used to be 4dbl_PercInc = 0 J  dbl_PercInc = dbl_PercInc + 0.25 J  4 % PercentilesKT J  4 %!XTahomaNormalBlack A| J  4 %!X Borderaround X pBlackAl J  4 %!X pAh   4 %!X J  %!X$ 909 b 9 PercentagesKT J  4 %!XTahomaNormalBlack A| J  4 %!X Borderaround X pBlackAl J  4 %!X pAh ]{  ' = J  4 %!X$%!X/sco!C1049z0%9 b 9AcrefeetKT J  4 %!XTahomaNormalBlack A| J  4 %!X Borderaround X pBlackAl J  4 %!X pAh   4 %!X J  %!X$ *  909 b 9n00q(0 J 4 The percMin and percMax constants are not used in this For loop. It is rather easy to just increment the dbl_PercInc by 1 with in the loop.qlu, loop bases need to change 4  04' J ) why 4? J 4 % PercentilesKT J 4 %!XTahomaNormalBlack A| J 4 %!X Borderaround X pBlackAlHCall Func_Formats(ActiveCell.Offset(-1, int_Counter1).Address, , xlThin)  4 %!X $ 909 b 9 PercentagesKT J 4 %!XTahomaNormalBlack A| J 4 %!X Borderaround X pBlackAlRCall Func_Formats(ActiveCell.Offset(int_Counter2, int_Counter1).Address, , xlThin)  ' = J 4 %!X$%!X/sco!C1049z0%9 b 9AcrefeetKT J 4 %!XTahomaNormalBlack A| J 4 %!X Borderaround X pBlackAlHCall Func_Formats(ActiveCell.Offset(-1, int_Counter1).Address, , xlThin)  4 %!X $ * 909 b 9n*q* RCall Func_Formats(ActiveCell.Offset(int_Counter2, int_Counter1).Address, , xlThin)  ' J 4 i`*|]||]|]||]|]}0}H}`}x}}}}]}}~ @(  @( BaseFlows' R/This portion of code creates address strings of Flow(Column B), Season(Column E),@efcClassification (Column C), Month(Column D) and stores them in daily efcs$B@HA3:C)#v$C:$C % %$.E3:E)#v$C:$C % %' B3:B)#v$C:$C % %' C3:C)#v$C:$C % %' D3:D)#v$C:$C % %' )#v$C:$C % %' $B@~A2$No zero flow in this selection.A2+z'k'A2:A)#v$A:$A % %' C2:C)#v$A:$A % %' ZeroFlowsAng:g$6B@H 0(8h:h$6B@H 0(8i:k$6B@H 0(8l:l$6B@H 0(8 &$B@H &$%!X: &$%!XZAverage number of zero flow events per period (events assigned to period of start of eventA  &$%!X: &$%!XMinimumA  &$%!X: &$%!XMedianA  &$%!X: &$%!XMaximumA  &$%!X: &$%!XYDuration of zero flow events (days; entire duration assigned to period of start of event)A  &$%!X: &$%!X)Frequency of zero flow days within periodA  &$%!X: &$%!XPeriodA $(2new calcAnnual &$, Range(str_DestCell).Offset(1, 1).FormulaArray = "=sum(" & sht_BaseFlow & "!" & rng_zfCount.Address & ")/count(BaseFlows!" & Sheets(sht_BaseFlow).Columns(1).Address & ")" =count(if( !  =0,baseflows! ))/count(BaseFlows! ) &$%(0.00% &$%(=if( &$%!X =0,#N/A,min( )) &$%(=if( &$%!X=0,#N/A,median( )) &$%(=if( &$%!X =0,#N/A,max( )) &$%(=if( &$%!X=0,#N/A,count( )/(year(BaseFlows!A )+1-year(BaseFlows!A3))) &$%(0.000 b  &$%( 4  4 &$%!X Borderaround X pBlackAl 4 b  b $ b &$, =count(if(if( ! = b &$%!X ,baseflows! )=0,baseflows! ))/count(if(baseflows! = b &$%!X ,baseflows! )) b  &$%(0.00% b  &$%(=if( b  &$%!X=0,#N/A,min(if( = b &$%!X, ))) b  &$%(=if( b  &$%!X=0,#N/A,median(if( = b &$%!X, ))) b  &$%(=if( b  &$%!X=0,#N/A,max(if( = b &$%!X, ))) b  &$%(=if( b  &$%!X=0,#N/A,count(if( = b &$%!X, ))/(year(BaseFlows!A )+1-year(BaseFlows!A3))) b  &$%(0.000 b  &$%( 4  b 4 &$%!X Borderaround X pBlackAl 4 bi  ~]~ " j $ " 5j(Tahoma5j( j9 j90 pC@> 5j(5~( n5~(x | 5~(z  $   9kHq@ "i(~=PERCENTILE(IF(OFFSET( $, 0,0, Match(1E+306, $A:$A, 1),1) =  ' , OFFSET( #, 0,0, Match(1E+306, $A:$A, 1),1)), )' ih=PercentileWeibull(IF(OFFSET( $, 0,0, Match(1E+306, $A:$A, 1),1) =  ' , OFFSET( #, 0,0, Match(1E+306, $A:$A, 1),1)), )' i`]@Xp]Ё]] @(  @(-Please Wait. Currently Processing Frequencies in   Worksheet. @(](@]X daily efcs$B@~)#v$C:$C % @!%'A3:A ' $%$'  $%$' $B@~ $%!X'& &A )#v$A:$A % %' 2:  ' 2:  ' 2:  ' qlu, changed number of seasons'J Zif first year or last year don't have a high flow pulse, then this table couldn't be right3so lets get the start and end year from "daily efc"For int_counter = Year(Application.WorksheetFunction.Min(Range(str_PeaksCol))) To Year(Application.WorksheetFunction.Max(Range(str_PeaksCol)))    J  &$%!X A   8Bwhy times 3? because there are 3 conditions: dry, average, and wetqlu, changed of seasonshqlu, 4/17/2009, changed frequency of dry to include average and wet, frequency of average to include wet J  &$%( Select Case int_Counter3 Case 1 'dry\  '  -?=SUM(SUM(IF(IF( = &$%!X& J  &$%!X,  )= &$%!X , 1, 0)), 7!X)95 Case int_NumberofSeasons + 1 'average  e  '  -?=SUM(SUM(IF(IF( = &$%!X& J  &$%!X,  )= &$%!X , 1, 0)), 7!X)95 Case int_NumberofSeasons * 2 + 1 'wetd  '  - =SUM(IF(IF( = &$%!X& J  &$%!X,  )= &$%!X, 1, 0))9 End Selectk _Call Func_Formats(Range(str_DestCell).Offset(int_Counter2 + 2, int_Counter3).Address, , xlThin) J  &$%!XTahomaNormalBlack A| J  &$%!X Borderaround X pBlackAlqp J  'J EAt the end of this loop int_Counter2 has the value of number of yearsGThe value of int_Counter2 is used in the next for loop which places theNsum formulas and Median, 75th percentiles at the bottom of the frequency table  J  &$%!X: J   &$%!X$ !X J  &$%!X JCall Func_Titles(Cell_Temp.Address & ":" & Cell_Temp.Offset(2, 0).Address) !X: %!XTahomaBoldBlack A| !X: %!XRight X pBlackAl !X: %!XLeft X pBlackAl !X: %!XTop X pBlackAl !X: %!XBottom X pBlackAl !X: %!XGray-25% j jAhTotal9Median7(75th7(d( UCall Func_Formats(Cell_Temp.Address & ":" & Cell_Temp.Offset(2, 0).Address, , xlThin) !X: %!XTahomaNormalBlack A| !X: %!X Borderaround X pBlackAl=Sum( J  %!X: %!X)9z=PercentileWeibull( J  %!X: %!X,0.5)7(z=PercentileWeibull( J  %!X: %!X,0.75)7(zkq ]pqlu, changed to season variable $%!X:  $%!X'  J   &$%!X: J   &$%!X' %. A 5qlu, populate the data in the frequency summary table'J  4  J  'J J $ !z  4 %(z &$!X: &$%!XTahomaBoldBlack A| &$!X: &$%!X Borderaround X pBlackAl, &$!X: &$%!XGray-25%Year j jAh B@]؂ &$%!X:     &$%!X' $%6 % '  $!6!  $%6 % '4 4  G 4 'j  $%!X'& &A "Attainment Frequency Summary Table &$, &$!X: &$%!XTahomaBoldBlack A| &$!X: &$%!X Borderaround X pBlackAl, &$!X: &$%!XGray-25%Events j jAh'i] 8     &$,  b   '  &$%!X' :     &$%!X' =countif( ,  &$%!X)/(YEAR('daily efcs'! $!! $%!X)-YEAR('daily efcs'! $%!X)+1)   &$%(z   &$%!XTahomaNormalBlack A|   &$%!X Borderaround X pBlackAl0%   &$%( b   &$%!XTahomaBoldBlack A|  &$%!X Borderaround X pBlackAl  &$%!XGray-25% j jAh P @( @( $B@H &$B@Hqlu, changed number of seasonsCall Func_CellMergeWrapColorAlignment(ActiveCell.Offset(0, 1).Address & ":" & ActiveCell.Offset(0, 4).Address, True, False, "Gray-25%", "Frequencies (per season)", xlCenter, xlCenter)Call Func_CellBorders(ActiveCell.Offset(0, 1).Address & ":" & ActiveCell.Offset(0, 4).Address, "Borderaround", xlContinuous, xlThin, "Black")zCall Func_CellFonts(ActiveCell.Offset(0, 1).Address & ":" & ActiveCell.Offset(0, 4).Address, "Tahoma", "Bold", "Black", 9) %!X:  %!XGray-25%Frequencies (per season) j jAh %!X:  %!X Borderaround X pBlackAl %!X:  %!XTahomaBoldBlack A|Call Func_CellMergeWrapColorAlignment(ActiveCell.Offset(1, 1).Address & ":" & ActiveCell.Offset(1, 4).Address, False, False, "Gray-25%", , xlCenter, xlCenter)Call Func_CellBorders(ActiveCell.Offset(1, 1).Address & ":" & ActiveCell.Offset(1, 4).Address, "Borderaround", xlContinuous, xlThin, "Black")Call Func_CellBorders(ActiveCell.Offset(1, 1).Address & ":" & ActiveCell.Offset(1, 4).Address, "Right", xlContinuous, xlThin, "Black") %!X:  %!XGray-25% j jAh %!X:  %!X Borderaround X pBlackAl %!X:  %!XRight X pBlackAlqlu, changed number of seasons` Call Func_CellFonts(ActiveCell.Offset(1, 1).Address, "Tahoma", "Bold", "Black", 9, "Winter")` Call Func_CellFonts(ActiveCell.Offset(1, 2).Address, "Tahoma", "Bold", "Black", 9, "Spring")` Call Func_CellFonts(ActiveCell.Offset(1, 3).Address, "Tahoma", "Bold", "Black", 9, "Summer")^ Call Func_CellFonts(ActiveCell.Offset(1, 4).Address, "Tahoma", "Bold", "Black", 9, "Fall")]Ѓ b  b %!XTahomaBoldBlack b $A| b %!X: %!XGray-25% j jAh %!X: %!X Borderaround X pBlackAl %!X: %!XRight X pBlackAl %!XTahomaBoldBlack LowA| %!XTahomaBoldBlack MediumA| %!XTahomaBoldBlack HighA| !X: %!X Borderaround X pBlackAl !X: %!XTahomaBoldBlack LowA| !X: %!XGray-25% Flow Levels j jAh %B@H !X:  %!XTahomaNormalBlack A| !X:  %!X Borderaround X pBlackAliXThis function just creates the titles for the Frequency calculations found in HFPS sheet?Refer to the cell N32 in HFPS sheet for the look of the titles.This function uses other helper functions Func_CellFonts, Func_CellBorders, Func_CellMergerWrapColorAlignment for doing the formatting]H $B@H @( @(+qlu, change number of seasons, default is 4iCreates Dry, Wet, Average categories cells. Each category is spread over four cells covering four seasons %!X:  %!XTahomaBoldBlack A| %!X:  %!X Borderaround X pBlackAl, %!X:  %!XGray-25%Low j jAh  %!X:  %!XTahomaBoldBlack A|  %!X:  %!X Borderaround X pBlackAl,  %!X:  %!XGray-25%Medium j jAh  %!X:  %!XTahomaBoldBlack A|  %!X:  %!X Borderaround X pBlackAl!,  %!X:  %!XGray-25%High j jAh,qlu, change hydrologic conditions season row#Placing Seasons under each category]h'  b   ' b $  , b .Formatting the cells that contain the seasons. " %!X:  %!X$ "!XTahomaBoldBlack A| "!X Borderaround X pBlackAl "!XGray-25% j jAh "9Formatting the cell that contains the Title "Frequencies" $%!X:  $%!XTahomaBoldBlack A| $%!X:  $%!X Borderaround X pBlackAl%, $%!X:  $%!XGray-25% Frequencies j jAhi $! 'Pi]p]"add the name to Metadata worksheetMetadata$P b3 bMetadata$%Gyj b  bMetadata$,k !!J.  (. i @( $P  %B@Fkp @(iX $$](@XDp6]]Ї]]]0]P @( @( ~ $%. ~ $%. ~ $%. ~ $%. H $B@~ B $B@HZqlu, instead have 6 rows, I need to have 12 rows,changed the following offset from 5 to 11 !X: %!X Dark BlueHigh Flow Pulses j jAh !XRight X pWhiteAl !XLeft X pWhiteAl !XTop X pWhiteAl !XBottom X pWhiteAl !XTahomaBoldWhite A| %B@H=int_tmp and int_tmp2 is used to calculate positions in ranges'B'Z qlu, changed J  _used to be 6, control rows of high flow pulses, in flwmtxseasonal or flwmtxmonthly sheeets, qlu J KKKKT &' ' ' 'BKKKKT ,' ' ' 'B K K K KT (' ' ' 'Bnqlu, need to change var_tmp   7 used to be 3, controls seasons of high flow pulses , each season will have one column, made up of 3 months in 4 season setting, qlu J  Case 1, 3, 5K 'Debug.Print rng_Frequency(Abs(int_tmp - int_Counter2))]C var_tmp = Func_StringReSized("F: " & Application.WorksheetFunction.round(rng_Frequency(Abs(int_tmp - int_Counter2), int_Counter + 1), 1), 10) & Func_StringReSized("D: " & Application.WorksheetFunction.round(rng_Duration(Abs(int_tmp - int_Counter2), int_Counter + 1), 1), 10) Case 2, 4, 66Debug.Print rng_Frequency(Abs(int_tmp - int_Counter2))]G var_tmp = Func_StringReSized("Q: " & Application.WorksheetFunction.round(rng_PeakFlow(Abs(int_tmp2 - int_Counter2), int_Counter + 1), 1), 10) & Func_StringReSized("V: " & Application.WorksheetFunction.round(rng_TotalVolume(Abs(int_tmp2 - int_Counter2), int_Counter + 1), 1), 10)qlu, used to be 6 rows, now 12KK KT<represent wet, average, dry season, frequencies, for seasons6Debug.Print rng_Frequency(Abs(int_tmp - int_Counter2))F: B  $  B  $ $  @!%  $ 'bKK KTD: B  $  B  $ $  @!%  $ 'bKK KT6Debug.Print rng_Frequency(Abs(int_tmp - int_Counter2))Q: B  $  B  $ $  @!%  $ 'bKK KTV: B  $  B  $ $  @!%  $ 'bnxKqlu, now we have 12 rows, need to merge cells based on the length of season Call Func_CellFonts(ActiveCell.Address & ":" & ActiveCell.Offset(0, 2).Address, "Courier New", "Bold", "Black", 11) Call Func_CellBorders(ActiveCell.Address & ":" & ActiveCell.Offset(0, 2).Address, "Right", xlDash, xlThin, "White") Call Func_CellBorders(ActiveCell.Address & ":" & ActiveCell.Offset(0, 2).Address, "Left", xlContinuous, xlThin, "White") Call Func_CellBorders(ActiveCell.Address & ":" & ActiveCell.Offset(0, 2).Address, "Top", xlContinuous, xlThin, "White") Call Func_CellBorders(ActiveCell.Address & ":" & ActiveCell.Offset(0, 2).Address, "Bottom", xlContinuous, xlThin, "White") Call Func_CellMergeWrapColorAlignment(ActiveCell.Address & ":" & ActiveCell.Offset(0, 2).Address, True, False, str_Color, var_tmp, xlHAlignLeft, xlCenter) !X: $ %!X Courier NewBoldBlack A| !X: $ %!XRight pWhiteAl !X: $ %!XLeft X pWhiteAl !X: $ %!XTop X pWhiteAl !X: $ %!XBottom X pWhiteAl !X: $ %!X b t jAh %B@H   %B@H J i@h    @!% ' d $' ki BlackKT'BrownKT5' Olive GreenKT4' Dark GreenKT3' Dark TealKT1' Dark BlueKT 'IndigoKT7'Gray-80%KT8'Dark RedKT 'OrangeKT.' Dark YellowKT 'GreenKT 'TealKT'BlueKT' Blue-GrayKT/'Gray-50%KT'RedKT' Light OrangeKT-'LimeKT+' Sea GreenKT2'AquaKT*' Light BlueKT)'VioletKT 'Gray-40%KT0'PinkKT'GoldKT,'YellowKT' Bright GreenKT'TurqoiseKT'Sky BlueKT!'PlumKT6'Gray-25%KT'RoseKT&'TanKT(' Light YellowKT$' Light GreenKT#'Light TurqoiseKT"' Pale BlueKT%'lavenderKT''WhiteKT'nixH]ȉ  $       $   @!%  $ ' zkki]  $       $   @!%  $     $   X Full $ '  X Shorte $ ' kzk  $   e    $    $     $   X Full $ '  X Shorte $ ' kzkki]X $       $  @!%   $   X Full $ '  X Shorte $ ' kzk $   e    $   $ ' z@k80k(i p] $       $  @!%  $  @!%  $ ' zhk`X $   e    $   " $  " X @!% Full $ ' z " X @!% Shorte $ ' zpkhk`XkPiH(cThis function just generates the name or number of season by reading the name or number of a SeasoniThis function also gives you part or full name of a season, Winter or Win, for Fall it returns just fallgThis function will result in a valid output only after you populated the Func_CreateMonthsSeasonMatrix.KPlease refer to its documentation for better understanding of this functionGAssuming that Winter is the first season (Winter, Spring, Summer, Fall)8Func_GenSeason(arr_SeasonsAndMonths, 2, "Full") = Spring1Func_GenSeason(arr_SeasonsAndMonths, "Spring')= 2]Ȍ  @!% KT & $  & X FullWinter' & X ShorteWin' kHKT & $  & X FullSpring' & X ShorteSpr' kKT & $  & X FullSummer' & X ShorteSum' kxKTFall' WinterKT' SpringKT' SummerKT' FallKT' nicThis function just generates the name or number of season by reading the name or number of a SeasoniThis function also gives you part or full name of a season, Winter or Win, for Fall it returns just fallgThis function will result in a valid output only after you populated the Func_CreateMonthsSeasonMatrix.KPlease refer to its documentation for better understanding of this functionGAssuming that Winter is the first season (Winter, Spring, Summer, Fall)8Func_GenSeason(arr_SeasonsAndMonths, 2, "Full") = Spring1Func_GenSeason(arr_SeasonsAndMonths, "Spring')= 2?qlu, changed season generate logic, always giv full season name  $Debug.Print int_NumberofSeasons   $' dؿ] b  b$  b$ ' ykx bk`iX?This function creates the flow range from the daily efcs sheet.This function avoids the usage multiple references to Flow range and mainly i don't want to use Match function too many times when figuring outthe used range.This functions creates a Public range called rng_FlowRange from the daily efcs sheet. I can address this variable at any time during the run-time ofyHEFR. This function also creates another public varaible int_NumberOfFlowValues that contains the numbers of Flow values.wTo use this in any function please call it so that the rng_FlowRange and int_NumberOfFlowValues are properly populated.]] * @%., A3:C)#v$C:$C , % @!% , %." "!!' i08  AVox] ]8PhaThis matrix was developed to provide flexibility for assigning seasons to months during run-time.{This function creates a matrix with Months, and seasons. The idea was to create this array only once for a single HEFR-Runzto minimize computation times. This was an issue when calculating Months and seasons for all the flows in the "BaseFlows"mWorksheet. Consider 12*60,000 unnecessary iterations (Don't forget you are running MS-Office on MS-Windows).x***********************************************************************************************************************|x_______IMPORTANT______IMPORTANT_______IMPORTANT________IMPORTANT_________IMPORTANT__________IMPORTANT______IMPORTANT___|x-----------------------------------------------------------------------------------------------------------------------|xThe matrix created here is used by other functions for generating customized months and seasons names. |xSee functions 'Func_SeasonsToMonths', 'Func_GenSeason', 'Func_MonthsToSeasons', 'Func_Months'. All these functions |xwill work only after this matrix is populated. The Func_CreateMonthsSeasons should be called before calling the above |8listed functions or else they will not return any value.Example Sub RoutinexSub Temp() |x Call Func_CreateMonthsSeasonsMatrix(arr_SeasonsAndMonths, 12) 'This gets the matrix populated |x MsgBox Func_Months(arr_SeasonsAndMonths, "Jan") 'This will display a message box with the Number 1 |xEnd Sub |x_______IMPORTANT______IMPORTANT_______IMPORTANT________IMPORTANT_________IMPORTANT__________IMPORTANT______IMPORTANT___|x-----------------------------------------------------------------------------------------------------------------------|x************************************************************************************************************************bThe following table is a fully populated matrix with the assumption that winter starts in decemberiThis matrix is constructed for simple quereying, For example if a user wants to know what is the positionpof the January month in winter season, the answer is in the column 5, row 2. This should give enough flexibility%to implement seasons during run-time.;-----------------------------------------------------------8Month Season Months Trimmed Season Month Month;No Name Name Name No Pos Sequence;-----------------------------------------------------------412 Winter December Dec 1 1 141 Winter January Jan 1 2 242 Winter February Feb 1 3 343 Spring March Mar 2 1 444 Spring April Apr 2 2 545 Spring May May 2 3 646 Summer June Jun 3 1 747 Summer July Jul 3 2 848 Summer August Aug 3 3 959 Fall September Sep 4 1 10510 Fall October Oct 4 2 11511 Fall November Nov 4 3 12<------------------------------------------------------------<------------------------------------------------------------   +4 January+4 February+4 March+4 April+4 May+4 June+4 July+4 August+4  September+4 October +4 November +4 December +4 lSets the default spring season to start at January, in case the no value is passed for int_SpringSeasonStart 2 $ G'2 jTThis For Block assigns seasons based on the starting winter month passed by the user  2  G 2  'j 2  +  KKKTWinter +  +   +   + KKKTSpring +  +   +   + KKKTSummer +  +   +   +  K K KTFall +  +   +   + n J $  J $4  J $4  +  J $4 $ + yk  'EThis is testing statement, Occasionally used when reviewing the code.;U Debug.Print arr_SeasonsAndMonths2(int_Counter, 0) & " " & arr_SeasonsAndMonths2(int_Counter, 1) & " " & arr_SeasonsAndMonths2(int_Counter, 2) & " " & arr_SeasonsAndMonths2(int_Counter, 3) &' " " & arr_SeasonsAndMonths2(int_Counter, 4) & " " & arr_SeasonsAndMonths2(int_Counter, 5) & " " & arr_SeasonsAndMonths2(int_Counter, 6)i]0]H<------------------------------------------------------------`qlu, modified version of the same function, original version was kept and added "_4" to its nameHow many seasons do you have? Normal&>custom seasons: this is taken care of at FlexSeasons user form'  x   .'6 ,what is the start month of the first season? 6 '2 lSets the default spring season to start at January, in case the no value is passed for int_SpringSeasonStart\If IsMissing(int_WinterStart2) Then int_WinterStart2 = int_WinterStart2 = int_1stSeasonStartYThis For Block assigns seasons based on the start and end month boxes in FlexSeasons form]А0{Normal season, start from winter, populate arr_seasonandMonths2 based on season number and start month of the first season]H '8 'bWinter+Spring+Summer+Fall+   >str_SeasonNames(iSeason - 1) = "Season" & Format(iSeason, "0")   +  8 6 b b+  b$  G b$  b+ j  $ b+ Kname of the season b$ ' $ b+ <,name of the month, eg. January, Febuary, etc $$ b+ Dfirst 3 letters of the month  b+ 6 season number  b+ 0month position b b+ 4sequence number b 'b  kȞEThis is testing statement, Occasionally used when reviewing the code.;U Debug.Print arr_SeasonsAndMonths2(int_Counter, 0) & " " & arr_SeasonsAndMonths2(int_Counter, 1) & " " & arr_SeasonsAndMonths2(int_Counter, 2) & " " & arr_SeasonsAndMonths2(int_Counter, 3) &' " " & arr_SeasonsAndMonths2(int_Counter, 4) & " " & arr_SeasonsAndMonths2(int_Counter, 5) & " " & arr_SeasonsAndMonths2(int_Counter, 6)i`](]@<------------------------------------------------------------`qlu, modified version of the same function, original version was kept and added "_4" to its name*read season definition from metadata sheet  J   J B32metadata$%%!  J + J How many seasons do you have? $'$'6 6 '2  p  'b season length'J season$'*=1  $  b 'bd8 b J +  $ J +'b J  'J $'<2kș  b J +  $ J +EThis is testing statement, Occasionally used when reviewing the code.;U Debug.Print arr_SeasonsAndMonths2(int_Counter, 0) & " " & arr_SeasonsAndMonths2(int_Counter, 1) & " " & arr_SeasonsAndMonths2(int_Counter, 2) & " " & arr_SeasonsAndMonths2(int_Counter, 3) &' " " & arr_SeasonsAndMonths2(int_Counter, 4) & " " & arr_SeasonsAndMonths2(int_Counter, 5) & " " & arr_SeasonsAndMonths2(int_Counter, 6)iȗThis function in used in the HFPS worksheets in the I,J,K,L columns. This function compares the Peak Flow, Duration and Total Volume of~each high flow event with the prescribed seasonal HFPs calculated in HFPS sheet Sub-Tables Peak Flows, Duration, Total Volume.Mstr_CPeaks = Peak Flow cell address From sub-Table Peak Flows (Located at N2)Istr_CDur = Duration Cell Address from sub-table Duration (Located at N17)Dstr_CVol = Volume Cell Address from Sub-Table Volume (Located at N9)_str_SeasonAdd = Cell Address of Season of Peak From HFP table (Seasons are located in Column F)fstr_Dur = Cell Address of Duration of the HFP event from HFP table (Durations are located in Column A)dstr_Vol = Cell Address of volume of the HFP event from HFP table (Durations are located in Column B)estr_Peaks = Cell Address of peaks of the HFP event from HFP table (Durations are located in Column C)](@wet=IF( B =" J ",IF(AND('N  N D >= L @ $%!X,'N k0  N F >= L > $%!X,'N kؒ  N H >= L < $%!X,'N k+there is a ',' in the last position, rid it N N  $'N N ),"High",IF(AND('N average  N D >= L @ $%!X,'N kx  N F >= L > $%!X,'N k  N H >= L < $%!X,'N kȐ+there is a ',' in the last position, rid it N N  $'N N ),"Medium",IF(AND('N dry  N D >= L @ $%!X,'N k  N F >= L > $%!X,'N k`  N H >= L < $%!X,'N k+there is a ',' in the last position, rid it N N  $'N N ),"Low",""))))'N 0Ut z;A str_Frmla1 = "=IF(" & str_SeasonAdd & "=" & """" & str_Season & """" & ",IF(AND(" & str_Dur & ">=" & Range(str_CDur).Offset(5, int_SeasonColumn).Address & "," & str_Vol & ">=" & Range(str_CVol).Offset(5, int_SeasonColumn).Address & "," & str_Peaks & ">=" & Range(str_CPeaks).Offset(5, int_SeasonColumn).Address & ")" & "," & """" & "Wet" & """" & "," & "IF(AND(" & str_Dur & ">=" & Range(str_CDur).Offset(4, int_SeasonColumn).Address & "," & str_Vol & ">=" & Range(str_CVol).Offset(4, int_SeasonColumn).Address & "," & str_Peaks & ">=" & Range(str_CPeaks).Offset(4, int_SeasonColumn).Address & ")" & "," & """" & "Average" & """" & "," & "IF(AND(" & str_Dur & ">=" & Range(str_CDur).Offset(3, int_SeasonColumn).Address & "," & str_Vol & ">=" & Range(str_CVol).Offset(3, int_SeasonColumn).Address & "," & str_Peaks & ">=" & Range(str_CPeaks).Offset(3, int_SeasonColumn).Address & ")" & "," & """" & "Dry" & """" & "," & """" & """" & "))))" N ': iXrThis Function Processes the IHA classified flows and categorizes into seasons and further classifies them into wetLAverage and Dry event. For example a High flow pulse event is identified and @(  @( @(]0H`x]ؕ] 8]P2qlu, 7/22/09, set up indicators for cut off pulses]h'v $P A@ A@*d A@*k $B@~ &$B@HDuration (days) ( Volume (dsf) %( Peak (cfs) %( Date of Start %( Date of Peak %(Season of Peak %( Season/Year %( V high flow pulse 'Z Classification %( !X: %!X Borderaround X pBlackAl !X: %!XLeft X pBlackAl !X: %!XTahomaBoldBlack A| !X: %!XGray-25% j jAhkH V small flood$qlu, changed to OBF according to Dan; multipeaks_multiplier = dbl_MultipeaksMultiplierHFP 'Z !X: %!X Borderaround X pBlackAl !X: %!XLeft X pBlackAl !X: %!XTahomaBoldBlack A| !X: %!XGray-25% j jAhkxVqlu, changed hard coded subtable upper left cell to allow variable seasons, base is N1Public str_HFPS_subtable_start_col As String 'HFPS subtables start column, based on 4 seasons at location N, assigned at HEFR_stage2, qlu]Ȗ 2$%!X'\ 2$%!X'b 2$%!X'f daily efcs$B@~'\ d3$B@H !a Ocheck for if you are in a high flow pulse - and whether or not about to end the current high flow pulse !'^  %!'` Begin code for regular HFP ^ V *in a HFP d  %!'f k'd h  'h j  %! 'j  %! n  %!'l  %!'n k %! %!  %! p @new max on rising limb %!'p k8k0 ` V  d D end of HFPpopulate sheet HFPS $B@~ \ a1$%B@H h ( j  %(<cum_cfs is dsf n  %( f  %( l  %(  l $Full$  %(Bqlu,7/22/09, mark the cut-off pulse, leave alone the highest pulse v  %!'t  v  t    %!    %!'t k}   v  W If Peak_Flow > ActiveCell.Offset(1 - int_Counter, 2).Value Then#  %!X:   %!X$!~( End If 'v k{ X LT l $ X  %! l $  ,d`{ %! l $ ,k { LT l $ X  %! l $ ,dz %! l $  ,kpznhzOAdding the Pulse Classification formula for high flow pulses, and fonts and ... V high flow pulseqlu, changed loop variable to season number based, need to change the cell loc of the subtables peak Flows, Duration, Total Volumefpublic str_subtable_srart_col as string 'HFPS subtables start column, based on 4 seasons at location NZstr_subtable_start_col = Mid(Range("N1").Offset(0, int_NumberofSeasons - 4).Address, 2, 1)Adefined at the public defination area and assigned at Func_stage2range("n1").Address    "0 \ b f %!X !X %!X %!X   Full$   $:  %(z !X:  %!X Borderaround X pBlackAl !X:  %!XLeft X pBlackAl !X:  %!XTahomaNormalBlack A|=Func_Criteria( %!X:   %!X) %(zvkv V small flood !X: %!X Borderaround X pBlackAl !X: %!XLeft X pBlackAl !X: %!XTahomaNormalBlack A|kt zero everything out for next HFP'p 'h 'j 'd 'n \  '\ End If daily efcs$B@~k`t Slogic for cutting off existing HFP when "multipeaks_multiplier" jump is encountered  $ ^ V  ` V  %! Z  %!  %! p Dwant to cut off existing HFP and start a new one when a jump of overJmultipeaks_muliplier is encountered following a dip below the peak "pulse" %!'p #If beginHFP = True Then 'end of HFP $B@~ \ a1$%B@H h ( j  %(<cum_cfs is dsf n  %( f  %( l  %(  l $Full$  %(Bqlu, color the lines for MM created pulses, need to count the cuts v  'v X LT l $ X  %! l $  ,dp %! l $ ,kpp LT l $ X  %! l $ ,dp %! l $  ,kono V high flow pulse;qlu, changed loop variable to allow variable season numbers    "0 \ b f %!X !X %!X %!X   Full$   $:  %(z !X:  %!X Borderaround X pBlackAl !X:  %!XLeft X pBlackAl !X:  %!XTahomaNormalBlack A|=Func_Criteria( %!X:   %!X) %(z(mk m V small flood !X: %!X Borderaround X pBlackAl !X: %!XLeft X pBlackAl !X: %!XTahomaNormalBlack A|kl zero everything out for next HFP'h 'j 'd 'n \  '\ daily efcs$B@~kk %B@H V high flow pulseKTHigh Flow Pulse Event #  \  @( small floodKTOverbank Event #  \  @(njjFApply formats for each classfied overbankflow and highflow pulse eventixj(This Function Processes zero flow events @(  @( @(]ȗ](]@X]p $P A@ A@*di A@*kpi $B@~ &$B@HDuration (days) ( Date of Start %(Season %( Season/Year %( !X: %!X Borderaround X pBlackAl !X: %!XLeft X pBlackAl !X: %!XTahomaBoldBlack A| !X: %!XGray-25% j jAhVqlu, changed hard coded subtable upper left cell to allow variable seasons, base is N1Public str_HFPS_subtable_start_col As String 'HFPS subtables start column, based on 4 seasons at location N, assigned at HEFR_stage2, qlu] 2$%!X'\ 2$%!X'b 2$%!X'f daily efcs$B@~'x b3$B@H !a Begin code for regular HFP !+in a zero flow event z  %!'f k8e'z |  '| ke !  z > end of HFPpopulate sheet HFPS $B@~ x a1$%B@H | ( f  %(  f $Full$  %( X LT f $ X  %! f $  ,dc %! f $ ,kxc LT f $ X  %! f $ ,dc %! f $  ,kbnb zero everything out for next HFP'| 'z x  'x daily efcs$B@~kPb %B@HZero Flow Event #  x  @(bFApply formats for each classfied overbankflow and highflow pulse eventiaИ/This Function Processes subsistence flow events]ؙ] 8]PhȚ](@X]p] @(  @( @( $P A@ A@*dP` A@*k8`]؛ BaseFlows' $B@~A:E$B@ $B@~A1$B@H B@A1:E1 Borderaround X pBlackAlA1:E1TahomaBoldBlack A|A1:E1Gray-25% j jAh]$H$9' !(start of first season in BaseFlows sheetSubsFlagC1+MonthD1$(SeasonE1$(Range("F1") = "AnnualFlag"$A$3:$F$)#v$A:$A % @!%$. evaluate subsistence flow code] H4 $%' B*annual subsistence flow in BaseFlows sheet  !!season subsistence codestr_TempString = Sheets(sht_BaseFlows).Range(str_SubsistenceCell).Offset(0, Func_SeasonToSeasonNumber(arr_SeasonsAndMonths, rng_subsistence(int_counter, 1).Offset(0, 4)) - 1)!If IsNumeric(str_TempString) ThenJ If rng_subsistence(int_counter, 1).Offset(0, 1) <= str_TempString Then8 rng_subsistence(int_counter, 1).Offset(0, 2) = 0 Else8 rng_subsistence(int_counter, 1).Offset(0, 2) = 1 End IfElse4 rng_subsistence(int_counter, 1).Offset(0, 2) = 1End If3 =if(isnumber(BaseFlows!  $ %$  $%!X),if( $ %!X <=BaseFlows!  $ %$  $%!X,0,1),1) $ %(z Stop rng_dailyefcs(int_Counter, 1).Offset(0, 4) = Func_MonthsToSeasons(arr_SeasonsAndMonths, Month(rng_dailyefcs(int_Counter, 1)), "Full")annual subsistence codeY If rng_subsistence(int_counter, 1).Offset(0, 1) <= dbl_AnnualSubsistenceflow Then< rng_subsistence(int_counter, 1).Offset(0, 5) = 0 Else< rng_subsistence(int_counter, 1).Offset(0, 5) = 1 End Ifrng_subsistence(int_counter, 1).Offset(0, 5).Formula = "=if(" & rng_subsistence(int_counter, 1).Offset(0, 1).Address & "<=Baseflows!H4" & ",0,1)" StopPW $B@~ &$B@HDuration (days) ( Date of Start %(Season %( Season/Year %( !X: %!X Borderaround X pBlackAl !X: %!XLeft X pBlackAl !X: %!XTahomaBoldBlack A| !X: %!XGray-25% j jAhprocess durations AnC1$(8F1$(8' c3$B@H !a !+in a subsistence flow event  %!'f kxT'  ' kXT !  > end of SF &$%( f  &$%(  f $Full$   &$%( X LT f $ X  &$%! f $   &$,d0S  &$%! f $  &$,kR LT f $ X  &$%! f $  &$,dxR  &$%! f $   &$,k(Rn R' '  ' kQ %B@HSubsistence Flow Event #   @(Q"if there no events found then exitC1$%!$  6All days classified as subsistence flows are zero cfs. hThe user selected subsistence flow calculations on no-zero flows only and did not select the Q95 option. Therefore, this table is empty.C1$,zHPk@Pnow duration statisticsE3:E)#v$C:$C % %' J2:J)#v$H:$H % %' H2:H)#v$H:$H % %' Wstr_annualCol = "F3:F" & WorksheetFunction.Match(1E+306, ActiveSheet.Range("$C:$C"), 1)B3:B)#v$C:$C % %' C3:C)#v$C:$C % %' )#v$C:$C % %'  &$%(8 &$(8 ~ $%(8 ~ $%(83@ ~ $%(8  ~ $%(8'@ ~ $%(8  ~ $%(8 ~ $%(8 ~ $B@H ~ $%!X: ~ $%!XAverage number of events with flows equal to or below the subsistence flow recommendation per period (events assigned to period of start of event)A  ~ $%!X: ~ $%!XMinimumA  ~ $%!X: ~ $%!XMedianA  ~ $%!X: ~ $%!XMaximumA  ~ $%!X: ~ $%!XDuration of events equal to or below the subsistence flow recommendation (days; entire duration assigned to period of start of event)A  ~ $%!X: ~ $%!XUFrequency of days equal to or below the subsistence flow recommendation within periodA  ~ $%!X: ~ $%!XPeriodA #$(2new calcAnnual ~ $,0.00% ~ $%( =count(if( =0,  ))/count( ) ~ $%(=if( ~ $%!X =0,#N/A,min( )) ~ $%(=if( ~ $%!X=0,#N/A,median( )) ~ $%(=if( ~ $%!X =0,#N/A,max( )) ~ $%(=if( ~ $%!X=0,#N/A,count(  )/(year(A )+1-year(A3))) ~ $%(0.000 ~ $%(   ~ $%!X Borderaround X pBlackAl  b  b $ b ~ $, =count(if(if( = b ~ $%!X, )=0,  ))/count(if( = b ~ $%!X, )) b  ~ $%(0.00% b  ~ $%(=if( b  ~ $%!X=0,#N/A,min(if( = b ~ $%!X, ))) b  ~ $%(=if( b  ~ $%!X=0,#N/A,median(if( = b ~ $%!X, ))) b  ~ $%(=if( b  ~ $%!X=0,#N/A,max(if( = b ~ $%!X, ))) b  ~ $%(=if( b  ~ $%!X=0,#N/A,count(if( = b ~ $%!X,  ))/(year(A )+1-year(A3))) b  ~ $%(0.000 b  ~ $%(  b  ~ $%!X Borderaround X pBlackAl  bi A8dThis sub will eventually be turned into a fully working Flow Duration curve with other features suchpas high flow pulses, monthly values of High flow pulses, Base flows, Monthly Base Flow Values, Subsistence flowspand Over bank flows. This is a comprehensive plot supposed to encapsulate a flow matrix in a Flow Duration plot.+Still needs work. Currently under progress.]x]]؜]0Pp]ȝ] @(  @( daily efcsA(  daily efcs "%6!X FDC_CalcsA1A  FlwDurCurA  FlwDurCurSeries1A  FDC_Calcs FlwDurCurB:BA:AFlow Dark Blue Entire ColumnA Low - Base Flows+ Med - Base Flows+ High - Base Flows+ Low - High Flow Pulses+ Med - High Flow Pulses+ High - High Flow Pulses+  Overbank Flow+  (+  ,+  &+  (+  ,+  &+  *+  BaseFlows FDC_CalcsF18:S25D1 A BaseFlows FDC_CalcsF18:S25D1 A qlu,5/13/20090change of season definition affects these ranges]0H  N1HFPS$%%!X'   HFPS$%%!X' : ' HFPS FDC_Calcs D12 AHFPS FDC_Calcs D12 A FlwDurCur$. !. FDC_Calcs @%., A2:A)#v$A:$A , % % , %. E15:  E15 , %%!X , %. F5:Q7 , %. F3:Q3 , %. OBFS FDC_CalcsJ1:K6D22 AOBFS FDC_CalcsJ1:K6D22 AE24 , %. 'DRO: I hate grey backgrounds in charts!  !!~( $  0 9. 9 Flows (cfs)5(P  %6 @!%  @!%  @!% 9q8 $ 9% of Time exceeded5(P9d99 9 | 9 | 9. q7 @!% ' @!%Z' FDC_Calcs FlwDurCur High Flow Pulses Dark Red A  @!% ' @!%Z' FDC_Calcs FlwDurCur Base Flows Dark YellowA color 39 is lavender FDC_Calcs FlwDurCur !X Overbank Flow  *A   !! $ !X:  !6!$ !X' FDC_Calcs FlwDurCur  $   $ A p5  !! $ !X:  !6!$ !X' FDC_Calcs FlwDurCur  $   $ A 4 FDC_Calcs FlwDurCur !XSubsistence Flows .A 6qlu,7/21/09, reduce plot area to accomodate more notes !B@H 0( 0(J? ! %J5j( d 9 90 bThis plot is based on the output of the "Original, percentile-based approach for episodic events".9dq03? ! %J5j( d 9 90 lZero flows have been replaced with 0.1. Replacement does not affect any calculations elsewhere in the model.9dqh2DDRO 6/1/09 add note to chart so reader knows what they're looking at? ! %J5j( d 9 90 dPlot shows historical data (dark blue) and range of monthly flow recommendations (all other series).9dqX1oP1`hThis function will format a point on the series if needed. This is a very slow function when you want toeformat many points. The idea is to be able to give a title to point and change the color of one point]A half baked function. Please go through this one carefully before using it. Still needs work]`]0 @( @( daily efcsA(  $. A2:  A2 %%!X %. F$. V %J.  @!%'  @!%'   % . $ ( $ (hh. @( @(i@.H FDC_Calcs FlwDurCurTemp GreenA  FDC_Calcs FlwDurCurF5:Q5Temp3 GreenA o- FThis function is built to plot all the values between two flow values.fFor example lets say start flow value is 150 and end flow val is 500. Then this function will identifygthe location of 150 and 500 in the Flow Range. The cell addresses are extracted as R1C1 style addressesjand the str_XVals is built. Similarly it will identify the adjacent cell addresses of 150 and 500 and willoCOnstruct str_YVals in the similar way. These constructed strings along with other parameters are passed to the2function Func_PlotSeries for actually plotting it.Lstr_SrcShtName = Name of the sheet consisting the flow duration calculationsCstr_ChartName = Name of the chart the Random values will be plottedMstr_rngPlotRange = Range address of the random flows that needs to be plotted9str_SeriesName = Name of the series that is being createdQvar_MarkerStyle = Refer to function Func_PlotSeries for details on this parameterstr_MarkerColor = Refer to MarkerBackGroundColor documentation. The color index is extracted using the function Func_ColorIndex.int_MarkerSize = Size of the marker for series]ȡ](H`]x] @(  @( $., daily efcsA( B2:B  , %. A2:A  , %.  @!%$ !X' mFinding the match of StartVal  @!%$ !X' iFinding the match of EndVal= , !!   , %%X:   , %%X' = , !!    , %%%X:    , %%%X' . . ., V  bA i8& ȢQThis function assumes that you have an existing set of flowduration calculations.qWhen known flows are passed the function will create interpolated ranks from existing flow duration calculations.LThe known flows should be passed as a range address to the str_rngPlotRange.Lstr_SrcShtName = Name of the sheet consisting the flow duration calculationsCstr_ChartName = Name of the chart the Random values will be plottedMstr_rngPlotRange = Range address of the random flows that needs to be plotted9str_SeriesName = Name of the series that is being createdQvar_MarkerStyle = Refer to function Func_PlotSeries for details on this parameterstr_MarkerColor = Refer to MarkerBackGroundColor documentation. The color index is extracted using the function Func_ColorIndex.int_MarkerSize = Size of the marker for series](H]hȤ]]8]Xp @(  @(hCalling Func_CreateFlowRange("daily efcs") function to generate the int_NumberOfFlowValues and rng_Flows daily efcsA(  $., B2:B  , %. E?Range of Flows 'For HEFR this refers to Column B:B FlowDurCalcsA2:A  , %. E?Range of Ranks 'For HEFR this refers to Column A:A FlowDurCalcs , %. LThe following lines of code creates two arrays that should like these below.6Flow values array Y Values = {10000, 5000, 3000, 4000}/Ranks Values array X Values = {0.1, 10, 20, 35}eThese are contained in str_XVals and str_YVals which are later passed to the function Func_PlotSeries={' ={' ' "   ' " "#N/A2bFor the time being Non -Zero are only plotted. Major concern when needs to deal with 0 flow values   !!  "!$ }'  "!}' d  "!$ ,'  "!,' k#DRO 6/1/09 allow #N/A to be entered "#N/Ae   !!  #N/A}'  "!}' d   #N/A,'  "!,' kk. . ., pAfter creating the str_XVals, str_YVals these are passed along with other parameters to Func_PlotSeries function V   bA ipThis Function will plot two equally sized ranges as a scatter plot. It will not understand two dimensional rows.=str_ShtName = Name of the sheet containing the plotting data.9str_ChartName = Name of the chart where you want to plot.*str_XRange = Range Address of the x values*str_YRange = Range Address of the y valuesDstr_SeriesName = Name of the series that is being added to the chart2str_MarkerType = xlCirlce, xlTriangle and so on...str_MarkerColor = Refer to MarkerBackGroundColor documentation. The color index is extracted using the function Func_ColorIndexstr_PlotByWhat = Plot by "Arrays", "Columns", "Range". User can pass an entire column "A:A" and the function will use the available data^for plotting, or user can pass manual arrays "={1,2,3,4,5}" , "{4,5,6,7,8} or Ranges "A34:A56"]1:Consists of the RC style strings for X values and Y Values]0]H]h]]]]] @( @(  @(ZChecking if both the source worksheet and the chart exists, if not the function exits withan error messageH $., , )Source Worksheet Missing, Cannot ContinueA@VzkyCheck to see if a whole columns is passed, when passed just find the cell with last numerical value and creates str_XValsstr_YVals for use in creating the new series. If a normal series is passed then it just converts that address to local R1C1 style@These R1C1 style addresses will be passed as series to the plot.  @!%  Entire ColumnKT)#v Z , % @!%'  = , !!R2    Z , %%6%X:R      Z , %%6%X' )#v \ , % @!%'  = , !!R2    \ , %%6%X:R      \ , %%6%X' RangeKT= , !!   Z , %%X' = , !!   \ , %%X' ArraysKT Z' \' nFqlu, 5/13/2009, add a series if points over 32000, what if over 64000?  } ] 8Phreconstruct plot series = , !!R2    Z , %%6%X:R32000    Z , %%6%X'&  = , !!R32001    Z , %%6%X:R      Z , %%6%X'(  = , !!R2    \ , %%6%X:R32000    \ , %%6%X'*  = , !!R32001    \ , %%6%X:R      \ , %%6%X', V & * bA  FlowS2 ( , bA d V   bA k., iFstr_ChartName = Name of the chart to which a new series is being added9str_SeriesName = Name of the series that is being createdstr_XVals = Address of XValsstr_YVals =Address of YValsbstr_SeriesColor = Name of the color of the series. Refer to ColorIndex function for all the colors9var_MarkerStyle constants. Use on the following constants:XlMarkerStyle can be one of these XlMarkerStyle constants.(xlMarkerStyleAutomatic.Automatic markers$xlMarkerStyleCircle.Circular markers#xlMarkerStyleDash. Long bar markers,xlMarkerStyleDiamond. Diamond-shaped markers#xlMarkerStyleDot. Short bar markersxlMarkerStyleNone.No markers$xlMarkerStylePicture.Picture markers2xlMarkerStylePlus. Square markers with a plus sign"xlMarkerStyleSquare.Square markers2xlMarkerStyleStar. Square markers with an asterisk(xlMarkerStyleTriangle.Triangular markers(xlMarkerStyleX. Square markers with an X.int_MarkerSize = Size of the marker for series]]  $. ! 'Error Number when a chart doesn't exist$Chart doesn't exist, cannot continueA@Vz kx VA :&Deletes the chart if it already exists !J.  B@P#Creating the new series  !' 1,Getting the Index of the series just created  %J.  -Modification of the series and its properties V9  9T  9R 9f b9d G ^$9j ^$9h p5j( X5j(v ^$5j(qBqlu, 3/13/2009, remove this entry in the legend to avoid confusion VFlowS2G !( %. B@Fj. . . i888An accessory function used in the LinearInterp function.   :0yE>'0 i^Function to linearly interpolate. This function works fine only when the data sets are sorted.XVals = Range of x valuesYVals = Range of y ValuesCTargetVal = Value for which an interpolated needs to be calculated.ESortOrder = The function works fine for any ascending order datasets,Vbut you need to specify SortOrder = -1, if your dataset is sorted in descending order.]x 8 $ '8 k<  @! 6 2 8 7':  : 2 !! 6 2 : 7H$0  4 : 7H' 2 :  7H 2 : 7He 4 : 7H' d( (1 4 : 7H 4 :  7H 4 : 7H  2 :  7H 2 : 7H  6 2 : 7H  ' kqz< x 5> (Number= 5)' q@i8?A non-generic Function to set up the flow duration calculationsThis function copied a set of flow values and calculates ranked percentages in the next row. These calculated can be used to createa flow duration curve.str_SrcShtName = Should be the sheet that contains the daily flow data, For HEFR it is "daily efcs". For non HEFR usage, specify any sheet3str_SrcRangeName = Range address of the flow valuesystr_DestShtName = Provide a valid sheetname. The flow values are copied over to this sheet and calculatins are performed.]str_DestRange = Cell address where the flow data is copied over to and calculations are done.Plotting flow duration curve... @(]Ph]]]]]]]0]This block sorts the flows range and adds the ranks and % of time exceeded to the next column @( @( B $P B A@ B A@*dH B A@*k0 $.N B $.P H FCopies the flows column from "daily efcs" worksheet to "FlwDurPlt_Dta"Flows D P ,/>Setting the first cell of the desitnation to the title "Flows"% time of exceedance D P %,eCalling the copy paste function to copy flows from "daily efcs" or source sheet to destination sheet. B @  D P %%!X AFcreating the flow range from the copied cell in the destination sheet. @ N %!'L ;Finding the number of flowsrCreating a the flow range from the destination sheet. Since the first cell on the destination sheet is title flowsorng_flows will start from second cell in the destination sheet + the total number of flows from int_TotNumFlows D P %%!X: L D P %%!X P %. Sorting the Flow Range %6 R  t  B@Ranks and % of time exceededB"For..loop" calculating the ranks and percentages of time exceeded9check if there are zero flows, turn into 0.1 instead of 0 H !G?'H j H !   !! d H %(z  @( @(iPZstr_SrcShtName = Name of the sheet where the original data is located or to be copied fromEstr_DestShtName = Name of the sheet where the data needs to be pasted6str_SrcRange = Adress of the range that will be copied>str_DestCell = Address of the cell where the data is copied to=str_PasteSpecialType should be one of the following constants> XlPasteType can be one of these XlPasteType constants. xlPasteAll Default xlPasteAllExceptBorders xlPasteColumnWidths xlPasteComments xlPasteFormats xlPasteFormulas' xlPasteFormulasAndNumberFormats xlPasteValidation xlPasteValues% xlPasteValuesAndNumberFormats]0]P]p] @%.V B @%.X @ V %.Z & X %.\ Z B@ T  \ B@i:str_ChartName = Name of the Chart that needs to be created] @( @(/Creates the FlwDurCur plot and formats the plotgThis for loop looks for any charts with the same name and if found deletes it and recreates a new chart F @! F !  F B@FykAdds a new chart !J.F  F 9Set the name to str_ChartName ^ 9L'$Sets the type to xyscatterplotsmoothqi0!str_ChartName = Name of the Chart9str_SeriesName = Name of the series that is to be deleted]]Я @!%. !J ! V B@Fz ki!str_ChartName = Name of the ChartAstr_SeriesName = Name of the series whose legend is to be deleted]p]]]а]] @!%. V %J. b !J  ' b ! V 'f k !( .d f d %. B@Fi  Values for Error Bar direction --------------------------------FXlErrorBarDirection can be one of these XlErrorBarDirection constants.xlX xlY DefaultValues for Error Bar Values---------------------------BXlErrorBarInclude can be one of these XlErrorBarInclude constants.xlErrorBarIncludeBoth DefaultxlErrorBarIncludeNonexlErrorBarIncludeMinusValuesxlErrorBarIncludePlusValues]h]]в0]H !$B@~  %!'v  %!'x V %J. !R' !T'  +For int_tmp = 0 To UBound(arr_ErrorPosVals) l KT  l l={ r } ={ t } C@  j $5 !j(qyDebug.Print dbl_XaxisMaxVal & " " & dbl_YaxisMaxVal & " " & UBound(arr_ErrorBarPosVals) & " " & arr_ErrorBarPosVals(1)ix Values for Error Bar direction --------------------------------FXlErrorBarDirection can be one of these XlErrorBarDirection constants.xlX xlY DefaultValues for Error Bar Values---------------------------BXlErrorBarInclude can be one of these XlErrorBarInclude constants.xlErrorBarIncludeBoth DefaultxlErrorBarIncludeNonexlErrorBarIncludeMinusValuesxlErrorBarIncludePlusValues]д]] 8Ph] !$B@~  %!'v  %!'x V %J. !R' !T'  +For int_tmp = 0 To UBound(arr_ErrorPosVals) l KT  l l={ r } ={ t } C@  j $5 !j(qyDebug.Print dbl_XaxisMaxVal & " " & dbl_YaxisMaxVal & " " & UBound(arr_ErrorBarPosVals) & " " & arr_ErrorBarPosVals(1)i@ A@ro 0KThis subroutine writes all important HEFR inputs to a sheet called "Inputs"1This is used to document/archive the calculationsgI use a variable called "Offset" to allow flexibility in adding new variables, changing the order, etc.]pInputs$PInputsA@InputsA@*dInputsA@*kInputs$B@H'A1$B@HSubsistence Flows Percentile: &  %(  ' Q95 Option: ON  %(dQ95 Option: OFF  %(k  '%Water Quality Protection Flow (cfs): *  %(  'Low Base Flow Percentile:   %(  'Medium Base Flow Percentile:   %(  'High Base Flow Percentile:   %(  ',Multipeaks_Multiplier for High Flow Pulses:   %(  '+Multipeaks_Multiplier for Overbank Events:   %(  'Estimate of Bankfull:   %(  ' D1Episodic Event Method Choice: Percentile Approach  %(d0Episodic Event Method Choice: Frequency Approach  %(kx  ' Season Type:   %(  'Number of Seasons:   %(  'Start of Winter Season: .  %(  '  J   J $   J %( J    ' D (Define Episodic Events by Peak Flow: Yes  %(d'Define Episodic Events by Peak Flow: No  %(kP  ' %Define Episodic Events by Volume: Yes  %(d$Define Episodic Events by Volume: No  %(k  ' 'Define Episodic Events by Duration: Yes  %(d@&Define Episodic Events by Duration: No  %(k  'd;Frequency method, therefore these inputs are not applicable(Define Episodic Events by Peak Flow: n/a  %(  '%Define Episodic Events by Volume: n/a  %(  ''Define Episodic Events by Duration: n/a  %(  'k NCalculate subsistence and base flow statistics using non-zero flows only: True  %(d OCalculate subsistence and base flow statistics using non-zero flows only: False  %(k  'oGAttribute VB_Name = "HEFRMod" Option Ex@plicit@Compare TDex(Pub< dbl_Perc1 As Do(e '=0.25 '0entile constant for Dry/Low category M2ML5SLAverage/MediumSB3 0.7QWet/High' 'NOTEIn spring 2010, terminology was changed. Variabns in thde wenot, %' visitouser-)T follow@equPival:N dry = mamwet h9 `VCAjupuM,= 0 rMINHSqax1AXdsf2AcFt@v.98X347 GaHc-fQon9sfactorJSubsistenceThreshold ['A@WueMultipeaksClierHFPI –Fg Pulses^(OBFcO@Aba0nk f@7Q  pass`ed byfMB Full C A^int_We@rStartIn  ZzcofB@Zi monthjhis @`d=define!SeasU and also re yearwhich a s belong $  'LookwFunc_Proces>!@ f¦t ic(arr_!AndMs(11, 6) 'Max at SsC#!ssir po siPPe,x$DublC$s. ?=} 4Dark Bluee#a! Makx Mhly, S`Lona&l&#Aai#fiI  f@+ mac&e 5Br ight Qen %@4_4_Fre quencCharts", EE_Rec@;78calculaaBlF App`roach,s 6Yel "Eeregress cAFawwarn`nd recom`Osd(ApW 0 (_@îy" cl g_"_#jj `( tuevery atch tiit @}ruo 2]Pybackup e) 7cM?/QC"~11you want!0cQVP pFson 1er. %tZ!grenaP byr will not bQwritteng1 RLfOn [I6*!ac;makqhanghif, Sig,j7 / / 9IfpneOsaarray funcF,!supeQeUQm|r tpuusP9 Ctrl-Shift-EQo  R A,Caddia al#CnCCR(U" PqBs&manuHRp@p Excel.03 done-avoidofa(R6pWptR autojicWk5*R?import515f*u~s = . Look Acer lefyrn windowҟa?@3?@>@'Cp0flag. ,fo0 Оqi"'F9' ke CI73;EaBs. Pl­doFcb> qH{xobtAV.V(O/sТ 9DyAs_/r4Xq<ϥj "TablWf Cnts!B "^(-Tit A?O?אB: =/N(7 G sut#//oPsȋ: GoldPA plot of different levelsLbase flow" & vbCrLf str_Ins@tns = & "HFPS !Highx pulcomputations(OBFEOver0bankGDMe@tadataLavenderSummary$usins andalysis.ini f(ile(F@v Matrix Mo nthlyDark Blue#Colored &m mtable t!Sea`sonal !s N!!Click OK to$ c9inAfor addiA(HEFR Outb Sheets descrip..." CMsgBoxʃCҁ__frequencIdFEBrt Gre enAnnu'#f 33#{yCharts_F c "W'Y kWU.}X=(Bspecified) 2-!_ethod o@$* f^- w_ xRegress works_BYel!OE#h@ B#DVweBW&}"xirLucua|di@ i`bute zab8ookxPx ESub i_D W"A(")|Dim)As SngF FingL:#=  i -This ppCjthe )p3`}who |nep(`V$.?=Calcul creat 0bycmay notspl@properoon0lchines wi ut alled,(=which d@on't h} correcdp4, if~s 6 I f you shE_.RtK spd#<,mustD;` steps bee ruMacro->Secur@ity. VBbA ObaЧdel' !ǥOOp 0fo/-/-=20r8SH*24ll2 0Cn CCstC)O*K*llU2kcpaEin-_yk*kC3sAko"T \Hydr0gyEnvironP; ҌA|ime ()" wa!+d!6s@-ortq,%n`Z Bi3 s AcB]#a:8(&a&1{"4GvKL">-*'o "Dan8dyke:y(512) 389-873F4.Op@ tpwd.p#te.tx.uoA"PrfKok kantiط (512) 754-6844 x234Praveen.Kokkanti@tpwd.state.tx.us" & vbCrLbf_  "Qingguan g Lu: : y463-7987 :.Lu@twdb x End Sub  HEFR_St@age1()SplashScraShow)Inputs.# Public *(2(If Func_WorksheetExists("daily efcs") Then4gbool_:t = TruegpIf 'qlu,@ this a w? arroundif a user dGributes >k to someone who do n0ot h9 intlled p roper@3onmachiner,th@Bw ith f@Citons like ce@leW"e@!ll,KCr@itiriaInterpolDSelecti@onSort@will bomv"'.lve?I @design@*a@ check x@kbx_?GEw@A@ G, 5ne@chCbox@An[code modulEBAGabo*AE3Bkcopid, Excel @]rt&oq8eseTBf8rom=kea d of e `addin#soADkT|UtenȊdC`o utBXBatc0hRunW]ty@p_HefrkOp.ToDRρgbaA_Caafz_bz5G calseStop%q#r# 'rseems4 fe ca=partymge` %aBO\bank Th2holdy|T1ېy om4.AJ.9G.N9aG7, 0xJ.9"wiPW+-9pTotal VZe (dsf.B.??5zbach$.9"/.ﰚ; T-N1-P[-_@ 1/ APfc"T9ac-ftS@g Gٟf9&(6* z*175* X7*15*)c_W)Ta"Dur|(dayWA))x)7g&R_26G\e260aeg str_cellN26 = Range(1).Offset(24, 0).Address Call Func_HFPFreq cs("!S", , $"E""GH")C'HEFRInputs.ProgaBar1. Value(8 / 18) * 100|ClearGridz*^9/AutoFi&tk-10 .'q@lu, ch columns to hideow variable seasonyDim __As String*@= Mid("I1"0, int_NumberofSs - |y, 2,7z+C.z"I0:" & 'IBa se Fl6Secti4 @sAF/"11&ukv2]I 53CharK@zy f_s@_oc{_Z0iA1/FWerSt H&9ZFD8 "G2~subsist0enceB?s_SgHM2DuraLaG7'OverbankBS@iwSe#Mul@tipeak#OBFA"sma,od$W14>a)A,("J daily efcs 15=Fey16 e }'PplotcCd9 curveIf cmbx_fuJyChoice.LLIndex@0 Then `'DC_aç dbl_sMetadata aD`("VD#9+ +76 App(licb2. jB3@_" Df$ "5hr`(FR_Quxo;'<6y#S<<#t<oAP5/B:dr aw th ch@sGo).!0produce M/BG?]/C4MT!AA")ba@tch mo'fill`_6run1EBARunWWith> }I54@=B.ty@p_HefrOps.FA_S ignifnceLeve(ARegMethod_V olume3"LpnLn"F57"X"/8EƂ y %`.n%DurE%$}G%CG5%% % 7%Z26 'T?d1, 0)JROverbxank ?fA2_ Ano' EpTier1LA_O _t( 2o?.A C1;/3J r12{AH43{ 54{ 3_/\o$a$2o$6E /cKn2o$'o$er2o$6 o$o$b o$o$ o${o$ 4o$o$o$a$3o$EE o$? ? er3o$'o$o$f$ o$o$b o$o$ o$o$ 5o$o$o$a$4o$EE o$? ? er4o$'o$o$f$ o$o$b o$o$ o$o$ 6`$) = HEFRBatch.typ_HefrInputOptions.FA_HighFlowPulseTier5Frequency .Offset(6, 15Annual_25_SeasoTn103;0204U;0305;04Select Case int_NumberofUs B 52, 6t/1"$3?c44?#5? |44E6E7E šE :  E  !jslE   o   E7EE8EE E : E  "ert6 Z""8"E9"y EE E""9""10""""* "/OL 8"5 "#s10/#!#+++K 1#0F1Q#a#t#oeq#ȵon11 .Offset(3, 12) = HEFRBatch.typ_HefrInputOptions.FA_HighFlowPulseTier1Seas'4gj5g56W5End Sele ct WithC Callw_Stage4 If 'run statisthicsEy MsgBox "This program based on IHA analys@is, ple firstd export to@ Excel workbook!"=A%ActiveWD.Sheet0s("B@s").Tab.CoDlodexFunc_G("G`old")sPMove af ter:=Daily efcCC$Plot%':%&A&HA&If ?Ex :!%Zero% Then **VSub Bten`ceDur@L">)SaGFDC_@b:__Blw` Cur F__AHFPSA`kSDOBFCIo _FN\$>[#`j%nMetadataw vdU#CKi hRRlavende@* P _@_frequ0=yG\L\Br0t Green]("Charts_F  v ?aOM cQml_ҕRv0= FauGpp(licbQ.ytuPsBar@l" has fini kd 6 calculT. It needs u`ser iaucontinue.f.tu. 1V a@cUq#(str_ShtName As String,0bB}Peak_colSRan0YearDiIntunw,` i, jP RngLimit0Long3rna# Then a.Format.Line.VisiblA mso0Fals%End If!!' Each Min In vqNotjqIsError( .$) 7")! (,d aqNextksbp i@I1 T~oqvk ҆x)iA1PA1AA1C *P_1 1I(  QIII?QarQQ2`zi[?<N.?< P"<.<`P2S$s(i -` 'AF_/K8a_8_8q68. 8328V6%8`8O1YH[9Ri3Call ]Q_PPB`(%h, @w5 3>illn*, "E40DisplayAlerta$4V  _,ҤӼQ=$Tierc = i, j, KIntegQp3TaqbоStringBan8kFu vRum@mary t,@ let usPQput tTfloodd/. aSR5gBb2)C&*"u!aMergeWrapGorAlignm(?1Y3 ?=LBA, TrueU"White"'By sxlC0 er, D" Bord = Opns "3A~und SoliBd Thin lack5O O C 4E/e7"Top E p|0"dz& ":" & .Range(str_Start_Cell).Offset(1, 2 + int_NumberofSeasons).AddresBorders(xlEdgeBottom).LineStyle = xlDou@ble Call Func?oAi"3, 0, "Left",SolidThin Black")JpRigh$KwValu"Frequency"k~0, 1FQ^ _@X?99f?72O17 ?7K).7Q@p(ann)838_agLFor i}1 ToQ'Z""bNames(i -Tk O\$ ߌJ %iNext i';#2,"1 per 5 yearsE1)0.2?{'2?j$5?#4e3$6?#5*a*_*d` 1 6*_ * .*D7%2*8">8q=''j3 P).@mula %=ktoPeak(i 'gqj" '0BpTualwG "=+HFP_OBF_6 ! Worksheets("")0"AI1194a@ 4f[ oC/)8Cs#._R ?CT9;2 ?O I _4O.o b 1\0M"eCOOITC_S(S3"C`c _ D13D3K1V`#DoĉU`XD,'E:3jPBoc,g5/H78{joH'>oHlHBjI)H sO)I)7 IywI=KITI6H(jG`!* 1?sIz o i Po o o UUi Q- n j 33#b$"A 2  { ̵t(11, 2 + j).Formula = "=+HFP_OBF_Frequency!" & Worksheets("").Range("AT1Offse!4, 4(j - 1) * 1int_NumberofSe asons4).Address ]str_Start_Cell).f2^*6cd3^d8@dNePxt jGi'iCall FunciBorders(q>0<": T, "Bottom", xlSoliBdThinl ack"). 'user input for regAio  m*"E54AValuePle entsignificance level here:"NFon*Tahoma14ldRe8/!I!68.3IAior.ColorIndex7&("Light Turqoise)&="${.AArouna12u E55+ind)te whichh5 method is desired by p=in@g an X@< the apprPoriacs.1 '3 eF56Volu,meGDuratQ0E57A) LN/LN8QuadA cPG+ XPF5 I @ iI1 To 2O!;FEbdi,GLeft _F ajt,- bdb a` Jop_ _ V R=:L>8^PP-7z XxlX?fgfZZti?OE 60/Ydefin@n over bank YntpBd h flXow 2eCb CFtable:,alaFEexamples PFvidqHeGFsF_0 E_WithF6PQ.&jv>0!8P4"Annual\z>Ϝ epip= Names(i u 1End QQ'pop \ !wadata from la`st ru|bw!w savPatm!ca.BF62#Select T&TC50‹9Chp~sB Բt5v,$+P77opyP` Met <",& $ Q s:5\$'P71fu chxeck7 A0B5FC$& KP0d&&& "AND(-Kr(ef>0,?1<!D3),l ]*Kl(9, Len)03IF(OR p "WarnI: ONmore of youjrOsbJ"",")`CK~ 8|LL$ !}5#7Oǻ$#h<> "j,*Y;$"7"L?#?#?#% pW 1).Formula = "=IF(OR(" & str_Ba@nkFull8"),""Warning: One or morf your high flow pulses is above bf"""")" CaeFunc_CellFonts(.Offset(j, i +Address, "Tahoma" BoldRe8)[  ~Next j  End With .Range("F6 8" 8Z0, -1)ExampXles ;03 per 2 year1, 1+205 season=,3K ,624800Ft'5@*10(2A>123.465@5Oy'overB @ƀ= 1 To 6K:KBorderDE61"):i, LeftxlSolid, xlThinXlue j0 int_NumberofSsA/K&aE!jInterior.ColorIndex@ o&("L@zt Turqois. x&Arounw?"a7vaig kMergeWrapBAlignment("D62:E621True, "Whitei"OBP™@xlC er!6#3! "ack @ â$L L9Brl , i x#3:D67`s#HC| Fa#A4!swA0 #"6.#3ߟ#@-#GH 5aGk2` d@|0). Valuei"Tiermat("0 {s" f?IfdgHl%KkFso specify an nual eBv1, sioyR 2 a3vin the Ancolumn.Xf;* P).0N %q ?H697?s8A conPien c0Di wish to recomFdRsta@tisticy PcPted%tgi frequy, may5copy/paste"Bn lea Qrs bl0 EO:H71&m&&b& across3th@(o@s,'id0( d'adjac`OO OOO@MMDCInuctiК:1:RowHeyJ?4pV?b12f40F At')popA tdAcguxideB+1v ,| b/:g|ne not ntA77797IXtableexamples, #N/A means5at HFPs did *occur ythX5 season7(a#drd1912B1AddiDinstruc`1 8areA!Vtext 2When you havinish@@makingr seleb1click ""`"" *edu ba0e`Cin."" ? 'fullEWithApp`Bv.c`,`xlAut[  %AnnualorSbH(6_Fn As S@ng!>Dim Stxart'iq`1-6 7X-12+Sa'NtSF̀zorponda1@rt$emiddfwork8et "chs_ab/E41DFi$1 To 12aIf ).Offset(i, 0)#@n$i t_3 ## # J19tr-0 IsVNg( linE + 2))O 6] #]AIEq]?PSub aJ_run aga>oacyǣ!, j,GT@2H&RngLimÐ-JLong'R$phtNaL3ShtTSAL{PGX ` iodPer  , P_pMethod(1), num_SPS@(dbl_pc1"0 A<23,WRBaseF̀s {("FT:'!#yow2"cyp G7Bool ()adataW D4"7 b_Q95`?=Is`et`=Inter&tPjqeams?tNopX& Ysݙ6=EMsgBox "Y?4?P"Tъ:#ΰroacʠowcoqo >)a@Bc -tusBuNow, accept{&?ts..'re-po ED m hT,ii:0Bom@s R~CS #ЍdreCteJMsfsM(arrhs39Wi9@'garrcMO`MaiLf Mfr xbmilep on@Sha vu:, sF63hstr_TierStart = "F62" Worksheets("Chxs_Freq").Activateint_Nu@mberofs0ith ZeS 'check if user input has mistakes, 0fillsing valub)you mus2ve someth#in the text fuency cells! Foq To 5 '0 is overbank t'an nual season bas8ed 6 If Func_AorS(.Range().Offset(i,P 0))J""` Then+^j1^2sH>1 + j) <> "AMsgBox D*HZfhaetmAqJOc. Pl@E|e tEpa table.EExit SubS=End IfUNj'no {..n geom upp%!YBxWiABGetValByAT@4-I@Else '#6al,e"should be bleo Dim bool_QC@o Asd B@eaYm= Fa@ v^mD _2 ^= Tr~u Hbz 'I  i}}-!Ik,4_A"LLtbiHow manys?`ximum 5`canƹboDvas`U d %W, I wneto hE b`A_LJX5i@0k#Q 'onlpڋ qo+ 1K| bU t PS? quitg`O= mEeUA`area `r2tfrpX at w A|qed!cb-) 1azMpod I0o("WP((liko&lect Regressiy R2ndard HErrЃofE0stimpP-" & _H"(TDypWR2'1'SEE', dePfauls):", "HEFR ")''0' |r_ "R2" 'R28d r @ra 0r 6ask f 4F"F57hueP  (02pQuad ic`volumze:q *NLnxl+ G K=81 Du! on atic 3n )'nu0m_SP )tgiPSignifiQce Probability Qalysis:(%68.3)3% FeI547`%'$ Rear Ss(OB- 1,7.+col7G0*5 8gaC^diffe`rentip7Ōa!ubp,^ cGO$F lowUShigh fSgaQ'*q" x( 5ʁ!#_Q ?/ޤ= 9rt ? A '~"0& 1%pPNot Appl 9t`).s$Isaϻ j1_ s End IfNext j \ VFi ' now create HFP_Recs sheetstr_ShtName =P "EE!"Call Func_ProcessV_BA(6)+WorkWs("Charts_Freq").Act ivAddition of annual column in the tier table affects pregr=ults, to w7 arounBd,copy us input)metadatay, fii42cQ_fPway it wa.Fange back whennishvׁ2TWRaF62:" & . ("Offs et(5,H_NumberofSeasons + 1dd8G`C8Paste!W, "M8",F $C50@xlValueskA0* ).ClearTAOakA[for old logicG(J;w F&)E $H Fj 1 ToG+ V0, j).b @]C &i&|s - 1 '202'0arr_B(iS$%2Sti)iE  +*Ne @(Wit^'mo nthly xd &sXxflmatrixcms AFlwMtxMUSIfcG@Existsj T pbDelete 0CŸElsel ^drSsnlǯ) ih $d eH#uAbN\Hb'cCena\) {of= 34i=a5 j=01D234 (1 p`y 2100ad! 2h12cd 24h 5c32:6 `@testse@fAƸis c,|osI@)$a?iqq, on61 nasp)f8CfeqvP]luoawtMi, dependHing vbc `givenj o ,5s s (p, hCny? needcheckw'PB'@c! o`FTSA ["OB|SAEK>oaT{p\`LY"0")|"?Uq_LZL > } LKq_xLeTbook.ST.Tab.ColorIndexSR("Yel\"@Peak_comp@je14C!Eint_9iodrPerm ',_H= 0wσ6h% q@pG ApNot IsE`mpty(Y'whasys w r 00<C K e ߟ:arr_Tiers, num0_SP)!oKtisticsAgygatAz, str_MethodCi = 0'ShtTP"OBP" & Format( "0"7Else3T 2, -:"=nd IfWWorksheeHts(:).c0ulat-SAbGHighPu@GMatrixUS>IBog'#fflow@v@"seasonmoXnth$,t^+ 1c @j! @q[fFvajx#e@C NumberofS$s A`L\l'annual *gF?od?%'pop] `" aGd wc a!D CD(for thtis ? &9_;A*f?i;  ? faY? D?9O/yy"R $?E?EI_Rxq_R = U_R_RI_ __ IcsI{IVKI I&O_'_'\'I& ?IH?THHor_2)"H)d?H/DTPTW Go_8- -GGG  Pϔ\7?doBFoBoB*  Next9J0i 'Withnow ֋the t ojfeljssF@MS"Fl wMtxMUS "A + 2KPMlyAa0c-ft%ϷCellMergeWrapColorAlignment(Range("A3").Ad6d3:OfHfse -0, TrueU"Dark Blue* "s0xlCPer\, dG F0 s s"TahomaBoldqWhit12CoaSsnloijSaltnt(Range("A3").Address &0 ":"( Offset(i - 2, 0, True "Dark Blue", "High Flow Pulses&xlCe@nter, ) Call Func_CellFontsUTahoma_BoldWhi2tp12LRWo@rksheeI"FlwMtxMnthUSMove af:= Metadata"$!Tab.ColorIndex =^(&SsnlH[k# -J'ngcreate the or 4 chartsHfalF req you can deleHFPS and OBFS ]@ D""""FD_SAn( O' BY.Acti^v83Ce.@ShapesTextbox(mDsoOri@ationHorizontal, H10046@75).S-ctWith  .CTac s.@"ThisB does not cin Jy A[uency Approach ults. It onDly s imediAscalcul.s."!`.Name@vibriSiz18j]3cE= e>i/'a_RngLimit@lic.A..Match(1E+3006, )6$$Nx:$Ny`1` _NumberofSeasons 4)5C?`@??C"???J?t?'?? xget rid of "TxSA{v For i=0 To@4Tier-31E%ZfEheFnstrtمWOB 'EfT!@ma04")@"YIf_G(JN`F i !rec@rt table# AW!"C50f'.\G\5,*(E\+ 1& GCopyPa#>1'reb s>od~.$9"dai@jefcsrbefore᳛BaseQus Pte: APlot wa㍄w1wa w"must used "s"@74aN sC(" wSubsinceDur| ("Z`pny |_C2ֶxKCC+9 EE_Re%"Input%wXӃ1book? v"Xlaver(] }ppStat`usBard( : 5TɃB($Dim _ShtAs Str8ing3HPVD ,uacy!rOB]j@, K, l8ntעLongprtYea!p DW S= "$! _ =T pc?zPbx .JTk!1ctiveSheet.Range("$C:$C"), 1) str_DateCol = "A3:A" & int_RngLpimitP .StartYear` ().Rows(1)d58End!3*x - 2B 'cre and pPolul s "HFP_CalFreq_PVD"ShtNa|meUIf Func_Work$Exists() ThenDelette_ '%CR5 3.Tab.orInde&xW&ol("Light Blue"elM~lK,qkbKTpNTSDSS?JS5*SonlyT D _T`_T_TWTa*T_!5}~9*~t~**e*C9**cb VD).Move after:=`;3E .lP btio8n U!ٛ As String|sDim <0Ak+!i, j, pK, lhh LongBeason@[=!r"sSK~A:G")`lpy).A|sA1:Swc!.PasteSpecial :=xlAll, Opxeraq#yNoneC\OBFUp 2") <> ""Q|Appl4ic .&5/.Match(1E+p306,56$A:$A#0tq1=  M  "H "Φ +.y _5" FIf SWith  SD:F )CCA2:D@!.Inser$+Qq 0:nowpTtable headsBE4EE13223& &&oCTitlD>1EjxCel`Q'conten$ For i3 To2aj`1a6#= .Offset(3%j1.Addres:@G12_1_ EW21s__ t[ i (R )).m "=if(`(hfp_recs!!& "@>0,not "=""N/A"BP),$\ -3]N">[ ,8 -2# /1.98, -1 4),1,80),emt(! * (a4NumberofSzs@d(eekto!ffset(i - 1, -3).Address & ">ee_@recs!"4E22L,,.O 2l13l/1.T98v1;4:),1,0),""N/A"")"  Call Func_CellBorders( 1 + (j) * (int_NumberofSeasons1)F, "$Around", xlSoliBdThinl ack")HFontGTahomaD"RegularBA, 9CFor K = 1 To x\AVE4 EO3@EBM,@+ KG{= 12lG2l'Dkf}JmT@>"=if(and(J@>0,not=?Eÿ),sQs&ul3K3'r33n73b7iserror(fi`D4a10Fm))?C?0-??C?C6C+??FU+>2?N`ext Kkbj giEnd With '! Workshee"daily efcs" Lct`ivatet1bRngLimitPApplicatpion.&vMatch(1E+@306, AeSA.Range("$C:$C")cirstr_"DColVA3<:A4i StartYear a().Rows({hOOa- 2)dtalFreqTitl0 D L34d /+ [Sele|ct !` contenA - #%3~:Q vDU iDm0+Aj@҅6!ч0߇߅ߙԙ)`7OAAK1@2, lvUu0)eS0iIf"@hen/!1X+ 2PRArrayPbi! j kU ,sum(pvalue(right(/&t,4)L)=? t_", j"ly0kEls0GO ,XϨUHr= g#( m[(&=o-o4o "o9_Z '  b)'t(<@O If${%%)Std W}߆,@ 9) N`ext K LjLFor i = int_@StartYJTo EndZCall Func_CellBorders(.Offset(i + 2 - O, 0).Address & ":"12 , "QAround", xlSolid!Thinlack"JFontITahomaKFNlJ"BB,ˋCMergeWrapColorAlignment, True"Gray-2T5%@"iADCerGE~'left upper table he\adt ,s0n1nKmhgj j"lxlTk@ WithxtioE btEv@>s(str_ShtName!`>Dim Aj, K, iMaxyRngLimit1 As L(ong2 A TierA0StriaFreq`XsA  0arr_dbool_AnnualBeaM!{iLumpceRange" = "F62"YWorkshee~"Chs_!"ctivat'nowAunt e( f`each tfirst overbank, %/.A  only need to look at aϢC 4= F>.Match(1E+306, B eS."("$A:$A"), 1@,%$'2 $d+ F% )2-lD:$fdmI= d3'!#"DM2)%-bAppPlicak.x()+Re!UOZ#1 DNumberof!ks1L@K @PseasonbP/aA j`N Ss If b(@)1) Then'[y:=g;Els49[FaO`Exit p nd If7k( ? 'j6te; A.`7/7'i * (0+6?)qJBYj"ߔ?Y s; ~i S -PP(D-ls->cQdqw '*,MppN)]/Eq/.2- QgeҨ@3j'Et_t_?##[ = q-߁uaKa1aEqrQyIn8[Ov?Iseric(.ValueH_UqK$KLoeIuM0yIuuK#/!aLO`Not IsEmpty(a \SQ".6'; ;sP99V2@V@ 2`}[t9pu99a]uI1n 3@Z3.Value) Then arr_Events(K) = <+ cel@End IfFKA]K + 1%NextElse'test season j#If iLum p > 1iMinXApplication.WorksheetFuncMax()>L=_I> i;`=i_ Pi7A?_Co8untÍ@IA$ C F  _FreqPVD(str_ShtName As String, int_StartYearCUDim Cal@IP only :Ai, j, K, l*RngLimitLongG"!Colo, rngD sA Rangķ9IHbool_An(nuabBeaDD ba023lgG Or1!La`r ?D8= "EE__:"FmsE).A ovatDŽ%cul 3&7= %U.Match(1E+ 306, b eSA~.,("$A:$A"), 1R'now fi@the max number of ebZ a period, allds!<= d D1").Offset(*+ 4.Address & "<:"i -km 6 * N"ofSs).#For 0EachXPInD).@umnDAi[~E 'can't do this any more, need to c@ombineDsGA3 'so9rs" =(lQQaiU5A2<`Selec MCeC bTableaHHistorl Duencies bas Peak Flo`w, VosaQDurk40 k_Fo~$, "Tahoma"Boldrlack14 al1 TitleC("A4".Wit>ht51"WiBd= 20overbank ptierx$($0x To2pg Bhord(5 -28, 0F-1Ar@mqxlSoli;xlThin 1_:@5B9(MergeWrap5orAlignm Tru S"Gray-25F%lxlCe0vj:Pn/A/y!0 DI,L3MPjVL @?M_!q< mbAr "=if(LjV!Q + =""N /A"",usum(VDrT1=%`,1,0))/Metadata!$B$12)d@522 '0R422y_2Z Z2Reg@r`+"2g+Aat0.0%_* HVzRalV6u2$2$=1i//JcN/ /* HP___sGsaL (p q 'hfphr !R2h(RTj K Thecka$A5@b(j1eT - 1, 1) Then 'annual ti er bool_A= TrueNEls* zFaPExit FoEnd If tNext Kor seasonal? *If ~V? i = 0 To iMaxK1nt_NumberofSAs + 1str_FreqCol!Range("D" & i%RngLim+ 3).Offset(2, (j) * (8);K).Address'|":*#0ZYearAStart?4i5fmulaArrayM"=if(7SShtCalPVDA=!g=5=""N/A"",sum(Z#a|& "=A(A0Jn,1,0))/Metadata!$B$12)"WU?l Func_CellBor`ders(, "# Around", xlSolidThinlack")?#Fontik[Tahoma P"RegBrABb, 9_" yDnPatO0.0%1 Horiz`$alAlignmen xlC5 k3?[A+ kbj!YSt@3!dL_ R ^ﲄ,*o_V?H 0?F Left(! s P@ "C' 2/ _9% #R42R0R Sϓɓ?? j m'A#('?:a[mA@Array"=if(or(%? @),],sumn(G=|0U,1,0))/Metadata!$B$12)b___+0 qa!u"0.0%ooh/$/$-$ HorizalAlignmenxlCer" ? kBord!.`A#AroundxlSolixlThinPS, OGcqZ).oo_=Merg_%OOO.4310o>*0#DfǬ fT6666m6O$O$66Bt"66`6 Call Func_CellFonts(str_Last, "Tahoma"$Regular(Black 09) Range).HorizalAlignment = xlCerA3SMerge#:int_lumps1End IfEls=If = Then?FreqColZ"D" &(RngLimit + 3).Offset(2, (j - 1) * (;NumberofSeasons + i.Address":#aHYearAStart D9K :Form ArrayS"=if(F 2") <> ""|pFAppl4ic .&/.Match(1E+`306, /*$A:$A"), !Oq1p3f_RngLimit = Application.Workshee tFuncDMatch(1E+3 06, APveS.Range("$A:$A"), 1) NA" & int+2.Seplect9PasteSpecial  :=xlAll, Op0,not=""N/A"")), !-1t,@">,1,0):,"OCHl]Borders(;(, "# Around", xlSolidThinlackBi-+F@t_/@Tahoma "Reg@2rABb, 9EHKH0Tahoma;"RegPularB8, 9:Next 6K F j i  'y columnFor i = To2ˀ:I2I6cK%"a$hhBol"g!MergeWraporAlign0mentG&, TrueE"Gr@ay-25%@iCexlCleft upper table headt ,M0n1_7h6ix_4W3?(5"Ah6e465aWith aAtiou%Ponly(ShtName As String,kx $ Dim d/b D VD5!gI Rj, K, lh RngLimitaLong s, rng_@b RangeGiMaxbool_@AnnualBeaE!Lump a*( fp'Or+Las4c 80= "EE_ !_"3$Workpsheeʌ`Octivat 9 c@E!2= &N.Match(1E+306, RA eS.".("$A:$A"), 1%w $sPeaD1")x)!+ 4F(* +iPP6 * BNumberofSeasonrs1)f;S ApEach%In 31 ).`'ptsSDsApplica!;.)(+IIf`w> + Thenpx[wWs @] A2 SelectO3p"T`of Histor uencies based on Peak Flow OG4)$S[|OYus14alTitleCombine("A4e . Tt*1C4Width200overbank tiŐ0Da1?krүqxlsU {Kq_ ߉  on߉ On߈ވj 1奟91 Q8۰D DA3&Fj>:E A?qtṡ *, ˠ m`WArp "=if(A _ݐ!q s+9  (=E,sum({i0= ,1,0))/Metadata!$B$12+_20 CCS!12לH 9 /C+at!0.0%dQU qH`VzontalvU$pHP)3 %=Qio/?JcN//Mtax + 3, j).Address, "BorderAround", xlSolid Thinlack")  Call Func_CellFonts(.Offset(iMTahomaf"Regular B`, 9cONumberFormat = "0.0%"; HorizUalAlignmen!xlCer "Next j i 'hfp `tiersG jF2 To int_RofT+K1Season*'check annual or s alFIf arr_3(j - 1, K). 1) Then 'A0bool_A= True ElsPOFa Exit Cnd IfB_K/E? D_0? A+ciK0c l1SAstr_FreqColRange("D" &RngLimBE)2, s)p * (IDA)K":#` EndYear GStart J+`MFq@+ `3m Array&"=if()ShtA Ponly!?d =""N/A"",0sum(>& ,"=al!07,1,0))/Metadata!$B$12)Ja烹Ȱ-ns` 93?._kDkN) erof/x ? 5r5,)?2s G, '6O/OO ).///Q =paA/O=f ?p=c = Z rpi'u need to see i@f lumpc ؝P K3ȂԈo1 `= oy(2$17(2@o©:E:K? ? E2?& ?&OϔtO湬XK??al;)=???A _sĨOOH_)).qO<NN#q+#(C___ _N'? ? &$0 /N /N*5gO(4}R & .Offset(2, (j - 1) * (int_NumberofSeasons +l.Address":"iMaxL4)" 7]3(Format = "0.0%OeHorizontalAlignmen6HxlCerjCall Func_CellBor`ders(8u, "&Around", xlSolidThinlack")!L&F5%ss@Tahoma$"RegularB", 9@#'s%Alumpq1S y i To SIf ` ThenW A str_FreqCol@Range("DRng Limit3)ufi 1)#A EndYearAStartKW! If+Not IsEmpty(ar0r_Ti], i))- 0.B'B '9e`_need to know moreA;aB%C`NamesaSht}PonlyA!ADG_ L_IK ?JĶ9 baseϟOr'`,).Rows(e=""N/A""Խ=Xe~2~$2~@~+_))a#/& "+./&2%/! ,W5!$! !#_DimaCl`InStpr(1,34p;p:?wN > >0QBLeft(V  t @ "C' 2%/  :_%):OS2++ W9m To9] T0` moA`(iaoja\Array"=if(oLr(E?3@),],psum(&H= |0U,1,0))/Metadata!$B$12/Oӏ$q?e/$/$-$.CNo?I9GcC).oo_=Merg?_O%%%4310΢_NumberofSeasons + 1) i@.Address@ & ":".Offset(iMax2, (j -d* (int')"  q3,qFormat = "0.0%cyHorizontalAl@ignmen@x$lCer#~Call Func_CellBorders(str_Last, " Around", xlSolid!Thinlack")17F/ @Tahoma"Regular"B, 9RaHnge0).I Merge "DRngLimit3)~ @2@!`$0YearStartv_"A"}K@+A`YArray)"=if(),Sht pPonly!!!a! =""@N/A"",sum(|IB = l"0)i,1,0))/Metadata!$B$12?a- , }c 6s߸߸+ø Kp ` `O4}C/=1).;:1.? 1o<ߒߒa<4?4+4O///&Q/5$)ϑ_>P>jj))+ oD11O0?Є ~OOOOPyF6CL of Evs per Pexrioq1W`ith qtdio@ al1Title(!!Dest As StringDim i, 4S43)).Se0lect A ctive 'table tߡ#Q2$$1ouaP* 6;/%%% 1B, (int_NumberofSeasons + 1) * 6).Address, "Tahoma"$Boldlack9)  For j = 1 To &6.eVEETi9t+Lms>"# ArounxlSolid;ThinhlFont?f'o$'*,ҹ + 4"ʹK 61AO%׀tQFoQ/o Qk2 ލ}1OQ|AOQOQer3 QA*2ёN:ߜҜߠ٠/#1_BQ>o/3,?"BU3VcheckT a2y sal+A@arr_F , i)y^@T 'dt1f=BFaOExitA3!u͑'A Q?C66SCCϕ5dD 0  [100DDD) &'/, need to see if`qgetherON"ccE Rt  e\C`2 ߥ2J=R_bϿ = E4440WiF?1A Nzot IsEmpty(arr_Tiers(j - 1, i)) Then HIf j =* + 1 'lumped, need to know moreistr_NamLes` &  S eason(i)GDim int_Cl87InStr(5L_, ":"3『 > 0U)Left('_+!&G & .Offse*tU2(*Nu@mberofs)* )i).AddressN4@-܊TCall Func_CellMergeWrapColorAlignmenETrue, C"Gray-25%",BRA{, xlC erG\PElsܚA*?9<@HEnd IfD1UU1~01jpA)_3,j#HHH;=HD1B k_#A#A@jhlH##d"]#Ϧ#d# i߰& /" Bn/"0dO[BBtero/\ ! Next i?:[j3With Qltio@9mProct_HFPRecsB~Shtj As ing ˆlheadA~Starts cSC_WorksheetExist$bDelete_S I ä BCreaOPD! = "P@eak Fl (`cfs)"7'Fill_EE_y B1}VoPqe (ac-ftC0!Dura (hday_ _9w= Range("K10":)%X0Ш]- 4l Upper Predicb In03val ? . )o"_5KV9__ _%A"Lowr, RT\SS * 2_ _ _ Y  !f*T1   5   k;V I.I99RC,[S3T~HV4.X^VT T.A7v0Qc$, qPb e#? umnWidth(24wgBord0$0;36,5 "BorderArround", xlSolid@Thin,lack")  Call Func_CellFonts(.Offset(1, 0).Address & ":" :int_NumberofSeasons + 33pTaho,mal"B, 9MergeWrapColorAlignmentITrue, "Gra y-25%Rst@r_THeaC:erX21 +gGgj Ub"Ev_sdxl9b2Z:?SSKAverage Frequency?')PXxTzvdK '߄ ߄ׄl 7'nnual%For i = 1 To G!˪+i_Sz , _T / }-l .aNames(i - 1)ǬNext i,16/aj@5v0T53+M6i`jQ6 e"j-KG.3Z'fSo"OCbank OW@oOy7 I "( 4ervD????3488ߐߐ@s,/`/#*(Ϙǘ((High Flow PulseopntereE2)>WorksheeЫ"Charts_p").Range("D610uValue 8:E5waOOG3Bi,PMճ"Tier!mat(`"0"P/ _ 6a0c zAS@2NEnd With1ations7!!Matr`ixUS(x,xperiorQPSt@ 0, ars, num_SP, hMethiPhtTP 'm 'h)p) porA of f+@ fuser specified fies Di~m ֣` SSAMTXsrng_TPq 'RlocaBQt 0 aã0on w&1sht0&jDZELowϡ Upcbool_Simple As Bea! K, ltmpMultidG 8SetI0=gerIfb@&p{hep(!c"OBSA" E B9Ty4/"40Y" 'ststics aggreg0If dQFlwMtxSsnlUSeB11 's loopS &AndMontbh, 4Jl* T Exit 9 521"4  .Cell = Worksheets(str_ShtMTX).Range("A1").Offset(int_Tier, j).Address El`se |tPartC"2nd If K0 For i To 11 'seaso@n loopI0f arsAndMonths(i, 4)9€PeriodE\Then_3j  i Kp + 1 MNPext j-lK #2 0&+'now the t8 Dim num_Peak, 2txt,CentALowUpper  CfEcJCdS) @'volumf'clearup hregizC, delete C s AJ:EF, copy B:N of  TxSA toPx a~G bool_Simple*xTrusuCBa@FuncifyTSAJpTP, ECFi|od;SA )=V GCX@%"BT844"[58^70 C C Cc 'a_'MsgBo)n:$PlotV6eDurat:($C#$HC ],"},b8!,Method(0"Ln"8T"/@9% #2#$:.ValAG: E4  Bn;  C 3 R !& `!6 `J(Oy1 Bx=NumberofScΈJaYtmp! ͅ  '"EE_RecsDa^߯t2ꀁ{.HorizPwalAlignmsaxlC38h&> r0NYK"N/ATO#2F.s# mat"aZOOOHs&МSea+- 4005?bss((M1?rGQ)vBOO@Ot_A5?`"okfdCVe * 2%//naďoo//-V?__^1Multi5de`BRWg-d iv<?18k%0oahcq : +q'2N^>i(mQ8pmq 1׏m )nn[9o{O }OUX:Uv5'`ksheets("EE_Recs").Range ("D10`Offset(int_Tier + 3, 4MultiSeasons) = "N/A" End IfWorC.NumberFormatw0uGeHorizontalAlignmen6xlCerkSeOof - 4 If n@um_Upp> 0 ThenbMʀՇN<7ElseфN?9v=wLo wV * 2AT?FA%_BwxB_C Next i %str _tQp: P" & (azPeak, "#, ##@`" cfs with Average FrequencyQarr¹s, 0) vbLfRegressed Volum`e is @VIs ericBG) A! ˚?g%Bto q"#N/A $DjQh(B/F_erKc"@3(L;C 3) 1|# (#d'duratio͠$AMethod(1@"Ln"ghT = haShtTSAe4).2niodt?\q).Valug#r!~V E(r慏d  t_?;(o 57P=D)Fj9oP)dtmpp?/$n k@OOOHoiˮ #ODM1H@B3ronʿOOo""4 ?? SUV6ߝ O_)X) oo"//-__^i`/!8P od -StarNtt_y<t_NumberofSeasons - 1 Th en Fo r i =Lo int_Peri`odEnd 0PWorksheets("EE_Recs").Range("D19 Offset( ~TiH+ 3,y)lAElse8"N/A"6IfFn.瑀matt"0:2HorizontalAlign&mnxlCp G6vUppsvMgv @Sety#lyy|_{y -.AaiaDALow_A|V_A&) * 2AAԌ?s$%_BWxB5_C Ne|xtaXEstr_t = %& vbLf & "Regressed Duration is 6"@(B@, "#,###0") to # qO hBh ["+Q" (\l)?'put tBn plac`v1ShtMTX1jFlwMtxMnpthUShjw).ActivatDimGrayStyl f^=!B k kn1-80v%@2` -5PP= 33 ۡ 24425 rp5`WhiteA  en 'overbank f`low tcUCall FuncllMergeWrapColorƂ("A1:A2", TrueU"Dark BHlue"OFMs, )//("B1:~M//0 //XFk5 "TahomaA Boldq!S, 12? ellBorder! "Right`@inuousQThin 9BottomlW'Stop OOt(.CaT:ADQ1-";,[ !QowHe-80c?@.k S/N "CourNew"ED@1 Z_s_#RT9;# %%" G*Lef+x.' \`Ssnl_`r_bY`oIU /H/HH/H2N@@_O_O/H<_OaU///H/H*/Hall Func_CellBorders("A2", "Right@xlContinuous, xlThinxWhite") CalBottom End If MMergeWrapColorAlignment(str_ Start & ":"G, TrueGrayStyltxtC& eriRange0).RowHe = 80  &fumnWidth11 If int_Tier5 ThTenFs~"Cour&NewA"BoldlHack11tE8lsePÇ, CRvb\rfSa8LeftiogECSimplifyCghtT0SA, P,wCperiod`AWorkshxeetv ¡"EG:HC").Offset(0NumberofSeasons - 4).Co pysSActivat|ZA1@Select# c.PasteSpecial :=xlFormatO@a$ciNonD Value g tBX)D  6&SA0B:A0+S5BS' '*z~CE`MHDWTA6?Ba? a +kb)bk% b 9FlowMatr@ixMSUSName As SngCDes#MhlyOr ÆalUnit sTypeHApLcB<.YtusBaqi"Now,@ populnhg f `? wELlPIe wait..." 'qlu, modifiedjfB, chO d to ow" ferz t0fs`RG^s U ("FlwMtxMntaoL`1ac-_.ScreenUpda= FaVryDisplayAlerts0{oQ hCreSa q&Summary T0able`,Sht6Dim v@ar_tmpi countaInc1!IxgerSa= 'l_S`Existh1)]'ACT_5 o(de''OV '2! __r .+o''i%2).<'z3us*(indi0 e the|ar аg00p of pBaseX03S":t#0define %a a s.5i s"}.ne#c~iй nBa3s $Wma0s $ each #frequ`ency_9CpeakNvolumeb_dsf!acftdurr@.on;= "O4:R6A 12:R14a_R U X'!20:R22%,8:R<30 cQ!HFPS_subt_s_col 13).Address#??75ϝV4__W11 OOHD.w 5 sy3/ , * 2}2m%9OO?&0G2s ^. ̵_start_col & 1).Offset(27,hAddreDssh":"Range(str_HFPS_su@btable9, int_NumberofSeasons). Select Case YMonthlyOr.al&*#" "'Call Func_OBFMatrix(DestC(ell|,lShtName, " S"K2:K6") 'fixed, no need to cBh qlu ="A1'h1IfXUnitsType = "dfs" ThenGHighFlowPulse~1, 0HI"AzM2peak_area, volume_dsf, durationfrequency)L*E$Q6ac-ft6}6acft-7nd If '@,Dd bfcs@ ing c, becaud. wer@etpoKTGB}"H22:AE24="s>@7MsubsisZt;e/Ao 19ad of 13US <9m |H20a0" K3m"titlesK420 4T B恱2p&?|b#%_x(w '?B'GP?C9???`j?lд?aM6E?t%y:3i-7_-5E'O-+5w1711"pH11"_P x* 2ih<k;soHr t 16Z;0 oHU p:19*9~0NKO 17Z1_SK2ͿK_KssK/)sSCnsy J:A P.ACWidth 1&5T).'that's the e1 hit 1ᢱ  t sticsAggreg(TierperioQPS , arr_Qnum_SP#Methodaeach tp wi0have a workshee AUDim hr_TSA As SngQPG3!rng\_Ti'@Applic . tusBarNow, preparA$@Aq.tPl0e wait...gc `c0E POBPForx"z!5EPOBSAo!W!rT\ 80"?C?;_a"QQ Y3 :WesSpOctivateCAeS .."C323aI5PD1)V" Ln'sts +A!DDIWi 8 BAssoc. R2hE3HSEEf 4u:(65LinHear(7By(8$u 0Ln(1qt(12B(B1vQuad(17(1 5E C(16}, 0) = "Power"  .OffsePt(17Bt8tA:End W@ith 'For i1 To int_Pepriod0&p26str_ShtTPT" & Gmat(-Tier + 1@, "0")"P !'Set rng_MWorksheets(d).Range("A1")EG0,sNumberofSeasons - 4- ActiveCell:$͂r*'4.ula=VLookXup(!2A@ddressAQ,AG^& "!ANQ1).H :a 1`19, 7 , False)ȕ?1/LnT0 :^o$K2,c~hH I;H:H0)-1,0,1,1I3zvzD.$wa=3l=z=5@ _V_VZ3vI`i)*oif J6{ J=AUkIrvlw"R9q'w4,fv,NA()R?!D?!_?!?!A1!5?!B`0_!紟B\_!_!#\,O!\4-10{_!011m(1p3p_!",_!(1ۏ[B1No! B{o!t(S_ O~S("o! 1o!a #!!!_[!1p! ?dG{_ _͟6S!tt!_ _S72u!&?2BB{_tSBBB ?262lNext ziC'wԕ#?1).SelectϯBC' 'P߿Pt!,"뷣wJ??" EPons - 4) With Activ`eCell`|.Offset(1, i + int_Number@ofSeas) = "Period" & Format(i, x"0" 4QLLn"27.wula=ostr_Sht$TP"!rng_TPE1).Address,^ch( W+,7:119, ,0)-1,0,1,1) 'Qmax6/23, E</Ͱ 8 11 HG3JvLookupV "HU'3 4FalseքG))!))(|oSߚ__",6w?h)6h7?h?hϑ1ߑQ OhOh(a,>>>>f2Q ߑAet(119, 7).Address & ",4,false),NA())" .Offs8, i + int_NumberofSeasons).Formula = "=0if("n6, 0 = 4U vlookup Z2$;ostr_SPhtTPx!r`ng_TPSC1-R:5End With 'Next iSEE secPtionAveSheet.Range("C24").Sel! Cella0, 1)Volume Quadratic's,' uADuon{A2 %5#1}Assoc. 9" @q0- R2 3FunJȩ5LinearP%B:7A)LnPC1@fC1Jl1GHQF7C&Powe%1&1.&l\= 1 To"PeriodEi0phC'guTpat(0Tier V&"0")yP), Q'Set C} Worksjs( )elA1")EGEP@=, - 4h h_B a iminBG%К2V,%5Ρ`8 "11R!L!vL/&yt(!3j, rFbn):il~>oCp,matchsBr_?p0)-1,0,1,1OO~  __ ;o o k$  o __o "K+7.7  `Z/Gn% _[  153/AeEVOD(o%__r l uo% e yl%} >=[OK_1,OBOBOBɧs! ߟP-"?q? Oe_!4v o~/i"?!?!롘HO!11O[111_[OB",O!O!(Q!Yormula = "=if(" & .Offset(11, 0).Address `"= x3, i t,vlookup Jstr_ShtTP!@rng_TPz4(, 1 [:!5119, 7 4,false),NA())" eFڅ5^uBF΅6B6BB5(LҷaD,d7!/!B,!t(!"0kvdEnd With '!Next iÉ'ActiveC(ell%0%nt_NumberofSeasons).SelectdJ i 1 To iPeriod aph6'g`T#Sat(Tier +B J"0")'P9),  Se t CWorksheets( ).Range("j1") EP" - 4` , *%a f`,A"mLinB'& A28Oc5O8 sVځ#="Quad+,o&}ymatchSx_| vS7}})r/}?3O("End Wi th 'Next icentral ten dencyActiveSheet.Range("C44").S`electC CellC)00).C@er H1volume(01Duratio>nr PK /= 1 ToҠTiezr ip1Q1If00 Then }- OBFX E@A0q Uat(i - p~"0")sIfSLn/L 50rCQuad!cU'"qDim *R2 As B ,SEE StartStringc0F62TeU IH'- us$erpu&'v@alue a  PV 'po@ l ChtdNM r_P Ch s_Freq xSo"i"9= eQWoHrks15s()75)1*PeriodC 'ABDNM? 0X/ss$E*Set"P= PVt/U$'#,R'%}A3UbLR2Q24 oD j DjD27 li, D7lnQquQpoP27` 2727po7G"D7W@Qpb!C\!OA\__l SD7=""Linear"",Tµn = D7 & "=""Ln"@"," D7qu Quad tpo tPoweBr<27li>2inea B! |2} ~27 im D10,1346782"21y333333344jsint_peri$od$10 rng_R2.Offset(j).Address1/3m4d6: .7 C 8ThisWorkbookThisWorkbookSheet1Sheet1FlexSeasonsFlexSeasonsSplashScreenSplashScreenHEFRGoHEFRGoHEFRExpHEFRExpHEFRModHEFRModHEFRBatchHEFRBatchRunBatchModeModRunBatchModeModHEFRInputsHEFRInputsID="{3597E5F3-DDD2-49BC-80ED-244F19EB74B4}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=FlexSeasons BaseClass=Spla 5, 2OE1E2E1E3SEEY@j3 3Yu 913Y d3{Z 2QEZ d3WZ d4F1G4 #2'For Aaz1 To !^P(^aTier + dcWith ActiveCell#_a6j1)H"VolumeD`Ya #m C"mat(, "0") e Avmz'centr>a:ulBa=if(D-&aa*AstPr_PV+"1*1a,nexp13*ln)4) 6 BS8G `t`^|@),NA()9&c\&"| Cz@ +'yA5'x''b!_'"W'u hi'`nr'v@n'End !iYlA PI#i#kSheet.Range("C58").SelectoASL. I.$3Do%ShtP As Strin2gIf>== 0 ThenqV= "OBP+8)$!Else? Ta5u[PG%f= "=if(" & D7li`@str_PV@"B*EH220+030-080LB9SQRTEH5 / -2)d)*B1/F+'#x^14@)^2C20^2q;)+1),IFaA_ n8EXP(LN k)&4er4eC5CI5:a`3/+EHs̓ +?241Qv|46v vwD87qu=}EH7 )=7p68_D+8xEH8C I~BD5B~676C6bpoFIpEH10s8^)r10)D911c~H11~9?B9C9910s:11B:n(a()".Offset(3, j).FormPula 2 "5*p;1a ;_d;[ "E5?b/lA';<;O+B < 9/)+1),Pna()"sEnd With 'durationActiveSheet.Range("C44").SelectCENTR,AL" Ce ll"j.Offset(0, 1 + int_NumberofSeasons) = "D@M1,period#PFor0mat(7, "0")ND799rD7r, -V/.AddresjsD22.li@/0@=""Linear"",ND7lnnquQuadI = FPowe 27C8@sG 27CF2 = r ng_R27, jԃ f11@> 8'31 Z_YxD14 Z6m3?E1Q148o5206&i61?6E3eSEEE6?$3e?fE9eEM3E2EMFFM4616616_meE#k.AfulaP."=if"zWixDcxBxW{VDHS,n{e$xp13*lncD)@U& D16Ro' " D21"Dp>" NA()L|$2g@ <   F 2h;3B34q Rja "3 n :4 p0`),''1'lz PI+"C58X1Q4EF./a',ShtP1 T0P1!%If!2Tier0 8TheYOBP/iod#5Else@aIfDim ER As String, EQ3' 0EQ4Mid(dEQ1쵠4), L2T%RER%)R///rEH5[v&!-5Hs1422 02 "22wx31k89/ 93?MP37>= .414Q{6O u 4G 4O G 5Kq.5I5R155/ 5'6667 "67f6og77O -G 81~8%XEH88 = str_ShtP & EQ "88" 9*99@9@107,10"g10h10hT10E1h1x1:1414.Offset(2, j + int_NumberofSeasons).FormulaM"=if("aD7liPV"* EH22+3-89SQRT'EH5/  -2))*1/;!+<14)^220 ^2D)+1)X,IFB@0nAEXP(LN )D 4-34-5 I5B+*3Ar/EHC4+3D41(H546F555qu]7] k)87CeA08S%& |8C rB?5BPss670=>61sspoave^3u)1`jeEHg |,1} FBna()~u3uu2vwvv v,v " <@?v?v0E?vwona()" End With '  Func@tion  _Regress (int_T ier, pePriodPS0tart +, arrs, n@um_SP)AIf#( = 0 8The>NApplicaH.+@tusBar"G for overbank pulses: E R, please wait...B $high flow1AFormatK"0") &@iIf'Dim Year_col As St ring,PeakShtFr4eq RL VolumeQDurBc'rng_'C&ge, A/&OA OS@honGi, j, KTotalP}CG PVD\()B AQV +Method 'R2 `KSEE, Signif@Qnce Probability ,TP, 'sheet of a #ectgOSAhD[st`.stics agp^a / TPLeft' #CsP^ddt0A1NT0%9y1-3O!fcExistgTP40 Ca`bDelete_dEj08Ȣ1Cre= a1j book.2 .Tab.PVorIndex)" ("Y4el"g_+copy*d(=)A)p@SO T"AQSc=xPas}d'gnidaumns h-i,r-tS"H1:I1.@ lR1:WC'1`rС<%/0 c#(Cm:EZ-P.Intr8lin !LR("V"Sm;@Hec&e݁"DRBe'L(ogr08micO ?C , int_PeriodStart End, num_SP)  Call Func_LogrithmicR("D"tTierp" 'quadraticoQnV?n 0g'powerdP b.`H@ Wy@gStop3Worksheets(str_ShtFreq).Activate do ch@`s herpopul@ t( stzszs @aggregon w Ation EPlotVolumeDuAon(Dim i, j, K AalphaCbetDgamD@wA @umCell",5r_D@9_c>oD)E,GPeakAFor>mKATPChtTPPчTPV D rng_Ran@ge As ,R XrYLowPIHighCenter&ChtName`ingle!:RngLimitLongHA.arr_X, Y cbCCvalu Bhaix -5 = "U"` $2`(c& "1").Offset(0, 5 +bNumberofSeasons@hddress g "$A$1E mTPT" & AEat_ 1, "0")`"P!(CIff 0 Thel& OB" h ! Els}_ nd If ITPI G= E.Match(1E+306, eS.c8\"$'!)9:)x, 1`ᤩ"SetBjhm=  ! d=D2, 0AA9:a- @EXy=)@20) '10p?Is A :'VL?)R & 48qp02-0cUc7#1X"r9/uMv:21 4vf3 3CpT%y948-c_PS3 '5av-lowV2>hpYgt+Re@xssv5}TP`SW3 k"tttSҦ'dT}/LN 'D'v5 5'00_'/t(4Q')o'_o'+a'%':xy#0uC'e355'@'S~335+d_o'o'R!35/d-_'c__'_' _'_'RL_'0~Q_'_'4'2>n/aҜD,`>"VQOO\?$t(7KN*7bR D'UF&7M?):)84PP-P_PmSP3( 4'6q)v/)/)rt>%6 )61-P_/)71v/)/)/)/)O/)/)5/)/)%)PG)Q&;)D?)Prt"tM num_beta = .Range(str_TPStart).Offset(78, 10) gam9 dr84/Set rng_Yr8 0, 22) '6) 'durati onACent&ezA3869 -c LowTPIA37C' d-lowHi$gh40=73 ?hCall Func_PlotWithRe`gresspShtTP,X}bI, ChtName, alp|haCAzCr SP End & ^N',a/XYms- As Stpring!X CMSeritesM_Tvar_Marke@rStyleVariant& Color inRt izB I@ge@IVAmByWhat M'uFAt"chBV"BY @"BaseF@C ", "Flw@DurCurB:BA:A xl9Circl>"D@ Blue 5Entire umn'=E; = 12# ThenE.Format.Line.V@isibleemsoFalse End If* ҶcrC`Ir{?f?f(fl?fm?fc_>fa ?fJ&fVQ?f("Volu mee"Quadkcߨ? ɾ _N_FN6 NNCCgamakx158?d?P P'PE?&V}oo ((coZ((]9(* ((by("l%+m( '(<1P`Q=qSe{ O}J}||O|O|{E{'%u.at Workss(str_ShtTP). culb O#r i00 To 3 '4 s³oi1)p1CP.#BackgroundГ(orIxar@ ў(iϔ Հ e 2Siz3 4moo= TruЙy> _.Border/boe5  .W eptp xlThickContinuous)H d Next i.AxۀxlValue .HasTitB4?9a0NamqVL"_ iI.T=  @(acft),EPl@ (days?se?0??3s_ _ pqDQ "_ S* IF0%.Times New |Ro<R;12(asTitle.Font.Bold = True  .HasMajorGrid linesin! LFals TickLabelsSizeQ8 u&NumberF ormat)"# ,##0" /'.ReversePlotOrder)~'.CrossesAJ0.001 $ScaleTypJxlLogarithmic If str_ChtNam"VL" Or D Then!.Maximum;ZApplication.WorksheetFuncMin(8 * Exp(num_betaR(Qpre c) + alpha), 1.1Vmax) =E7#B"B!C#D)gam'nd If,.@?iJ0#'RUniw10MJ@.ColorIndex_48 @'set c to gray+E7W  .Axes(xlCategory, xlPrimaryoG@-AxiDTexAC"Peak Flow, Qp (cfs)Џb[Tim~New Roman`z12&A'."kz' zint!zt0 Ov'd0'olQDN`b:ӭϢwk4EeQp~}D_q_zQzatLege}= ,<'.#.Heig h!t9.Par&e50Width6_.mE"LnY= 2Q2 rpe'& |l(, "x0") & "*LnX<+"fvbCrLf1R^2=,r"o| ?Y ha b S @D "Top 25V#Lef%pAI /= 0z  S! _ A# # ?Z (1+ ͟ 00~+D.a 520 ' D '47EO!@%Q"Opz="Af"!BAtAϱ+AX2Aq"*XlKr_)'t?X20=44q 2))"-qGGG_'°>2?/?//Nr301015@032.5S_Q 00D00q 20=0tiwi0n str_Ti@tle = X& Format(num_alpha, "0.0") & "*X2"PbetN" End If If jgama > 0 Then !9"+ GvbCrLfR^2=%r");El= 12# .S.Line. VisibmsoF@Djα?1fb{`R {d_Max(3\0S B e]gS! i o R_i +PhpAVG"M~Back~ZW'zqn!9`rт e 2S03 t@4gmooTru;5#i .Bord)6`mO .WxlThickb)Spunuou End Wipth 0dIf \.Next i .Axes(xlValue)8.HasTitle = True If str_Cht(Nam"" VL" Then *LHAxiM.T=@ "Volu9Residuals in Natural Log Space (ln(acft))B"*ElseBD)BD7tion ! Cdays'CVQ߹y<<(6M qFont.~Times New RomaFnLM SizA12Kt BoldҞAMajorGridlin 4in F@.TickLabells.B5'8' NumberFormat("#,##0L='MsgBox .MaximumScalL'.ReversePlotOrd erP('.Cr@ossesA 0.001k'. HTyp+xlga"rmic Min 1000Na+Uni 1 /.Bo.ColorIndex` 48 'set c to gray(3Category, xlPrimarydRPeak Flow, Qp (cfsadddpdd B~dLd&'`intäQ0P'_'GQgDΘ_y?! /ttwkxisAp plicai.Worksheet0Func`(4 *p(rec, 1.1max@. .0# ,.. ??????DD6? !^LegePk= '..HeighaM9hM.Palrel5)QWidthM? | q"0LnY=dnum_alpha <> 4si& Sj(!beta, "d`_00") & "*LnX<+"vbCrLf1R^2=,r"LV< h  S B%"Top 255Lef% " _M R% m  Q#& r_0 +#1+ @ 52푿 WK`aA` 2"OAf =?AA29"*X2=AC@*XJ?> 0<4gamTa 3 "-q_R_R4Gdn3 str_Ti@tle = X& Format(num_gama@, "0.0") & vbCrLf"R^2="br\")  End If& .Pare@nt.Top1015Left 500ElseIfChtNam" DQ"` Then J "8Y="$|beta > 0g! alph"*X2+ 5LsUD4"Lr!MM"D%M PLL51HR.Chart.TexAFI Selectgion. 9s3h'gend%w98 fd 38Width~4G.PlotArea.Interior.ColorInd$exXl.xNone# ' 1Heigh*45With A!Funct* J % _p_Nl(A5,ShtTP, _E#SarDim rng_St`@Range (As ,XreY !Peak_colString _.int_RngLimitaLoAi, "icarryle(3, 5 bVX, x_minax, yaxobj"] , EsfhObj@[s#$maximumSc alDC0, 0)I"Annau l" 'nof@ the s Oes!e8!s155 ':R 'markerfor@ground` or  annu,alCV* 2! xl+Z34 sizq4cDiamo`L/# 'link s iQ7 WorksheetsR+*).A .vat = /.Match(1E+306, )eS.+("$AT:0"), 1p")= "U3:UQk Set-0=" -s6%= "%s.A ddU.Loca=(where:=xlAs'd, !:=  dD!?@`D-Do Until .Sb)8d)Qun1JJM(1).DP_aaQ,LooptayBpqxlXY2t@WS#` CasP1pT AV.L|dH=.O@ffset(826) 'exp;ed resid111K 2'ord`d v8olup?1CallcYs("V"FT3`|'sp!FSD_*B031 %J`Y Ndur,A'er!tVQ!!4Q 0Lp7 &O!&esO!t3a 1 64a?!1Q1r_#ECM K7A0ppli`6x.Versp >= H12#o .C.Line.VisibmsoFan1r SkbW io xX[(i +mp\G" MBackp`w7?t!9xδrForegroundColorIndex = arr_Style(i, 2)  .Mark@erSize \3\ ^4/Smooth*True~If i > 0 ThenWi?Selection.BorXder*.5PWeightTxlThick0LineContinuousEnd as If  Next i'.Axes(xlValuel'3num_maximumScalv@z MsgBox .Min  StopH )K%Category, xlPrimary(~)< -6w7+ Z'O/T7.HasTitRϲ2str_Cht(NamA["VL"ԵniC.Tw= "Actual Resids in NaturLog Space (ln(acft))"g'`"X`R1KPElseDeCdays3 'Q'$$5D$(!7EF.eLTimes New Roman d12 pBoldHo\!`MajorGridJl`sinFaPTLabels.8 NumbeAma!"#,##0'.ReversePlotOaŠ'.CrossesAA 0.00f'."Typy$xlpar`mic+'* a1000/ ,Unia1 0${o48 'set c to grayY zTzTO`I`QK_UQ?5_K_U,UUExppedUUUSPISo"o]]So8fItoos _RP P A$O/O/OdX)E/Oxwb/O@/OoQ/O.O/Eg/E'q/intG b N= ['q,?= R ^i\YY._B _YY2Q QrQQP]QQmVQ"Lege@~D'..He9_.Parent5YcWid VV"LnY=|wqoalphaݙD i& @}(!beta, "!yq00") & "*LnX<+"vbCrLf1R^2=,r" 2Q  h  A 0=S{ .Parent.Top = p25 tLeftx1000ElseIf str_ChtN(ameD"DL" Then NTitlJLnY =" >Jnum_alpha > 0B F & F@ormat(Bbeta, "0.") & "*LnX+" )6vbCrLfR^2= r|")_>WVn0d If+˂52z23VQq{w"*X2MԌ~X 6y"M"pgamq"m"c)ocIfy_t E,&_101_B/L__N'C8_00$_?"_|._BCÿ_ _Á_&&__A `_ _x151_ @.Chart.xTex6*2YS`election.9 3'gendqT198G438d.Widt h4.PlotArea.Interior.ColorIndexXl.xNoneoa  1Heigh45  With Q obj3 .Axes(xlValue).MaximumScaleIsAutro FainlCategory, xlPrimary = x_min OL `ao BcyH o"'only true if <0 aPN >2tax> gq2 < 2O=S @@ p˻g0axAb$).>-4&HS= i9 h!o"a"H1coi" ActiveSheet.Range("CG3"). OffsesX, int_NumberofSeasons - 4) 3ß + 1  X !1Set rng_Yr :CG4(XiCall Func_AddS@eX"Volume",Z,rS3'scati=^.h!u t(2.BordekpRGB(150Y, 200, 1@50) .MarkerBackgroundColorIndex = xlNoneForeZfIf Application .Vers >= 12# Th,en+.]mat.Line.V@isiblem soTruEn0d If; With   pFuncw _AddSeries(str_Name, obj_Chart As , rng_Xrang;YTStyleB N &.0leH.New }Valuesw1X G^ g $JE EH6arRHDVTyp?int_TiPer, Ap@PodPStN , num_SPG'w er esA Dim i, j, KRngLimi_Long5Year_col, B9umCel!DateVolumDurŸGPeakAxula1ATP7htTPM'F^"T" & C(HJ + 1, "0")"PAKoF = 0JOBBcAElsH͟L_ Dq A e4!AA"3Odg4L%(5K5aMd$2@RAsU& "1").Offse4t( 51!,NumberofSeasons).@rQ ' Worksheet/< @vvL sS= %gtch(1E+306, AeS r.c"$@ % :ͮ)@f OD) Gt$V"DH`DgCZ'#0)aU: +1eYcK+2Y3T4bk c25 . 7" 8@>first@`k the pufs{i!x-I Test@ d i(3 TobD $|(!+#:!p At^i -!1&\G='Y1 ?C["and(q"8& _G1">/ %: ,6@@"<8)&q ,=if"i?,1,"4 3'h#Next i>AA St/&ge("E^GT1+\T&4$'R 5Ga#G"Qp12 'h3:ln(QpeH"gH(ac-ftP>)J" Pm? RH 292L( ) 1#X(Vi1(,Ln6Qp4Vi2 -Vav0p С 23XVi-/qx 2BoladI!1o+{vEPo+o+o+0>"Qn+SU12s&p5"&' 1Qp 2,(Di-D(p3S,ur/"sB3, 3 RStzor cingQPzrpo' D1-PA, v B42, dԤ 63_"PAK2YW0)w"A\i~s\Zj)jq*,&`4|???0_Peak_col & Format(i, "0D")",")" .Offse - 1, 121).lula = "=if(isnum`ber(" ^-2).Addre$ss),FstBr#N/A ' VU9lnUl U3CVolumze64BV5A*1.983471_=Lh ^2Y9?+< t?:k0;1$.J_6., K*)BB22?ufhn-(averaDgeJ2, :nt_RngL0imit()))^22..ActiveSheet.Ran`SumCell)E)2jv_2+[ A/2`%9i$27MMf(-j40&&2O0"O(8>2P., 1&.~..\#.Y ' Stop Else?g$o0_E_Q/Duration F120|\XOkO2O%\0I;1W((05 xH=10JP, 6= G"-?i :t:; o:j: ?i`0<03? yOc?it(?i/ Zk?i/o4,?i__!3OO&?i, Y  o?i+883H?i..348).Address & ":"P.Offset(int_RngLimit - 1, 34 )))^2)" 't^42).Formula = "=if(isnumber( M.-.),#1 *!ActiveSheet.Range(str_SumCellZ)2 <+(<2, 79 ,"'Stop End If Next i With 'summary pa nel ySelectCall Func_MergeWrapColorAlignment(/AK@K0Z, False, Tru@"Gray-25%", "Sificance Probability=") KFontsWTahoDmaRegr!Blue8, _SP@ALI D If DVTypeV" ThenGA .ƒ, G",BoldC+ack1"VolumeCE@S "Duration D K8{UCe3kB*BLinear CAt )0>A xZy=bx+as(X4GAͅ 4-aSN=諥B5beta6alph*_Rcou wTPStart͓vmOG-։B%slope?w޿&K +K @${nterceptvwo Z2{op[/ 7/ P|t? 6厯? 253u? &s2s? ? p8j!?!!? 3 10!um!!GAP_ _ -o d `!avera@))C-?"Ir-u-1u :ď"LO&O&\ -8 ~ _DO 16-gA_ "s1cO9o2----o d 0[o o9-2DPPP0ؼo d o[O"O"ffset(2, 29).Address & ":"(ActiveSheet.Range(str_TPStart).Oint_RngLimit - 1)" p19, 1).Formula = "=stdev('{AE %[20A[4G %[8[qrt(`averav*]28/F)07.F. .Els eS4acoun^t?4^!5GlopeƄ`/6_/_CK ,W+o?8''6'`ercep>(g(Խ(((7OumOiO >>$ՕЭ=,=uVs? ya oot(o|a_zf!1xO z512I_ _ _ *S13>-x8?Poo3U8_t(1l H9?l"""_-_ -1o d c %ZO9O9I92+Žo d 0[o ?[-3?"0ɼo d o[O"O"J"3/o o o a /O9@9[oiܿDDDS-Do t(` _"O"2}O"sԿ O.& "   "mula = "=stdev(" & ActiveSheet.Range(str_TPStart).Offset(2, 35).Addressl":'xint_RngLimit - 1K)"  End If7, 0)SUM(Qpi)=74$8 $Vol%9 %2%10 &iL(M)2N11).Forp*1B}B@ X!@PX!JP!3LQmeanA4zV5SA3^6, 3pK3-\AM/\*K1 C^SSTR;Jm?PK&:K".)/& R$ .-R5RB$alph$;1$G`fk`Q5&R2 =Call Func_CellFonts(E 2, "Tahoma" BoldRe8)oC1 1;~'"2!pT#_Q3J-&4yA9(5((4jJ0i_Y37 L inear (2{0#5R* 2sqrtGa[;pigma_P#?8,_PU4p"-2)nignivicance Prob 1+LB{L*0.d01/(2 #critpl t/!tin3c h,"p0 SEE?JR?J  Dv>g+*22>>'> 2>> '0xdtDevResidWith !jtion #skLog@+hmicRRDVType, Tierperiod=P `, @num_SPl'wer `آDim i, j, KAs LongSi !Y0N_col, SumQv0DateumaDuraPeakd8htTPrng_Copy P 'SP_cp ' 1FT<at(`_ q +A"0")=1MP$If0 The@b DOBÑgElse : / , AA@TA5AO4VLolume_col = "L" str_DurationK\PPeakLMLT@PStart|R ange(~YearN& "1").Offset(0, 5 + int_NumberofSeasons).Address ' WorksheetsMShtTP!ctivate @RngLimiw.Fun#on.Match(1E+306H, A8eSP."$" & : ), 1) 8 !}).@Select]need to c alculV this onZSP_celJEH2 - 4Dim EH32,34 41}EH4895I5516 %umq^ithLC* IfIDVTypeV" Then  4G3 5EEG2)A3Ln(Qp)AEH5EVol9%(C)211iEVi7*' O23G-LnVav42*pioln4 2 8 (From Ln#130@04(Vi-= 5 (D)25c/LnLower P.I."5&Upp13_ @3 c9Simp<c1r4C ln"2;14 Ordered!14c] 56B:( 55)^ű^4ZExp@Residualq ElslSumPL نP߆k ve_b%zh2YC3DawDLnq{#7burqc @ 0,q8D~p=13)IV  ? iSJ_6JG|Ln6 31363?t 63G?1TQ1P?P?:5#(-?? End Ifc1ģAH!^2""#8;#expQ&FNF) @M>3`g& & "gg?ot(1 #N/A9An RgOg55, 4@g 5@GG gEH48"a9B*EH54!KEI55sqrtsEH32!&/")*b1/;!7+41'  46^2)+1)?8<50yDn/8{† 9d"S9 "c )@13O)_/]q T "" 0?Q 13@_)_)_)),_) a_)_)0==@==, e[5ϙO)O)To G3!$=3uQ)T 5BJOo45_   {  ^)I "'?4?/ / & q=2 b=Y|55 U e |!oElseH7|),ln5, 6Jp", ٘^2:2?Ot(i - 1, 2).Address & "*"(.Offset(7 )"  X25).Formula = "=if(isn@umber(- ~),$ -(a@verage *2, &: mnt_RngLimit ,)))^2,v"o4H!5&0K 49|^2*"!E5expsWWW_W) @^33?2h ?p x9 #N/A5xn cߋcxOx 5xkAxg58GG& ygEH4n8aa9B*EH54EI5B5sqrtsEhH32!/7)*b1/+RD41Qrd46^2sT)+1)?8<5LY/'/89d"S9 "~c ǟ134O)ߖ/]?TO)"T "EO)O) "?Q }813qG=_)==a8=q.=ݾ_)_) U{_)6O4),=_ =33!3Q)U) OP l46PIII tw] ) '?ohU`Z =2_=8,55 84nEnd IfNext i 1WithjSelectf ?9 Call Func_MergeWrapColorAlignment(E0, 3, Falsef"Gray-25%", "Ln/0Ln")Fo8ntsaTah(oma", "Boldplack@10) Call Func_CellMergeWrapColorAlignment(.Offset(0, 1).Address, False "Gray-25%Lny=bLnx+a"AqFonts_"8Tah% 1, 0) = "N="2bet a3alphIf str_@DVType4V" Then6;LFormulBa=cou" & ActiveSheet.R ange(1TPStart)m\ŀ":int_RngLimipt - #u)KL-slope(]j-5F~-,!2!OO Oaercept?P>(O(t(4㢏ifsum_')f$fa5|k4o|=U6}9ߟkoK u7}~1sh--l 1IZaveraPZo-}o-51k ll-oo 1csODow*=7-?{?{t(_ 1o d ?co o o d 23o o o o , o d [o /[O44o o o o , }m '-o[fϙʙ2?P---6o stdevoPr_-o d go ϰa˰DD?Pt(2sqrt(PPP0_._._._., 5)s JE o:s/'$'o#m:  .###4:#### EYp_ \ ̋" & ActiveSheet.Range(str_TPStart).Offset(int_RngLimit - 1, 1).A@ddress"`)" n2PFormula = "=sloXpe('A7 j:9 J,*C2GC %3ercept}?Pt#P4OumN ,5,˦|K U6`|9k?#K u7}13ĩk 10averaZZ1C)?'[`J؟H20EEEl E 3a 5o , 2o S~1 [o /[` 4?[_-m '%51o[s_"?Pߙߙߙ62OPt(o =stdev?D& _t1go  o"-$5sqrt(P 5 )  9 o:OQ!Ym:  o:##y#56QQQQ,  End INfwյFP$0)SUM(Ln(Qpi))=؅Dur42# Woh8, c( 2 t(pu!X]xE*/9*V|olp? ? ?A?sLnQmean?X7Eos+12c3@LndO@sSTaormula = "=" & .Offset(7, 1).Address\"-(U x9 x/ :1 :)0" 14, 0)SSE= F318 * 5 p1 <12`2qstdevXr6YF#bet5W (؎ɝgCk˃OS)/@K)- krғ@ IpalphTIC1;I+0")R2 I{Call Func_CellFonts( , "Tahoma"@BoldRe8)PۀWI=1 6;2}y3,  0';bBA"3). 2j^{I4rqr5"R1 3471z{5/7Ln2YUT3 'sqrt߫GQw2n# SigmaQA 6 /[-2)nivicance Prob! !1str`_SP_cy*p0.01-k crit l t C tinv2(,Jf_t(/EE>7JS?J?J8J  COO) =1)12=I=K= ==2StDevResidEnd WithActiveSheet.Range(-TPStart).Selectl a ql 'now co@mpute iduals% cteIf DVTypeV" ThenASet rng_Copy@9w V04!q9: 2int_RngLimit - +'a%. & .q  UrD3ion.PasteSpecial :=xlValues, OperatpANon8?< 14-QSort Key1:=Golumns(1B) rderxlAscending, HeaPANo/* *!5Z i"3 T|o I +yD(ShtTP "T4P4c( StopIsNume(ricVi%4))?,a2rF26O>'i:0w \Els% @Ex3? aEIf{Next i;u 47{sump>++"counیu4FUc DC{)'L1^q e()*n s' 145).Address & "-0.375)/(count("L.OffsePt(2,6 : |int_i - 1N)+0.25))" @Next iElse !Set rng_Copy = ActiveSheet.R ange( 50RngLimit.):8.; 71).Select ion.PasteSp@ecial :=xlValues, Operat  Non:P DSort Key1:=Ilumns(1)4rderxlAscending, Hefa@9NoKJsstr_TPStartWFor i3 To 1KAIf IsNumericE51)) Then y 2)EA2$ 3).*mula"=JE}g*.Ex nd If q!y=-@zK#0 }54sum5`!P, )-2- $I aNA-qr "H)*normsinv(#&2J5BEDaWith !Funo@f% _QuDad!cR(wD@VType,sTier#iodcP@rod| ` , num_SP 'w@Per r eg Dim i, j, KFAs Lo;_8!Year_col, SumCelDateGVoDu'Peak G|d dhtTPDP_c@qMaPtrixa2yBnvMtr `Varian@t, mltMx~m % p ' Tc!GQ at( B+!|"0")P?3@U= 0TOB?!g/M , /(. "AAA!AO4"QLh"qKt"1M4$! GË1")U5lberofSeasonsB Workss7Sq- 62= <.'ch(1E+306,("$ :^+1P+}}'need to calc rte thisv SS2"EH2_sv`ZX0EH59, PEH67R8Q7Sr8p[EH889umJPD> P0#O "V"0 Ы"EG58 um  1ZtB $/-q'""Qp3+54182Vie6b"Qc4pb2136/fQȠ 63vi-uo642(VG2) 6 LoBwfP.I.67 UppK o(137Ra drD`w6Simp/06_}5c1 5EOedpO1l59 SJ_1t60R(6R1ExtAResidual0GHa/5 "EP/5_Ecq..137_B_B_Bs//bjOUE5 `-04Ь0&///? _ c6/Y }13ϐ///q_;:PF> E./////0, 1).Address & "-"(EH67`)^2/(@8@H^2*859|+1),#N/A)" .Offset(i - 1, 67).Formula = "=if(isnumber .-2 ),s R #90,"58]+'I15O12 136C[NtElsew2wl0J=iBjw L-o]{9{{BActiveSheet.Range(str_SumCell)i'20*ѸK^2))+)KHK)$12j 3,ɂ|? ,+K ,l9,.,hE, 7im;m6@;mA, ~7/A^2"ࠟBSEH7m Mn7"?8"8 EH8 sqr>t%=)*b1/#EH:cDRpyv ,73Wӈ),? !7Ԉ[z3y "Cc6 ")!so*14_B?'^B} 7/"2/, 4Y /14@FϮ(CFմK F //C#O&/ɏL74FFFF,Lo"- 5/ / / / 6, / / 16oAAL2@^&r18AOnd IfcNext i E0With:Select { _YaCall Func_MergeWrapColorAlignmen\_ _ [ ?5?t(6,E 1).Formula = "=sum(" & ActiveSheet.Range(str_TPStart).Offset(2, 6).AddrHessj":'vint_RngLimit - 1 J`)" s7r,>19G%Z8Z2E%U-9N-avera@?.'ƈ-10[tdev--23-Np^r^2r24.?E7.Tosl uE25.243l 6}--E3` )-2)t͡6{ 1 w ҽ / D k n0qe)*nsa559X-0.375q+0.25]+0d n!d6w~ RRRd9u!1dddxgd f* <6)I-0.375?])+0.2@ EWith AFunoE _PowerRDVType,BTierCpodcPb{  , num_SP) 'w@O@er reg!ciaDim i, 0j, K~ As Long AYear_col, SumCelDate1GVol`Durat 'Peak E!zd DhtTPgSP_c@!Ta aa!' +a"0")P!q''X"= 0Й* OB" ?h e3! , _ dL A E6!AAS5OdG6L%7K7aMd4@@& "1")51!,berofSeasonsfu`9 WorksAs`S; AM U= h.Match(1E+306, o\"$@ % :)3@g 'need to calcte this on $V%EH2j%$@4h%D S3+asCP"V"8,;"EG9/s,\P7R}"2L-%p@"7q"V\i-Oa8B(IY)279sLn)-`F)G7"EP_ό*6` 842O 85D7E2aC(Y, 8(`Dicf?Dog7StopPQ$: w zif(ish3>z, z),91D1=10^Um7? ,".[E3/P @- _ 31  7,?  wC]^2ݑ "/9Go&, 5z"-dlnO, +9)O  }, @O0?O0O0O0t(O0_},O0O0O0O0`Nb$`<{o/ 1&&8P9umJ2o`&$$QBSt - 1, -2).Address & "),("8.Offse(t(i7 -ln84 )^2,")" End IfNext i !With%ActiveSheet.Range(str_SumCell).Sel`ect 0> 5 .Call Func_*MergeWrapColorAlig@nment(0, 0n, False"Gray-25%", "Power")M6Fonts-"Tahoma%Boldlack10+a1ay=AxB00 J[8[ = "DN=HIf D VTypeAV" ThenV'Formula p=cou@wASTPStart)#X2, 8:int_RngLimitӋ9I-sum, ;-k 1@ezP-K4O-K h5fkCjKK R?-8-9 K  {,-avera`?jq_ 荩q1qtdevr2qlopei -v2zo O,O*.Aooa.XA5&A/ercept]  C>T@*OJ&O O }D 3_J/p''2o d 3wwaI37U??0Uo d Usqrt(/V͵/+ 78ooowP")  _Vs_Vj 7o6 E@QWo_ /3y#bNt( ? 2W_oO /###=o o e""""et(1oQ/e/e`UO.O O G Limit - 1, 7).Address & @")" .Offset(12, 1).Formula = "=sum("fActiveSheet.Range(str_TPStart)~ 9 :';int_Rng J8avera*\|/:\ %\9tdLevn[20-lxope- z[,*}2؋}2lerceptP"m?(}?(t7?(225>3k ?3fk8 5fl sqrt(_pü86..#l )󿬿 8F\dl End If`0)SUM(LnQpiLnVoli)=(1~Hyh()2?1P.)2o 1[;Y m*E14, bet(!XX/8 c%-A c`))/(YSP -/(15UalphoB0o& 楋߀ӄy /y Jo16 A O&@& exp 7B/oZ 1p*Qpmean V@sax?t(s>S1 !3In>tq &STo@&E4KB'(252A(20R2Call Func_CellFonts(uCe3, "Tahoma"BoldqRea8)_L1k= "*$$ {   Iv3{'2O4-a41-D _q)/#8e7B Power (2: O&A&< 2: 8M Signivicance Prob 1OSP_c)*0.01 (2critl t3qtin )"," & .Offset(8, 1).Address")" , 20) = "SEE =BCall Func_CellFonts( j, "Tahoma" BoldRe8)rP$P 3).ForPmulae=24 7, 4beta5alph4@Ő@57OPowerQ09, DytDev Resid{End With C}tionAFrequencytoPea k(num, int_SeasDon|'fi@p value w given fE 'if not fou@nd, thpfaqGP-(7/*T-7K - 0.5)Q PL < %99_e"#NAtAEls=A'R>n>[1+w-p3{_ akP 4&)./ uIfg 'W)st_) Q)$pg KK)15_)p{sP(qS1) * 12* * *u*\u f* *t *0 * *=*o!b!* *!*lG*g,+@yyom M,?!,c, ,P-s!ypt$z 3 a toAq!ya1athn ` q `UX0_rangeAŮ<a1zcfnkFL/G/& ~ 0pqPO"'c &// ,.<gug/tTd///@ S a Set rng_YearCol = .Range(str_cT& "3:" & Tint_RngLimipt) Peak(T?TTTSepasonW.Offset(0@, 2 + $Numberofs|'_r75$<1).Mxumn IfT= 0 Then 'calculate annual lambda positioq{A StartCelX1")J~3JDJ 3, @Value:puntKY4' che ck ifBBa is correct numWorkshee tFuncL.VLookup(v,BAl, 8ȇ+ _AtoFrequency#G1/ (E* (+ 0.5 - D")Els{DysµyE<"Y<14<(W-7 * 12).Addressk+@,@%I@@@IIf({C׃CG)`R7d)cFF bFnd I f#1E`With+&\sA\ve8Sht7A S!` % _FormatCh!@(obj As ,"ChtType, MinSeDim arr_Style(12, 4) 'up toeG Ys,uf\orĘi I@ntegermarker N'ApplicawDisplayAlertsp`Cht/b~u2"axuency (p@0xiodM2/?!" Recurceb Bvvalr? 1y  882 ^.>888`a8Ib.+//-/_ߑ .8|ca?Q= o<.BorB>C_H3.-C>C<_>9axBm@; PIMIBNBBc BvOBG y Fun _UserA>Ca@lcs(sthtRnAs Str ing, aDe@stCellGDimBc,0iRngLimW>geڱrng__r @U%HFP, OBF Q a S vGAt_aW? r `SApplication. tusB@ = "Pl0e Wait. C2Ptly Proc(ess0 Vies" & "@&SaF.x'cte wcBEP )CDelete_S1 fCbE/w*ES Qsʡ Selection.RowHeight = 10.5 ApveWindow.Zoomt80 'pan@el 1,2NCall Func_userFreqP@(str_ShtName, "A1" K1D")ros&sort, ran@k, log MR$S"R LogW OIOTUUUfzuency a0rrayO USeasonMatrTix )Y&ATr(ng__PgeÀZSet Pge("y4:z15p `85'Annual h, column need to refވ chn sjsvWorksheets p).XatewS .30#).Å@icalcul staring ceAzfor a' mT, bas(on 4$ atq@I1"Btd_C= !.Offset(0,@+ int_Numberofbs0ddres:CYCLAZKJMATAAASy234r'VKcU7FFi@1 To0C-A7"SACol 0 + (i - 1@) * 121< G:BU:i, Cs<)W&*p"z p"NextD iEdonJEnd€A !#| =#,@MCPeak_`CYeargS ource25Lp_V#507CdC{ Dim"6counter, )j`RngLimit As Lon$8"/@,y!I#}&x!!ANull! @F= E7. ich(1E+0306,u $" &"60":),Zc%& A8 3: $8e E/u o x 8u !x @ #o, 'Turqoise itc0GQWMerg eWrap'orAlignment(xYACW/[ [10DFal~=d"%qllr.,  JFREQUENCY WITHIN U#Eqs(V&PPERIOD ^c_1, 0)Z"mpP\=D@R$spL|0F title4{??:r8! "White(pxlCer3OOOt(79D5-AXL_;.m*A1̐"=sum(if(( "Z8aY=7 (1 31)* \;6lrNi),= ss)/+ ?bTrmost 2tT2 G`)i>Lula = "=1/" & ActiveCell.Offset(3 + int_counter, 6).Addr@ess N8ext B*7, 4)Other Pulses"ZCall Func_zFonts(A8, 7|, "Tahoma" Bold1lue("0P.1"))]9.2.10+/333,01+04,/25j364,15*.nv6^sjj1.667/u)1vBvjʓ1v /̟2v /2v / Forɯ 1 To 14A(3). mArray=percentrank (if((rng_YearCo& $1Ʋ`"=3@),% Peak! ˁ?o$4"o ffaRange(str_l ,match#? 5$)23Season),0,1,|1)i ;-4PR?Z(7]&-0.5-)F{ύ~P '0StopC4?'s titleD' Endtion !AnnualFreqMatrix%ShtName, &Start2' )k(ca#Sou:205p_c`507) 'X!AI1 based on 4 c0="M`15 ="Tu ="DAAT*Dim)J,` i, jP *RngLimit As LongFpAgPQ1_q_syWorksheea T6ateSBc).SelectS l= .pB1E+30|.S.#"$q02B:^), 1TSet 9=8i5$3:eX  qYa!1'X u  cWw XW z Afor _S?green i [MergeWrap'orAlignmtynPu9_, Fa@f"Brig0ht GQ1'first QqrO?//t(@5OM!k$7r6}T,hiod[7f1/TokL$?A62pL, LLs`AI:%A25p_c/85ßPr_50ٽ6, 76=GqF ʇ= 13 H3 , 3Ipv9R! Z?R `5 vlookup_\C  gѱ:ٍ8 _ _ t b0er, @9Y ]g_lް-G10_lVl*DStop5 other4 fgd%. 15.5, 2667CCCall Func_Fs(OP10, @Tahom&a@ldlue@;"AӤ{@&1,5 e1.5 16_#G#2 )g; 'fB0 i@1 To 5@title#@/>9 + (i - g *!GBca`9td10M'"{""-yeadUFBorderR߮(m `nß(s(/ {f_!Y'6̶-ss3 TΪ-@,UoC|QT`fge(nh"a,matchb1]u݀),0,1,1 ?N3߯/4 @Next i`.seasonal HFP'cha nged d, just provide us!0: a pe toy with frequency-p QpK>MergeWrap`orAl0ignm0h(19, g , FaDlsTruP"WhitQ"S ixlCer $DAlternaONON@M  LF_f2P_Bn0.nOx2pO, O?n2@6z:s!2Q?Q?YG2_b'>f@acilit @@{?a numbofinpuEn AMl6m1~i@/: sk6jp23sC> ;rBrM4qMqq5?q?q?q;eppeCol.Address & ","(ActiveCell.Offset(19 +@ i, 4) )" ' Stop Next i '$End Fun0on $_RankMatrix(str_ShtName,  @Dest_c, rng_Season_rang e As :ge")qDimj, int_Rng Limit%Lo ng#VpulseFgcol  Workshpeets JzateS.EZ).Selectformat the ti tl CallMergeWraporAlignment(+Ĉ:0Nu@mberofs2, Fa"Rose"RFor i = 1 ToRL.{ %ć2A)@ K9FonUŖ, "Tahoma"@RegularBlu:e8,AO1, ""Akê ._E, 3RATb PWbWhit7,, xlCerG?ڴG40oTrup"FyearPeak_`/* Z'1?sjjgpd m Wh_IBordersxG/_IAWI"BottomA3Doubl7x lThingBlacka|pun dataFJ,= %.ch(1E+306,"K:K"), 1Rs82, ?@J- `j3 Y@V(Application.P8in(#))) `#xli m@$"=Al(-1gTF,@k vlookup k=xI,2P4†Ezs1 jjBs3'Ifm"he߀!9P*jsY |if/ " WL=7qtrjO,1,"i Ez[ Q  = G$;/ }( imaxrq)+0ph.IfGBqjr/@$Sort`@kLog)w,aOaOBSI40>gT?81QcounterC%D~1WFP߭iRvҭ'r  [umns 1-5 of panelparting from K(st+*]fnf`ȩLeftg!%`iiSet=/mzn( */k2( R^4>d" ?Ot>(,T3a's.bT$ )?O8g_Q Key1:=0|i+(3O xlAscend+ , HeaP:=pxlGu`t0;k on/'Q+u\==1d7k/ss? OOFess, False, TruP"Light Yellow", "Annual RANK8xlCenter, $) ActiveCl.Offset(2, @0) = 1 @Sheet.Range(d.Addr & ":"'int_RngLimit - 1i6).Se0lectu ion.DataSeries Row col:=olumnTypeLineanDay, Step:=2Trend:= 'red the next 3 )& str_D`est_rv"U1"Log_Call Func_ MergeWrapColorAlignmlj12)OĄ"Red"Jx pJ-D}bValue<5Dc=1).V3Qpfput in log fromulaCdCFor@t_cou/1 To 3CuL13 G A QJ D1H).(@"=,(A)-10 +o4{)d#ANX# En dbRtj SaUSeasonMatrix(ShtNam`KBbc, Ym![, rng_;C$fAuAgODipm i,F@LXongj` "" TheA_߈߈و^a#0 _;_HM6_;+==o;t(?;; :G;8V;7A}z Tnϡ`O.a C Lt .BB!uA:/;/;SĎ ?= " ?E@vw""Q /)If7' f at Q\t!# HJh?<7?t Tru"Gre:Vto K2.K&1WRANKED lϝϝ  `^30B^ 4!uWU6NINJI/@ )O*`#c TC Sub cHEFR_FlowMatrix() Application.ScreenUpd8ng = FalseDisplayAlertsLStat usBarD"CreUthe  mces."fCall FuncMonthlySeasonal("FlwMtxM", 8"A1& ac-ft"(R1!**ClearGridsL@bSheet#daily efcs").SelectIf WorksEx$ispcx T8hen&Move after\:= E@| 'IHA s don't e@, so m"( to fronD(befor eF1=End IfC C&HFP>S@4OQOB>FUQ"Basek*+{AMˎmsg")bJi6D5c!PloQJ u %-Meta@aB OCEÊwActive-book.+Ey.Tab.ColorIndex'("Dark Blue4 xh ?z%aGo ld$ Zeroo  "SubsenceDur ona{  "D  "  "V;Om,O18lave 3r6DC_P}qOO #rk;PCu;V;Yr("InputQ"1 ;Dv  ߜלTruϜ.͜_T1{`2 !str_ShtName As SngP`DestCe3|TOrGUnitsTypeFf'k_ix(yoaPu&Summary @ le in" & _Dim v@ar_tmpint_coun ,tIncqIgerS1= 0(2DteP (smA/a$fYx7I.dPRangeR ' 'qlu, define iQ asAowiab sɡneedc0cider num"b`of 3s KWmhs peachD frequhy_!3peakNvolumeb_dsfacft>ddn = "O4:R6ۂ712:R14Ya_R U X'!20:R22%,8:R30 7v_subt_star1l41).Offset(3, Addressy":6??75%5NbofFs)~.TOOG1>1 OOBIfset(13, int_NumberofSeasons).Address volume_area_acft = Range(str_HFPS_subtable_start_col & 1).Of10 + 3j0":",Z * 2^2 duration/c9,j4X2 Tfre@quencyT27T;Select Case MonthlyOrÒalÐ""ll Func_OBFMatrix(GDestCellFI,ShtNa me, " S"K2:K6") 'fixed, no need@ to ch HqluKIfUnitsType"dfs" Then *HighFlowPulse,, 0/"΀,L1peakB|, dsf, ʮ, K) *E@$5ac-ft61?=_.eEnd If '9,:d bOf`1@9ing cE>oB 13stead oHf 7%CaOBa:9A922:AE24Ps <4subsi(nce913S `|Q"vlH20A,0"mwtitles120*45T bΦJ1R20m!f|fJߒߒ͒fTcs G~GG" GUGp /UW` ssq)FPQ` +UGa GeGGinG6G(.C`H11ؔ"H11"2ߘ_@!i?^>soKrtOW 16J>0O>#oK+-6=kK=!9:9'B>s*^No 17j1ocNf N]\NqsCAns("A:^Ap`.CWidth`15 ).'that's the e3vit ѝ ?Qck/</s Applic.ScreenUpd`= Fa yDisplayA`lerts hD imaunter2tmp AsD IgerWorksheets @4ctiva|teS}aloop logiFc, Kb@ool_TFBieatiAcFor9  To" 'I12 Step 䅃JgJuQ8Fs_pgYiDo_K 8:Length(coB -B8, _ T["T ahomaoldqWhite9< Border ss   " Rt xlDash, xlThin`NS/#xs(Range(str_DestCell).Offset(1, i).Address & ":" + int_SeasonL@ength( counter - 1), _ "Top", xlDashThin, "White") 3'/Lege1S|Wi 3vR3onۏ@05ȓ.IndLevelCq /// ? | V3"Black@U 22/ / / Ϭ ુaraxlC0(inuoupMx\c ? * ? 3 nge(str_DestCell).Offset(6, 5).Address, _ "Bottom", xlContinuoulxlThin, "Black") 'qlu, 4/17/2009, cha legend to reflect user input of wet,average,dry numbe0rs RCall Func_MergeWrapColorAlignment (Rk3, 3x & ":" 4 True , WetFlowsXInd\ex H`Leftder}B|4-> ?>?>Au??@]~5-@ ?@@Dry?>?~qArc]Fals_V^High (AoFormat(dbl_Perc3 * 1D00b0")sth %ile)$?:dl$$$6dMedium%2%nAi%%%DJiL4ow$1$$ll?#+ooSubsistpence*gx5l^Cg# #Fswovw@G1ovov2ov "TahoLma ldqWhite12 sÑ Bord? ? GΓ? G !aroun /+; '\7 ? '"Dark BluQ"o Leve>>>O>>608RAWAe`CB=+Fonts{gc34i8).eAddress, _ "Tahoma", "BoldWhite12)~Call Func_CellBorders(Range(str_Dest2).Offset(3, 7). & ":"06, 80#arounxlCont inuou~xlThinklack"eMergeWrapColorAlignme ntm True, "Dark Blu"High Flow Pulse CharacteristicsrE40er, ECEnd If vtion C|SubsenceMatr$ix }, Sh0tNam@)Category „D$Applica".Scre enUpdng = Fa7 DisplayA`lerts  Dim int_thmp,cG As In(er rng_E%B&dbl_Q95ADoubleJ!jSet = WorksheetsBJEC).?BAAcxtivWC GSelectd #1If bo o=K TheG?%O= S"HBas"@s""H4`Va@Q %J#C C`D%!B"Seasonal" 'qlu, cahd loopxgicG";KiG!aFor>= 1 ToBNu@mberof#s 'instead of 12 Step 3 ! m+F 0Nlfl +"#Length(!8W- 1) A`"Courier New@B, 11DPg"R`t#5.#==?zrr74/17/2009, reUce 0$ sG` ffwi@th N/A:no,2EIs 69phc(Q,X)) G B/z/zio7Ro7t_o74co7/Y {q8ubIndex, im_x.R`d,zDigits2)G ?:OOO_Mģ).f]v6|&(cmato`Jc"0.0")!%)plE拝 V.... _f .&."?CSY'Debug.PrqJE sp|i?gv4P)+ 㤕 Nex4k[5t0ڣ[p{Ǣr "bU ,, 7?""Rs (cfs)#l|?0owHe!\40F#Mhly<12lʄPUpOO Call Func_CellBorders(Range(st@r_Destd).Offset(0, int_counter).Address, "Right", xlCont inuou,xlThin + 12@?"0.0D")A %)"OkEzp5~KKJ"mx>End If+ Next+k!FsTahoma"Bola",2 Y A%:&8Tru"Daprk Ba Fs (cfs)@1oRowHe`m40&A6Selec4v`1)@"Notels:_1# P 1. lSas("metada ta")."AR5k :B.@bool_Q<95(dbl_7Q2 >OY1`L 2. a calcul­ used forNs. AnnualBvis"a&9".a" Wjr Qity Prm c[r by!r a 0wH_1___w_e Z XBCBatchRun7'typ_HefrInputOps.IAmittStreamsU %! as./4B//4/ Y/on// /'E07("BaOut" NonS'Special InuZons: Use the call method to accessBfG'ECA J_H"HFPS", 0"I:J"ʚta@tusBar@2"PleaWait. @@SFE V &@LDgCJ7).JDdenITrupBRFlowChartBE~B1a1Crec  "CR#Dim cht`fGint_c@ounter!jIqger DisplayAlerts@'''bemnew@$YBFqEachIn bs `EE.bp= "-s`Plot"" .DNex (Setg=#,s.AddWitG;"a 4TypexlLineMarker('ka|~source a rO" tSData C:=S/!#XL.DG22:S24"), _a !$By:x=xl0A=4 13 ri\esgA(h).XValueA?"=L!R19C8:19Zaa.HasTitl'Co%+.T`9,?dsM Axes(xlCgory, xlPrimary) 9A`".acgsMon|th_#.7To/r'Cs (cfs)/ b~e.LegendW~aS!Left58F4 Top45i'AMg⅁31gWid9= 627n.HeighyQ 40P ![a< z [nw3* ucS54]DestKwo].Qul[oc'lcManual U_y SyxProQyQ S..z`S`rng_tmpA B#Son@ (1SubsencePerccV7Q2e9lebT dbdl_W, Us(2, 11) DoublԗMY`LoAds(ATp,t_#varVapriand_An!XQSҪ 'CodPoheck if3r e"n )wi`d"l arePMt2$c¢[r~  @C|et0E&/С95mJlDnA:CCopyezQrIJa.Pas5! DRYO".8E 2 OS'/Th@is por1 ofp#S s addrP`Bs1'( 7 B1E),1;laPssif 5C'Pb D)'sto)m1cq1EɗC= dA3FQ$Match(1E+306,h$C:$=<)%bEGqE3:EAve=1aPB3|:B!j 2) str_efcCol = "C3:C" & WorksheetFunction.Match(1E+306, APveSB.Range("$C:$C"), 1MonthD3:DE'This por of th e codnvertsIHA im&ed text dates into valuby multiplying/with number 18. T.;lac'in cell D1-morarily and l3r cleared.*ApplicaScreenUpG:TruetatusBaromeDedReaCJShtName "" EFals"DxD1").VK!1 'Sett!?"@S "1 SelectCopy! A3:A{)).PasteS0peciJ:=xlAll, OpereMD, _'SkipBlanks:=G, TransposeD y(CutA9M= UGAN˜Formatxmm/dd/y"Yfumn AA[WDI\CC@ezn@' 1 fromXC5SOE!$ng {sb]SeasonAj O o_countk= To rng_dags.Rows.C!C0*(xE.Offset(0, ,3)(a_(arr_And,#( "Sh]@"Ě4T>od FullN#C?a~`DestC a'*i:2 PC:Txitl?:@"CCa .Bordpers(!%41, 0).AddressA:F"2, "# arBd", xl[inuousn k#_F_JRightbkF s#& "#1#TahomVa@$l#"@ck9DW35wNGl", 9, dbl_SubsiUnceTh0hold?)MergeWrapKorAlignmI/"(/" YZ:?v,3Y#Gray-2 5%( Flo@w Perc ilexlLef&t(0er'proc,PIerm(itt 8eams1If bo0ol_IAOStrJ1n N0@0sEfy-dwEЇIfO5-g0.0U:!es Qp> T@S{*oDeD2oDDp-oD8oDoD_/ / ;x* oD/M/MoDJ4?4poDoD@/>7Q2==D]DD?TlDD/gllD6?РLueD"Wr Quality ProtаE(cfs)`EB/-P@)9`38_7tIAnn ;XOBO=ށ&3, #SMQ95>L H"HHaA, / (* vo OAo o n OAOAEA8 Dddress & ":"PActiveCell.Offset(3@, 1).A, "TahomaB"$Boldlack9, dbl_7Q2)  'Call@ Func_Fonts(2e@NormalgQ 95gqIf int_str = -1 The.n F6ul@aArray"=percentileweibull(,_Fl owCol,0 .05)"1El$seF8if9>0 ,D)End IfFMergeWrap@2orA`lignm;Sh0wFh=_ADTrue, FaO@G@a-25%AAnnual Subsistenhce A`(xlLeft, xlC/er b>BorderT:JCarounA"inuousA&ThinȮ %v%RightHC#Xv$", #UUjWUUWU dmax(ȉefc$= )fpP@aeW!+d>0'蹇2 랿aEhCig`Bases Titleq5, ^'qlu, changed number of seaso\nsO6OatOa(1, FOaFp1y"NofS +4__fpws (cfs)3M^_+ ^uB/ au?67/ , "`W "B` Vco o o o O% 0Xtir}2 p p s[!yAtt" R-)(  ).#xlEdgeBottom).LineStylexlDoublT?:t/ /f/ 3esd&?t'  r / '<"N/A"")"lD  ndro 6`/1/09K to "# soK duration curve wi`plot data e@ven wh@some are !If/s`>->30"uP0+C+?" yEa  3 P}&(!%_ W )*v0x'=0)_")3 End If 9True T/t .?`. ;or$&0FU6GD838uF=Ff!  0?Ft(_ F-l )F ","Fu q?2kPtz?:er  2 dbl._ipjMin_eO#ayoo?o[/f?oCH"?o , 1,nn"faiQ066axa6Yow,# _o@˯d< c3Q , 5'(M_d:Ї2)p0.2OLB.l%.Tddu. +, 1, rng_tmp.Offset(0, int_CounterNeg).Address, str_7Q2HP$, "false")  End Select 'qlum0/13/2009, calculate occurrence frequ y for tBhlows W'NumberofSeasons@).Form0Array = "=if(" &xk"=""#N /A"",percentrank}-Col E-, 0m,="fi!) "H)*100)" |If̓h-1 Then A`L%t?H Hsum(lFcMF)*FF>=k))/DseT,1,0)[E?Wr?W!vN++;B^; ;-If .i@`^ - 1 Call Func_CellFonts(kTahoma" Nal!Black9̘+ Borderq )#ar`\dxlCinuou xlThin L {eValue < 10|{yaat""0.0̅W1+ǣ d /{/_"_3V32| )1'g6cHT f#, DqCNex!"'With Range(ActiveA]q}1 +bOۃ|aA:U8@ztd ).s(xlEdgeRight .Line Style`)xlDoubleC: P/bool_BImittvStreams/qMergeWrap torAlignm(32gfO"33PhTrue, _S  "G\-25%=" of Days Classified as SubsisG qOs a4G Pan Z0 cfsB er}C;??t??"??K?B???@}QF\*ZEBolW"\5,o#// oF` `@ ip2o?;n _0_0 A.F, d9הNames(i v))N*1 /"`o7 O{yyk?a"C!S 8bN4tZO0 ' z1H bCqf if@2Oel?iT_eReBottomAoeoe '-pMa@hly #i begin here.P4-" Call Func_BaseFlowsTitles(ActiveCell.Offset(11, 0).AddreXss)~ FormatsMergeC, 2B & ":"k, 13(, "Monthly   (cfs )"w int_counter = 1 To <12SwRq2, "+ 1Aarr_SeasonsHAndHs(9- 3)HNext&DWith Ran?).Borders(xlEdgeBottomD!>.LineStyleExlDouble#End ρ$CC)s14H[s25HR"Occurrence Frequ@y (%se Ig@ssVsG*Gstvh#9b6AC#CCfNegC-fEach rng_tmp InVW -Ctg+ Z!Selectxsej CA aIfI2 Thendbl_Percenti"gpMi0Else f6 axtIf$3.@5mulaArray* d("", str_bColefcf! d-< _o), +-7Q2ñ`fa,% =3, 4, 5' `#Nd^ - * 0.&2p+ow+Weibull,,',3-2|0??Y!1 'qlu@/17/2009, chQnd subPsist^f  0calcQTe@F=ehr!O,-O,# 0C+S6,A , bool_Q95xz!Right(, Len)+z1'< 5A"=if(( oU@|=At_":?,Es!)=0_"))>g #N/A)"#dro 6/P1/09v#"" to "Q" so #dura tion ve wiplot data ev0en w@]me are &A[EA-0`1`49_V_ӵO)D)__[R i` ~ sum((o#Sg  )*f#=0hhA >0)2" aO"=IIFo p/t(o _/58 /wG?? h   f?q g ol>>=g ?P8PTrueoVU)e)E>/VψRorB%u&]qv^O"L" m\ _nwWa("PercentileWeibull", str_MonthCol4efc,flow0rng_tmp.Offset(-int_Counter, 0).Address _  /B{SubsistenceU7Q2 ) \End Select 'qlu, 10/13/2009, calculate @occurrS frequy for the Łps+If o = -1 Then r 0@2).Form< Array"=if(" & d& "=""#N/A"",sum( ̀! cÀ-)*#&FA>="))/*=,1,0))*100)"MElseRR RXDR?qqVIfKWANeg#Q - 1 Call Func_ CellF@s(LW, "Tahoma"N]a!@"Black@9t+ BorderSq #arYdxlCinuous, xlThi>n  L @veVa`lue <`vN umberuatt0.0U~ 1+dzd[_-[-5 //!K _+''#0BT@&>h=xNexa'WWith Range(ActivekW1 3k:K8 ).##s(xlEdgeRight.LineStyleGxlDoublaA%4/17 matting m\hly s " ta ?pEa"`bool_ImittStreamsjaAMerg eWrap~orAlignmPo(2pz_ 3Pv, True, "Gr-25%>""J of Days Classified as H ls a5Gp Ї@|an Zero cfscC aDgt$Ϡ=owuxG{\zGBolX]{U2#w7"``kf"d`D ip8ox 12Gm ..f2 1 + i,dFaЋ, d ,arr_Seaso nsAnds(i u, 3)LC_)1;1 _¶Ox eR OyV/ /%L//-` i``  $fњ<c`Botto>m``z0Vumns("F").Widk= 11 'DRO cBhQl 5/5c10. I want (N) to be vis&i  c` F4f=MAX(PERCENTIL E3(IF!OF@FSET(Ds!$B$3,0MetadataA24,1)3D $1'daiis'!$Co$b)=0,B0ubpP,wA$200 stioPp qRngs3NamVy oAizOpal var_b'Purpose:-s fP KsdesTir@jfp|sq, typspRjoinput۰kPl oB. 'IBc 4 @%" dU?  . c I .f?b #Strik |roughB .? ,A*If Not (IsMis sing()) Then$wz.c=C If k  e Mer@geWrap"gAplignj|, bool_d,`r_BacdkG&ndq,4 Oǰr , _+jH V@a'_=ʄXlC con Ku |XL C%|`-xCFEggxl/  kAcro|ssS'0r`0eJustqKa5mdq`2butsxBottommFis+iO Gener~iTopo"aM Left oKmRighoa.9(PurposETi sePa\ rmCdAppext wPDpeb@A gRA4p, B,D.4 Horizqb=G, Vic9sooy$op@]op\S[.T1 `ZaVTA= G|U_kInteriovrCA.G[3ao7]exDS /l_U?lӧ." al o rB%TA-mbyOzGAzBorsyAs,LPҢIWeED{tBXlgu XXls #  |xl')xvN*'s |D ntin0uous!4|IxlHairline |xlColorIndexAutomatic | 'xlDash j lThin.  No RDot =6Medium  |R URck= )P8% !)ubl *)Slant };)LStyle5o -?F 'Example s:^Sub Brdrs()Workshe@ets("S2").Activate Call Func_CellBorde@"A3:A10", "RightY, xlBlue"IKHFonA5T ahomaABoldYowMergeWrapAlignment(G'True, Fals@"BlackAGome@ C4erVEn d `(C~Applicon.ScreenUpd0ng = DisplayAlertsDim rng_tmp As Rang/SetF= b3 eB5.(str_RngAdd@A=# For EadchfIn Select Case )EAti`Proper(var_cBD} CdC%W\it!.%Mx lEdgeL).?fo(G_ G WeVC d3 $!KA!Kb1"Left" ((( i2 (r(ǟ(I (Top( \ `/().r#/)._(_(` "Bot ?(:< //__ 0o1L0I4 72, 3O@g6!.e 8, 9'#e El^sf!+e1,C@inuous=fU߰N" ^1LXᰱ!_zρʁ1߂߂Ol.D}EOOOOOOA lIyV&w!Courier NewVBll11ԁ_!ߌߌ/ / )sFap:, o Applic@on.Workshe})ЫtiR~(rngstRan@ge(3 -:, + 1).VaP,bDigxits))# 'qlu0/15/2009, add occurrance perc` to the fP numbP?;(70ahǝ)):vbLf!;~(}3Ap"0.0"1"%)" OvQ'NextG$N- ڮ4F,s(q2ShtNameReport).+"B:.4 [CReport).ActivateODestCell).Select#int = 3 'positions in rz, don 't chql"uFort_counter0 To 2 'wet, averagery!?2 1, S| C20 BackGBrMdColU= Wets Index(CA-[A9_2)DrByVEnd q'c,fd loopgicGi, jGi\LtBdtAhNumberofSeas'instead of 12 S`tep 3GLCall Funcb_FonOffset(AĒ, iddress & ":"3@ +BC*Length 2 -H 1).A, _./"Couri]New", "Boldl M12"DuE+ Borders(i $z'   "RightxlC9inuous, xlThin`"White _?AM?A #9a!BKBMergeWrapAlignment_DBw###1#T|ru,A@pplica.!"R(b|`"#2),Ï0Digi2)N)\er-C=B#==).9_Mz=MM).Value^ooKoosgo`"(\fm|at__g " 0.0")%)"'If`e\U`= 1 ThenA,H@ js).BumnWidth|8 IfKqi?$l16+ NexQ40 w3'//LastscBe1{Q 202, 0LlDashkll{l?Lefs'sJ}Top"joo7q#sБttom ": 3oooaTahomap,P,;/x#x___S9p"Dark BXB ̒ (cfs)0fp Q0)Ҭ`#Sw V#VbVfcV*f/C2/2Xd慥XY# tio e _ats(A)Rng, O"pal !ValuehBordersWeight) Dim rng_tmp As Rang EachF<q,Q;? 6 1? ? w? B< (ll {( } " s / / (, ? A Levels l]rC?? QB )čs(xlpEdgeSd1 .LineStyl1xlDoubl|)Bt(3?GA=pup, 90n/a"t(4ddress, "Tahoma"!Bold8lack@9LMin ") Call Func_CellFonts(Active.Offset(5, 0).A#dbl_PerTc1*b61b2*b7113*18)1"MaBx3, 1"Subsiste(nce4n/a@h1Low@MediumkhHigh@_BorderzIz & 8":"LeDft xlCinuou@xlThinf__R`+"""Bottom# With Range`'@!!).,xlE8dge#1a.LineStyle = xlDoubleEnd  !tion @eMetaData(str_ShtName As Str ing, HFPS OBFS'Purpose:To create the  d worksheet. KXs f`a s up a#Ap plicaA.S enUppFals$culb"!ManualP tatusBar"Please Wai}C g"j :W"c 0#Dim rng_dailyefcs(A RngTmbp#)Prj+.Gint_counter, CaLongSf se= e!.Match(1E+30W CSr-"$D:$D")!e - f1cSIfS%Exjs("an}pe (18 ._ 15=5"A3").Valu.6!!'Joe's MBFIT( spdb' doesn't have a project n/at*is tidmeo !Pt h0cp blank for now5If!5a;  ! K SetL"f $A$3:$B$2[H0//G"$C:$C#:Not?s@@)' 1_Delete@B}0< i& 4meE??Y #sD+A1eS ctsQ ߲C%2b&!BHEFR Vpw`T Number@H`^E1veriUSGS Gage IDO(cs𞀀iod @of RecЃ used(ceL(1>!Pto !*.Rows>.JQ IHvA_ (PH je/Tp: Run(Now(P'1'@PFormpc=Mid({q 5p4!{, 10)O(9 PE MO90imum Flow 00tKWSr Q@nity (cfs9 t(7Q>2?cc%pQ= "0.00 u.US3H" ;_BUHs(_ "N)al" E8W != ar{qOO*#unc_CellBorders(.Offset(2, 0).Address & ":"t8, 1t, "Bottom", xlContinuousThin>lack")  Call FMergeWrapColorAlignment', False"Gray-25%RightC`er9 IWhiteHLefGF910Ta0homaldf, 9B͆arounA?!DTruרValue = "Temporal an@d Hydrgic Characteristics"Gf 1BIf no. of year @KY(rng_dailyefcs.Rows.C`@]1)) - P@a+ 1:-data pointJ32$HFP{_ " )4K minimum flow6h Application.Work`sheet"M inl1umnsX(2)~5dxays!C}n&cb"If, K:h6l`1gNormal11(?O~@t(/"uT~/Q/n* g te nY) 8k*79(ᘯ}o(M&If bool_Q95 Then' 1 tٝ_9 "SubsPoencBeRTs wi@be the gr\eaaLwquality proterIBuQ#!mfol Zin@g perc@ileQ[s in each mh or season (e.g.0.05 f`5th8):"xl+E`o//oRoooo7poodo "ocQextreme p/,Median|8E0IfwC) He 36oADHorizalxlOACFōdbl_,ThholdNumberFit`"0.00P$EhNnB)"Bì=COC@EPE/ 9I[2|u6>_-#^//U /c,bwr/ |0).Address, "Tahoma"HBolBd8lack 9) Call Func_CellBorders(.Offset(19,  & ":" <20 <?arounqxlCon@tinuouxlThin%MergeWrapColorAlignment&1 JFalse, Tru"Gr@ay-25%, xlRightC0erI Value = "Multipeaks_lier for H* Flow Pu>s"&1).&8dbl"''HFP" IOverbank%$ $OBF$F@}2 d? ?,%C9DLyons Criteria (cfs)HT;F`Yint_cy`^1 To 12G?2, I+ g=OA3'@Normal`x".Bpo2& _Gr: exlEdgeTop).LineStylxlDoubleK1& @½M`ths(arr _Seas BAnd0.Short"hNext:Wg'BWMT@File("Metadat"P1`8str_IHAAnalysisPathh Aut0oFit('ActiveWindow.DisplayHeadingsWh '.aEnd Ifqlu, add to sto re usch oices¹the first run a @"subsequ`mAs )s)m,"33"c/ Definit i0:HqDim pi, j'Br0]q1j6ǻ1 +r`1)_ ! QWithyworksheet n ampbe r;"n$p Rang0"A50").Select}Q 3C!&t"HEFR generated vs C3""BqullUS .4QT95_tV5SNon_ZeroDbool_g@S "D#rIBnXmittP'S:tpmp' If F > "hen 4 Do9STB!"2T1TaFa 1C*Q3RPAJ(FN As&  8, QNu mb5PLong)'Par0 s: f=@ll@9Cp%5eH=ToReturnQAs of |3_Sht>aaDestZtr%,vr_=?@p/?9= ;6]%q@"o- wh7 you want7w;extrazcbtt CH pPf1"froBmich  A#/@/@/@(@Ot.#DaCFAAProgram Files\IHA7\analysis.ini") ' Displays third line of autoexec.bat \Application.ScreenUpdng = FalseN\Alerts&(Dim oFSO As NewSystemObjec3v%TR&wipting.TextStreamLret$Longa lCtr Worksheets(str_ShtName).A@ctivatfRangeDestCell).SLelN%Ifd.Exis)f( Then 'V@erifieo see ife f e%]Sdy=,Oxpenx0F-' $ Do W"hNotTR.AtEndOfM 'loops@ until"end}th$EW'$R= + 1 'Coer to moveng cKwrit@t([eU.Of fset(, 0).ValueA.ReadL'A is tVame%L8 'Bcoa@:nuesCCClose@1CQ(/d b@Rh@ '? G LAs present?c $ B3# Noid dADf!Is@esBA @htREeHO@ veA:$AE2:E]Cc qDY?yAA2#AB2:BaBc2:c" ~`SPAl#[kRFes(l0RlAddps;: p1Ps, "T@ahoma"Boldrlack943]Tit/(//1w*DKMergeWrapColorAlignm(9p}j, _s ?True,sGray-25%s ETrT[0 er, C)1r97_]4y Format#tw!#l #Tp_'8"Total 5 (ac-ft)4fs ra5=(PercWeibull(&"9bFn,0.5))*dbl_dsf2AcFtCo Me+=c(if2bgp2>=%CG,q!peֵakRange & "))/"pint_NumOfYears  End If,If bool_Volume = True TXhen>^i,i + 1$str _Temp2"=count(if(L>=ActiveCell.Offset(0, 1).Address/1.983471,Ipe+҃PjPFlowRAk Fj1 jed1ȏ3;FormulaArray=EiCEElseCA "=sum("ODurationOL_FEނ2M)*$I(Y'>?b))s?Left(, Lebn) -`t#C 'a|OIC"xB&@ .[#berAgata0.00dO4, 0).Val`= "Return Period (yrs)o@u%(1"?製 0 Wihth 1(h :o7)c A6.HorizontalAlignmDen(xlHRightIndALevel0#|#s!Fun-`o % _EFCSCalcsgCategory As Str ing, lShtNa@_*i!Dest- % Head IFOp!]alP`aram12Dim er oIn ers dbl_!1cIncVariand!cp_C)Fqlu@, 4/20 09, 26off the perc`$ages table `jHFPS worksh eet i"sco"hdoesn't exisd&0= "wNot3WEs() #$A pplicw.ScreenUpdng@3Fa|yO'@xlM`anualctatusBar"Please Wait. Currly Proc&]' ! %.a.Hf2РQ3 Sp lCZsMerg|e(#L 2ʤ@?)էP+0\L, "iles"t.9F._3[ofSons #C !Mind0)5:tЦ2wc83CN51v"Max0 QrVTit@  lA{XSelec DJ'Js n]chrto user1puFNi!P*R- o2@!qDy-iG0$fs(ițNlexQg'q1q"W )er#A(2Spm3ummmv4Nlneed c accoronum` of Bz#'" |"  @@`)baZ4 should be d lto base int_NumberofSeas@ons Forpcounter1 = 1 To 'used e 4|'dbl_PercInc|02 z22\<@ N+` 0.25Q.With ActiveCell.Offset(@2 - 1, )!#Select Cstr_Category "senti0les"ll@ Func_PF onts(.X.Address, "Tahoma"NormalBlack9lACBorderS{"ar@dxlC7inuou)xlThin@)'&"&maG, .ulaArray@ft3(Param;j-Mg2,y"0)+A(at+"0X.HorizaalAl0ignm xl RightYtagYY o&YWCajY(YY6_lY Dim ioff As Igerw= -CL + 2faP=" & RaXnge?e)E0O`&a@ "/ "sco!C104]nc%cntcMCAcrefeet +RrQf ?c11\b^^k"$ 1 {I 1J^0x_^^^Fx?^}O 5x^-* -dsf2AcFtsvo;% .^.( `nQc`End ӏ qѕWNexty2m1c'The pMin a@!ax cta` are no t Pthis  loop. Is ratPher pyjusA8m 9by wAe 'qlu,!2s nechqL# &N 'x = ?_p15 Step 4 ' why 4?5aJt'  03xYEON "ϬONϬ},N 'NUEC4?M?M7Mp6MaxϫOMOM-]V IIIj)+!wf!?ֿ??g;wbr1?www ) Func_Formats(ActiveCell.Offset(int_Coun@ter2, 41).Address, , xlThin) ioff = -NumberofSeasonsP + 2:.ula>"=" &@ Rangec  )0+"/."sco!C104"fN.`K0%HorizontalAlignmentxlRight2Case "Acrefeet.CallF2✌, "T@ahoma"@NlABlack 9h BordLerw!arrdxlC5inu|ou@Ù@(%%'gG%iQ$-1Aprray@tMinMax(str_Paramgׅ, @dbl_PercIhnc)*dsf2AcFt@Hvi?|End `Selec YWith2_ZH%#2+ 1gNextbC :tion %I#nZF`LcssOtmpcColfFlowMthSubsistenceaW`87Q2fil0eTyph'ht<_B` i+dur Ssnc Applica a9.S`enUpdngwals~eAS(et $=y"A3:CAJWorksq3.Match(1E+306,, #Q.S}"$ C:$C" 1)2(6(0"E3:E:ЌS1#3:B olA C/nЖonO O &6D3:D/_ _ _ _ irC= ve R/SIf#2")Q " Th.e@Wf"ANo z@ f0HT ,pis sh8nExxit[6a]If! D A2:A"$A:$A%HC2O1 O1e( IğAutoFit(<"Z ,:4olPCpf,1@=0,b5A))3M %,NumberW0.00%"2).g9^uV;#N/A,minHdurDC)c^3"d/cedia(.~4ʅax_#u5y "4Yp 5/(yearHlA iLasta)+$1- 3);t(pi + @#qU0`UQ int_"er1Y0 To 5w !BordersyI f@ard", xlContinuous TlackNextJ#;`1aofSeasons?kd%"BcNames(-@@mʯ?|D}ҰGaA R`(  .=fIe _h\-?Z-XOO, Y"=dv_YRY$Bsn//'$a  ^^??,~ ^??%Mm^o1+_ , opr_oA doooiPd??/X??O, i???8I&S+eo{t_^nnצAn@00n1cnna?o?o,zjooovoaob#cEndti ae0from :tA'`Y b1:D in3))) To H$xl? ;@jKANg/.O33+ h0F4#g42u j1N of.s * 3 'why times 3? becahuser03ndiOs: dry, 0 ragwwe&&(4/17/2009G)f }Qbyq)` to0clurdpve!,~  B5W0ith ern2I}'Select Ca?-21 'P \"If,<0S T@5w4_Q. Array`"=SUM(1 oME=QTw ( }_oa9"~&'/Q,Ϧ9T")_ B?f9Y P00)ëEo\jɿ^&% %/oE@X% }* .A% y@#Os}?''mv'v'c' j'''s'ß") =" & Range(str_DestCell).Offset(0, int_Counter4).Address", 1, 0)),_  NumberofSeasons V)" ' J0Case 9 * 2 + 1 'wetElse3 =-.FormulaArray "=SUM(IFnxColI3 "&:-vc2 E-C`lssfnC-\")]5{End `SelecuIfe'Call Func_gatOO>A OGO& "!xLef?#X??llH?? "TopooRoot//U@___pMergeWrap|orAlignm G/_ Q_ Fa,e"G-25%P `2Cer|2.VW=t0m9023S X 3fqUϟ$ 300Fsv60@?(?(?(c`k"!𱣱um(qew-hh/"(=3!t(yPe5wWeibull_ A/_ 2"^ ,0.5 fR#O р  ll5- 0.7 q;2&;Dimb tmp2 As Stringqlu, chad to sb vari5"?Tmp6 b9?93s?7 h 1z뿂!_ f ?1s0] Set rng_HFPF`s0ActiveSheet.W@28@TTuTMmp, str_ShtName) 'qlu, populate the data in,frequency summary table int_counter2 = 0q*Forz20 pTo 2:7 !1"ONumberofSeasons - 18< t + ,ActiveCell.Offset(, Sh1).KmFrng_HFPF~s2INextCall Func_=Fonts(Range(Dest ).Address & ":"C[1, 0, "TahomaB"Boldlack9 BBorderNCar@!xlC;inuous, xlThin(&%MergeWrapColorAlignment;KK_kFTrue, C"Gr@ay-25%XY8ear9(er8CB6ÛSheet._cCDim iMaxD, FrTA 8As ~HStpring=? @abEndmStart@jd s* 3QgWorks! `tion.'9d). >umns(10)'̃@ 1c- A;!a0'% If >A"9 Then#=C%Tmp)7 '|ANTitxles+C -‹`"AttainAp cSd$" G??"?B?? ???Æ?,6NNEvpMsN~:M@, j, KKtmp!o<0asgc.Selec,)3chd n` of s3C't(0, p4N|%", "Frequencies (per se ason)xlCenter, !$) 'Call Func_CellBorders(Active".Offset(0, 1).Address & ":" N4'Qaroundonti nuousThin%lack" F0ITahomaE"BolI"B>, 9@MergeWrapColorAl0ignmint_Number(ofSsTrue, Fals"Gray-253x/V*} )| (_'1$ }~GSW<}:x=mRight_œK8`M:?(?(bc wFJ_)_)?c'qlu, changed n ofs 'a+UJAWAer!_ lM2i[ Sprhing_ ei|P 3/ppP Summ_ C0~"_ v 1l1 Dim i As IgerXForP@= 1 To+np1t( i//"str_yNames(i -pdWNext| iS F?2, 0!4y϶dE)ober ; Du(? 1< _bC Ԗ/ / -- B'--b$-Low 3{3תMediuml$099HPv.pO 8G/ og##x??7oQ _F>>Sۿlow Levels&?OD5s` xSelectll_lBsBRNormalZ2@@@om&#&&Endti@'CreatDry, Wet, Averaga goris. Each TJe y"spdL ours cfo >7Ca(ApveAh.Offset(0, 1).Address & ":"@ int_NB:ofS9F, "Ta homa"@Boldlack|9)Q$Ą$$arounA$xlCAinuouhxl@n+))O;?--_KTrue, C"Gr@ay-25%A_Low> `^ b_S1 BQfxlb vi 'add9n@] to Metadata worksheet  If Func_WXExists("") 0ThenZbFor i = 51 To 10006> .Cells(i, 1R)?""X pt TENext i"Nstr_S@htName9E`nd If Set xlS}>@Active,book. s.Add.&- %Nothing 8tio Dele,teQ(( As Str )= Applica".DisplayAlertsDFalso- =").C)"HP%Tru$[?HighFlowPu0Ma;xDesNt@^B, 1HFPS, _$ ReportPkFlwRngCTlVolBhDur Opfal(Frqm&C0Dim int_counter2,Itmp)2 EI ge&rG9BT3BB!Colorn g_Pea@>owaRangDGaTotaa!ume4QFreq uencyva r_ !Vari an$[ScreenUp _[`c"!r = BI).b!O%Cd8)#_ eB JL F(J'-jS'$S"e).atGdDG$Ht).Sc! 9'qluTstead have 6 rows, I need12chPhe fol`A>offsfroHm 5a11cCallMer@geWrap\Alignment(#!aress & ":"HO (11, 0dd, ᖥ"Dark Bl@ue", "  s`xlCer,#< Borders Rtc ont inuou%xlTWhite" eLefs _ll UPTop PO"Bottom[~F s"TahomaPldq2?!0шW-YAKa2 is us-calcul@2 posi`s[4 r-s3%= -52M-4 302Haӕ(2 'b6, "cProl"5 oHf h % f4 &puinwmtxseasonSjflmhly et@<c= Caseh>24k3, ` A5V9 (Wet3s2In8dex11BTxlDashBBNonH3W 5, 6, 7, 8UY Average p  wo ]90'q'1Q) Dry 4 W]e\* }o7+01NumberofS(s - 1 'O4@-$D-s #+s-es , each$ wiae "P1lumn, made up3 .94Uf`W`/ 0:%u2& >''Debug.2PPt q{(Ab Р>QF-6C)J=pReSized("F: nXv~.r0d(U s㧄 +aRa+)_u_18a_l Do o g U__ V oLK4, 6+ __W_3_VQ}24X10) & _  Func_StringReSized("V: "Application.Worksheet^"round(rng_TotalVolume(Abs(int_tmp2 -  C(ter2),  + 10) 'qlu, used to be 6 rows, now 12Case 1, 5, 9>represent wet, average, dry season, frequencie+(for s'D@ebug.Pt sFyr revar = uF!RDcDigitsk)gf 4^2, 6, 10O;D;DurB];d[;3, j7@;1_òQNPeakFlo~w_'-EL['4, 8@'PxJE?`9EEcTrEnd SelectD#we .heeÜmerge cells bd on the length ofDpCallC`Fon {Active.Add`2s@":GOffset(0, D2), "`Rrier New"!Boldlack11`U'7Borders( .tRight xlDash, xlThi"White"?G?$4LefC *inuouH1! h$Top &2 B_.!Bottom_! D(M-WrapColorAli8gnm z"*ll"esTru`}Fals`strT, Dq#HCer# _u 44#SL:w)p1666  O>O>/ #. 8 8  _H _HVH??"999'''_ _ #S;Q(;L]^7DO O F =N2W/%==h=  u ?E?nC?? k/Yq;|TNext2*W0-1v9 1aA L d(OI8npuQcH) As Variana If 17) < S ThenQkRept(" cw Q:E\?!5IfnQ` rhIndexInteger S "" ""B[ ,π n"53Ole Gree Dark 351 Case "Dark Teal" Func_ColorIndex = 49 Bl4ue\1 igoV55ZGray-80%-6 Red- Orang4,YelHlow-12[e4en014o-@47+5Y1BW3HLight c]Y-LimcSea GrX5XAquaBm-Z4ɲViolet-1 -Y4Y48aOPinkJoo:l4ɏkEnd Select tione{sonToNumber(arr_sAndMonths2, vaName)bg Dim int_counterIf VarType(@vbString The BFor 0 TPo UB dU1/(H, 1) Applica".Work sheet#.Prop !K&+)  4L aExitcIfNex isTomeOr!C Posi , Opqal str_FullOrShort o" o"(%q"v ""a," ." "".W ~_ @5{5@7l3@IsMiss5(=P CP7= ""_# -CB 2- Else "P"B#^ FK3 Q48&-8 OO-IRgp+OPJ_-_-l _-^-4%_ ]+ *<+*!A%@ *5C*D"*XN  + +M?++++t, +_+v+c ;cRH?c` T9/aaoSS" 5r,?Ob444##aObObBbMonthNameOrNumber) Then  If IsMissing(str_FullOrShort) O@r CStr0=4 "P"Fu nc_MosToSeasons = arr_ And2(int_counte r, 1)ElseS3G nd IfSxiDt |tioEa Next mVarType(v ar= vb"IgerFo r 0 To UBTd(\YWf0)@(T= EW^`f kDUK<, Opyal IvDim fAs Dp\ }|>q2a>Applica.Worksheet%(.Proper5W_9?M 3Ad= Y 0P||c |Ϊ?>3>|YmaGG@gͿ:A2:aп+Q -i"lj?1;,_Uo]UGebnS)_olh2>,SS0UqPa0rtOr1V'T`his fAI just generates tPhe n qnA of sb by readQUsqa also givP`you p Qf#$f a, Wy{`, fFall p@turP fP on wire0sultdvalid output only af opuZldNCtec Matrix.PlPefp to s document_B bet1understan tYAssum9atfi (, Sprpumm9!uB G$zths, `$"!"BG, "#')= 2 {{Select Case Aqq:_q611U020PO!s"=oLC[$Fh@I  *x / :3IQ0 YSR7X2s 4A2"+`5c_o@`"d /5c . qyE n?vQndMonths2, var_SeasonNameOrNumber, Optional str_PartOrFu@ll) 'This funcJ just generates the n or n of s by reading' a ialso giveyoul pefrf aj, Winter , fFall it Bturns]&f 7wiresult in-valid output onl0y af1FopTuldlF_2CutekMa trix.6PleFfStoLs documentaZbet1understlant„(Assumatfi(CG`, Spr usC _4@t $A9are proper=pec aywksht_tmp As Wor`M?2\#Se G= App:u.F sYb!>= &.#j"A3:C" &Q1A89.b+(1E+306,O$C:$C"))8OpI.Rows.Co unt }@Sub pneor(A.C@,)AYts rixiPO2F?y_4S rSt N1S (11VQ>cQurte3"I@gepToHm" Devel ' o'vide flexibility2assign1sp2F;:*OS seith  v\D=e a Ms=GU?`ay os R sP 0DA-4Ruv'pimize com`'sPCwan ie Q;cA :A"<_s њ"Bp?Bs"64. C(ons r0v*60,000 unne]sary@B s (Do]0g9 @ 2MS-OfficZe p"d@.) *+|_IMPORTANT__N9-?0uAqd he[@*tcha[0g&coq*d mS4&As.?:Se9os 'TsToc+',tGE To|'. A0-pl 1wf oaCɢpd=7kUoul8d b:@5pbe/q5above list7@7 e 1y o `;ys{1EXxam_R@i*n'TQ() ?ogogx12) UB^MsgBox in"JandisplYXa 0bbw'\ 1 | 'End Sub a,z_IMPORTANT_ _o  D=-s=*tThe following table is a fully populated matrix with t assumptHionatnter starts in december@constr$ucfo impquerey!, F@exaIif@#uswanto know wh@@#0posi"of'January mon,#7'@eason,axnswcolumn 5, r2. Thshould give enough flexibility@$B0ment sAs durATrun-time. 8@MB2 S sTri|mmhNo Name#D Poc Sequence612 WiyC DB`b1 c9` 2dFebr@`3 3dSpb6 March`" Z44cAlC `"565c yMaWc66Su`=r Jun9`77"zC@+88Augustc`99CFalB Sept`&=010bOcto`b`11CNov `~1EZ7  b_coubc= 0 To arr_xs((, 0) =`tf+ !0Next h0,T 1!"h".1w3/2%13b04y0W$ `-6Jul(7c*8)?95'1{u&?1N0#SeksdefaunlbFb 0ds @mT,Qtcasejno valuypw^sa!D_SwIf IsMissph#SQ2)men2$i`%$ oQ*Block @ignsnb d esotvsw by" A| //!-p Qj +Ò Ep > f`C "= (-$* n -0 CQ2sAnd62obd96_Select C1! $ $,k9hss2'Q F, 4@tvF, 5{ G6 PECPs!"1 br__#h'?t>^U RPP{ %= "O O %- ??Ta^7/OO7ᆏK- ??嵀 + 1 End SelectFor int_counter2 = 0 0To 1|If arr_SeasonsAndMonths2(x, 0)~N: 82Then|!Y2Y1)2T3* Left(Y1), 3.ExitN ;If N extemp 'This testi@ng staent, Occasionally used w reviewthe code. 'XDeb`ug.Pr[CCj& "@&a x1) h rh h& _H2f%4j%5j 6x}FuncRt@e E _8Cre@nDMatrixœ,BWierStart2DDim ECp As bI@gerC1st '-6 3qlu, m odifiQveBrS of Qs ame f#, origi@W was keptD aadd "_4" to its n How many sC do you have?C`steTypem"Normal" ! 'custome: laken carea@{lex3alr f Aj3_Numberobf= 4Re/Ns,- h`7S@Cng- LengthZ? @= My,wh`@@rt:༅9first'.!IV./`8 Se :Bdefaul pB:A>c`Januar&y[2sebIno@ valuepasA2S" c$ "\'`BIsMiss&JkBaPk("&Block igns%L baon+]e`m! boxe n F(NËMaHctrlvCT, 1 2 i_ `:jKo 3 ,h fr3Pf, populMBb9`B%+i>l/Z '(= p12 /b!l6wi]0*0-:" "oon<0;= "'oc‹"Supmmerof"Fp}HA&id Q+/Up'G7F 7"{mat(, "0"gUH_s' a j1 {a3*L\M+ i_0@>"a_W=2.i22r# 'oeWCK`?6 *r;+(K)  :, eg. YF "ZetcR.BQ '3@3 letFs//$! 'G__T= j 'N|si)96 i1Aquenceo !J! j7T;WooooonooP2 ,b&o_ _ o\to_6 a ā'iresVhs2, int_W@erStart2) Dimcoun8ter0temp As I@gD t1stSe0asonR '-8>qlu, modified version of the same funct, or@iginal&was kept and add "_4" to its n 2read s` defini( from metadata sheet{For = 0 To 11 26arr_sAndMonths()"WorkEs("M").Rang@e("B32O ffset#.Value"NexztI42CLHow manyMs do you have?C 1NumberofD8@/;11, 4'D = R 0, 0 I/]ReAst_N@C],- 1)StringCA6Length[Di'0 'lBDD~C GWD4) '=`Ifs+a&P` =CbThen)ai + _ElsK %E}Zi q3RB 7,`7O Fj90&'iaE`Ifk$< #g##'This @test ] a ent@, Occaa@lly usw@ reviewaacode.@AaDebug.Pf2eC@0) & " &_2R`rf 2 t_3_(e 56@t aHF!e _GoliaCCPeaks,!bECVolDu~#Addv3)hColu|mnQC$y0C"inzHFPS wk#I,J,K,L c2s. (Fcompar es"A Flohw,  aRz}Tot` uoD6'each high f  evA, withp@crib,X s calcu:l/d! R w Sub-Tabl ,0g0a0'Ef celFl!@s Fs  (Locat N3` Ct 17s4 $93"`_S  (s0@e l#& FY$2( NA0 veoըU tP'w B˩qs p=o rr1o c CFrmlas03Ar4i,'w10 "=IF("\Qa PQ=Q"4",AND("3ibool_TrueA&rO>1Cp).45oM).0 b4p ,{ 0= ba $ p Wɟ l_1$aR_1I= S' n_#e sa' ^re!a ','_last pos", riPWdz Left(, P)A-z+0 )b(,("H/b('0rag)1`) z)4))9l_P$qpx) str_Frmla1 = `&0Vol @& ">="Range(C\).Offset(4, int_SeasonColumn).Ad dressx,"End IfIf bool_PeakFlow{True Then!;`6'there is a ','n  last position, rid itUSLeft, Len) - 1)K")",""MediumIF(AND('dry,DuraWo7NWV3~um~eq&@R&&k/amN"RLowOR$V)SNz"=`Wa_A;!d ,^`_c^ Vt(5V N "v| 4Wet)d*$(1( ((|(Average)aQ "Qt()) U_Oj;DryOdTCFunc_Go`liathbr x aan _Proc_Multi psxDest Cell,RShtNahAs S tringcef@cparamBa lFlag|'TNh0tes҂IHA c sified f0categoriz`o srfurmPo we'$( aP event. For e@xample`High2 pulseCid# sSAppli` `.ScreenHUpdPngFaCalculxlManual/DisplayAlertsDim mF_lier, countHF(P, `cSplus1TempYearwbeginstart e, dur"cum_cfs_maxQ7p ge'qlu, 7/ 22/09t updors fpcut offs5_ѯut0cSМ,WorksheetExis6ts,+)De@lete_S! R/s5Cre`)eEF /< پ .ActivSf:).Sp cS2Be;.Val= "V)(dayt@ ?Ac"d3 Select#Do U@? Value@""cC'check for if @you arLn a high !w pu - awhethUnot aboutVe`k 8urr - iDe maxB'j= z_ e[Y o-+A3_"e9 'new 0[risq_limbs 6 5<<>Ba6,,D7Eofc7'poP 3sQSAS UC1!E/εAddress & ":"PActiveCell.Offset(1 - int_counter, 7).).IHior.ColorIndex = 35 ' End If - 1)5ElseUD/! XB\7A\12W\A\ \e:?[HH} + 1/\`uying @the Pu Classification f@ormula high flow pAs, a`:f`s"...6str_ef@cparam[""d'qlu, changed loop variable to sv num ber byd,x ne@cC`'c ofsubtas pe0ak F Du r,Ntal `Volum@d@"public e _srarl as!a&'HFPS E` c n, (4$`$t*N s"_st% = Mid(R ("N1\") AN" o*fs4, 2,'defin#at #area6=gDFuncAgept'rcnaMF\or$ŀ<8y8?T3Vs ). bR= Golia)?N1,7b9h17,k f_m142cen<(arr_$>AndBX"@"Full"), 1- WCallBorders( t0g)K"ar d@", xlCBinuou xlThi2"Blac|k"k? ? ߌeٌ? , "Le|ft  F?Pw Tahoma "NpXal, 9 %0Л3"=%Criia(P8&)q>`IW/)"(q _Ş9f"sm-@koduf]%%%%6;//'/ _ _ _ _ U.88 .P"- @-Ao "'zero everytAEg outn?AP{%`k dur cum`_cfs_ beginFa"= ߐU>'Sheets("@daily sAʛ/'logP cuttoff exisw "x$tis_lier" jump@ is endaed;:(Desc{m w plus1dj ~(p-v>  p *(+_ /WZ<3)C/'wano|a a HnewPe aSo.q'; ipD\ountered following a dip bep the peak "pulse"  . = ActiveCell.Offset(0, -2).Valuen'If@ginHFP>True Then 'end of 5Sheets(str_ShtName).yatcRange@("a1")cZ, 0).Select2e^qOdurH{1zcum_cf$s_ ' is dsf;&a&maxf$3Bstartd]04(5Func_MonthsToSeasons(arnHAndC, (D), "Full") 'qlu, colorlinesr MM cre4d  s, neto @ pcutsKAfts + 1O Case int_4alFlagO Ȃ 1 To< 6 ? <ŗq6)8RFi& (YearF/ - 1.A =qE@ &  EIPge".7!.127_.ag_.??/->>>R`.1/.aefcparamS"higlh w"d.~hAd loop variableZ @{a'sb number0}NF@AvBer`8-aD8@NbofDA`GR. ). 0mula Goliath"cN1, !!b9h17,sJ6Addresf_e8@k|h enCo]@_,LE- t]/G C Bordp(p5":"_P pF "ar0d", xlCjinuou@xlThinhBlackhm? ?? ? ? "Left  F ss Ж("Tahoma "Normal, 9/ K73"=rbiia(8  >n. )b NexoN h3N"slNodN[$$u$e\6Y?.?. "?. _ _ _ _ 05_-7/$2 -) ,,oQ'zero e verytpCg outrn#!3Őb0/\y= FaurYA=Ӳ"daily |s"<ď /m(p׀ 9قaApplication.StatusBRaA"HFQP EventF" # q5/I=?Op"ba|nkOOٖL+p#' y&mafeach classfio apNse event End Function H_Process_ZeroFlows(str_DestCell, ShtName As String, int_SeasonalFlag) 'ThisB es zZ f[s Applica.ScreenUpdng = False'Ca0lcul3$xlManual2DisplayA`lerts,Dim multi@peaks_lier, cou@ntZF, cAplus1TempYear# beginstartfe, durZFpul߀ 6e' IfWorksheetExist) Thelete_S tE  Crea Ea IfCF/ .4.AvC Range ).SexlecC e.Value@t"Dur(days)"N Offset(0, 1)  ofk] 2 üY 3N /oA G2lCwA3Borders(7Addr@ & ":"@4@ H, "ard", conti`nuoussnlack"va, LeftbF? ?4 Tahoma%`!la "B, 9MergeWrapColorAlignm@07"Pb,C-Gray-25%B2? a3"@ql uhA`d hard`ded subtable upper l@+ c to aBlAvari"s3B=ba N11 PubHF(PS_ _B_cdol 'AfsǠ c lumG d on 4 d @ at loc N, ass(!HEFR ge2, rsYaN1 ʦ917C = &a60).f 9 8, ;l{16 s("daily efcs"ʧdՠ>!{" b3yTDo UPAp4TXJ1a 'Bmr) for regxr i @k30j 'in a <Pt "5nS SvoRp_~-_j9T|ru}s+ d%ol># A@s  'eǀ0jB'poQkS "1EvY T"a1P"($R(#iHrkxxM@chsToys(a4rrs@, /rLa)pYFuLoq7_B-'R_@ryth` outdpnextdAU= 0Ra'q0uPRV[E[ o ZtatusBar:"  EA" # q CPLoop'yma1yeach clpfied overbankflow and high`pulse event ElFunctio(n $ _Process_SubsistenceFs(str_DestCell, tblShtName As String, int_SeasonalFlag) 'Thish{ les sn s Dim multipeaks_ lier, countPSF, cplus1>Tem pYear#beginstartdate, d0urSFmmpq_CoyefcMonthPercAdd&7Q2 ileTypDht_BasPY6 SsnPannual iQASiMLastLong``rng_sHizR0angeCAp plicav.ScreenUpX@ = Fa Calcul dxlMa. DisplayAl0ertsK IfWorkshepetExð) The@7Delete_S= BE  Crve E: IfsHsz = "ʼns"I ).Avc8("A:E").Copy`%!1S'c a e.P@JD ;l3aBorders1:E1","arzdA kinuous, xlnlack"A K F @TahomaC lA "B, 9MergeWrapforAlignmtGX,Y@Gray-25% C`Ai"d C*b;)gi!!.!(j14)x) - % _Iseric\W _'t_q1) <=?kdB__2)@08  d_VR1]8fQ'oߝ#//0'q%lo1??5.,a"=if(isnC"M!qA''nc'''/&'.`r`J_71@G @&"<=/eÈ+cO6b`O6O6_O/;/ ",0,1) _)StopE11dailyu sCq:54//— sAth;AR(`_"FullTe01_ /@  #@?^P(`w@s5?@9nt@?Q 0b)9.e h3.s!Po@4%$Nex46gS3E).GCwDur(days)@ Qm,DSOG2?3/ellBorders(ActiveC.Address & ":"hOffset(0, 3), "around", xlContinuouBsThinJlack") Call Func_sBLeft2}FVTahXoma>l""Bv, 9xMergeWrapColorAlig nment:Fa lse, "Gray-25%J3/erK'procAzdura tionsfAutoFit(str_ShtName3Range(@"C1").0umnWidth X= 2FcQ@tSF@ 1J c3Select!Do Ul AValue""KIf IT 0) Then 'in a subsistence flowx evJ begin,YB  startdat(-2).#End IfGTrue@q&+ U#$t> $A d&eof SF O>EDest!{).d=, 7"ll1'f-? 1 1 MhsToSeas@b(ar`_c"\, b<)F8ullY Case int_C alFlag5B1 To 67 < T?a6$, )& (Year$ - 1EE!Q_usb67a61dm6B6 !!& o / <3)%P7 N/qif9 CU= 0gRRaTpYPU7=__d1T/ @Applic"}.StatusBaRr"SnFnEñnA" # q Loop 'if there noqs fQn exiz-IsEmpty(` 5D[w -(! Apdays classified as^{s a zer@o cfs. vhbLf_w!" user s2calcul# onp-sly ahdidt Q95 op/&!reforКthis tablas e.8>Eb! ,'nW`)b @ptPi>c41xcfЙqE3:EQWorks0heetn Match(1E+306,DS.t$C:$C" n[ snJ2:JK.veH8:$H0 H2|:H1'AA annualF3:F"5 B3:>Bq efcC3:CiLast/!-!" - X:ktbl0 _86 O19.5. k 3_^`\1)_ 4]1bl^Cell).Offset(0, 5).ColumnWidth =@ 30 Range(str_tblSelectx?_ DurCs(days; ire de([1/DŽU/FriyAa!nnwio@oI?jk0j#`Per R (`Height5 'new calc 0)"Ann@" NBA0.00%,aulaArraya=coun`t(if(efc@!=0,))/CEF), @j%H`#N/A,min&c?U?DH\$#?a, 0,ax?4`?%,"(/(y ear(Aq$iLast)+1-c3))O_0000( in t_b|= 0 To @:ы1'ዀBordersQ?֐ DAar5d", xlContinuouBsThinQlackEqNext @B 91 ofSeasonsS 3Ei + ENames(i -_H.T70 mCCCCD8=  yG")oHPfHolb999MU(10(Y??R "=TORERysn/@Pa5$O@VOWĞ(OF,mW?"o(c{[f(?! \??OB ]=R.0"V_*_*qW.A _*Ob///N*|*OgOgC_F`Dr>ga@h hQOhOhOhhhhAh.unter Next i End Function<Sub FDC_@HEFR()'@This sdwill eventually be turned into a fu,working Flow Dura curve with other fea=eZchjas high f:pulses, monthnvalu.of H#Base5/.M/V9, osistenc';OvIbadnk#. {|a comprehensiaplotppos|{'apsulate]matri^x .;Stneeds . CurrvundGpro`gressDim chart_tmp As C axes A wkshF Wisheet, arr_SeriesNames@(6, 1)AS1ng, strErng_8s Range, HFPPeakfSubgc_co°IgCAOBF !(dbl_St@LDoubl?)P Applic¬.ScreenUpda= Fa Calc@ = DxlMan Al_Cr e+L("dai}efcs"w Gs [.Columns(@2).Add,< "@@ A1c XYSP@\("Flww@RGDelet~eFI  X>Yg B:B"A:AaxlMarkerStyleCi$rca8"D` B 13Entire \ 0, 0)5"LI- ƅs"1M~(2•=(  P"4B|5%C3[P,E=Dryas@3orIx,fAagd-Wet .f-f .? 'ě'(rCopyPa("fcF18:S25qD1Pxl"3rG/ws;/QFormats0'qlu,5/13/2009 , 'kb |season definiaffects P@}r!es^hpebD\i3j^^cs3= 6qIlS").r("NL.Offset(ChNumberofS s - ~4FWZ)U"_s{3"& ":" &B8Qc#e("?bT  D12#//bh/(#AsSet=㎯diƏ=7.WW= ~1?AbE@cF"A2jPVu.Match(1E+30$A:$A"))p= nE15R15%*@QO$*1$|COp~5:Q7Uu%Sm "F3:Q^3O"@"MSEJ1:K6QD2'O,OP+KJ%$ "E24 S'DRO: I hA ackg&r in(s!ֻ.!A.priorqx`lNoneCSWE.(xlb[$0aleTypeALogar m ic2HasTitl!TruAxi.CapX= s (0cfs)4Ma`ximum0180 ^4Ɩ0Ceil(_7`V0 10?(8F1P4ˣQWCgoryO0D"%kTime excPedl0cAinorU!pIsAu= 1<MajICr.//0!Zero f1 h i b&placed w 0.1.}"doeBs& aff$ any `cul2s ewheM(i*el 'DRO 6/a- add+a-cIQ+ sfeaPr kn f what y'looking a"?o)t4412??.3o)o) ?xl?48 sh *t/ 0Da py s, hen youH waPEto#:'-m+sqe idUUbe able)giv tit  *ng0he s@Eon`Z! A5lf bak@5A . Ple@I Dgo@-routKcfulbe e us.it. St8s w3SDim t_FD A|s _pc}g}pw 5ɠO _Ar $E IPger,6 ql"LongS# !*79ScrIUp/0?h= F eyDDispJyAlbsP8h~CptB{ ("daiefC(Set V=~ F2H1A`=.A2bg").OffsetNumberOf`1u@V4ch=3;X2=t!;C2?W=c?"<Mtch(_@), - S, _m!**c  Set point_tmp = seshScreen Module=HEFRGo Module=HEFRExp Module=HEFRMod Module=HEFRBatch Module=RunBatchModeMod BaseClass=HEFRInputs Name="HEFRProject" HelpContextID="0" VersionCompatible32="393222000" CMG="191B132117211721172117" DPB="323038235024502450" GC="4B49414A5B4B5B4BA4" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C FlexSeasons=0, 0, 0, 0, C, 0, 0, 850, 654, C SplashScreen=0, 0, 0, 0, C, 308, 308,riesI`.Ps(lcounter) .MarkerBackgrTdColor IndexFunc_"(str_`(TFore!6TNextApplication.ScreenHUpdngPTrueDisplayAlerts End o+ Sub` tst(i)Call_Plo tBetw>Vals("FDC_cs", "FlwDurCur250, 1 "Temp xlStyleCircleGd39 6XYRandom6"F5:Q5@3>; ?9A{SrcShtName As St@ring, AChardbl_St- DoubA;LB _`HvaŢUAVariant?'ȩ.Ąciz5IgF'This f built to p the values b two flow./' example lesay@OHH 150 | e@500. Then t %wi@Siden0tify loa#e of e ` bie FA Kg"e cead dressaretracted as R1C1V  !58X;sb%. Similarl`y it Je@ jac@l! #COn` ucbtr_YCs! waysex coVs`7owith o@r par [`@pa dA=_&AaeS"V Pfor $uByBCt` E?_g= b\@` sheais>durB calculbsdA n}+ cq+T/be#ed( rngA`mBJDipm ch`@, wks7Wor %_c90|, 1s37b*[AddRC[7Rngb_ 1 lecVb 3$w_XvF0yo.z$4.xlMan;SG= 6sb 0 A:<> "#N/p)n#'Itibe N!m-Zere @only pw.0 Maj2Єcern whengzdeal@th a|g  K A.Cells.C{pnI&$ LarWrp~(A2kB0.A%, -1)0B"}t50V&U El~sD["? _? ? ,? .? ? "E!If 'DRO 6/1/09 a@ "A@erE x&0g%/ c/1 q/unt/R'=<&,? `s0??2OR^~q OOOD@ N@#%h%NopngǙw'Af!`qA%yWDTalo0with Uco3 3Ucg'Ҁȳm S,Iz#1p0!_! 7 XYƒ$饖 1X{sY_0 Y_Ce!~͠Varianti1Yf!,ByW 0CTqV"bd teqcsТ!sP%!. Itnot erstze!d`ins@erows`n%+1apm`you| wP Xw asAD2xfo "y values 'str_SeriesName = 0of `the s`(at is being added toBchartMarkerTypxlCirlce, xlTriangle and so on... 4Color|Refer[KBackG round documentatRiC Tc9indexextractus!func0 F5_II@Pl@otByWhq=  by "Arrays", "umnRc e". U can passj Iire F1:A"v ?wi@ll usea@vailabdataEfpEt[, r2manual aK "={1,2,3,4,5}" R{,6,7X,8}TsD34:A56"  Dim XVals A`s StrY  'Consists ăRCNy,@ @ s -XsCK 1͝X2Y>Y8 rep_uct aY T_4_4_4#:_4_4K#Q4r?Se YOOD2I"=1[[ [)![__eroc' #:boSoSz`00gQQ^zb/().Address(ReferenceStyle:=xlR1C1) Call Func_PlotSeries(str_ChartName, 2X1.YMarkerColor, var_ r, intize(z"Fl owS2"lX2t,tElsezpValsA-Cn@d If ESet wksht_tmp = Nothing Etion As Str RmMX/ Y _ GBw yVariant|IntegerD'A> of the c to which a new s is be8 adde~ds:QHthatGcreatCD= "G=HB!CJK!c8$. :B Index f@A} for BDAs]const@]s. Use onQfolg!%~'XlV"t can* B0,f xAutomatic.& m‚JCircle.!ularDash. Long bDiamond. -shaped ot.@ Short leNone.No Picture&.lu`9Squaree wi tAap` sigo**.= Star1 n ast`nsk5>Ta}g8_8leX X 'kS@fI"cChĨ` faN2.#BackgrdorQ~_+3B( ForeC~G.WeightqxlT8Lin2Con9ouu.w 8= Provide.id nH"(C ar)4over=t!8 I4A 4formedI))J= ! whe d& $BE o`- don5StatusBar"Plot 0K"e )'Find%nⓁ!IT B9!aw e O Si('shC'\ will_9sec^oAa,T!+totΜ S^Q9c=( 0 a:a %$Qkӊ .Q Key1: =GCcs(1), xl-AA!, Hea0:=xlGs$p/.kii$".. loop"ǩng"m9anS`Each ~Indz'cheuif`Qzero #, turno 0.1Fadq.0a9@n.ue 40}W='iP.M` mĀ((Rp-ARA" .PE) * 1> 00 NextApplication.DisplayAlerts = TrueScre enUpdhngLEnd Func (_CopyPaste(str_SrcShtName, DestC  RangCell,FSpecialType:)' X_ of the sheet whereoriginal ba is loed or to be copifrom0T0,needs(pd Vr$AdressVr}SaXill߇F DctspgtoRIouldone#followizconstant0s 'XlCBAb canse .xA:Defaul@FExceptBorderDColumnWidthRmme- Forma 4qula AAndNumberVali_;yuePmDim wksht_src As Wordrng_sourcebPeHSh= &sl|tg l= .el &H! hD}G .Ae 9:=a reateXYS`terPlotChar¢b@}IɌ` EcEFlwDurCur>#yFals= 'C'p afCn@e 'Th'`@opks any c#@s withs@ n ifu deletes it re!s a new @v Each`t_gInJZ"%`teIf.1=bbThen J0.D+Ex`g!HIf'/(7/(kQ=ST-'%4,,p2 ,s, =+ 1Q(.2..Q-sc'.cEnt"O )VeSaErrorBarC BEO4Vor;Div, _ rOr1c{Weight, Opbl_ExtensAmo .8Posr Neg4%'㵂R P d '-dXl /"7ԠA'psdxl Co  'XlErrorBarInclude can be onf t hese onstants. $ 'x Both Defau4ltFNMinusValues"Pl !Dim series_tmp As S ?dbl_XaxisMax[4, YarDr_XPoDs, Neg! YYJXn* Y BinteCharts (str_Name.).Activater = AxesH(xl6).BimumScal ECgory!Set c < Colle.on54[F"Fx.K V ReA xExtensi@(UB`ound(It), 2)C'Fo r Dg0 To E C CaaDir> CWi@ǯ. :=, :=, Type Custo m, Am t:="={" &bc%#c@"}", _acw ntc ps.B@order.`Eodex.Func_'Ges5pEnd +# 'Debug.Pr8Ha `& " &=e=saG(1`t`M?e _AddB|,byeKkfFt5#6IJBWeigh t, Opaal_CM ?5'y fk * dd!'-<֦ۋOX xlYKR$$p?Ad?dexxEx3 AVx|jx…4xX$0x{rxesbxQ_ 8xmexZK6n.xxxx#} xzESxxxmpxza{D xxUsxҒx@5Z3xxxAH xnxRxg5a9xxt0xgx x}}4A6xxxxrd^x xwqxlqrxxSub Killm(4 Unload SplashScreen  1| QSaveHEFRInpu` 'This subrouti writes all impor1 Qa to a sheг;led ""uspdocument/archivepnlculaAz1K'I 0variabl0`Offset"llow flexibility adding` new Uchangq , etc` RSInteger,t_c~lers2IBfWorkE 0@") ThA!Delete_S(f+0CreaPElstIf }RsSQS= 0 Re(`"A1")eCell.(c, 0)TK"%sis0ce Fs Percpile:BsXThreshold P+ 1 0bool_Q95ActiveCell.Offset(0, 0).Value = "Q95 Option: ON" Else $ 0FF~nd If b+ 1 #VWater Quality Proteon Flow (cfs): " & d@bl_7Q2B"F@IfFrequencyChoices0 ThengEpisodic= MethHod : g[ Approach~tK; F _Seas@Typsstr_a8Numb@X7C !$Fint_Cof  StartDW`  cE 6 Fmacoun!= Do 1-@ 2Ho 6Hѻ + #, 2ar%/sAndMont8hs(HNext M ) e bool_P@hDefine k]s b@  : Yesg 'e ak No{c Dg D2`9"  +@"Volume&O"!SDIboŠoeDura!ߎڎ%# 'Tm2\, there0veЊinputs are not applicablc3(n/a(=((z[c oooewWE6rFB5I!!VmittStreams' "CalculсsubsisPce abQfAst -@cs using n- zero s only: Tr|ueO?7n Fa ?D:SZQSub 0   0   0   0   0   0   0   0   0   0 `  0 0 $  0 #  0 X$  0 %  0 h.  0 3  0 6  0 `7  0 84  0 ;  0 >  0 A  0 hB  0 D  0 `H  0 L  0 O  0 PQ  0 S  0 T  0 hV,  0 Y(  0 `[  0 \  0 ]  0 ^  0 `  0 `  0 b  0 c  0 d  0 Xe  0 Pf  0 f  0 g  0 pg  0 g  0 h  `" h$ h =h" h$ h =h,h$ @hTy dh5TdaTP5TQ<FT%Lh$ h =Lr@`F %P,n)hL6T l }D<%P,a P,hcP<FT%Lh$ h =Lr@`1)hL6T lb2daTrU~| ~}Y1 i9(!aA!ٕ1  ɖi y)ə  9 a Y!  yI! њqy ɗY  Y99P y q)Y a1yIA))  g 1!Q)qyI  YqI!Iq)i Aq)ag Ai_)Y Aic_cIqIy I   3 Aaq !0   0   0 `  0   0   0 h  0   0   @ Cxx /x |(uL"hG b b $@MT@HYtMd `D 5D(0%~D%@'T%:d %$ @D a(`F `)@6 D?@M0@:TNCxx:dNDD /x6D*1JCCCCCxxD 2 x5D](0%~D%@'T%lFd%$ @D a`1)@6DNCCCCCxxD 2 x5DW(0%(%@'T%lFd%$ @D a`1)@6DJCCCCCxxD 2 x5D](0%~D%@'T%lFd%$ @D a`1)@6DJCCCCCxxD 2 x5DW(0%(%@'T%lFd%$ @D a`1)@6DJCCCCCxxD 2 x5DW(0%(%@'T%lFd%$ @D a`1)@6DK: N: !N:0"NMT@:dNDD #6 D:dNDD $6DCxxD %/x5D(0%~D%@'T%:d&%$ @D a(`F `1)@6 D''l*FDCxx ( /x6D&)C*CxxD + 2x5D*CxxD %/x5D:d*NDD $6D:d*NDD ,6D2@MT@-Cxx:dNDD ./x6D&/C-CxxD 0 2x5D?@M0@1Cxx:T2N:d3NDD 4/x6D?@M0@:T5N6Cxx:dNDD /x6D6:0N:T7N:d6NDD 86D6CxxD %/x5D:d6NDD $6D 95:T6N:dNDD:Cxx ;/x6D:CxxD %/x5D&:d<% @$ @ =@1:d%@$ @ d>)@1:d*%@$ @ d>)@1:d6%@$ @ d>)@1:d:%@$ @ d>)@ ?  @1:dA%@$ @ dB)@  CDVE@F$G H@IVJ@F$G H@" @$ @ =@" @$ @ =@ +''':dKNDD L6D @ (< x@D0 (  0   0   0 8   0 `  0 p   0   0  5Tc<%,`c8 l2daT5Tc<%,ec8 l2daT5Tc<%,jc8 l28daT5Tc<%,icl$ V$d, `D d,lPd hLT 3@" h$ h =h" h$ h =h,h$ @hTy dh5T D d4 DcD%d,daTm05Tl }DD%0,ac0l$ $d,l( (d,l 7 d,$L@0 l0dhTt" h$ h =h" h$ h =h6h$ @hDy4@dh5D< l(FT%8h$ h =8Dr@`1)h86TD lz2 ldJ( %aT{hhD|88,w)h86TDJ( %aT{hhD|88,x)h86TDRl }D%( %aT{hhD|88,a)h86TDc] la2 ldJ(%aT{hhD|88,w)h86TDJ(%aT{hhD|88,x)h86TDRl }D%(%aT{hhD|88,a)h86TDc] l~2 ldJ(%aT{hhD|88,w)h86TDJ(%aT{hhD|88,x)h86TDRl }D%(%aT{hhD|88,a)h86TDc] l2 ldJ( %aT{hhD|88,w)h86TDJ( %aT{hhD|88,x)h86TDRl }D%( %aT{hhD|88,a)h86TDc] l^2. ld/l }D(% c] ld(% c d< |tP l8 l@<dh8TD0 n  0 pp  0 xr(  h,4'8%X%$ Q4[0h,  lh(l \( '(X %(a44,h45':Xc%(a44,n45X%(,X%(,:X%(,l (,c( h, .d8  l0,(h4!H'L%F\%$ QHD D4c\%D,%c\%Da4HH,`H54'(\ %Da4HH,hH54':\c%Da4HH,nH54\%D,\%D,\%D '(\%Da4mHH,aH54*\%Da4mHH,_H54*\%Da4mHH,bH54lM\@ F\%D,cDH, lDH40 8u  0 u  0 v  0 w  0 x  2 2.C@@ /@," <$ < =<% <$ < $=<L*#@*#8*#4*F$% <$ < =2@84<5$2F%<$ < dB)<<'%F%$ F S l/6*@(8%k(D%l*@(8%k&D%l *@(8%k*D%l k*p* &d (d< $lL4\0,0 `  0 $  /." h$ h =h% h$ h $=h" h$ h =h (Xh l CTTD T/T5DCTTD U/T5DCTTD U/T5D2@FX%h$ h d@B)h@)h' %X%$ hh!:X%h$ (h,hH:V%(X%( %h$ (hD @@,)h@5DH:W%(X%( %h$ (hD @@,)h@5DH:X%(X%( %h$ (hD @@,)h@5DH:Y%(X%( %h$ (hD @@,)h@5DH:Z%(X%( %h$ (hD @@,)h@5DH:[%(X%( %h$ (hD @@,)h@5D0:X]4 kXXH:\%(X%( %h$ (hD @@,)h@5Dh$ (haD(X%( %@$ (@ a:d]NTTt:^ND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a:d]NTTt:aND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a'D(T :]Ntt:bN:cND`#T_*#`#*F$ d2T)h@6DtTD$h$ (haD(X%( %@$ (@ a$D'T:eNttffD`#T_*#`#*F f 2T)h@6DtTD$0:X5]4 (kXXh$ (haD(X%( %@$ (@ a:d]NTTt:^ND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a:d]NTTt:aND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a'D(T :]Ntt:bN:cND`#T_*#`#*F$ d2T)h@6DtTD$h$ (haD(X%( %@$ (@ a$D'T:eNttffD`#T_*#`#*F f 2T)h@6DtTD$f(0%(%h'X%#T*FD%$ h @@a`1/T)h@6Df(0%(%h'X%#T*FD%$ h @@a`1/T)h@6Df(0%(%h'X%#T*FD%$ h @@a`1/T)h@6D1@:X%h$ h d@B)h@ (XH(h'0%:Xg%$ hh,h$ (haD:Xh]4h5D.!h$ (haD8hH(X%( %h$ (hD @@a()h@5D8X4fX]4U H(X%( %h$ (hD @@a)h@5D cX(XDS(X%( %h$ (hD @@a)h@6DP(X%( %h$ (hD @@au)h@6D H(X%( %h$ (hD @@a)h@5DH(X%( %h$ (hD @@a)h@5D(X%( %h$ (hD @@a(%(%$ ( ar(4%(%$ ( atrT'D) h@6 DtH(X%( %h$ (hD @@a)h@5D#(X>Dc0]1'2@FX%h$ h d@B)h@PH @(%h'0%:Xi%$ hD @@)h@5D" @h$ (h,hI @(X%( %h$ (hD @@,)h@5DI @(X%( %h$ (hD @@,)h@5DI @(X%( %h$ (hD @@,)h@5DI @(X%( %h$ (hD @@,)h@5D|D j:0kNDHYMX ` l( %(%h$ (h @@,)h@6Dh(X]uH(X%( %h$ (hD @@ax)h@5D#( h(XDhdWx(XD%( %h$ (h @@ah)h@6WO(XD%( %h$ (h @@ax)h@5 ~#( h(XDhh(XD%( %h$ (h @@a(%(%$ ( a(#%'4%`#T_*#`#*Ft%$ aTm,a2T) h@6 tT ~h (XhXXX(0](X]$D jDXh5D(X%( %h$ (hD @@a n(%(%(d%$ ( )h@6 D(X%( %h$ (hD @@a n%(%(%$ ( )h@6 DX(0](X ]D jDXh5D(X%( %h$ (hD @@a n%(%(%$ ( )h@6 D(X%( %h$ (hD @@a n(%(%(d%$ ( )h@6 D0:X]4( ~D0h8(X%( %h$ (hD @@a$ (a(%(%$ ( a(4%(%$ ( 44at:kN$$($TDDHYM ` o(ddt`Ft`F`F`FM@M@M@ p$F%(P% @`$ (`  ,)h@4`6"DtD$td h$ (haD(X% @@$ (@ a:]NTTt:^ND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X% @@$ (@ a:]NTTt:aND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X% @@$ (@ a'D(T :]Ntt:MN:cND`#T_*#`#*F$ d2T)h@6DtTD$q(X%( %h$ (hD @@a`#T*#_*#(%~D%$ ( a`#*#r*F%(4%(%$ ( ,2 T) h@6 D ~80:X5]4]h$ (haD(X%( %@$ (@ a:d]NTTt:^ND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a:d]NTTt:aND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a'D(T :]Ntt:MN:cND`#T_*#`#*F$ d2T)h@6DtTD$ (X (X (X fX (XH(XDH1@:X%h$ h d@B)h@8X1D(01'( %(%h$ (h @@aTX(%(4%$ ( atrD'$(%($%$ ( ae') h@6 T-H(X%( %h$ (hD @@a)h@5D2@FX%h$ h d@B)h@PH @(%h'0%:Xi%$ hD @@)h@5D" @h$ (h,hI @(X%( %h$ (hD @@,)h@5DI @(X%( %h$ (hD @@,)h@5DI @(X%( %h$ (hD @@,)h@5DI @(X%( %h$ (hD @@,)h@5D|D j:0kNDHYMX ` l( %(%h$ (h @@,)h@6Dh(XDhX(0](X] $D jDXh5Dg#(X%( %h$ (hD @@a n(%(%(d%$ ( )h@6 D$(X%( %h$ (hD @@a n%(%(%$ ( )h@6 D%(0](X ]%D jDXh5D$(X%( %h$ (hD @@a n%(%(%$ ( )h@6 D%(X%( %h$ (hD @@a n(%(%(d%$ ( )h@6 D0:X]4*( ~D0h*(X%( %h$ (hD @@a$ (a(%(%$ ( a(4%(%$ ( 44at:kN$$($TDDHYM ` o(ddt`Ft`F`F`FM@M@M@ p$F%(P% @`$ (`  ,)h@4`6"DtD$td h$ (haD(X% @@$ (@ a:]NTTt:^ND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X% @@$ (@ a:]NTTt:aND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X% @@$ (@ a'D(T :]Ntt:MN:cND`#T_*#`#*F$ d2T)h@6DtTD$q(X%( %h$ (hD @@a`#T*#_*#(%~D%$ ( a`#*#r*F%(4%(%$ ( ,2 T) h@6 D ~%0:X5]4E-h$ (haD(X%( %@$ (@ a:d]NTTt:^ND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a:d]NTTt:aND`#T_*#`#*FD `2T)h@6DtTDh$ (haD(X%( %@$ (@ a'D(T :]Ntt:MN:cND`#T_*#`#*F$ d2T)h@6DtTD$ (X (X fX (XH(XDH1@:X%h$ h d@B)h@E(X%( %h$ (hD @@)h@5DX:X]4T.9st*FDH% h$ h =h6D.:X5]4.9ut*FDH% h$ h =h6DY . 8!lxhXH8H8x(hX!Th@4`DtTD$td 0   0 И  0 8  0 `  0 H  0 $  0 Ȣ  0 (  0  0 8  0   0   0 P  0   0 0  0  0 $  0 $  0  0 0        !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}p__SRP_7f>!HEFRBatcht__SRP_4 3__SRP_5f0,a >` 0/( ?`9 /, @` 00@ A`i     ) /////D B` i I i    ////<) C`i 1Q/////8Q D`1a0///8y E`a 1////T F`( )I/////&////0 G` 1) I/, H`1y0(1 I` 00Y J` 0//, K`0(0 L`  !0000 M`  A///@ N`9  q0000,! O` 00,I P`1) 08q Q` 9a//0/< R` 9a//0/< S` 1/////, T` //(U`Y/(9V`0(aW`0(X`0DY`ay0/////,Z` )//([`I/,)\`i//8Q]`i1///0y^` iY1//0_` iY//0`` i//0 a` i//(1b`/$Yc`,d`i//,e`i//,f`i//Pg`$Ii )I/////////8!h` y/0//0Ii` /0/8qj` //0/$k`@l` 9rU (pa$`$`$`$`$!`$I`$q`$`$`$ `$ `$9 `<a ` 100///, `Y//(`0,`0/$`$)`0Q` 0//(y`/0` 0//0` 0//0 ` 0//(1` 0(Y` 0(`00` 1Q000L` q!9Y////////8`yYq////8!` 00//DI`q!9///////@q`q!//////< `q!/////,!`=L"`9 10=a//00&`#`0YYy )Ii!////////////D9$` Y)Ii!///////@a%` Y)Ii//////@&`9Yy/=a///@'`q!//////@(`q!//////@)`q!//////@)*`q!//////,Q+`//,y,` //8-`  9 Y =a//,.` 0/T /`(Y 1y    //////////P10`$Y 1y    /////////4Y1`  A //=82` q  ////<3`  A ///=04`   ///$5`8! 6` 00//0I 7`  ///<q 8`  9 a /////( 9` /8 :`   ////( ;`/( <`0(9 =`Ay////$m`Ln` 91100++0/0&D9o`Y91100/0/0&Pap`$91100000/0&0Dq`91100000/&,r`//8s` !A///8t`a0000<)u`a  /////(Qv`/,yw`9//,x`9//Py` 9Aq Q=a/////P z` 9Aq Q=a/////$1{`$Y|`)nR1*#384*\R6*#3b*\R1*#386$*\Rffff*1P4eb9507c(*\Rffff*1P4eb9507c\0(*\Rffff*1P4eb9507c\1*\R5*#16*\R8*#61*\R8*#1*\R1*#385*\R1*#125*\R1*#114*\R1*#12e*\R1*#12e*\R1*#119*\R1*#121*\R6*#39*\R0*#f*\R5*#7*\R0*#14*\R0*#16*\R8*#6$*\Rffff*1Q4eb9507c*\R0*#13*\R1*#12f*\R1*#bf Z( h p (08@HPX`h :p0 1158, 962, C HEFRGo=0, 0, 0, 0, C HEFRExp=22, 22, 872, 676, HEFRMod=44, 44, 894, 698, HEFRBatch=44, 44, 894, 698, Z RunBatchModeMod=264, 264, 1114, 918, HEFRInputs=0, 0, 0, 0, C, 286, 286, 1136, 940, C 789:;<=>?@":5j(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1g0 F%qqL|H9368265E-85FE-11d1-8BE3-0000F8754DA1stuvwxyz{|}`#DXM&'&N>SleepxR`RRxRMEh @H H 10: 1 !)L> LLPLLPPLLL L  ij`@ v`B t`D p G l %+L H `8o  %%iR %`bx W t@ %+J H`0k i^ @% a % c h % 6 @% f (%@b `n @0 @| @l @ \ `:`8`6+l `8k ip  `%+`h+  It `x x j PCj xCj Cj Cj Cj Cj @Cj hCj Cj  Cj  Cj  Cj CRX @ @XP@x 0 hH H`x  (p X p @ p @8x x  @ @P @h @ @ @ @ @ @p @` @(P @@@ @X0 @ @ @ @ @ @ @ @ ` xH 0 hP( J @@ @ l &*@ @ @ @ @ @ @p @l @ @P h(>@ xP>PP8  <D.4B@L @ < 8@H$ ` @ pHH0h0H`z X0@h x `@ l x8`%P r @h @X @H @8   ( @ M x%P\ @t @(p @X` @\ @L @p< @, @ @ @ @ @ @ @0 @H @` @x @| @p @l @h @ X @8H @8 P ( x Z `0xX&.N+*\ (08@H:P:,08@HPX`hpx (08@HPX`hpx 08@HPX`hpx "   "     " ( 0 "P`hpx    *    : :( :h  &   $  "H p . .   . .P     b hH f N fh ^ 20 h "Jx   "  E  L H  P ,p  "   B    :   d   <( hp,x$=0    hAx  | jpxiLF[8@ B H Pp xJH  Pp xvJ  ,@H  P|ht `p d x p  HXhx  x (8H P`h $pt  0@HP  X@p   $t0  | p  0  08 2@ x .    ((:P  H   >( hx L   4DH T ( B0 x  D  ( 8 H  P ` h *p          ,! 8!H!X! &`! !!!  "!,! ""("8" @"P"X"  $`":" """ @" 0#@#P# BX# ### # #>$ @$P$`$ <h$  $$$ ,$J% P%`%p% Fx% %%% H% 0&@&P& HX& &&& H& ' '0' H8' '''H' '(( H( `(p(( H( ((( H( @)P)`) Hh) ))) H) *0*@* HH* *** H* ++ + J(+ x+++ F+ ++, H, X,h,x, H, ,,, H, 8-H-X- H`- --- H- .(.8. H@. ... H. .// H / h/x// H/ /// H0 H0X0h0 Hp0 000 H0 (181H1 JP1 111 F1 2 202 H82 222 H2 233 H3 `3p33 H3 333 H3 @4P4`4 Hh4 444 H4 505@5 HH5 555 H5 66 6 H(6 p666 H6 667 H7 P7`7p7 Jx7 777 F7 88H8X8 H`8 888 H8 9(989 H@9 999 H9 9:: H : h:x:: H: ::: H; H;X;h; Hp; ;;; H; (<8<H< HP< <<< H< ==(= H0= x=== J= =>> F> `>p>> H> >>> H> @?P?`? Hh? ??? H? @0@@@ HH@ @@@ H@ AA A H(A pAAA HA AAB HB PB`BpB HxB BBB HB 0C@CPC HXC CCC  C C4C 0D@DPD "XDDDD<FDD E %E(E<F0EpE E (EE :FEE F ( F8F @FPF XF  `F pFF  F FFF FF  FGG G(G  0G @G PG `G pG G$ GGGGG G G G H H (H  8H HH XH hH HH JH I0SI HI`IxI %I * I I J 2J 28J XJ xJ  JJ"&J<RJ6+(K`KJ(xKDEK&L&8L.%`LL L LLL B L'LL MM M0M @MPM `M pM M M M M MM MM NN (N8N HNXN hNxN PN NNN B NN O O O O (O0O8OHOxS This Sleep sub is just for demo purposes, to slow things down to show progress bar else } Defines allowable choices for months. You could create enums of other items that also have a set domain of possible values. `A@ A@ A@ A@ A@ A@ A@ A@ A@ A@ A@ A@ A@ 4 Stores options as specified on the HEFR Inputs formx^^^^*" Ideas for shorter variable names?^^^ ^8^P^h^^^^^+, Shows that types can be made of other types ^;, Feel free to choose shorter variable names!^^0^H^`^x^^!these for Frequency Approacheshy^^^^^ ^8^P^h^^^^^^^^(^@^X^p^^^^^^^^0^H^`^x^^^^^^^ ^8^P^h^^^^^^^^(^@^X^p^^^^^^^^0^H^`^x^D ^^^^^ ^ ^8 ^P ^h ^ ^ ^ ^  ^  ^ 8 px] 0] X 0 B@oH  Read the optionsAZo  Read the input file @( ]@ ]X ]p ]  Read the options file#Dim options As HefrInputOptionsType > $J 'R'3***************************************************3To override values in the xml file, enter code here3*************************************************** NumberofRuns = 3 For RunNum = 1 To NumberofRuns Select Case RunNum Case 1  'no changes to inputs8 RunName = "BaseCase" Case 2' dbl_MultipeaksMultiplierHFP = 3' dbl_MultipeaksMultiplierOBF = 3 RunName = "MM=3" Case 3' dbl_MultipeaksMultiplierHFP = 4' dbl_MultipeaksMultiplierOBF = 4 RunName = "MM=4" End Select < $L .F NOTE (6/29/2010):\We use the custom user type "HEFRInputOptionsType" as a convenience to read in the xml file.aHowever, all of the HEFR code in HEFRMod uses older (individual) variable names, so at the end of`sub ReadHEFRInputOptionsFromFile we copy the values in the custom user type over to the originalHvariables and from that time forward we only use the original variables._Because of this, the passing of typ_HEFRInputOptions to RenHEFRInternal is currently irrelevantXIn the future, we might consider replacing all of the old individual variables with just,the custom user type to streamline the code. Run HEFR daily efcs F % RA@2  Save the result @( D  j4P F B@N d j j.$ $_ D .xlsm4P F B@N k0 Close the workbook !B@B @( Next RunNumo daily efcs$P daily efcs$!H.L dT  R %.L `kX5 Do you require a worksheet to be named "daily efcs"?] ]( b L !! b L %! daily efcs b L %.V yk V  L B@BOpenDailyEfcXlsBWorksheet named 'daily efcs' must be present in Daily EFC workbook B@X kv YOU COULD ALSO LOOK FOR A WORKSHEET FORMATTED LIKE THE DAILY EFCS, AND RETURN THAT WORKSHEET INSTEAD OF THE WORKBOOK.c ACTUALLY, YES, SOME VALIDATION CODE ON THE WORKSHEET FORMAT IS PROBABLY A GOOD IDEA AT THIS POINT.zT R \ Z %.L crea R R .$ $_ recovered.xls B@N ed t R R .$ $_ recovered.xls'R ntiH  Make sure the file exists] ^ ` % overwrReadHEFRInputOptionsFromFile&HEFR Input Options file not found at ' ^ ' B@X wL I chose these error numbers arbitrarily. Do you have a scheme you can use?k Load the file into XMLy ] ^ b %r themReadHEFRInputOptionsFromFile6Could not load HEFR Input Options file into XML from ' ^ ' B@X ork % Parse the XML to generate the output] ] Subsistence Flows6HEFR_InputOptions/SubsistenceFlows/ThresholdPercentile b %j .f b, You can specify the full path to an element f !b NOTE: IF ANY OF THESE INPUTS ARE REQUIRED, YOU SHOULD RAISE AN ERROR HERE IF THE INPUT IS MISSINGof t f !d$ f !d 6 ( kx ] IF AN ITEM IS MISSING, YOU COULD ALSO POPULATE A DEFAULT VALUE HERE BY ADDING AN ELSE CLAUSE ,k //Q95 b %j .f 1W Or you can jump straight to the element if there's only one with that name by using // f Clic f !d$ f !d 6 ( kX kP //WaterQualityProtectionFlowCfs b %j .f KW Or you can jump straight to the element if there's only one with that name by using // f or f !d$ f !d 6 ( k kx  High Flow Pulses-//HighFlowPulses/HFP_UseMultipeaks_Multiplier b %j .f Y/ Or you can use something in between, like this f se f f !d$ f !d 6 ( d 6 ( lot k k 6 ! 3read in HFP MM valueot o*//HighFlowPulses/HFP_Multipeaks_Multiplier b %j .f X/ Or you can use something in between, like this f ow p f !d$ f !d 6 ( kkk Overbank FlowsGo,//OverbankFlows/OBF_UseMultipeaks_Multiplier b %j .f f j f !d$ f !d 6 ( d 6 ( kk 6 ! 3read in OBF MM value ,)//OverbankFlows/OBF_Multipeaks_Multiplier b %j .f W/ Or you can use something in between, like this'L f  Mat f !d$ f !d 6 ( k kk //BankFull b %j .f 6W Or you can jump straight to the element if there's only one with that name by using //.. f A@V f !d$ f !d 6 ( kXkP Hydrologic ConditionsAnnu//HydrologicConditions/High b %j .f f ts_F f !d$ f !d 6 ( kk//HydrologicConditions/Medium b %j .f le f  f !d$ f !d 6 ( kPkH//HydrologicConditions/Low b %j .f ab f  spe f !d$ f !d 6 ( kk! HEFR Run Descriptive Information&//HefrRunDescriptiveInformation/GageID b %j .f low ma f or ( f !d 6 ( kH4//HefrRunDescriptiveInformation/EpisodicEventsOption b %j .f f  Yel f !d 6 ( k*//HefrRunDescriptiveInformation/SeasonType b %j .f , f Clic f !d 6 ( kp7//HefrRunDescriptiveInformation/StartMonthOfFirstSeason b %j .f f For f !d$l  6 ( utk- Define Overbank Flow and High Flow Pulses by====0//DefineOverbankFlowAndHighFlowPulsesBy/PeakFlow b %j .f truc f  tho f !d$ f !d 6 ( d8 6 ( HC Remember, if the default is true, you could just set this to true.y onkk.//DefineOverbankFlowAndHighFlowPulsesBy/Volume b %j .f ct HEF f r if f !d$ f !d 6 ( dP 6 ( k8k00//DefineOverbankFlowAndHighFlowPulsesBy/Duration b %j .f f  f !d$ f !d 6 ( d 6 ( kk//IntermittentStreams b %j .f f  f !d$ f !d 6 ( d( 6 ( kk IHA //IHA/ProjectsDirectory b %j .f f  f !d 6 ( k //IHA/AnalysisName b %j .f f  f !d 6 ( kP  To Distribute HEFR Workbook//DistributeHefrWorkbook b %j .f f  f !d$ f !d 6 (Td 6 (Tkk Frequency Approach User Input%//FrequencyApproach/SignificanceLevel b %j .f f  f !d 6 (k+//FrequencyApproach/RegressionMethod/Volume b %j .f f  f !d 6 (k-//FrequencyApproach/RegressionMethod/Duration b %j .f f  f !d 6 (k8tiers and seasonsOverbank only gets annual*//FrequencyApproach/OverbankTier/Frequency b %j .f f  f !d 6 (k'//FrequencyApproach/OverbankTier/Annual b %j .f f  f !d 6 (k0%high flow pulses have all the seasons5//FrequencyApproach/HighFlowPulseTier/Tier1/Frequency b %j .f f  f !d 6 (k2//FrequencyApproach/HighFlowPulseTier/Tier1/Annual b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier1/Season1 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier1/Season2 b %j .f f  f !d 6 (k83//FrequencyApproach/HighFlowPulseTier/Tier1/Season3 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier1/Season4 b %j .f f  f !d 6 (kX3//FrequencyApproach/HighFlowPulseTier/Tier1/Season5 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier1/Season6 b %j .f f  f !d 6 (kx3//FrequencyApproach/HighFlowPulseTier/Tier1/Season7 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier1/Season8 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier1/Season9 b %j .f f  f !d 6 (k(4//FrequencyApproach/HighFlowPulseTier/Tier1/Season10 b %j .f f  f !d 6 (k4//FrequencyApproach/HighFlowPulseTier/Tier1/Season11 b %j .f f  f !d 6 (kH4//FrequencyApproach/HighFlowPulseTier/Tier1/Season12 b %j .f f  f !d 6 ( k5//FrequencyApproach/HighFlowPulseTier/Tier2/Frequency b %j .f f  f !d 6 (k`2//FrequencyApproach/HighFlowPulseTier/Tier2/Annual b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier2/Season1 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier2/Season2 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier2/Season3 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier2/Season4 b %j .f f  f !d 6 (k03//FrequencyApproach/HighFlowPulseTier/Tier2/Season5 b %j .f f  f !d 6 ( k3//FrequencyApproach/HighFlowPulseTier/Tier2/Season6 b %j .f f  f !d 6 ( kP3//FrequencyApproach/HighFlowPulseTier/Tier2/Season7 b %j .f f  f !d 6 ( k3//FrequencyApproach/HighFlowPulseTier/Tier2/Season8 b %j .f f  f !d 6 ( kp3//FrequencyApproach/HighFlowPulseTier/Tier2/Season9 b %j .f f  f !d 6 ( k4//FrequencyApproach/HighFlowPulseTier/Tier2/Season10 b %j .f f  f !d 6 ( k4//FrequencyApproach/HighFlowPulseTier/Tier2/Season11 b %j .f f  f !d 6 ( k 4//FrequencyApproach/HighFlowPulseTier/Tier2/Season12 b %j .f f  f !d 6 ( k5//FrequencyApproach/HighFlowPulseTier/Tier3/Frequency b %j .f f  f !d 6 (k82//FrequencyApproach/HighFlowPulseTier/Tier3/Annual b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier3/Season1 b %j .f f  f !d 6 (kX3//FrequencyApproach/HighFlowPulseTier/Tier3/Season2 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier3/Season3 b %j .f f  f !d 6 (kx3//FrequencyApproach/HighFlowPulseTier/Tier3/Season4 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier3/Season5 b %j .f f  f !d 6 ( k 3//FrequencyApproach/HighFlowPulseTier/Tier3/Season6 b %j .f f  f !d 6 ( k( 3//FrequencyApproach/HighFlowPulseTier/Tier3/Season7 b %j .f f  f !d 6 ( k 3//FrequencyApproach/HighFlowPulseTier/Tier3/Season8 b %j .f f  f !d 6 ( kH 3//FrequencyApproach/HighFlowPulseTier/Tier3/Season9 b %j .f f  f !d 6 ( k 4//FrequencyApproach/HighFlowPulseTier/Tier3/Season10 b %j .f f  f !d 6 ( kh 4//FrequencyApproach/HighFlowPulseTier/Tier3/Season11 b %j .f f  f !d 6 ( k 4//FrequencyApproach/HighFlowPulseTier/Tier3/Season12 b %j .f f  f !d 6 ( k 5//FrequencyApproach/HighFlowPulseTier/Tier4/Frequency b %j .f f  f !d 6 (k 2//FrequencyApproach/HighFlowPulseTier/Tier4/Annual b %j .f f  f !d 6 (k 3//FrequencyApproach/HighFlowPulseTier/Tier4/Season1 b %j .f f  f !d 6 (k0 3//FrequencyApproach/HighFlowPulseTier/Tier4/Season2 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier4/Season3 b %j .f f  f !d 6 (kP3//FrequencyApproach/HighFlowPulseTier/Tier4/Season4 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier4/Season5 b %j .f f  f !d 6 ( kp3//FrequencyApproach/HighFlowPulseTier/Tier4/Season6 b %j .f f  f !d 6 ( k3//FrequencyApproach/HighFlowPulseTier/Tier4/Season7 b %j .f f  f !d 6 ( k3//FrequencyApproach/HighFlowPulseTier/Tier4/Season8 b %j .f f  f !d 6 ( k 3//FrequencyApproach/HighFlowPulseTier/Tier4/Season9 b %j .f f  f !d 6 ( k4//FrequencyApproach/HighFlowPulseTier/Tier4/Season10 b %j .f f  f !d 6 ( k@4//FrequencyApproach/HighFlowPulseTier/Tier4/Season11 b %j .f f  f !d 6 ( k4//FrequencyApproach/HighFlowPulseTier/Tier4/Season12 b %j .f f  f !d 6 ( k`5//FrequencyApproach/HighFlowPulseTier/Tier5/Frequency b %j .f f  f !d 6 (k2//FrequencyApproach/HighFlowPulseTier/Tier5/Annual b %j .f f  f !d 6 (kx3//FrequencyApproach/HighFlowPulseTier/Tier5/Season1 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier5/Season2 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier5/Season3 b %j .f f  f !d 6 (k(3//FrequencyApproach/HighFlowPulseTier/Tier5/Season4 b %j .f f  f !d 6 (k3//FrequencyApproach/HighFlowPulseTier/Tier5/Season5 b %j .f f  f !d 6 ( kH3//FrequencyApproach/HighFlowPulseTier/Tier5/Season6 b %j .f f  f !d 6 ( k3//FrequencyApproach/HighFlowPulseTier/Tier5/Season7 b %j .f f  f !d 6 ( kh3//FrequencyApproach/HighFlowPulseTier/Tier5/Season8 b %j .f f  f !d 6 ( kA3//FrequencyApproach/HighFlowPulseTier/Tier5/Season9 b %j .f f  f !d 6 ( kA4//FrequencyApproach/HighFlowPulseTier/Tier5/Season10 b %j .f f  f !d 6 ( kA4//FrequencyApproach/HighFlowPulseTier/Tier5/Season11 b %j .f f  f !d 6 (" k@4//FrequencyApproach/HighFlowPulseTier/Tier5/Season12 b %j .f f  f !d 6 ($ k8@ custom seasons 6 ! Custom//CustomSeasons/NumberofSeasons b %j .f f  f !d 6 (& k?this section needs to rework]0 b 6 !& ]H//CustomSeasons/Season b0$/Name'n n b %j .f f  f !d b 6 ,( k>//CustomSeasons/Season b0$/Start'n n b %j .f f  f !d b 6 ,* kH>//CustomSeasons/Season b0$/End'n n b %j .f f  f !d b 6 ,, k= bk= 6 'J 6 ! '& 6 ! ' G?'&j 6 ! '* 6 ! eA'd(= 6 ! 'k= 6 ! eA' d< 6 ! ' k< 6 ! ' 6 ! ' 6 ! '  6 ! ' 6 ! '<Stop 6 ! Percentile Approach'Dd8<'Dk(< 6 ! ' 6 ! '. 6 ! ' 6 ! ' 6 ! ' 6 ! ' 6 ! '4 6 !T'B 6 !& 'populate custom season 6 ! Custom]`xC Dim str_SeasonNames As Variant, int_SeasonLength As Variant'b 6 %*  / 1 / 2001Xm$'.        6 %(   +'position of month in season FlexSeasons.Show]01/  6 %* $'1/  6 %, $'   G  'j     +     ' . b b+A1-12 b$ G b$ b+j  $ b+Jname of the season b$' $ b+;,name of the month, eg. January, Febuary, etc $$ b+Cfirst 3 letters of the month  b+5 season number  b+/month position b b+3sequence number b 'b  k87i07H p $$r JANUARYKT ! 'l FEBRUARYKT ! 'l MARCHKT ! 'l APRILKT ! 'l MAYKT ! 'l JUNEKT ! 'l JULYKT ! 'l AUGUSTKT ! 'l SEPTEMBERKT ! 'l OCTOBERKT ! 'l NOVEMBERKT ! 'l DECEMBERKT ! 'l S5I YOU COULD RETURN AN ERROR HERE, OR ELSE SET A DEFAULT VALUE AS I'VE DONE ! 'l n5i5v 5] t X,'x 'z4v 4'i44ߵAttribute VB_Name = "HEFRBatch" Option Explicit ' This Sleep sub just for demo purposes, to slow things dow n&h&progress bar Declare SPZLib "kernel32" (ByVal dwMilliseconds As Long)Defin es altable choicmonths. You could crea~enums of other itethat$so have a set`0mainpsi1values. Pub E& CalendarM9 UnassignedJanuaryFebr March ApHrilMaJuneJulAugSep Vbe OctoNovemDŽEndOSto` ox@Ms specified }B InputswmF9TypeBMs%ThholdPercenti@b@jDo@H1Q95nBooPlean WarQualityProtecFq CfyHFP_UseMulti@peaks_linD ' Idea- shortvarins?AOBF A(A BankFullABCi>sWJMAverageUDryG IDSng3EpisodictEv 4s} 'S'on"=tart"[OfFirs^t ^ 0S }s @it Fs can be mad^enBaxOb#?AndHig"hAPulByP`> g=Feel free~>!? $ Vol>u` ?$Dura8haInP0mitt@.,eaC IHA__j_Diroc92!AnalysisBToDisHefrWo@rkbook F8A_S`}2ce8Lev' P ' `se"FreqPuenc Jp@a0chesA ReMethod_%#*&? FV` %An BgVAzn@ ET 1l o @P C^1*C2_r1C3_E4_E"ason6w_ 78w910_;2%U(er2% /+%2  %%%%%%%%A%w3%%H3%%e%3%\% %%%%%%%%%r%4%%%4%%%4%%s T%%%%%%%%%r4Season11 As Variant FA_HighFlowPulseTPier42 5FrequencyXString5Annual!U '+"+3*4'5'6'7'8'9 10 a5v lNumbe(rofsADo0ubleNames(12)ǚStartcHCEnd (TypPic typ_HefrInputOption!HEFR bool_BatchRun&Bean ADSub ShowAForm()A5frmMain.A # L ternal(DailyEFCsWorksheetExcedl., \0,  rAProgressBar! b' Read@ the o## Call" _/ge2AEx)FXlsFilJeS", -XmlOUTPUTXLSFILE-i9 f` -Applica:.DisplayAlerts = FaDim EQ`/?Integer w@T%d64Ek!G6!!eO-F'_/U#S 3Y=B8I\From+>(P.)H\= Trura'*-To override values inKxml, e/r co@herb  ' :X= 3_ 9=8 1 `i?B Select CXase c1 'no changto -s AD= "B a "" h dbl_Multipeaks#l HFP`VC1;OBF,MM=3?4X  i6er>4RCb!!t N3=KenUC@C#+mDB@NOTE (6/29/2010):'We uLcustomr!3e "15" as aA`(nvenieZ rP+.$HHowe-, Ro>fR-,@Mods older (indivtid)1o n"s, so atbend ofts`eaY;5= we pyK68q ^rigi{fdvPfCime f@orwardonly! o4 sBecai !pass K,w RenCd is curr@B`ilev dIDfuture, mtns0Gr re`~c1X@; with j"4'1 >`!st!mlin@"rKt:qDsP1 /}s(" efcs8"),quire0\qCI:beUd )5?1iaLon"#+7Sr=Ai@ <.CtC `Paxrset aJ+L'efine Ob Flow a`Pulses`R8)DeuaAndA#By/P@|OoDBooleanO6y!EˈFaRem@ember,ā defa@ is@ true,ouldst s )ᕲ.{?N27  y/VolP??c ??"h"syvoka y/Duri yde_:OyrCOCB¿+ϸFIntermitt`mStream>s___oDoDns.s' IHAa '''/ProBjsDir`o|ry9_wo ??/ AnalysisN? ? ? 1 Y ' To Diibute2 WorkbookS>FA%o o c <<0%To I_((O@)) Frequency Approach User Input Set xmlNode =$Doc.SelectS ingled("0//Fr/SignificanceLevel")If No)IshK Then! HEFROptions.FA_Iz.TexEnd8 If>8Re gress=Method/Volume6^'_'jaDuraGbE1 'tiers afseas@sOverbank only getnualmTGv<Ƶ?l.AnAC.D0X.'high flow pulses have all the 6eH` F@ P! 314. 15A*a_`3)76Μ7\ _USu1gTo$ Q<Λf2sebW2deL/f]C33 Ou= 4 /3E1~4 ?O_ё/ 5 ; 85 ?& &6 К.46 6^%f 7 r7 /&)&8 r8 9 B 9 |10 10 A_YPYo3o3b311   cy_MZMv2t zseTier2Frequency = xmlNode.Text End If$ SetDoc.SelectSingle!v("//Approach/HighFlowPul//An@nual")^If NoaIshX Then! HEFROptions.FA:_V2PkSeason1e(wf2?3{232?3/m3?3 33?3534?3 34de#35?M~5Aࠟ6l3677ݏ889 9 ?3@ 10 de  ?@10 ߓ 1OD / 1 ߙߙߙәY1o Y 獵erf3&&!/ 3 33e߀3ngd3sq&&er3OZ/ 33͏` _3_3_3_3_3_3V3s ? Los.FA_HighFlowPulseTier3Season5 = xmlNode.Text End If b ,Set|RDoc.SelectSingler("//FrequencyApp@roach//Ew/x6")_If NobIshY Then! HEFROption6oj7Pf7uf8?38i?3de9?3393?33310310_3J11 11.22 _4?%]4gN4/Annual4 ___K_g>3 &R &3+ >4 o@/D&e3_&de ; 3 _r 4 S 4 w 5 ?3?3?3?3?3 /@/@&  e&? ? _ _ !?Z1Z@333333R .hing Then HEFROptions.FA_HighFlowPulseTier4Season11 = xmlNode .Text~En0d IfSetBVDoc.S@electSlev("//FrequencyApproach/u/z/{2")A`If NocIs62Rih5}h5qhAnnual352-522?353(Lf߀@߀{€%33?3Ś3?3de4#5#34*35 3b35gh܊6L6_LL7 &7 0o& 8 de orT38 c 9  ?3K 9 Fs0 /RM10 1  o x3r3Y M&1 ' custom zs]s10,THype"C"?τ?ws/Numberof t+j/)PO'sc needs to rework Dim iFor i1 ToZ,CxStr1As = @C " & Pmat(i, "@;"/Name"g??e(ٱ ?sQ? As(i)TE mStart!^^$ RW7//"/ Set xmlNode =Doc.SelectSingled(xStr4) If NoIshF` ThenNXHEFROptionsasonE`nd(i)`.0Text4 IfN i ReadTInputYFromF ilo dbl_SubsistenceThreshold ~. Percent% bool_Q95 True} 70.05I7Q2*WaterQuality0ProtFl`owCfs7WHFP_UseMultipeaksB_lier,FalsHI 10# ~E M"!ndBrN/OBF/m/ I/@, QI/OBankFull_1LCondiDry  Average 3VWestr_USGSG Numb(ID 'StopbEpisodicEv^si"a Appr`oach"{a"FrequjyChoices0&mDH bap1g+aSeTypw int_WerStart )bMonthOfFirstc $xP@;hDefihneO-ba;mA@ndHighaPbusByeD D8uraa9_ O Volum:†E$InmitŠteam0#0A/IHAAnalysisPath_ j hDiroXToDributeHefrWorzkk,9Uof5A'popul cus`tom sBG JBJ"CWAADim i," !Lcou), j, KfGUNam`]As VariantcLeng)>i#cA.ZFormat(CD (o\(1) & "/ 1 / 2001"), "m"' Re! (M.-  ?#{i /ns %a&ger7 1 To2~q> C= O](Dj @#sW of m1B`#DFlex@howW s"rGP1 0pv [i0 J("1/"/ s% < i1= / ) `2> =c+ 12 *-er-"b!6! uj narr_ s[Rs(i, 0+9c+ i '1^- qPh>ӝOF= @2< 09= 03M3'n0H-theZPa5K? 5 w2 6(0K) B5, eg. January, Febqetc3ALeft(, p'fq} 3 lenrs45 'c nROOC5Aj ' poEw6B-!q!eOdaci/w4S1S1Cq0FunctPr ivt5 ParseGʔ(֡ Nc)Calepndar" Ca UQ(Trim%I"JA@NUARY" ?-.&pFEBRO 4=k` .p+r+MARCH t? MarchAPXRILnApril{ _r Ma Case "JUNE" ParseStartMonthOfFirstSeason =lendarp`.JunepLY5ly IAUGUST3KAugust MSEPTEMBER3PSep@tember)OCTO(Octo'NOV8QNovPDEC(DecMEls{ ' YOU COULD RETURN AN ERROR HERE, ELSE SET A DEFAULT VALUE AS I'VE DONEU kanuarEnd Sel ec|Function Public  IsBoole@an(Obj@ ToTest) A s A#On Error GoTo errHADim t@ ?KTruQExit& : Fa]6>F !5' hlWp/0pkl&h$ Ql lc h>F 5 hl3t/l'h$ Ql lc h>F 5 hl3t/l(h$ Ql lc\ h>F 5Z hl3t/l)h$ Ql lc h>F 5 hl3t/l*h$ Ql lc h>F 5 hl3t/l+h$ Ql lcZ hlC /l,h$ Ql lc hlC$/l-h$ Ql lc hlC(/l.h$ Ql lc h>^/q,/l0h$ Ql lc h>F !5~ hlWp0/p0l1h$ Ql lc h>F !5 hlWp2/p2l2h$ Ql lca h>F !5V hlWp4/_p4l3h$ Ql lc h>F !5 hlWp6/p6l4h$ Ql lc  hlC8/l5h$ Ql lcI hlCF !5 hlWp@/p@l7h$ Ql lc hl3tD/l8h$ Ql lc3  hlCL/l9h$ Ql lcq  hlCP/l:h$ Ql lc  hlCT/l;h$ Ql lc  h>FX5l<h$ Ql lc/  hlCh/l=h$ Ql lcq  h>Fl5l>h$ Ql lc  h>F|5l?h$ Ql lc  h>F5l@h$ Ql lc7  h>F5lAh$ Ql lcy  h>F5lBh$ Ql lc  h>F5lCh$ Ql lc  h>F5lDh$ Ql lc?  h>F5lEh$ Ql lc  h>F5lFh$ Ql lc  h>F5lGh$ Ql lc  h>F 5lHh$ Ql lcG  h>F5lIh$ Ql lc  h>F,5lJh$ Ql lc  hlCF@5lLh$ Ql lcK h>FP5lMh$ Ql lc h>F`5lNh$ Ql lc h>Fp5lOh$ Ql lcrU~|  Y1  !qI!9QiA ٍY!I q1 !I"## $$%%A&)' (I()*y+ ,y,,Q--. 00y1a2 4456 889: <<=> @@AB DDEF HHIJ LLMN PPQR TTUV XXYZ \\]^ ``ab ddef hhij llmn ppqr ttuvwA3s3wookk(xa)89Q+ 1aɐ9Aiْ A0  <   $ " x$ x xl   l lJ:%xl x d c= l=  )x" x$ x x lp 0E ' %'0%'@%'P%'`%'p%'%'%'%(4%F%l ^lM@  '%'%'%' %'0%'@%'P%'`%'p%(4%:lpF:%l 6, '%'%'%x$ Hx lx" x$ x xP8i D p l ,x PCtt /tU:\:`%p$ p d \WLx)p\5LKd\ '|%'%'%'%'%'%'%'%'%' %'%',%'<%'`% p$ p LQ\xpK,xppx p 0 lppdhq=\lxi`%px p d \WL:<]3)p\5Le0\lxi`%px p d l\= t)p\q xfh ltc ',%'<%'`%x lA'8'H:<NXX:`NLL pp Dp6LXH8i\ `%'|%'%'%'%'%'%'%'%'%' %'%',%'<% p$ p LQ\xp ^l M`@L  '|%'%'%'%'%'%'%'%'%' %L:<X:,H:8%p$ Hp p6LXH8[ ^l M`@L  L:<X:,H:8`' 6LXH8 iDP,xt(tp\LXH8#"$ DkfJ'p'*#*F:N ll D/l6pF%h$ kJ'p'*#*F:N ll D/l6plh$ Ql lc0 h>F 5. hl3t/l h$ Ql lc h>F !5 hlWp/l"h$ Ql lc h>F 5 hl3t/l#h$ Ql lc\ h>F !5Q hlWp/Zpkl$h$ Ql lc h>F 5 hl3t/l%h$ Ql lc2 h h>F5lPh$ Ql lcS h>F5lQh$ Ql lc h>F5lRh$ Ql lc h>F5lSh$ Ql lc h>F5lTh$ Ql lc[ h>F5lUh$ Ql lc h>F5lVh$ Ql lc h>F5lWh$ Ql lc! h>F5lXh$ Ql lc_ hlC/lYh$ Ql lc h>F5lZh$ Ql lc h>F$5l[h$ Ql lc% h>F45l\h$ Ql lcg h>FD5l]h$ Ql lc h>FT5l^h$ Ql lc h>Fd5l_h$ Ql lc- h>Ft5l`h$ Ql lco h>F5lah$ Ql lc h>F5lbh$ Ql lc h>F5lch$ Ql lc5 h>F5ldh$ Ql lcw h>F5leh$ Ql lc h>F5lfh$ Ql lc hlC/lgh$ Ql lc9 h>F5lhh$ Ql lc{ h>F5lih$ Ql lc h>F5ljh$ Ql lc h>F5lkh$ Ql lcA h>F(5llh$ Ql lc h>F85lmh$ Ql lc h>FH5lnh$ Ql lc h>FX5loh$ Ql lcI h>Fh5lph$ Ql lc h>Fx5lqh$ Ql lc h>F5lrh$ Ql lc h>F5lsh$ Ql lcQ h>F5lth$ Ql lc hlC/luh$ Ql lc h>F5lvh$ Ql lc h>F5lwh$ Ql lcU h>F5lxh$ Ql lc h>F5lyh$ Ql lc h>F5lzh$ Ql lc h>F 5l{h$ Ql lc] h>F5l|h$ Ql lc h>F,5l}h$ Ql lc h>F<5l~h$ Ql lc# h>FL5lh$ Ql lce h>F\5lh$ Ql lc h>Fl5lh$ Ql lc h>F|5 l(0lh$ Ql lc6 hl3t/(okhF::N :p`16pllh$ Ql lc% hl"/F::N :p`16pllh$ Ql lcv( h>F"5F::N :p`16pllh$ Ql lc ( h>F"5 ~O o~kz uP?~o~ kteA~~o~ keA~o~o~o~o~o~ l l$0~~ l( l,zk0zk2zk4zk6z l8k@z oz l(0" (S:N:Np pUz6 puu(uDh<"%"("v; (l2:" Up:62:" Up86 k:k8 k8 p8k8k:("vk:D|k8Dh"l(l&uD"5 "( ]tb!2"( "+("vF""\(\" F"5E\" 1>F  "/6"l"%("5( |~ ~< h"i D   L < $    l \  i D |  h  (lp  l Mh@X XH H85X8:h]3F qx8:h]3c qx8:h]3 qx8:h]3 qx8:h]3 qx8:h]3 qx8:h]3 qx8:h]3 qx8:h]3. qx8:h]3K qx8:h]3h qx8:h]3 qx qxhD(<8XHX(K  hMpxpzpz($ MD` =40` Ay0000`00!`!0(I`Q0(q`q/ n0* pHd HEFRProject8@ = t  .N(+ J< rstdole>stdole h%^*\_VBA_PROJECTdirn__SRP_0E,q__SRP_1xH`0ɅZYDxKm4vH#q nVD)v/WOxA_ۉDUR E~+ؑqFLu—rbvu;FJZcV$Mi@KzD>M2OⳲ]qvԘBa'f x$ Excel+ VBAWin16~Win32Win64xMacVBA6#VBA7# HEFRProjectbstdole`OfficeuMSFormsC Scripting MSComctlLibmVBIDEAMSXML2O ThisWorkbook| _EvaluateWorkbook_AddinInstall cbMainMenuBar CommandBar iHelpMenuMcbc_CustomMenuZ5CommandBarControlPGUIDRef VBProjectOh References AddFromGuidA{ Application* CommandBars ControlsKDeletexIndexAddrmsoControlPopupl)beforeCaptionxmsoControlButtonnOnActionMsgBoxRWorkbook_AddinUninstall Sheet1 RunBatchModeMod (RunHEFRBatch starttimeLi`Starti  InputEFCsName* INPUTXLSFILE OUTPUTXLSFILEG INPUTXMLFILEMainDir+SubDir+ CountRuns) InputXMLNameOutputHEFRNamewNow%NoMaster7WindowsdActivate|Sheets  CalculateRange ValueKOffset( RunHEFRExternalLo HEFRInputsarr_FolderPathsjchkbx_Distribute_Enter lbl_MsgHlpwBvbLfT%chkbx_MMHFP_Change txtbx_MMHFP$Visiblechkbx_MMOBF_ChangeM txtbx_MMOBFIchkbx_Peak_enter7chkbx_Volume_enterwchkbx_Duration_entercmbx_frequencyChoice_Clickcmbx_frequencyChoice ListIndexQ chkbx_PeakXEnabled۪ chkbx_Volumekchkbx_Duration+cmbx_frequencyChoice_enterZwcmbx_SeasonType_Entercmbx_Seasontype_Changecmbx_SeasonTypeR FlexSeasons7Cmbx_numSeasons  Cmbx_1stMonthw MonthNameHcmbx_WinterStart'Showcmbx_WinterStart_EnterĴcmdbtn_CheckInputs_Clickbool_DefalutMMHFPU*bool_DefaultMMOBFbool_DefaultSubThresholdTbool_Default7Q2J str_MsgBoxir int_decisionJ int_counterwo int_TotalDays int_RngLimit; rng_dailyefcs$ ( bool_BatchRunBx (bool_Duration (bool_VolumeS (bool_PeakFlowtChkbx_IntermittentStreamst(bool_IntermittentStreams% OptBtn_Q95՜(bool_Q95Etxtbx_BankFullH2 (dbl_BankFull(str_SeasonTypeWorksheetFunction&MatchR Worksheets DateValue/RowsUCount0v (bool_HEFRExit (HEFR_Quit?txOh+'0@H`t TPWD Employee Dan OpdykeMicrosoft Excel@ ~\@՜.+,0 PX|  Texas Parks & Wildlife Dept Sheet1  Worksheeta   *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\office14\mso.dll#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{6263B4CD-D709-4055-B670-8A30C69F157F}#2.0#0#C:\DOCUME~1\dopdyke\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime*\G{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0#C:\WINDOWS\system32\MSCOMCTL.OCX#Microsoft Windows Common Controls 6.0 (SP6)"*\G{9F5348A2-72C5-4109-A4D5-6DEEA668572C}#2.0#0#C:\DOCUME~1\dopdyke\LOCALS~1\Temp\VBE\MSComctlLib.exd#Microsoft Windows Common Controls 6.0 (SP6)\ uMZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3*\G{F5078F18-C551-11D3-89B9-0000F81FE221}#6.0#0#C:\WINDOWS\system32\msxml6.dll#Microsoft XML, v6.0  .N+ ' ThisWorkbook014eb9505e)ThisWorkbook O Sheet1024eb9505e[ Sheet1Ke-RunBatchModeMod1O4eb9507c\RunBatchModeModT0HEFRInputs1X4eb9507dHEFRInputs.HiSplashScreen054eb9505eSplashScreenh` HEFRExp1[4eb9507eHEFRExpx%FlexSeasons1W4eb9507dFlexSeasonspAB HEFRGo1V4eb9507d HEFRGo )HEFRMod1Q4eb9507cHEFRModֱHHEFRBatch1P4eb9507cHEFRBatch&Nbx_Wet (dbl_Perc3  txbx_Averageo (dbl_Perc2txbx_DryEu (dbl_Perc1(dbl_MultipeaksMultiplierHFP'bool_DefaultMMHFPf IsNumeric$*frame_HighFlowPulseSetFocusSelStartZ SelLength(dbl_MultipeaksMultiplierOBFL OptBtn_thr(txtbx_SubThresholdP(dbl_SubsistenceThreshold2 txtbx_7Q27(dbl_7Q2vbCrLf(int_WinterStartQtxtbx_IHAPrjDirPathxcmbx_IHAAnalysisList(str_IHAAnalysisPath' vbOKCancelx? vbInformationncmdbtn_RunHEFR,(str_USGSGageNumberatxtbx_USGSGageIDTchkbx_Distributem(bool_ToDistributeHefrWorkbook(dbl_FrequencyChoicescmdbtn_ExitHEFR_Click%Hide9zcmdbtn_HELP_Click](HEFR_InstructionsAll7cmdbtn_RunHEFR_ClickxxDeleteIxFound vsh_vbYesNo(HEFR_DeleteOldSheets (HEFR_Stage2Chkbx_IntermittentStreams_enter?OptBtn_Q95_enterbOptBtn_thr_enter"txbx_Dry_Enter-txbx_Average_Entertxbx_Wet_Enter`etxtbx_7Q2_EnterQFontUtxtbx_BankFull_enter@itxtbx_IHAPrjDirPath_Enter/fd_folderpicker FileDialog fs_subfoldersfs_subfolders2fs_tmpכfs_tmp2Zfs_tmp3Zstr_IHAPrjDirPath,msoFileDialogFolderPicker?'Title~ ButtonNameTLocked  SelectedItems CreateObject GetFoldern SubFoldersx= fs_subfolder2hClearAddItem StylepfmStyleDropDownListom BoundColumn?txtbx_MMHFP_EnterFontSizetxtbx_MMOBF_Enter]txtbx_SubThreshold_Enter Sizetxtbx_USGSGageID_EnterUserForm_ActivateZs ProgressBar1v chkbx_MMHFP9u chkbx_MMOBF Boldcmdbtn_ExitHEFRC SplashScreen FindWindowK lpClassName lpWindowNameuser32* GetWindowLong/hwnd/nIndex' SetWindowLong  dwNewLong DrawMenuBar.  SendMessagewMsg+awParamblParam7ReleaseCapture GWL_STYLEwHandleaUserForm_Initialize5cfrmÏfrmstyleValVersionOnTimeT TimeValueUserForm_MouseDownfButtonShiftxoYl HEFRExp(PercentileWeibull\ arr_Inputdbl_perc~int_temph+ int_CountԞint_Incint_Base0int_Nint_Rankdbl_Data\% arr_Ranksarr_tmpsGVarTypep vbBoolean/BIsEmpty (Func_SelectionSortT(Func_Interpolate' no_selectionB TempArray 9MaxValMaxIndex1!ja (Func_Criteria rng_CriteriaRrng_tmp` bool_Flag*Cmbx_1stMonth_ChangeZ iNumSeasonsq iSeasonLen iSeasonStartvctrlctrl hide_or_showD{lbl_SeasonNamelbl_SeasonStart lbl_SeasonEnd) ListCount6imonthcmbx_Season1Name-ncmbx_Season2Name:cmbx_Season3Namecmbx_Season4Name#Cmbx_numSeasons_Change lbl_1stMonthhhHeight|cmdbtn_StartOverTop5cmdbtn_Proceedcmbx_Season1Name_Changestr_TempString~InputBox cmbx_Season2Name_Changercmbx_Season3Name_Changeicmbx_Season4Name_Changebcmbx_Season5Name_ChangeUcmbx_Season5Namecmbx_Season6Name_ChangeScmbx_Season6NameGcmbx_Season7Name_ChangeAcmbx_Season7Namecmbx_Season8Name_ChangeXTcmbx_Season8Namekcmbx_Season9Name_Change-cmbx_Season9Namecmbx_Season10Name_Changecmbx_Season10Name۪cmbx_Season11Name_ChangeZcmbx_Season11Name<cmbx_Season12Name_Change cmbx_Season12Namecmdbtn_Proceed_Clickiend1ctrl1 Bname1ctrl2Bname2imontheCMonthimonthsQ(int_NumberofSeasonscmbx_Season1Startq@vbYesa?(str_SeasonNames(int_SeasonLengthiSeason0iStartiEnd+istep(arr_SeasonsAndMonthsgKbcmdbtn_StartOver_Clicktruthxflasep HEFRGo u(CurrentWorkBookX (HEFR_Stage5 basFileNamesowkbkNamenmArraykDSplit) CollectionWFileNamej DisplayAlerts UpdateLinksxlUpdateLinksAlwayszActiveWorkbook NotAccessable (CopyModule WorkbooksB ModuleName#> FromVBProject6 ToVBProjectOverwriteExistingkVBCompӜ VBComponentFNameRCompName!SjSlashPosk#ExtPosF TempVBCompTrim@ vbNullString Protectionvbext_pp_lockedh VBComponents 'ErroNumber-Environ,vbNormal-vbHiddenT;vbSystemKillRemoveϱItemzExportInStrRevĈImportivbext_ct_Document  CodeModule DeleteLines  CountOfLines!\Lines InsertLines (DeleteModuletoVBProj HEFRModQ (dbl_percMinM (dbl_percMaxL(dbl_dsf2AcFtConv.(str_MsgCarrierla(int_NumberOfFlowValues= (rng_FlowRangeQr(int_TitleColor-(str_WetFlowsColorIndexAi(str_DryFlowsColorIndex;(str_OBFFlowColorIndexc(str_AverageFlowsColorIndex(str_SubsistenceColorIndex (str_OverbankColorIndexA(str_HFPS_subtable_start_colFH(HEFRver(int_NumberofTiers  (arr_Tiers(( SleepdwMillisecondsťkernel32_(HEFR_Instructions &(HEFR_SpreadSheetColorSchemeDescription(HEFR_WarningRecommendationsE(HEFR_SpreadSheetDescription>(HEFR_DistributeWorkbookjQ (HEFR_Contacts_ str_InstnsJ (HEFR_Stage1(Func_WorksheetExists ( typ_HefrInputOptionsDToDistributeHefrWorkbookG(Func_CreateMonthsSeasonsMatrixAddress(Func_Process_Multipeaksuk str_cellN1Q(Func_EFCSCalcs str_cellT1/ str_cellN9Y str_cellT97 str_cellN17p str_cellN26(Func_HFPFreqCalcs_p(Func_ClearGridst (Func_AutoFit> col_hide_toHe(Func_HideColumns^H(Func_BaseFlowCalcsE(Func_BaseFlowChartt(Func_Process_ZeroFlowsq (Func_ZFCalcs7(Func_Process_SubsistenceFlows  (Func_OBFSCalc(FDC_HEFR  (Func_MetaData StatusBarʜ(SaveHEFRInputs^h(HEFR_FlowMatrix (HEFR_Stage3ScreenUpdating!  str_ShtNamechtChartLjChart?ChartsCells(Func_Delete_Sheet z CalculationhxlCalculationManual ActiveSheet%N(Func_UserFreqCalcs&(Func_UserFreqCharts HEFRBatchFA_SignificanceLevelFA_RegressionMethod_VolumeFA_RegressionMethod_DurationFA_OverbankFrequencyTFA_OverbankAnnual^FA_HighFlowPulseTier1Frequency FA_HighFlowPulseTier1Annual%GFA_HighFlowPulseTier1Season1FA_HighFlowPulseTier1Season2FA_HighFlowPulseTier1Season3FA_HighFlowPulseTier1Season4FA_HighFlowPulseTier2FrequencyFA_HighFlowPulseTier2Annual5FA_HighFlowPulseTier2Season1WFA_HighFlowPulseTier2Season2XFA_HighFlowPulseTier2Season3YFA_HighFlowPulseTier2Season4ZFA_HighFlowPulseTier3FrequencyFA_HighFlowPulseTier3AnnualEFA_HighFlowPulseTier3Season1FA_HighFlowPulseTier3Season2FA_HighFlowPulseTier3Season3FA_HighFlowPulseTier3Season4FA_HighFlowPulseTier4FrequencyKFA_HighFlowPulseTier4AnnualFA_HighFlowPulseTier4Season1FA_HighFlowPulseTier4Season2FA_HighFlowPulseTier4Season3FA_HighFlowPulseTier4Season4FA_HighFlowPulseTier5FrequencyFA_HighFlowPulseTier5Annual6FA_HighFlowPulseTier5Season1OFA_HighFlowPulseTier5Season2PFA_HighFlowPulseTier5Season3QFA_HighFlowPulseTier5Season4RFA_HighFlowPulseTier1Season5FA_HighFlowPulseTier1Season6FA_HighFlowPulseTier1Season7FA_HighFlowPulseTier1Season8FA_HighFlowPulseTier1Season9FA_HighFlowPulseTier1Season10FA_HighFlowPulseTier1Season11 (HEFR_Stage4 ColorIndex(Func_ColorIndexgMove>yafterX str_ShtChart5 str_Peak_col str_Rank_coli str_Year_colC rng_PeakCol rng_RankCol ! rng_YearCol72 rng_xValueColC rng_TitleCellr rng_ValueColZ rng_FreqCol6str_Peak_rangestr_Rank_range0str_Year_rangeSstr_Freq_range str_Freq_colМrng_TitleCell_ValueMinScaleaCellMinb(Func_Create_Sheet ActiveWindow+DisplayGridlines SelectionZ RowHeightZoomColumnsp9 ColumnWidth PageSetupobjChart objCharts ChartObjectsHLocation-where֍xlLocationAsObjectParentSeriesCollection;: ChartType? xlXYScatter) NewSeriesValuesXValuesbmsoFalseF.IsErrorUMin(Func_FormatChart(Func_FillChartShtWCstr_Start_Cell$ str_TierStart1 str_TierTable@ str_BankFullU (Func_CellMergeWrapColorAlignmentMxlCenter(Func_CellBordersxlSolid7nxlThinwBordersC" xlEdgeBottom LineStylewxlDoubleEFormulaqY(Func_CellFontspInterior;(Func_CopyPaste xlPasteValues"xlCalculationAutomatic(Func_AnnualorSeason,str_Freq str_StartCell=(Func_GetValByFreqTextj int_Season str_ShtTSA str_TierRange7 str_ShtTPl int_periodsint_PeriodStart? int_PeriodEnd Peak_comp str_Methodpnum_SP ( IsBoolean (Func_reCreateMonthsSeasonsMatrixbool_SeasonCell (Func_Process_HFPRecsM=(Func_Regression(Func_StatisticsAggregation?%(Func_HighPulseMatrixUS(Func_FlowMatrixMSUS~ (Func_CalFreqPShapes< AddTextboxmsoTextOrientationHorizontal Charactersrg str_ShtCalPVDstr_ShtFreqPVDstr_ShtCalPonlySstr_ShtFreqPonlyhlc int_StartYearF int_EndYear> str_DateColܻYear6n(Func_CalFreqPVDzn (Func_FreqPVDl(Func_CalFreqPonly(Func_FreqPonly>str_SeasonYearCol}  str_FreqColotCopyƿ PasteSpecialKPastexlAll- OperationyxlPasteSpecialOperationNone&InsertrE4]E13E22(Func_CalFreqTitle" ActiveCell FormulaArrayΠ(Func_CountEventsiMaxT int_RngLimit1 int_RngLimit2 str_FreqCols= str_CellStart arr_Eventss bool_AnnualYniMinUiLumpcel}MaxȲ rng_FreqColsOrng_Colqstr_Lumpћ str_Names)int_lumpSstr_Orstr_Last1(Func_CalFreqTitleCombine]H NumberFormatRHorizontalAlignmentS@int_ClnMergeq_rng_Cols str_DestCellFstr_head-(Func_Fill_EE_Recsw\str_Cell S str_THeadint_Tier? str_EndCell{ str_ShtMTX rng_TPCell5 num_Cells5G str_Center)[ str_Lower str_UpperХ bool_SimpleXNint_tmp|int_MultiSeasons int_OffSetnum_Peak-str_txt num_Centera num_LowerU num_UpperQ (Func_Simplify.(Func_PlotVolumeDurationǮ str_GrayStyleU xlContinuous[ xlFormatsUxlValuesostr_MonthlyOrSeasonalA str_UnitsTypeRvar_tmpyfrequency_area# peak_areaDjvolume_area_dsfu2volume_area_acftt duration_area(Func_BaseFlowMatrix(Func_SubsistenceFlowMatrixF(Func_FlowMatrixTitlesQ(Func_BaseFlowMatrixSeasonalrng_TP(rng_R2rng_SEErng_UIFstr_PV) str_ChtNMLstr_xcstr_R2Ostr_SEED7\D27[D7lilD7lnqD7qu1D7poD27liD27lnD27quD27pouD10/D110D132D143D165D176D187D20TD21UD30yD31zD33|D34}D36D37D38D40D41str_ShtPEH5EH14 EH20!EH22!EH23!EH28 !EH29!!EH32?!EH41c!EH46h!EH48j!EH49k!EH54!EI55&EH59!EH63!EH67!EH68!EH78!EH79!EH80!EH88!EH89!EH99$"EH107mEH108mEH109mEH110mEH118mEH119mEH]EI]ER ]EQ] str_ShtFreqstr_Volume_colstr_Duration_col5rng_SeasonRankColint_TotalPulses8arr_PVDP3arrRanktQhVmD[ str_TPLeftF str_TPStartG (Func_LinearR1(Func_LogrithmicR(Func_QuadraticRh (Func_PowerR num_alphanum_betaFanum_gama4'num_r4 str_SumCell8 str_Date_colm str_FormulaN str_TPP_col! str_TPV_cols$ str_TPD_col>rng_StartRangev rng_XrangeHX rng_Yrange& rng_LowPI2\ rng_HighPIZO rng_Center< str_ChtName  singleCell3 ix](Func_PlotWithRegression9N(Func_Max  rng_RangeIcell (Func_PlotXYJstr_SeriesNameS/ obj_Chart str_Xrangev str_Yrange2str_SeriesColorqstr_MarkerStyle int_MarkerSizeL MarkerSize&~ MarkerStyleMarkerForegroundColorIndexBorder arr_Style+Qprec#%VprecQpmax Vmax^Dmaxx str_Title rng_tmpRangeoV str_tmpSht str_tmpCht0xlNone xlDiamond XlColorIndexxlColorIndexNoneB(Func_AddSeriesExpKLogdxlMarkerStyleStarE\ ActiveChart MarkerBackgroundColorIndexSmoothWeight1xlThickAxesbxlValueEH90"(Func_FrequencytoPeakZnumFreqistr_SeasonStartCollambda peakCountUnumRankw int_Match_posstr_SeasonStartCellstr_AnnualStartCell str_ActiveShtN3(Func_PeaktoFrequency2;numPeak3rng_SeasonRank_rangeI%ColumniVLookupIIfz int_ChtTypeStrxlSquareE xlTrianglem!xlX2xlStar&LegendPReversePlotOrderT CrossesAtv ScaleTypep xlLogarithmicZb MajorUnitM int_counter1rng_Season_rangee rng_HFP_range6 rng_OBF_range7rng_Dest_rangeQS str_HFP_range str_OBF_rangeNstr_Dest_range~< int_StartColx(Func_userFreqPanel(Func_RoseSortRankLog'*(Func_SeasonMatrix-(Func_RankMatrix(Func_AnnualFreqMatrix%(Func_SeasonFreqMatrixTdstr_Source_col str_25p_cella str_50p_cellF str_75p_cell( rng_SourceColQ str_Null_cellY tmp_WkSht WorksheetxlRightexlLeft9xlSingle n str_Dest_cellWstr_pulse_range9/ str_pulse_colz  str_RankCell< str_LogCell- str_RangetPxlGuessY DataSeries6WRowcol xlColumnshxlLinearxlDayTrend" str_YearCellstr_Source_cell rng_HO_range1 str_HO_range` str_OBFShtsstr_Title_range(Func_FlowMatrixMonthlySeasonal(Func_OBFMatrix (Func_HighFlowPulseMatrix bool_TF%xlDash(Func_GenSeasonE(Func_SeasonsToMonths" IndentLevel xlHAlignLeft-str_CategoryShtName)S str_Categorystr_CategoryRange  rng_Categorydbl_Q95$Round(Func_RoundDigitsIntermittentStreams{RowInNumberZwstr_OBFSShtName str_OBFRange^numdig8(Func_ClearGridsTitlesMDisplayHeadings/~ EntireColumnAutoFit&  EntireRowstr_ColumnsToHideHidden]str_BaseFlowShtNamey. xlLineMarkersa SetSourceDataaSourceGPlotBy$xlRowsstr_tmp  str_SeasonCol str_efcColB str_FlowCol{ str_MonthColؙstr_SubsistencePercAdd|7 str_7Q2Add3str_PercentileTypedbl_Percentile! dbl_BaseFlowsI int_intstrstr_AnnualSubsistenceFlowO xlPasteAllu xlMultiply@ SkipBlanksұ Transpose CutCopyMode ClearContents{ (Func_Months(Func_MonthsToSeasons(Func_BaseFlowsTitles'int_CounterNeg)str_Temps(Func_BaseFlowFormula}Right  xlEdgeRight%v(Func_FormatsMergeq (Func_TitlesQ str_RngAdd0 str_FontName0, str_FontStyle| str_FontColor int_FontSize@ var_ValueU@Proper{Italic! Underline Strikethrough" IsMissing bool_MergeB bool_Wrap%str_BackGroundColorIndexq var_CellValue var_HAlign-: var_VAlignwWrapText}VerticalAlignmentʡ var_Border3var_BorderLineStylevar_BorderWeightstr_BorderColorD  xlEdgeLeftL xlEdgeToph BorderAroundxlColorIndexAutomaticstr_DestCellAddstr_BaseFlowRange7str_ShtNameBaseFlowstr_ShtNameReport int_counter2 int_Colorn var_BorderTop$Kvar_BorderBottomAstr_BackGroundColor)7rng_BaseFlowRangervar_BorderRightjvar_BorderLeft5Gint_tmp2Vstr_SeasonMonthColstr_SeasonMonthCellAdd int_efcTypeSvar_Percentilestr_7Q2CellAdd| bool_Q95Add( (Func_FormatsPstr_Rngustr_BordersWeightz xlHAlignRightBxlVAlignCenter str_Value~xlHAlignCenterYxlVAlignBottomuNPatterniPatternColorIndex xlAutomatic@str_ShtNameHFPSstr_ShtNameOBFS str_RngTmp$j str_PrjName_ int_HFPCountjCountIf(Func_WriteTextFile (Func_ReadLineo LineNumber^oFSO3FileSystemObjectNUoFSTR1P TextStreamgretlCtr7s FileExists OpenTextFile AtEndOfStreamReadLineSkipLine str_fName>str_ShtDailyEFCS:str_YearsRangezCint_NumOfYearsstr_DurationRangebmstr_VolumeRangeIq str_peakRange=str_CategoryHeading str_Param1 str_Param2 dbl_PercInc49cell_C1(Func_FormulaPerc3ioff8`(Func_FormulaMinMax!iLastm& sht_BaseFlow str_durColM str_SsnColg str_ColSeason*str_CellAddSeasonp str_ColResult str_PerAdd3str_SFThreshold,str_DestCellTmpint_LastNumericCellint_FirstNumericCelldseriesColl_Tmpebool_tmpOstr_X1,str_X2-str_Y1str_Y2 LegendEntries  (RealEqual?XValsjYVals5 TargetVal' SortOrder4MatchValwErrXitd Description  str_SrcRange^str_DestShtNamej% str_DestRange cht_FlwDurCur[mrng_Temp str_FlowRangeint_TotNumFlows8 wrksht_srcP wrksht_dest xlDescending>str_PasteSpecialType wksht_srcy wksht_destN& rng_sourcetrng_destxlXYScatterSmooth(Func_DeleteLegend  series_tmp2^+ legend_tmpint_LegendIndex(Func_AddErrorBarsstr_ErrorBarsColorstr_ErrorBarDirectionSstr_ErrorBarType[str_ErrorBarWeight7dbl_ErrorBarExtensionAmountPosCdbl_ErrorBarExtensionAmountNeg7dbl_XaxisMaxValXdbl_YaxisMaxValoarr_ErrorBarXPosValsi arr_ErrorBarXNegValsGarr_ErrorBarYPosValsq arr_ErrorBarYNegValsOarr_SeriesXValues`arr_SeriesYValuesMarr_ErrorBarExtensionsarr_ErrorBarPosValsdiErrorBar> Direction&Include`xlErrorBarIncludeBoth~8xlErrorBarTypeCustomZAmounti MinusValues ErrorBarsV(Func_AddErrorBar+(KillForm ( CalendarMonthN   Unassignedb  January  FebruaryԲ  March)H  April'  MayŲ  JuneG  JulyF  AugustT  Septemberu  October  NovemberI  DecemberQ5(! HEFRInputOptionsTypewThresholdPercentileQ95WaterQualityProtectionFlowCfsPHFP_UseMultipeaks_MultiplierTOBF_UseMultipeaks_MultiplierXxHFP_Multipeaks_MultiplierOBF_Multipeaks_Multiplier$BankFullk ConditionsWetConditionsAverage  ConditionsDryWGageID7EpisodicEventsOption SeasonTypebStartMonthOfFirstSeason-DefineOverbankFlowAndHighFlowPulsesByPeakFlowD+DefineOverbankFlowAndHighFlowPulsesByVolume -DefineOverbankFlowAndHighFlowPulsesByDurationIHA_ProjectDirectoryIHA_AnalysisName(;FA_HighFlowPulseTier1Season12FA_HighFlowPulseTier2Season5[FA_HighFlowPulseTier2Season6\FA_HighFlowPulseTier2Season7]FA_HighFlowPulseTier2Season8^FA_HighFlowPulseTier2Season9_FA_HighFlowPulseTier2Season10+FA_HighFlowPulseTier2Season11,FA_HighFlowPulseTier2Season12-FA_HighFlowPulseTier3Season5FA_HighFlowPulseTier3Season6FA_HighFlowPulseTier3Season7FA_HighFlowPulseTier3Season8FA_HighFlowPulseTier3Season9FA_HighFlowPulseTier3Season10oFA_HighFlowPulseTier3Season11pFA_HighFlowPulseTier3Season12qFA_HighFlowPulseTier4Season5FA_HighFlowPulseTier4Season6FA_HighFlowPulseTier4Season7FA_HighFlowPulseTier4Season8FA_HighFlowPulseTier4Season9FA_HighFlowPulseTier4Season104|FA_HighFlowPulseTier4Season115|FA_HighFlowPulseTier4Season126|FA_HighFlowPulseTier5Season5SFA_HighFlowPulseTier5Season6TFA_HighFlowPulseTier5Season7UFA_HighFlowPulseTier5Season8VFA_HighFlowPulseTier5Season9WFA_HighFlowPulseTier5Season10xVFA_HighFlowPulseTier5Season11yVFA_HighFlowPulseTier5Season12zVNumberofSeasons SeasonNames SeasonStartZ SeasonEndU ( ShowHefrFormwfrmMainX( RunHEFRInternalDailyEFCsWorksheet8a HEFROptions8FormProgressBar ProgressBar$InputDailyEFCsXlsFileRInputOptionsXmlFile NumberofRunsj*RunNumRunNamedailyEFCWorkbookWorkbookk( ReadHEFRInputOptionsFromFile( OpenDailyEFCXlsISaveAsf; FileFormatWorkbookFilenameLoadUnreadableIHAOutputSdailyEfcsSheetsRaise corruptload xlRepairFileOptionsXMLFilenameBfsoxmlDoc DOMDocumentbxmlNodeC IXMLDOMNode5SelectSingleNodeWParseStartMonthOfFirstSeason!xString InputTextUCase5  ObjectToTestaerrHJ[test4_Defaultj _B_var_LeftQ _B_var_Format _B_var_TrimmT _B_var_UCasea _B_var_MidpUserFormNLabel2,Cmbx_Season1Endcmbx_Season2Start'Wcmbx_Season2Endcmbx_Season3Startmcmbx_Season3Endcmbx_Season4Startcmbx_Season4EndZGcmbx_Season5StartIcmbx_Season5End cmbx_Season6Startcmbx_Season6Endcmbx_Season7Endscmbx_Season7Startcmbx_Season8End^cmbx_Season8Startkcmbx_Season9End#cmbx_Season9Start!cmbx_Season10EndxYcmbx_Season10Startcmbx_Season11Endcmbx_Season11Starttcmbx_Season12Endcmbx_Season12Start*ChangeClick InitializeNframe_SubsistenceFlowframe_OverBankFlowframe_DescriptiveInfo/lbl_SubThresholdylbl_7Q2 lbl_USGSGage frame_IHAInfoܗlbl_IHAAnalysisName  cmdbtn_HELP# lbl_IHAPrjDir\lbl_StartOfWintericmdbtn_CheckInputsL+Frame1lbl_SeasonType>lbl_frequencyChoiceدFrame_DefineOverbankt(Frame3lbl_Wet0 lbl_AveragegIlbl_Dry lbl_BankFullB}Frame4lbl_Q95nFrame5Enter &% ['] "$&)$ (hձDtRG{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automat8ion0EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Sha red\o@14\mso.dll#M 11.0 Ob Lib0raryKMSForms>SFrms3D452EE1-E08"F0A-8-02608C4D0BB4SFM20.DLLH'B _&/;"1jIqAHq00}#:0Bq# 50 A6263B4CD-D709-4055-B670-8A30C69F157F6DOCUME~1\dopdyke\LOCALSTemp\VBE\DT.exd;!.E .`M  @Scriptin0g>ripinjgtj34 20B28E718-11CF-893D0C9054228}#crrunL Runtime @b|MS Tctl`K>MHC@Gm@t sjLbI|`A831FDD16-0C5C@D2-A9FCb:F87`54DA1IOMCTL.OCX,Windows eControls 6_(SP6)?K@KALa.KGa0d9F5348A2-72C5-41@MA4D5-6DEEA6685LL.,M!`@\ uMCNVBIDE> VBIPDEL`a8#2E@c%q5.3L?'V$BAhA6ai6E@XT.OLB`s R,HLP`dtx|$4DTdhx(8<L\l|  0@P`p$4DTdt   Sleep kernel32 Sleep Tyou must have a HEFR_master.xlsm file openVBE7.DLL "  8 S H daily efcs  . _ .xlsm  h i C @B( *KzK6\q 8ReadHEFRInputOptionsFromFile LHEFR Input Options file not found at ' 'fĤIx8<s.O 3)6{O>`3)6{O>` lCould not load HEFR Input Options file into XML from ' lHEFR_InputOptions/SubsistenceFlows/ThresholdPercentile //Q95 >//WaterQualityProtectionFlowCfs Z//HighFlowPulses/HFP_UseMultipeaks_Multiplier T//HighFlowPulses/HFP_Multipeaks_Multiplier X//OverbankFlows/OBF_UseMultipeaks_Multiplier R//OverbankFlows/OBF_Multipeaks_Multiplier //BankFull 6//HydrologicConditions/High ://HydrologicCondK*  rU~~~~~~~~~~~~~~~~~~~,~~~~~~~~~~~~~~~~~~~~~~~R pd0ɪJb5     a i A )a aɷ 9i!Yɹ Aq!Qyѻ A!YQqa i P1a 11i٨I)a٪Yɫ a iєAa  ~[WSWOKKOSGGGCC??g;;;777// xAxqxxxyAyiyyy zAzqzzzz!{I{i{{{ |9|q||| }9}i}}}~Q~~~~ 1a Y1YAiق 9iу 9iلAyх)ayɆa QqوAi Iyي )a !Y     HEFRProject ThisWorkbookSheet1RunBatchModeMod HEFRInputs SplashScreenHEFRExp FlexSeasonsHEFRGoHEFRMod HEFRBatchF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA ! I0F4C:\Program Files\Microsoft Office\Office14\EXCEL.EXEExcel XMLCol A@0FC:\WINDOWS\system32\stdole2.tlbstdole aPL-[DR?C:\Program Files\Common Files\Microsoft Shared\office14\mso.dllOffice Ai`.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aapʹcb U@p0Ɵ 1C:\DOCUME~1\dopdyke\LOCALS~1\Temp\VBE\MSForms.exd EFCsCol Aai0( B=B(C:\WINDOWS\system32\scrrun.dll Scripting a\ uM  C:\WINDOWS\system32\MSCOMCTL.OCX MSComctlLib I I q HSr AmhW,5C:\DOCUME~1\dopdyke\LOCALS~1\Temp\VBE\MSComctlLib.exd 9 I a WFCC:\Progritions/Medium 4//HydrologicConditions/Low L//HefrRunDescriptiveInformation/GageID h//HefrRunDescriptiveInformation/EpisodicEventsOption T//HefrRunDescriptiveInformation/SeasonType n//HefrRunDescriptiveInformation/StartMonthOfFirstSeason `//DefineOverbankFlowAndHighFlowPulsesBy/PeakFlow \//DefineOverbankFlowAndHighFlowPulsesBy/Volume `//DefineOverbankFlowAndHighFlowPulsesBy/Duration *//IntermittentStreams JUNE .//IHA/ProjectsDirectory $//IHA/AnalysisName 0//DistributeHefrWorkbook J//FrequencyApproach/SignificanceLevel V//FrequencyApproach/RegressionMethod/Volume Z//FrequencyApproach/RegressionMethod/DurationFunc_CalFreqTitleFunc_CalFreqTitleCombine T//FrequencyApproach/OverbankTier/Frequency N//FrequencyApproach/OverbankTier/Annual j//FrequencyApproach/HighFlowPulseTier/Tier1/Frequency d//FrequencyApproach/HighFlowPulseTier/Tier1/Annual >//CustomSeasons/NumberofSeasons 0 f//FrequencyApproach/HighFlowPulseTier/Tier1/Season1 f//FrequencyApproach/HighFlowPulseTier/Tier1/Season2 f//FrequencyApproach/HighFlowPulseTier/Tier1/Season3 f//FrequencyApproach/HighFlowPulseTier/Tier1/Season4 Func_FreqPVDFunc_CalFreqPonlyFunc_FreqPonly f//FrequencyApproach/HighFlowPulseTier/Tier1/Season5 f//FrequencyApproach/HighFlowPulseTier/Tier1/Season6 f//FrequencyApproach/HighFlowPulseTier/Tier1/Season7 f//FrequencyApproach/HighFlowPulseTier/Tier1/Season8 Func_CalFreqFunc_CalFreqPVDFunc_CountEvents f//FrequencyApproach/HighFlowPulseTier/Tier1/Season9 h//FrequencyApproach/HighFlowPulseTier/Tier1/Season10 h//FrequencyApproach/HighFlowPulseTier/Tier1/Season11 h//FrequencyApproach/HighFlowPulseTier/Tier1/Season12Func_AnnualorSeasonFunc_GetValByFreqText j//FrequencyApproach/HighFlowPulseTier/Tier2/Frequency d//FrequencyApproach/HighFlowPulseTier/Tier2/Annual f//FrequencyApproach/HighFlowPulseTier/Tier2/Season1 f//FrequencyApproach/HighFlowPulseTier/Tier2/Season2Func_UserFreqChartsFunc_FillChartSht f//FrequencyApproach/HighFlowPulseTier/Tier2/Season3 f//FrequencyApproach/HighFlowPulseTier/Tier2/Season4 f//FrequencyApproach/HighFlowPulseTier/Tier2/Season5 f//FrequencyApproach/HighFlowPulseTier/Tier2/Season6HEFR_DeleteOldSheets HEFR_Quit HEFR_Stage3 f//FrequencyApproach/HighFlowPulseTier/Tier2/Season7 f//FrequencyApproach/HighFlowPulseTier/Tier2/Season8 f//FrequencyApproach/HighFlowPulseTier/Tier2/Season9 h//FrequencyApproach/HighFlowPulseTier/Tier2/Season10HEFR_DistributeWorkbook HEFR_Contacts h//FrequencyApproach/HighFlowPulseTier/Tier2/Season11 h//FrequencyApproach/HighFlowPulseTier/Tier2/Season12 j//FrequencyApproach/HighFlowPulseTier/Tier3/Frequency d//FrequencyApproach/HighFlowPulseTier/Tier3/AnnualHEFR_SpreadSheetDescription HEFR_Stage1 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season1 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season2 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season3 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season4 &HEFR_SpreadSheetColorSchemeDescription HEFR_Stage2 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season5 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season6 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season7 f//FrequencyApproach/HighFlowPulseTier/Tier3/Season8HEFR_InstructionsHEFR_WarningRecommendations f//FrequencyApproach/HighFlowPulseTier/Tier3/Season9 h//FrequencyApproach/HighFlowPulseTier/Tier3/Season10 h//FrequencyApproach/HighFlowPulseTier/Tier3/Season11 h//FrequencyApproach/HighFlowPulseTier/Tier3/Season12 2.02.cHEFR_InstructionsAll j//FrequencyApproach/HighFlowPulseTier/Tier4/Frequency d//FrequencyApproach/HighFlowPulseTier/Tier4/Annual f//FrequencyApproach/HighFlowPulseTier/Tier4/Season1 f//FrequencyApproach/HighFlowPulseTier/Tier4/Season2 Light Green Gray-40% f//FrequencyApproach/HighFlowPulseTier/Tier4/Season3 f//FrequencyApproach/HighFlowPulseTier/Tier4/Season4 f//FrequencyApproach/HighFlowPulseTier/Tier4/Season5 f//FrequencyApproach/HighFlowPulseTier/Tier4/Season6 Light Turqoise Tan f//FrequencyApproach/HighFlowPulseTier/Tier4/Season7 f//FrequencyApproach/HighFlowPulseTier/Tier4/Season8 f//FrequencyApproach/HighFlowPulseTier/Tier4/Season9 h//FrequencyApproach/HighFlowPulseTier/Tier4/Season10 Gray-25% Red HEFR_Stage4 h//FrequencyApproach/HighFlowPulseTier/Tier4/Season11 h//FrequencyApproach/HighFlowPulseTier/Tier4/Season12 j//FrequencyApproach/HighFlowPulseTier/Tier5/Frequency d//FrequencyApproach/HighFlowPulseTier/Tier5/Annual  /End f//FrequencyApproach/HighFlowPulseTier/Tier5/Season1 f//FrequencyApproach/HighFlowPulseTier/Tier5/Season2 f//FrequencyApproach/HighFlowPulseTier/Tier5/Season3 f//FrequencyApproach/HighFlowPulseTier/Tier5/Season4  /Start f//FrequencyApproach/HighFlowPulseTier/Tier5/Season5 f//FrequencyApproach/HighFlowPulseTier/Tier5/Season6 f//FrequencyApproach/HighFlowPulseTier/Tier5/Season7 f//FrequencyApproach/HighFlowPulseTier/Tier5/Season8 ,//CustomSeasons/Season f//FrequencyApproach/HighFlowPulseTier/Tier5/Season9 h//FrequencyApproach/HighFlowPulseTier/Tier5/Season10 h//FrequencyApproach/HighFlowPulseTier/Tier5/Season11 h//FrequencyApproach/HighFlowPulseTier/Tier5/Season12 Custom /NameFunc_Process_HFPRecsFunc_Fill_EE_RecsFunc_HighPulseMatrixUS Func_SimplifyFunc_FlowMatrixMSUSFunc_StatisticsAggregationFunc_RegressionFunc_PlotVolumeDurationFunc_Max Func_PlotXYFFunc_PlotWithRegressionFunc_plot_ResidualsFunc_plot_NormalFunc_AddSeries Func_LinearRFunc_LogrithmicRFunc_QuadraticR Func_PowerRFunc_FrequencytoPeakFunc_PeaktoFrequencyFunc_FormatChartFunc_UserFreqCalcsFunc_SeasonFreqMatrixFunc_AnnualFreqMatrixFunc_RankMatrixFunc_RoseSortRankLogFunc_SeasonMatrixFunc_userFreqPanelHEFR_FlowMatrixFunc_FlowMatrixMonthlySeasonalFunc_FlowMatrixTitlesFunc_SubsistenceFlowMatrixFunc_RoundDigitsFunc_OBFMatrixFunc_ClearGridsFunc_ClearGridsTitles Func_AutoFitFunc_HideColumnsFunc_BaseFlowChartFunc_BaseFlowCalcsFunc_CellFonts MAY  Func_CellMergeWrapColorAlignmentFunc_CellBordersFunc_BaseFlowMatrixFunc_BaseFlowMatrixSeasonalFunc_BaseFlowFormula Func_FormatsFunc_FormatsMergeFunc_BaseFlowsTitles Func_MetaData Func_ReadLineFunc_WriteTextFile Func_OBFSCalcFunc_EFCSCalcs Func_ZFCalcs Func_TitlesFunc_FormulaMinMaxFunc_FormulaPerc3Func_HFPFreqCalcsFunc_HFPFreqTitlesFunc_HFPFreqCalcTitlesFunc_WorksheetExistsFunc_Create_SheetFunc_Delete_SheetFunc_HighFlowPulseMatrixFunc_StringReSizedFunc_ColorIndexFunc_SeasonToSeasonNumberFunc_SeasonsToMonthsFunc_MonthsToSeasons Func_MonthsFunc_GenSeason_oldFunc_GenSeasonFunc_CreateFlowRangetereor  Func_CreateMonthsSeasonsMatrix_4Func_CreateMonthsSeasonsMatrix  Func_reCreateMonthsSeasonsMatrix Func_GoliathFunc_Process_MultipeaksFunc_Process_ZeroFlowststFunc_Process_SubsistenceFlowsFDC_HEFRFunc_FormatPointsFunc_PlotBetweenValsFunc_PlotXYRandomValsFunc_PlotXYRangesFunc_PlotSeries RealEqual LinearInterpFunc_FDCalculationsFunc_CopyPasteFunc_CreateXYScatterPlotFunc_DeleteSeriesFunc_DeleteLegendFunc_AddErrorBarsFunc_AddErrorBarKillFormSaveHEFRInputs JANUARY FEBRUARY MARCH APRIL vv HX6$(  hlpxp  (  &Percentile Approach / 1 / 2001 m 1/   1 0  P ! p   JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER     ParentFName OpenDailyEfcXls# Worksheet named 'daily efcs' must be present in Daily EFC workbook recovered .xls HEFR_Stage5 CopyModule OĦ DeleteModule  N1 A1 HFPS high flow pulse 1 Percentiles Peak Flows (cfs) F2 C2 Percentages VPeak Flows as % of Overbank Flows Threshold Metadata $Total Volume (dsf) B2 Acrefeet (Total Volume (ac-ft) Duration (days) A2 E G H I1 I: BaseFlows F1 ZeroFlows G2 H1 M2 (SubsistenceDurations OBFS small flood J1 LUpdating calculations, Please wait....Calculate FlwMtxSeasonalActivateE O#Sm%j|"-'GzI8HMDEHLtdԜ#"@O,K 62ҋB `cmbx_Season10End!-6S` pCmbx_numSeasonscmbx_Season10Start Cmbx_1stMonthcmbx_Season12Endcmbx_Season12Startcmbx_Season11Endcmbx_Season11Startcmbx_Season9Namecmbx_Season9Startcmbx_Season10Namecmbx_Season5Namecmbx_Season11Namecmbx_Season5Startcmbx_Season12Namecmbx_Season5Endcmbx_Season6Namecmbx_Season6Startcmbx_Season6Endcmbx_Season7Endcmbx_Season7Startcmbx_Season7Namecmbx_Season8Namecmbx_Season1Start"-?@lbl_SeasonNamelbl_SeasonStart lbl_SeasonEnd /ȏ[qJ eUserForm6?!}\J}& F3Dynamic Q yLabel2cmbx_Season1Namecmbx_Season2Namecmbx_Season2Startcmbx_Season2Endcmbx_Season3StartCmbx_Season1Endcmbx_Season4End lbl_1stMonth{lFWJOcmdbtn_StartOvercmbx_Season3Namecmdbtn_Proceedcmbx_Season3Endcmbx_Season4Namecmbx_Season4Startcmbx_Season8Endcmbx_Season8Startcmbx_Season9EndCmbx_1stMonth_ChangeCmbx_numSeasons_Changecmbx_Season1Name_Changecmbx_Season2Name_Changecmbx_Season3Name_Changecmbx_Season4Name_Changecmbx_Season5Name_Changecmbx_Season6Name_Changecmbx_Season7Name_Changecmbx_Season8Name_Changecmbx_Season9Name_Changecmbx_Season10Name_Changecmbx_Season11Name_Changecmbx_Season12Name_Changecmdbtn_Proceed_Clickcmdbtn_StartOver_ClickUserForm_Initialize hide_or_show #=h8+3qG?,2qLQyEMo08-,N;&$ԅHx$@bI@QA BNɘmy%CPBƦmΌ?F`frame_OverBankFlowframe_DescriptiveInfolbl_SubThresholdlbl_7Q2ҋB `txtbx_SubThreshold frame_IHAInfolbl_IHAAnalysisName txtbx_7Q2 lbl_USGSGagetxtbx_IHAPrjDirPathcmbx_IHAAnalysisList cmdbtn_HELP txtbx_MMHFPcmdbtn_RunHEFRFrame_DefineOverbank txtbx_MMOBFtxtbx_USGSGageID lbl_IHAPrjDirlbl_StartOfWintercmdbtn_CheckInputsFrame4Frame1Frame5 lbl_MsgHlpBҋB ` chkbx_Volumelbl_SeasonTypelbl_frequencyChoicecmbx_frequencyChoice chkbx_Peakcmbx_SeasonTypechkbx_DurationFrame3lbl_Wet lbl_Averagecmbx_WinterStartlbl_Dry lbl_BankFullRҋB ` OptBtn_thrchkbx_Distributelbl_Q95(GkJ Q yChkbx_IntermittentStreams OptBtn_Q95txtbx_BankFulltxbx_Wet!:5j(6( ProgressBar1NQ *#K^] ɵ  chkbx_MMHFP chkbx_MMOBF txbx_Averagecmdbtn_ExitHEFRtxbx_Dryframe_HighFlowPulseframe_SubsistenceFlowchkbx_Distribute_Enterchkbx_MMHFP_Changechkbx_MMOBF_Changechkbx_Peak_enterchkbx_Volume_enterchkbx_Duration_entercmbx_frequencyChoice_Clickcmbx_frequencyChoice_entercmbx_SeasonType_Entercmbx_Seasontype_Changecmbx_WinterStart_Entercmdbtn_CheckInputs_Clickcmdbtn_ExitHEFR_Clickcmdbtn_HELP_Clickcmdbtn_RunHEFR_ClickChkbx_IntermittentStreams_enterOptBtn_Q95_enterOptBtn_thr_entertxbx_Dry_Entertxbx_Average_Entertxbx_Wet_Entertxtbx_7Q2_Entertxtbx_BankFull_entertxtbx_IHAPrjDirPath_Entertxtbx_MMHFP_Entertxtbx_MMOBF_Entertxtbx_SubThreshold_Entertxtbx_USGSGageID_EnterUserForm_Activate  4 lNo IHA output spreadsheets found, HEFR cannot continue x Q Normal Winter Spring Summer = Fall Volume (dsf) Peak (cfs) Date of Start Date of Peak Season of Peak Season/Year Classification : Borderaround Black Left Tahoma Bold d3 a1 FullpF Gray-80% =Func_Criteria( ) *High Flow Pulse Event  # Overbank Event )  Cells Range RightUFTF Top Bottom Brown Olive Green Dark Green Dark Teal Dark Blue Indigo Dark Red Orange Dark Yellow Green Teal Blue Blue-Gray Gray-50% Light Orange Lime Sea Green Aqua Light Blue Violet Pink Gold Yellow Bright Green Turqoise Max Sky Blue Plum Rose Light Yellow Pale Blue lavender WhiteMF Italic Underline Strikethrough P 0 sco DPlease Wait. Currently Processing   in   Worksheet. Min sco!C104 0% *  * :=PercentileWeibull(IF(OFFSET( H, 0,0, Match(1E+306, $A:$A, 1),1) =  , OFFSET( F, 0,0, Match(1E+306, $A:$A, 1),1)),PercentileWeibullFunc_InterpolateFunc_SelectionSort Func_Criteria lYou must select a column of data before executing code 3 h . Estr_ErrorBarDirectionstr_ErrorBarTypestr_ErrorBarWeightdbl_ErrorBarExtensionAmountPosdbl_ErrorBarExtensionAmountNeg ModuleName X FromVBProject ToVBProjectOverwriteExisting 1h Qx  itruth  i   y  yarr_FolderPaths arr_Input TempArray rng_Criteriavt str_Xrange str_Yrangestr_SeriesColorstr_MarkerStyleint_MarkerSize rng_Xrange rng_Yrange rng_Center rng_LowPI rng_HighPIY str_ChtName num_alphanum_betanum_gamanum_r str_LineStyle str_DVTypenumFreqnumPeakobjChart FlexSeasonsW%"r: f o!#| CompObj$ais the beginning of the first season for this analysis? &5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaR((Done with Season Chooser{uTahomaR$,Name of Season 5TahomaRAH,E,5TahomaR( Start Overas {uTahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAs      FMicrosoft Excel 2003 WorksheetBiff8Excel.Sheet.89q,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^abcdenghijklm`opruvwxyz{|}~rU~~~~~~~~~~~~~~~~_    dwMilliseconds IDailyEFCsWorksheet HEFROptions qFormProgressBarInputDailyEFCsXlsFileInputOptionsXmlFile OUTPUTXLSFILE (WorkbookFilenameOptionsXMLFilename InputText ObjectToTest str_ShtName str_ShtChart str_Peak_col str_Rank_col str_Year_colstr_Start_Cellstr_Freq int_Season int_StartYear int_EndYear str_DestCellstr_Cell str_THeadint_Tier int_periodint_PeriodStart int_PeriodEnd arr_Tiersnum_SP str_Method str_ShtTP str_ShtTSAstr_MonthlyOrSeasonal str_UnitsType 8 rng_Rangestr_SeriesName yH obj_Chart str_Xrange str_Yrangestr_SeriesColorstr_MarkerStyleint_MarkerSize rng_Xrange rng_Yrange rng_Center rng_LowPI rng_HighPIY str_ChtName num_alphanum_betanum_gamanum_r str_LineStyle str_DVTypenumFreqnumPeakobjChart int_ChtTypeMinScalestr_Source_col str_25p_cell str_50p_cell str_75p_cell str_Dest_cellrng_Season_range str_RankCell str_LogCell str_YearCellstr_Source_cellstr_CategoryShtName str_Categorystr_CategoryRangeInNumberstr_OBFSShtName str_OBFRangestr_ColumnsToHidestr_BaseFlowShtName str_RngAdd str_FontName str_FontStyle str_FontColor int_FontSize var_Value bool_Merge bool_Wrapstr_BackGroundColorIndex var_CellValue var_HAlign var_VAlign var_Bordervar_BorderLineStylevar_BorderWeightstr_BorderColorstr_DestCellAddstr_BaseFlowRangestr_ShtNameBaseFlowstr_ShtNameReportstr_PercentileTypestr_SeasonMonthCol str_efcCol str_FlowColstr_SeasonMonthCellAdd int_efcTypevar_Percentilestr_7Q2CellAdd int_intstr bool_Q95Addstr_Rngstr_BordersWeight str_Valuestr_ShtNameHFPSstr_ShtNameOBFSFName LineNumber str_fNamestr_ShtDailyEFCSstr_CategoryHeading str_Param1 str_Param2 str_ColSeasonstr_CellAddSeason str_ColResult str_PerAddstr_SFThresholdstr_DestCellTmp str_PeaksColx str_SeasonCol str_ClssfnCol str_RngTmp str_PkFlwRng str_TlVolRng str_DurRng str_FrqRng str_Input int_Length str_Colorarr_SeasonsAndMonths2var_SeasonNamevar_SeasonNameOrNumbervar_MonthPositionstr_FullOrShortvar_MonthNameOrNumbervar_FullOrShortstr_PartOrFullstr_DailyEfcsShtNameint_WinterStart2 str_CPeaksstr_CVolstr_CDur str_SeasonAddstr_Durstr_Vol str_Peaks str_Seasonint_SeasonColumn str_efcparamint_SeasonalFlag str_tblCellstr_FDSheetNamestr_MarkerColordbl_SinglePointOrMinVal dbl_MaxValstr_SrcShtName str_ChartName dbl_StartVal dbl_EndValvar_MarkerStylestr_rngPlotRangestr_PlotByWhat str_XVals str_YValsXValsYVals TargetVal SortOrder str_SrcRangestr_DestShtName str_DestRangedbl_percValstr_PasteSpecialTypestr_ErrorBarsColorH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaRAH, ,5TahomaR,8Cmbx_numSeasons(00@lbl_SeasonStartu 0 0@lbl_SeasonEndrt& , 0xlbl_1stMonth4 18cmbx_Season1Startho; 018Cmbx_Season1Enda$; 418cmbx_Season2Startho018 cmbx_Season2Enda$,H cmdbtn_Proceedd!0!0D lbl_SeasonNamed 0 /18Cmbx_1stMonthedz-,1< cmdbtn_StartOver 0218 cmbx_Season1Name: ; 0318cmbx_Season2Name: 0418cmbx_Season3Name: 14518cmbx_Season3Startho10618cmbx_Season3Endea$10718cmbx_Season4Name: 4818cmbx_Season4Startho0918cmbx_Season4Endea$0:18cmbx_Season5Name: '4;18cmbx_Season5Startho'0<18cmbx_Season5Endea$'0=18cmbx_Season6Name: 4>18cmbx_Season6Startho0?18cmbx_Season6Endea$0@18cmbx_Season7Endea$4A18cmbx_Season7Startho0B18cmbx_Season7Name: 0C18cmbx_Season8Name: 0D18cmbx_Season8Endea$4E18 cmbx_Season8Startho0F18!cmbx_Season9Name: !0G18"cmbx_Season9Endea$!4H18#cmbx_Season9Startho!4I18$cmbx_Season10Nameho: #0J18%cmbx_Season10Enda$#4K18&cmbx_Season10Startho#4L18'cmbx_Season11Nametho: &0M18(cmbx_Season11Enda$ &4N18)cmbx_Season11Startho &4O18*cmbx_Season12Nametho: (0P18+cmbx_Season12Enda$(4Q18,cmbx_Season12Startho(  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FlexSeasons Caption = "Assign HEFR Seasons" ClientHeight = 3960 ClientLeft = 45 ClientTop = 435 ClientWidth = 8550 StartUpPosition = 1VBFrame1SplashScreen': ~.f{o&( 'CenterOwner TypeInfoVer = 179 End 4 @ }@BQR KQDBTahoma $ Image2T(2@Label1T+*1(24Label3T(2hLabel2T(24Label4T(2Label5TI  Microsoft Forms 2.0 FormEmb (&R KQltBM6(n~~~~~~~~~~~~~~~~~~iiiDz齽tttiiiнǽٽн錌͚޽ƌٽ||޽ddqwǂ͚ٙ޽ƌƌ޽޽||ӧ޽𧧧٧н齽޽ƌ޽ƌǀkdw}wǙ޽||޽||͚||||͚ǀٲнǽ齽錌޽ӧ||||||hhـ||||||hh||޽ӧ||||||||ƌ||ƌн||||||дhh||н||ǀƌhh||ƌƌӧЀ̺麭٭ӧЀӧƌٽ||޽̅٭{{ƌ޽ƌٲƌ޽||٧޽ƌӧ޽޽ƌ͚̗ǟǟǟ٭ǟЦ٭ǟǟ٭޽ƌƌ޽hh޽͚޽ƌ||ٌǽhhhǽ||hhhhƌ||hh||||hhƌǀƌǴhhƌ||||||||hhhhhhٲhhhh||||̽ٽЧв̲hhSǟ٭pǽٽǽǽ𽽽н齽ǽƌ||͚޽޽޽޽޽޽޽޽޽޽ǀ޽޽޽޽޽޽޽޽޽޽޽ٲٲ޽͚ٲhhӧٲٲٲ޽ٲٲ޽ٲӧӧӧٲ޽ٲٲ޽ٲ͚ٲhh͚ӧ޽޽||||޽ǽ||н||޽޽޽޽޽ǀ޽͚޽޽޽͚޽ٲ͚н||޽޽н||޽ǀ޽ǀн||ǀ޽޽͚޽͚޽||ӧƌӧ͚ٲٲٲ͚ٲ޽޽ӧٲhh޽޽ٲٲhh޽޽͚ӧٲӧƌӧӧٲٲӧƌӧӧ޽޽޽ӧӧ޽ٲӧٲ͚ٲٲ޽||hh޽ӧٲٲƌƌӧhhٲǀ޽޽޽޽͚ǀЀ͚ǀ޽||||hhhhhhhh||ӧƌƌ޽||ٲƌCompObjkiii~~~iii~~~iii~~~iii~~~ٲƌӧ޽޽ƌ޽޽||tttttttttttt޽޽ƌ޽||ƌ͚||ƌhh||hh||Ǵhh||н||||||||ƌ||ƌƌӧhhTpqqwNjdkdkdwqqTpqqwǙdTpqqwǙdǀ޽޽q}\{k}qkkq}\{q}\{k}qq}\{k}qЀ͚ǀ޽ӧƌƌ޽||ٲƌ̭̏٭ǟᴟǟЦ̭٭ǟ̟ǟЦЦ̭٭pp٭ǟ̺麅̭٭pp٭ǟ̺麅ƌ޽||ٽ||ٲ̏٭ǟ٭̗̏ǟ̟ǟǟ٭̗Ц{{̦̏Ц̗Ц{{̦̏Цٲ||||޽޽ƌǀٲ||hh||||||||hhhhhh||Ц麧٭pЦǟЦЦЦ̲٭p٭pЦ٭p٭ǟ麧٭ЦЦ麽ǟ٭٭ǟǟ٭ǟ٭̽̽ǟ٭̽Ц{̲ЦkwǙ}ЋdwkddkdwǙ}ЂTp}kkwwk}qqwkkkdkdTpdTpwǂٙqw}qqwǐkwǂٙ}qkwǙqwǂٙwǂٙkqwǙw}\{qwǙwǂٙkkq}qq}А}А}А}Аq}А}d}kwǙq}Аqq}ЂwLJwǙq}Аwwk}w}kq}АkdwǙ}ЙwǙwNj釴ᇴ}}qwǂٙkwNj釴}\{wǙkqwNj釴ᇴkqwǙkwǂٙwNj釴ᇴkkwǙk\{k}Й\{k}Й\{kwk\{kwkqً釴wǙqًwǙqً釴qwǙqً釴qwǙd}ЙTpd}ЙTpd}Й}kd}ЙTp0Jqwǐqqwǐqqwǐwǂٙqwǐq 000i G̺麏̴̭٭ppЦ٭ǟЦᴟǟ̺麏̴̏٭ǟ٭ǟ̦Ц̺̏麏̴̗麅ЦЦ̺麅̺麏̴̴ᴟǟǟ٭pp ̟ǟ٭̴̗٭ЦЦ{{̏ǟ٭٭̟ǟ٭̴̟̏̏ǟЦ{{̟ǟ٭̴̦Ц{{ЦǟЦ٭Ц̦Ц̟ǟ٭̴̭٭ǟ̗A$̺麦Ц̺麦Ц̺麦Ц̺麦Ц޽||̗Ц̭٭ppЦᴟǟЦЦ̗Ц̴̭٭ppЦᴟǟЦЦ̗Ц̗ᴟǟЦ̗Ц̭٭ǟ̦ЦЦ̦Цs͚޽||ǀ̟ǟ麴ᴴ̗ǟ٭٭ǟ٭ǟ٭̟ǟ麴̴̗ǟ٭٭ǟ٭ǟ٭̟ǟ麴ᴴ̦Ц{{Ц{{٭ǟ٭̟ǟ麴ᴴ̟̏ǟǟ٭̟ǟ٭( T͚||hhhh||||hh|| Q ӧЀ{{̭٭pp٭pp{{̴̭٭ppЦ{{̺麅{{̺麅!޽ƌٽ||ٲ̗٭麴̗̗̗٭̴̗٭Ц̗٭麴̦Ц̗٭麴̦Цi޽ƌ޽޽ƌ͚( Ǵhhƌ||||||hhhhhh̅Ц̴̭٭pp̅Ц̴̭٭pp̅Ц̴̦Ц̅Ц̴̦ЦQ!̗ǟ̗̗ǟ̴̗̗ǟ̟ǟ٭̗ǟ̟ǟ٭!i( ,麲٭ǟǟ٭pЦ٭p麲Ц٭ǟ٭ǟЦЦ٭ǟ麲̲ЦЦ麲麧ЦǟЦǟms 0ǟ٭̲٭̽ǟ̽ǟ٭٭Ц̲̲٭Цǟ̲ǟ٭ǟЦ{ǟ٭ǟ٭Цǟ٭ǟǟ٭٭Q,{!>ЦЦЦЦ̽Ц٭pЦ٭pǟ̽Ц٭p      !"#$%&'()*+,-./0123456789:<=>{@ABCDMFGHIJKL?NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwy|}ǟǟǟЦ̽Ц٭p٭pǟ̽Ц̽ǟЦЦ0 ,ǟ̽٭Ц̽٭ǟ̽٭٭٭ǟ٭ǟ̽̽Ц{٭ǟЦ{٭ǟǟ٭mQ>̚{٭p̚{̲̚{٭pЦ̚{٭p̽٭̽Ц{̽٭̽٭̽ǟ̽٭̽0 ,mQ G>8̧ЦЦ̧ЦЦ̧ЦЦ̧ЦЦ̽ǟǟ٭̽ǟǟ٭̽ǟǟ٭̽ǟǟ٭%,b mٽ||ٲ>8 s%޽޽ƌǀϖϖϖϖϖϖϖϖ 8||||hhhhhh||ɖ薖ϖϖ򖖖떖Ֆϖ򖖖ߖϖϖ薖薖ϖs  ږږՖϖϖ㖖ږ薖薖ϖ㖖ϖߖϖϖՖՖߖϖ,%b G>% bmӧ޽||ƌ޽ٴhhϖϖϖϖϖϖϖϖϖ||޽ӧٲՖϖϖ򖖖ϖ薖ߖϖϖ떖ϖG(޽޽||hh||||||||||||||hhږϖϖϖ㖖ߖϖږߖϖϖɖϖ>8 繹ݡö럟s Eⱹ٩۽гκ,Jػϰ緷 <靝ɹ¹ʼǮȵǴ̱GGG999孭```$$$___[[[RRRcccSSSbbbccc'''FFF}}}aaakkksssכ{{{uuu PPPگ୭؝}}}΂444ccc)))CCCxxxhhh???|||fffgggyyyVVVjjj٢͠YYYݩڣbbb,,,vvv۟òâcccΦ~~~bbbdddpppuuu888iiiyyyʒ[[[bbbyyyjjjaaa@@@LLLvvvaaa^^^Ŭ⵵LLLcccyyyjjjnnndddQQQ׏ϊ蕕ы螞666www䝝RRR===lll̓OOOWWWlllŶԿeee+++陙ZZZ駧...OOOeeecccְ~~~999EEElllӸ൵YYY[[[(((ZZZqqq;;;,,,𽽽𣣣螞̘ZZZ簰```iii압XXXrrr匌ttt⾾靝www 侾雛޷ڠ鎎񲲲鈈߬Ȱֵꈈސڸ~~~۸ҥ۶ڵ񇇇ٙｽ蛛ޏ؈uuuңƷ̾żƿš󯯯ݑżż󠠠ʬź YYYĭ殮~~~ȬېʚǬ殮Ȭ୭̛ꗗ܈갰Ǟפߴaaaʙ񷷷ɷ뻻紴񐐐壣ବǸԱx` a  ꥥ֫Ȭ﫫ڸ饥驩珏vvvߦ꺺㬬ϣ繹wwwdddTTTWWWű＼uuu۳YYYÍ壣ddd@@@xxx塡塡𽽽梢൵ࢢɭᎎٻ缼Ӳ㽽һ)-HEFR-RSu Castellaron1!Du Castellaron1D-,Hydrology-based Environmental Flow Regime&u Castellaron1! u Castellaron1`-EProduced for the Senate Bill 3 Environmental Flows Allocation Processfs>{ @Bell MTCompObj)aVBFrame0HEFRInputs5~.fedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} SplashScreen Caption = "HEFR Splash Screen" ClientHeight = 4545 ClientLeft = 45 ClientTop = 330 ClientWidth = 9615 StartUpPosition = 1 'CenterOwner TypeInfoVer = 10 End (H  [@}h;R KQDBTahomaH{@$ ":5j(6(!:5                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q s t u v w x y z { | } ~  o+-Ei13/ n``~.~.fo.0CompObj pi19; n``yyf9o:<CompObj"pi38C n``踖踖f?IoBD;CompObj_pi89S n``fqoRTn                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ d w t | y { } ~       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}     ( !"#$%&')*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^abcdenghijklm`opruvwxyz{|}~      !"#$%&'()*+,-./0123456789:<=>{@ABCDMFGHIJKL?NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwy|}                          ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q s t u v w x y z { | } ~  ~g      _z !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~sq;z~i8513 n``~.~.CompObjpfeo24lux` a  j(6( :5j(6(4 #f n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q4(#Water Quality Protection Flow (cfs)uTahomaTH,E5TahomaTDH  X}!g Subsistence FlowsR KQTahoma( 2Tlbl_7Q2E( 4txtbx_7Q2me.E$U#Frame42  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH,"5TahomaT,(Subsistence Flows Percentile5TahomaT8F 1KOptionButton1End  @Tahoma8F 0KOptionButton2End@Tahoma(Q95O5Tahoma(H  X}R KQTahoma 04txtbx_SubThresholda 2Llbl_SubThresholdOEnter Subsistence threshold percentile value, For example, to set it as 25th percentile enter value 0.25. Default is set toCompObjlpCompObjQVaVBFrame)PROJECTwmX*= median( V\OptBtn_thres( W\OptBtn_Q95esO X24lbl_Q95OOEnter Subsistence threshold percentile value, For example, to set it as 25th percentile enter value 0.25. Default is set to median  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH,5Tahoma5@Fe f  -u ) !"#$%&'(*+,.01;3456789:<=>H@ABCDEFG/IJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}1{0KMultipeaks_MultiplieruTahoma@H  }!High Flow PulsesR KQTahoma\( 4txtbx_MMHFPu( `chkbx_MMHFPu  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q     !#%&'()*+-./012345678:<=>@ABCDFGHOJMNjQSTUVWYZ[\]^`bcdfghikmoprstvwxyz{|}~H,5Tahoma@FL{0KMultipeaks_MultiplieruTahoma,(Estimate Of Bankfull (cfs)(5TahomaH, {5Tahoma@H  S}! Overbank EventssR KQTahoma( 4txtbx_MMOBFe( `chkbx_MMOBF n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q,HighN5TahomaFR,MediumFR@5TahomaFR,LowN5TahomaFR@H,{0.755TahomaFR@H,{0.55TahomaFR@H,{0.255TahomaFRe, R2Llbl_BankFull{",S4txtbx_BankFullss"  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19qH, 5Tahoma( USGS Gage ID 5Tahoma0,Start Month of First SeasonT5TahomaAH, 5Tahoma$AECompObj_pi89H, Normal5Tahoma , Season TypeD5Tahoma,,Episodic Events OptionU 5TahomaAH,S5TahomaPH  G >}> HEFR Run Descriptive InformationR KQTahoma ,#4txtbx_USGSGageID { $2<lbl_USGSGage{Enter Subsistence threshold percentile value, For example, to set it as 25th percentile enter value 0.25. Default is set to median 12Plbl_StartOfWinterti@ Enter Subsistence threshold percentile value, For example, to set it as 25th percentile enter value 0.25. Default is set to median,38cmbx_WinterStart0,>Dcmbx_SeasonTypet 0;2@lbl_SeasonTypeet4B2Llbl_frequencyChoicei'{0  C8cmbx_frequencyChoice5%{  n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q((Name of the IHA AnalysisuTahomaH,+5TahomaAH,,*,5Tahoma((IHA Projects Directoryis; uTahoma4H  0}> IHAR KQTahoma4(2Hlbl_IHAAnalysisNameor0)4txtbx_IHAPrjDirPatho0,8cmbx_IHAAnalysisList]q0 02Hlbl_IHAPrjDirss (Run HEFR uTahomaFR( Exit HEFRme. uTahomaFR(Help uTahomaFR( Check Inputs uTahomaFR!C4f n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q.0 8cD5TahomaFR<=>H@<H  9 }eg Watch WindowR KQTahoma4, 92,lbl_MsgHlpow mnopBͫ< 2 2HG     !#%&'()*+-./012345678:<=>@ABCDFGHOJMNjQSTUVWYZ[\]^`bcdfghikRoot Entry F<͡Z0Define High Flow Pulses and Overbank Events byR KQTahoma,FTchkbx_DurationssIRoot Entry[Workbook\,_VBA_PROJECT_CUR" 55VBA*5rLH  N }!Flow Recommendation LevelsR KQTahoma (I28lbl_WetR, J2<lbl_Averagey (K28lbl_DryR$L<txbx_WetI( M<txbx_Average$N<txbx_Dry"  n``Microsoft Forms 2.0 FrameEm( DXchkbx_Peakti( ETchkbx_Volume] <0KTo Distribute HEFR Workbook@TahomaTahomaDH  [}>qIntermittent StreamsR KQTahoma@8[Chkbx_IntermittentStreams{ rame_SubsistenceFlow0#frame_HighFlowPulseo0#frame_OverBankFloweo4#frame_DescriptiveInfo &