ࡱ>   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FE3tcWorkbook: _VBA_PROJECT_CUR"87;8Tm;8VBA ;8@^;8  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIKLMNOPQRSTUVWXYZ[\]^_abcdeghijlmnopqrstuvwxyz{|}~_button9# Cancel_button9! CategoryMaximumL! CategoryMinimum#  ComputeRanges:& ContentsText;  CopyInputs:)% CreatePlotChart:% CreatePlotTable:#  DoBestOutputs:y% DoLikelyOutputs:q& DoOutputHeadings:M"  DoPlotLabels:$ DoWorstOutputs:e!  FormatSheet: h:' " HelpText; InitPlot:1input`V102025)input`W13  ModelSheet: MultCols  MultOutCells#  MyCreateChart:$ Newbook_button9$Newbook_button9 % Newsheet_button9!%Newsheet_button9"  NonContig NumVars: ObjectID: OutputLabelFperc`(\0.570.690.810.931.05iperc` \ 0.50.60.70.80.911.11.21.31.41.5 PlotButtonHandler PlotInputLabel$ PlotModelSheet:"  PlotObjectID: PlotOutputLabel% PlotReportSHeet:  ;6  ;0' ProcessPlotNewBookButton( ProcessPlotNewSheetButton) ProcessPlotThisSheetButton!  ReportSheet:' RestoreInputCells:. ScaleSmartVBA.ScalePlotCategory+ ScaleSmartVBA.ScalePlotValue) ScaleSmartVBA.ScaleTornado#  SensInputCell:  ɀ Worksheet"&Tools&WindowChart"&Tools&Window(Visual Basic Module"&Tools&Window\pMichael R Middletonn Ba=2  ThisWorkbook߯=%a8=@"1Arial1Arial1Arial1Arial1Arial1* MS Sans Serif1.Times New Roman1* MS Sans Serif1.Times New Roman1Arial1Arial1Tahoma"$"#,##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.0000000 0.0000 0.000000 0.00000 .00% 0.00000000 0.000000000 0.0000.0 0.0%=8_("$"* #,##0.0_);_("$"* \(#,##0.0\);_("$"* "-"??_);_(@_)94_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"??_);_(@_)4/_(* #,##0.0_);_(* \(#,##0.0\);_(* "-"??_);_(@_)0+_(* #,##0_);_(* \(#,##0\);_(* "-"??_);_(@_) "$"#,##0                + ) , *         ! !    ("@ @    ("@      "8   "@  " @  !8"@   (" @  ("@ !8"@ )8"@  "@ 8 ``i̜̙3f3333f3ffff333ff333f33f33BBB\` `Binsc OverwriteiSensItContentsDialogBoxnSensItHelpDialogBoxt HelpFiles SensItHelpVBAݷSpiderMainDialogBoxSpiderNewLogicSpiderErrorCheckR ScaleSmartVBA SpiderVBA0 SensitXLM9PlotMainDialogBoxFVPlotVBAVPlotErrorCheck$W PlotNewLogicWTornadoMainDialogBoxYsTornadoNewLogics TornadoVBA7tTornadoErrorChecktTryoutDialogBox TryoutVBAӆ AutoOpenSubBEducProfTryout AutoCloseSub    BaseCaseValue& bin;  ButtonPlotOK ButtonSpiderOK ButtonTornadoOK CalcMode#  Cancel$ SensInputLabel: $ SensOutputCell:" % SensOutputLabel: $ SensStartValue:%   SensSteps#  SensStepValue:' #  SensStopValue:) #  SetLikelyCase:b" SpiderButtonHandler( SpiderVBA.Newbook_button1) SpiderVBA.Newsheet_button1* SpiderVBA.Thissheet_button1 StartPlot:" StartTornado:  Step#  tempBestCases: $ tempInputCells: % tempInputLabels: % tempLikelyCases: $ tempOutputCell: % tempOutputLabel: $ tempWorstCases: & Thissheet_button9P# TornadoButtonHandler) TornadoVBA.Newbook_button1* TornadoVBA.Newsheet_button1+ TornadoVBA.Thissheet_button1" TryoutButtonHandler  UnequalRows  ValueMaximumu$ ValueMinimum VarCount H x3  @@   XHelpTextSENSIT ContentsTextSensIt Arial Reg 10 InstallationCW50Sensitivity Analysis Add-InOverviewPlotfor Windows and MacintoshPlot Input VariablePlot Output Variable9To run SensIt, start Excel and open the SensIt.xla file. Plot Input Values7SensIt adds a Sensitivity Analysis command to the ToolsSpiderSpider Input Variables.subcommands: Plot, Spider, Tornado, and Help.Spider Output VariableSpider Input Changes********************TornadoTornado Input VariablesTornado Output Variable INSTALLATIONTornado Input ValuesTryout License&Here are three ways to install SensIt:Professional LicenseEducation License8(1) Start Excel, and use Excel s File | Open command to(SensIt Purchase by web using credit card3open the SensIt.xla file from floppy or hard drive.*SensIt Purchase by postal mail using checkWarranty4(2) Copy the SensIt.xla file to the Excel | Library About SensIt>subdirectory of your hard drive. Start Excel, and use Excel s4Tools | Add-Ins command to load and unload SensIt asneeded. help textblank4(3) Copy the SensIt.xla file to the Excel | Startup?subdirectory of your hard drive, in which case the file will be"opened every time you start Excel. asterisksBAll of SensIt s functionality is included in the SensIt.xla file. -There is no separate setup file or help file. contents itemTo uninstall or delete SensIt:;(A) First, use your file manager to locate SensIt.xla, and%delete the file from your hard drive.>(B1) If SensIt is listed under Excel's add-in manager and the<box is checked, when you start Excel you'll see "Cannot find<..." Click OK. Choose Tools | Add-Ins, uncheck the box for>SensIt; you'll see "Cannot find ... Delete from list?" ClickYes.>(B2) If SensIt is listed under Excel's add-in manager and the<box is not checked, start Excel and choose Tools | Add-Ins. =Check the box for SensIt; you'll see "Cannot find ... Deletefrom list?" Click Yes.OVERVIEW0Before using the SensIt options, you must have a9spreadsheet model with one or more inputs and an output. 8All three SensIt options make it easy for you to see how1sensitive the output is to changes in the inputs.7Use SensIt s Plot option to see how your model s output.depends on changes in a single input variable.9Use SensIt s Spider option to see how your model s output6depends on the same percentage changes for each of themodel s input variables.:Use SensIt s Tornado option to see how your model s output;depends on ranges you specify for each of the model s input variables.PLOTPLOT INPUT VARIABLE=Plot Input Variable s Cells: Option: In the Label edit box,=type a cell reference, or point to the cell containing a text>label and click. Required: In the Cell edit box, type a cell:reference, or point to the cell containing a numeric valuethat s an input to your model.PLOT OUTPUT VARIABLE>Plot Output Variable s Cells: Option: In the Label edit box,?reference, or point to the cell containing a formula that s theoutput of your model.PLOT INPUT VALUES8Plot Input Values: Type numbers in the Start, Step, and9Stop edit boxes to specify values to be used in the input2variable s cell. Cell references are not allowed.<Send Output To: Select the destination for the output table9and chart. If you send output to This Worksheet, enter a=Cell reference for the top left corner of the output. Output=options are not available on the Macintosh; output is alwayssent to a new worksheet.<Click OK: SensIt Plot uses the Start, Step, and Stop values:to prepare a table of values. Each value is copied to the;input variable cell, the worksheet is recalculated, and the?value of the output variable cell is copied to the table. (You>could do this manually using the Edit | Fill | Series and Data9| Table commands.) SensIt Plot uses the input and output>values to prepare an XY (Scatter) chart; optionally, the text>in the label cells you identified are used as the chart s axis<labels. (You could do this manually using the ChartWizard.)SPIDER;model s input variables. Before using Spider, arrange your7model input cells in adjacent cells in a single column,:arrange corresponding labels in adjacent cells in a single9column, and be sure your model s input cells contain base case values.<For example, if your model has five inputs, the names of the<five inputs could be text in A1:A5. The input cells of your3model could be numbers in B1:B5; when you change a6number in one of these cells, the output of your model9changes; enter base case values in the input cells B1:B5before using Spider.SPIDER INPUT VARIABLES9Spider Input Variables Ranges: Labels edit box: Type a7range reference, or point to the range (click and drag)6containing text labels. Cells edit box: Type a range:reference, or point to the range containing numeric values;that are inputs to your model. Each range must be adjacentcells in a single column.SPIDER OUTPUT VARIABLE=Spider Output Variable s Cells: Label edit box: Type a cell;reference, or point to the cell containing a text label and>click. Cell edit box: Type a cell reference, or point to the:cell containing a formula that s the output of your model.SPIDER INPUT CHANGES9Spider Input Changes (%): Type numbers in the Start (%),8Step (%), and Stop (%) edit boxes to define the percents=that will be multiplied times the current value in each input:Click OK: SensIt Spider uses the Start (%), Step (%), and=Stop (%) values and the original (base case) numeric value in9each input variable cell to prepare a table of percentage>change input values. For each input variable, all other input9values are set at their base case values, each percentage<change input value is copied to the input variable cell, the6worksheet is recalculated, and the value of the outputAvariable cell is copied to the table. The output variable values8are also expressed as percentage change of the base case6output value. SensIt Spider prepares two XY (Scatter):charts; the horizontal axis is percentage change of input:variables; the vertical axis is model output value on one8chart and percentage change of model output value on the?other; the input variables labels are used for chart legends.TORNADO:variables. Before using Tornado, arrange your model input3cells in adjacent cells in a single column, arrange:corresponding labels in adjacent cells in a single column,;and arrange Low, Base, and High input values for each input=variable in three separate columns. Alternatively, the three9columns containing input values can be worst case, likelycase, and best case.9changes. The Low input values could be numbers in D1:D5,9chosen as the minimum possible value you think each input:variable could be. The Base input values could be numbers:in E1:E5, chosen as the most likely v<alue for each input; 2you might also have these same numbers in B1:B5 as=current inputs to your model. The High input values could be6numbers in F1:F5, chosen as the maximum possible value)you think each input variable could be. TORNADO INPUT VARIABLES:Tornado Input Variables Ranges: Labels edit box: Type aTORNADO OUTPUT VARIABLE>Tornado Output Variable s Cells: Label edit box: Type a cellTORNADO INPUT VALUES9Tornado Input Values Ranges: In the Low, Base, and High9edit boxes, type a range reference, or point to the range;(click and drag) containing numeric values for each of yourmodel s inputs.;Click OK: For each input variable, SensIt Tornado sets all<other input values at their Base case values, copies the Low8input value to the input variable cell, recalculates the>worksheet, and copies the value of the output variable cell to8the table; the steps are repeated using each High input<value. For each input variable, SensIt Tornado computes the9range of the output variable values, sorts the table from8largest range down to smallest range, and prepares a barchart.TRYOUT LICENSE9Decision Support Services grants a license to prospective<purchasers to use the Tryout version for a 15-day evaluation0period. You can download the Tryout version from3www.decisiontoolpak.com. Please share copies of the:Tryout version freely with prospective purchasers. You are7granted permission to make as many copies of the Tryoutversion as you wish.=If you want to continue using the software after 15 days, you8must purchase a Professional or Education license. Visit1www.decisiontoolpak.com for ordering information.:Instructors who require their students to use the software<must obtain an Education license, either by using a textbook;that has a license or by purchasing a license from Decision*Support Services info@decisiontoolpak.com.PROFESSIONAL LICENSE;If you have purchased the Professional version, the license5allows you to use one copy of the software on any onecomputer at any one time.EDUCATION LICENSE:Decision Support Services has granted a license to certain;textbook publishers to include the Education version with a9specific edition. According to such an agreement with the3publisher, the Education version is for use only by>instructors and students who are using a specific edition of a&textbook covered by the license. Visit0www.decisiontoolpak.com for a list of textbooks.<universities, schools, departments, and instructors to allow4students to use the Education version. The Education8version is for use only by instructors and students in a9specific university, school, or department covered by the;license. To purchase an Education license, contact Decision-Support Services at info@decisiontoolpak.com.(SENSIT PURCHASE by web using credit card9You can order with VISA, MasterCard, American Express, or;Discover credit card from our order-taking service, DigiBuy(Maagnum Internet Group).<Use your internet browser to visit www.digibuy.com directly,,or visit www.decisiontoolpak.com for a link.:After you enter quantity and billing/shipping addresses at7www.digibuy.com, you will be connected to DigiBuy's web;sites where (a) you will enter your credit card information9securely or (b) you will be able to order by fax or phone8without placing your credit card number on the internet.4DigiBuy will notify us, and we will mail you printed2documentation and a disk with the latest version. =If you have any questions about the status of the shipment of*your order or about refunds, contact us atorder@decisiontoolpak.com.*SENSIT PURCHASE by postal mail using check6Alternatively, you can order with money order or check:directly from Decision Support Services. In January, 2000,6the price of SensIt Professional is $29.00 (California9residents, add sales tax) plus $4.00 shipping to U.S. and7Canada, $6.00 elsewhere. Make money order or check (in4U.S. funds drawn on a U.S. bank) payable to DecisionSupport Services, and mail to:Decision Support Services2105 Buchanan Street, #1San Francisco, CA 94115WARRANTY:Users of SensIt must accept this disclaimer of warranty: 1SensIt copyrighted software and documentation are6provided on an 'as is' basis. The author and Decision6Support Services disclaim all warranties, expressed or9implied, including, without limitation, the warranties of9merchantability and of fitness for any purpose. The user;assumes all risks as to the quality and performance of this4software and documentation. The author and Decision3Support Services assume no liability for indirect, :consequential, or incidental damages which may result from6the use or misuse of SensIt. Some states do not allow<the exclusion of the limit of liability for consequential or9incidental damages, so the above limitation may not apply<to you. This agreement shall be governed by the laws of the@State of California and shall inure to the benefit of the author1and Decision Support Services and any successors,3administrators, heirs, and assigns. Any action or <proceeding brought by either party against the other arising>out of or related to this agreement shall be brought only in a?state or federal court of competent jurisdiction located in the:city and county of San Francisco, California. The parties:hereby consent to in personam jurisdiction of said courts.2the evaluation period, purchase fee, and support. ABOUT SENSIT7SensIt for Excel was originally developed by Michael R.9Middleton of the University of San Francisco and James E.9Smith of Duke University. Thierry Crifasi and Renu Gupta-provided assistance with subsequent versions.5Please send comments about SensIt and suggestions forimprovements to: Michael R. Middleton University of San Francisco 2130 Fulton Street San Francisco, CA 94117# Internet: middleton@usfca.edu6SensIt for Excel is copyrighted material. For license&and distribution information, contact: Decision Support Services 2105 Buchanan Street, #1 San Francisco, CA 94115 Voice/Fax 415-673-6217# http://www.decisiontoolpak.comMichael R. MiddletonTornado init/resultname ModelSheet $A$4:$A$13tempInputLabels $B$4:$B$13tempInputCells$A$18tempOutputLabel$B$18tempOutputCell StartTornadoNumVars $D$4:$D$13tempWorstCases $E$4:$E$13tempLikelyCases ReportSheet $F$4:$F$13 tempBestCases$A$3SensInputLabel$B$3 SensInputCellEmptyReferences$A$8SensOutputLabel$B$8SensOutputCellSensStartValue SensStepValue CopyInputs SensStopValue 6/19/1997DoOutputHeadings SetLikelyCaseDoWorstOutputsDoLikelyOutputs DoBestOutputsRestoreInputCells ComputeRanges MyCreateChartObjectID FormatSheetPlot PlotModelSheet StartPlotInitPlot DoPlotLabelsCreatePlotTableCreatePlotChart PlotObjectID)for Microsoft Excel 97 and later versions School of BusinessGSensIt for Excel 1.13Copyright 2002BAll Rights Reserved 2002-07-303SensIt 1.13 is like 1.12 with Excel 97 compilation.0menu. The Sensitivity Analysis command has fourR {`h_ 6l?"r#%5t& ܷ(. *F ,@.80q 2lO4/6RH8t:h<'>B@3ByC?EF 0soH 0J KNM N@|P\R7TU<V]WNW5>XXYY Zx*0* ZOS0ht00XkDn w5=tw0n00 0000Ot0VarCountimumHandlert_button1ory3=euw:< 0w8?6=?@0sT0xw ?=H=3=w0sT0L wXk wwcwbw9@Tw0Wx0RT0,LC[{0AT0Lw0лr062010y0 X+08<nx0=alue for each input; 2you might also have these same numbers in B1:B5 as=current inputs to your model. The High input values could be6numbers in F1:F5, chosen as the maximum possible value)you think each input variable could be.  ɀ  a_c  dMbP?_*+%&A Page &P"d,,??U}  T0(, $@?*@@0@@4@@:@@@@@D@@I@$@P@$@ T@$@>@ Sheet1 ɀ d  dMbP?_*+%i&A Page &P"P??U(  r  0Đ@A@7]@Đ !<"SensIt 1.13 Education - Overwrite< !ll  s *8?!]8 $ <OK< ll  s *?(2]T $<Cancel< rr  0 @A@.%]@  M<NOutput will overwrite non-empty cells. Press OK to overwrite cells in range:< M  Hl@A@Filename6n]@l )<*[Sensit.0625.1820.xls] Sheet4! $I$1:$L$16< )>"@ ɀ j  dMbP?_*+%i&L&F &A&R&D &T&?'?"d??UT <(  r  0̕@A@ 2"]@̕  %<&SensIt 1.13 Education - Help Contents< %rj  0@A1]J   9   B?Index_OK!]p $ <OK<   Jl?Index_Cancel%0!]l@ $ <Cancel< >"@ ɀ o  dMbP?_*+%i&L&F &A&R&D &T&?'?"d??Ur0Z( FFFG  r  0̚@A@K&]@̚ <SensIt 1.13 Education - Help< rj  0@AJ %]JL  9  F?Help_Close4"D%] $ <Close<   dl?4RiskSimHelpContentsButton"&%]l $ <Help Contents< >"@ ɀ D)vjBjʣ.  dMbP?_*+%&AMHP LaserJet 3100 CDGX XXx  "B,??U} $ } 2!} } m%} T0@ :    0gw=wG=GG== #  # '$?D#B@  %$.@L#B@    %$J@  Q % $R@  % $S@ % $U@  %$W@   %$^@  W %$ a@    %  $@b@  % ' $ c@ D #B@   %  $g@   %  $ j@   %  $@k@   %$ l@ )$`o@   )$q@ )'$q@D#B@   * '$r@D#B@$$$$$$$$$$  ! *"'$t@D#B@ %#'$u@D#B@  $ &%'$`w@ D#B@  &  '  ( ) *  + )  , *  - . *  / *  0 1D lmnSEEAEEEEMEAAEAECeGCG T0!"#$%&'():*+,-./0123045G6w=78w9G:=;G<G==>=?  * ! 2 !)" # 3 $ 4% & 5 ' 6 ( 7 ) 8 * 9+ , : - ; . < / =0 1 2 3 4 >5 6 ? 7 @ 8 A 9 B: ; C < D= > E ? FD4l        @T0ABCDEFGHI:JKLMNOPQRS0TUGVw=WXwYGZ=[G\G]=^=_ @ GA B H C I D JE F G H I KJ K C L DM N LO P M Q N R O S P T QU V RW X S Y N Z O [ T \ U] ^ V_ Dl         `T0abcdefghi:jklmnopqrs0tuGvw=wxwyGz={G|G}=~= ` W a X b Yc d Z e [ f'\ g ] h ^i j _ k ` l a m b n c o d p e q f r gs t u v w hx y E z F { i | j } k ~ l  mD(l     T0:0Gw=wG=GG==  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~         Y  ZD l        T0:0Gw=wG=GG==  [ '\ '] '^                      H  I      D,l    T0:0Gw=wG=GG==     n  o  p  q              v  w  x  y  z     }  ~   D(l     T0:0Gw=wG=GG==         Z  [ '\ '] '^              )) ) ) ) )D$l      T0 :    0Gw=wG=GG== ) ) )) ) ) )) ) ) ) ) ) ))) )) ) ) )) ))) )) ) ) ) ) )Dl         T0!"#$%&'():*+,-./0123045G6w=78w9G:=;G<G==>=? ) !)") #) $) %) &) ') () ))*) +),)-) .+/) 0) 1) 2)3) 4) 5)6) 7) 8) 9) :) ;)<) =) >)?,Dl       @T0ABCDEFGHI:JKLMNOPQRS0TUGVw=WXwYGZ=[G\G]=^=_ @) 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+ [+ \+ ]+ ^+ _+Dl       `T0abcdefghi:jklmnopqrs0tuGvw=wxwyGz={G|G}=~= `+ 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(l     T0:0 Gw=wG  R                        S  T   (U V8P       >@ Sheet2 ɀ&A Page &PMZHP LASERJET 5P/5MP (HP)&X&6ә@X"d??> d ɀ ̸  dMbP?_*+%i&L&F &A&R&D &T&?'?"d??U@x( .h r  0@A@ 9+]@8  <SensIt 1.13 Education - Spider<   s >PA@input_lab " ]& `P     s @A@input_cell "]& `      s @A@output_lab"]& `0      s BLA@output_cell"]& `L   xx  s 6A@ Start. 7 ]& `  <50< zamvv  s 4A@ Step. 7]& ``  <10< ll_cvv  s 4HA@ Stop.7]& `H <150< p   H?SpiderOK)1],9 $ <OK<   >?cancel$,] $ <Cancel< rr  0@A@  ]@h  <Labels< rr  0H@A@ ]@H! <Cells < rr  0A@ #]$`! <Input Variables' Ranges< rr   0A@ #]$ ``" <Output Variable's Cells< ||   :h@A@f ] @h#  < Label Label < ||   :ȹ@A@t ] @ȹ# <Cell < rr  08A@ 6*]$`8h$ <Send Output To<   \غ@A@Thissheet #%]Z غ%  t9E "<This Worksheet<   Zx@A@Newsheet #&%]Z xX&(  9D " <New Worksheet<   `@A@Newworkbook &)%]Z '@  t9C " < New Workbook<   `ļ?*SpiderMainHelpButton.6],ļ(XT9B $<Help< rr  04A@$8]$`4) <Input Changes (%)< rr  0@A@% - ]@8*  < Start (%)< rr  0@A@% -]@* < Step (%)< rr  0D@A@%-]@D+ < Stop (%)<   H@A@cell_lab '"]@0, <Cell< vv  s 4A@ Cell' 5"]& `,    HX@A@name_lab#'%]@X- <Name< vv  s 4A@ Name'#5%]& `(.  >"@ ɀ&A Page &PMZHP LASERJET 5P/5MP (HP)&X&6ә@X"d??> d ɀ&A Page &P"d??> d ɀ&A Page &P"d??> d ɀ&A Page &P"d??> d @ɀ 81A>d e((Y479  dMbP?_*+%&L&F &A&R&D &T&?'?"b??U} $} 2} } } m} $} } m} } $} I} } $ } } $ } } } $ 1T0 :    G w =  0 !G w      = G = = ~ ? ~   ~ 5@  l& B[Eagle.xls]Sheet1 ,CalcMode"BX B      !( NonContigBX * UnequalRowsBX  "  #'MultColsBX +  MultOutCellsBX #   1$B`  $ %  B7     & '  ( BW  )$$@CK"AL  *  +D. OutputLabel'C'!CN"BX   ,  - .& B[Eagle.xls]Sheet1 * # B  /  0* #B * #AB * #B * #B * #B    * #5B * # B * #B * #B  1  2 CB   B7  3  4  D lh>LUHlGK[:>Jjd4cW????W?I?W?R T0! " # $ % & ' ( ) :* + , - . / G0 w1 =2 3 04 !G5 w6 7 8 9 : ; =< G= => =?  5! ! #KAl  6 7!!" #JAl! !"# #NAl" " 8 " 9#!#$ #MAl# $!$% #OAl$ %!%& #LAl% ~ % @@ % :!&' #IAl& ')B7' ~ ' Y@ ' ;( )<)* C4Bg) ~ ) 0@ ) =*H*+2:DD"NCK"AL "NBm *">* ++,B4+ ,-kTornado Analysis for C run on AJmmm dd, yyyy (hh:mm AM/PM)A0:DD"NB`, 3-.:DD"NBm- B./, Input Values:DD"NB`. /0B /  01B+ 0  312:DD"NBm 1  D23.Input Variable:DD"NB` 2  !34 B- 3  945#Low:DD"NB` 4  :56$Base:DD"NB`:67$High:DD"NB`L786)+:DD"N:DD"NBm!89 B-9:B+6:; 'C'!CK"B23;<:DD"NBm$<=B5$=>B56>? 'C'!CO"B23?@:DD"NBmDg lgAYKKcAReGSb0/EV3K>>P%!:7((:@T0ABCDEFGHI:JKMNOPGQwR=ST0U!GVwWXYZ[\=]G^=_=$@AB5$ABB56BC 'C'!CL"B23CD:DD"NBm$DEB5$EFB56FG 'C'!CI"B2G3GH:DD"NBm$HIB5$IJB5OJK9'C'!CJ":DD"NB2KMB7 M?MN C4Bg3NO:DD"NBmPOP:Output Values (C&):DD"NB`PQBQRB+9R=S#Low:DD"NB`:ST$Base:DD"NB`:TU$High:DD"NB`LUV6)+:DD"N:DD"NBm!VW B-WXB+;XY%Swing: DD"NB`3YZ: DD"NBm=Z['Percent: DD"NB`[\B+\>\](Variance: DD"NB`L]^6)+: DD"N: DD"NBm!^_ B-__`B+BX((:7((:A((S17T"!=>>P%!?7A!LP%`T0bcefghijk:lmnoqrGswt=uv0w!Gywz{|}~=`bB7 b@abcK:DD"NC$"N'C'!CJ"B2ceB7 eA-efVarCountC$B]fgG@'Doing Low Cases for Tornado: Variable @CY@.BzwghaA:DD"NCY"N'C'!CJ"CY"NB2hi@B:ij$@'C'!CM"B2?jk)A:DD"NCY"NBmk(kl@B5(lm@B5wmnaA:DD"NCY"N'C'!CJ"CY"NB2noAoqB7 qBqrB6rs 'C'!CM"B2sEst/:DD"NC$"NBm$tuB5$uvB5Ivw3 BaseCaseValue'C'!CM"AZBXwyB7 yC-yzVarCountC$B^z{H@(Doing High Cases for Tornado: Variable @CY@.Bzw{|aA:DD"NCY"N'C'!CJ"CY"NB2|}@B:}~$@'C'!CM"B2?~)A:DD"NCY"NBm(@B5< s?a{">C6,{,:S((M?b{">CT0:Gw=0!Gw=G==(@B5waA:DD"NCY"N'C'!CJ"CY"NB2AB7 DaK:DD"NC$"N'C'!CJ"B2E/:DD"NC$"NBmB4B7 E C4BgXB ValueMinimum:DD"NC$"NBBXXB ValueMaximum:DD"NC$"NBBXE/:DD"NC$"NBmB2E/: DD"NC$"NBm$B53: DD"NBm0=ABS(RC[-2]-RC[-4])B`E/: DD"NC$"NBmB9t^ =(RC[-1]^2)/R@D@@C@@ D@: DD"NB`E/: DD"NC$"NBmB9" #0.0%B*3: DD"NBm! B-B+D.Total Variance: DD"NB`3: DD"NBm>(=SUM(RC[-3]:R[C$ ]C[-3]^2)BbB7BQ X,{ sI!1\\II(74IxI&7%+H7BT0:Gw=0!Gw=G== F:$Creating Chart for Tornado.Bzt^R@D@C@@D@:RC$DC@ DBmB='RDC DB'B2 G& zRC$DCD?&@RC$ DC DG@&@B  Chart 2'C4'!RDCD:RC$DCD,RDCD:RC$DCD,RDCD:RC$DCD#&BNB *C4 C%B^# Axis 1Bm/BT-CBW# Axis 1Bm)#8#X#WB# Axis 2Bm/BT S2Bm7!B T# Axis 2Bm5d2B # Axis 2Bm)BW! PlotBm5B T-VarCountC$B/@Text S1PCYBmO9@='C4'!RCYDCDB`/@Text S2PCYBmO9@='C4'!RCYDCDB`A$B|K5.="SensIt - Sensitivity Analysis - Tornado"B`Db l LxA!.'31'A'3#;'9'-%913S=S(T0:Gw=0!Gw=GB]B7 H C4BgI3:DD"NC$ "NBm  B/`JRDCD:RC$ DC DBmB YC&FPage &P??BBz3:DD"NBmB7   I J& B[01061525.XLS]Bins# 1$B`B7 KBW& B [Model.xls]Model, Box, Output* #B* #B>0 1W$d(k*A(  H1.E#T0:Gw=0!Gw=* #B* #BB7 LH2PlotOutputLabel'C+'!C<"BXG1PlotInputLabel'C+'!C:"BX M C.BgoSensitivity Analysis for C+ run on AJmmm dd, yyyy (hh:mm AM/PM)A0:DD"NB`;%Input:DD"NB`# C: B>(AVariable:DD"NB`A8"AC*:DD"NB`A<&Output:DD"NB`# C< B>(AVariable:DD"NB`A8"AC-:DD"NB`AL6)+:DD"N:DD"NBmBB+L6)+:DD"N:DD"NBm! B-B7 NO9'C+'!C9":DD"NB2# h#?BX;% SensStepsC@C=C?ABX<##ZK1?'L'F'J1L'F'P"!P%a'T0 :    Gw=0!Gw=G==)StepC>B`J@"Evaluating Model for Plot: Value @CH@@.@BzK5@C=CCH'C+'!C9"B`aKA'C+'!C9":DD"NCH"NB2@B:$@'C+'!C;"B2E/A:DD"NCH"NBm(@B5( @B5  @AO  9:DD"N'C+'!C9"B23  :DD"NBm  B4I 3:DD"NC>"NBm  B/_ICategoryMinimum:DD"NC>"NBBX_ICategoryMaximum:DD"NC>"NBBX\F ValueMinimum:DD"NC>"NBBX\F ValueMaximum:DD"NC>"NBBXB7 O7!Creating Chart for Plot.BzB2 P(' jRDCD%@%@RDCDC@ @B  Chart 13C: C< A&B$B@'C.'!RDCD:RC>DCDInput VariableC-B 2C: A&C< B$A@'C.'!RDCD:RC>DCDC*Output VariableB /C: C< B$A@'C.'!RDCD:RC>DCDInput VariableOutput VariableB A {@'C.'!RDCD:RC>DCDC*C-B B X-dOe,>S,,!S7!M$cc``I763 T0!"#$%&'():*+,-./G0w !Ac!"MRDCD:RC>BDCDBm"#B#Y#$C&FPage &P??B*$%C. C,B^#%& Axis 1Bm)&'#7#X#WB#'( Axis 2Bm)()#6# # B!)* PlotBm5*+B T$+,B|H,-2+="SensIt - Sensitivity Analysis - Plot"B`-.B]3./:DD"NBm/0Bz00B7&@gg.'-'-%9(L7 >@ ɀ [:  dMbP?_*+%i&A Page &P"P??UP|(  r  0@A@ 9/]@0 <SensIt 1.13 Education - Plot<   X?"PlotMainOKButton+3],41DR(9 $<OK< İ|  Z,?*PlotMainCancelButton%.!],1 $ <Cancel< rr  0A@ #8.]$`2 <Send Output To<   p<@A@(PlotThisSheetButton $'%]Z <\3\R  x93 "<This Worksheet<   n@A@&PlotNewSheetButton '*%]Z 4tR  x92 " <New Worksheet<   l|@A@$PlotNewBookButton *-%]Z |5R  91 " < New Workbook<   d@A@.PlotThisSheetCellLabel!$'&]@47 <Cell<    b,@A@,PlotNewSheetNameLabel!''*] @,8 <Name<    s \A@2PlotThisSheetCellEditBox)$7']& `8     s ZA@0PlotNewSheetNameEditBox)'7*]& `9  rr   0DA@ $]$ `D: <Input Variable's Cells< rr   0@A@ ] @L;  < Label (Opt.)< rr  0@A@ ]@; <Cell<   s HXA@PlotInputLabel #]& `X<    s FA@PlotInputCell#]& `D=  rr  0 A@ $!]$` = <Output Variable's Cells< rr  0\@A@ ]@\>  < Label (Opt.)< rr  0@A@  ]@HA@PlotStart- 7]& `HC  ~~  s <A@PlotStep-7]& `D  ~~  s <A@PlotStop-7]& ``E    \?&PlotMainHelpButton08!], FR,9) $<Help< >"@ ɀ&A Page &P"P??> P ɀ&A Page &P"d??> d ɀ&A Page &P"d??> d ɀ X  dMbP?_*+%i&L&F &A&R&D &T&?'?"d??U`j(  r  0@A@ <*]@H < SensIt 1.13 Education - Tornado<   s >0A@input_lab$ ]& `0XI    s @A@input_cell $]& `J     s @A@output_lab$]& `J    s B,A@output_cell$]& `,K  tt  s 2A@Low-: ]& `LL  vv  s 4A@ Base- :]& `L  vv  s 4(A@ High-:]& `(M    \@A@Thissheet"%]Z dNR  @d9T "<This Worksheet<   Z@A@Newsheet" %%]Z OR  @9S " <New Worksheet<   `D@A@Newworkbook% (%]Z DPR  d9R " < New Workbook<   H@A@Cell_lab$+!]@"@ ɀ&A Page &P"d??> d ɀ&A Page &P"d??> d ɀ&A Page &P"d??> d ɀ su  dMbP?_*+%i&A Page &P"P??9Up(  `  S A@?;]`(` <SensIt 1.12 Tryout< [  Z`?$TryoutOrderButton(6=9],``4S_9U $ O<Ordering Information< e:rr  0 aA@->:]$` axa  rr  04a@A@.=5n]@4a b <I understand that I may use this tryout version of SensIt only for evaluation and that any other use requires purchase of the commercial version.< rr  0a@A@ >n]@ab s<tSensIt Tryout Version Copyright 2002 by Decision Support Services 2105 Buchanan Street #1, San Francisco, CA 94115< Ssrr  0a@A@>]@apc <Thank you for trying SensIt.< rr   0Db@A@>%] @Dbd B<CThis is a fully functional tryout version for evaluation use only.< +Brr   0b@A@>n] @bd <You can purchase the professional or education version of SensIt with check or charge card by mail, phone, or Internet: www.decisiontoolpak.com< rr   0c@A@">'%] @che i<jYou will receive the latest version on disk with printed documentation and a 30-day money-back guarantee.< irr   0dc@A@'>,%] @dcf N<OThe professional and education versions do not display this purchase reminder.< {Nrr   0c@A@>!] @cf :<;Click the "Ordering Information" button below for details.< :  T8d?$TryoutAgreeButton6&9]8d`g $<I Agree< $  Rd?"TryoutQuitButton69]d0h $ <Quit< >"@ ɀ&A Page &PMZHP LASERJET 5P/5MP (HP)&X&6ә@X"d??> d ɀ&A Page &P"P??> P ɀ&A Page &P"P??> P ɀ&A Page &P"P??> P TornadoVBAo__SRP_14B__SRP_15&SensitHelpVBA oOutpu`t()  8.ProcDataInvoke _Funcp \n14k' De@clare \MainDialogBox as object variable  Dim,As O, Set#= ThisWorkbook.4Sheets( A"s 'Move f In~P FroB Tto d Cells in SensitXLM With <93 .Range("L5").0Valu.Edit=e\iJ_labTexkً%7%c110ho&12oc'MLowL1iLBase9!eqHighEnd ߂s Integer, NewA C @`}\.~Buttonaa  f ?! wtGDuAateh˜"Boolean, Tenta(tivS ngx, x#b" IfG)= 1uen h #u NDoC P= Fals aFor EachEIn: FsG AUCuS() c#".=)(eTruE&O2& "p (2)%Epxit KbI:fgN$ Loop Until Not OG%.Add '''@U aMdbecomes the acHautomKcally; `,AK( <>PThJAJ$C i BuC1LE0gCIY2d C1 SensitXLM %%( Cell %"!f$!@ C2 SensitXLM %%( hXSensitXLM!StartTornado BB@Dl()Read Output Option Entered In Tornado BoxTornadoMainDialogBox %< .EditBoxes("Name").Text = "Sheet" & Worksheets.Count + 1Name_lab7H(JName7"(JName_lab7H(LName7"(LCell_lab7H(JCell7"(JCell_lab7H(LCell7"(LCell9Nnl@TornadoMainDialogBox %< .EditBoxes("Name").Text = "Sheet" & Worksheets.Count + 1Cell_lab7H(JCell7"(JName_lab7H(JName7"(JCell_lab7H(LCell7"(LName_lab7H(LName7"(LName9NnPlHTornadoMainDialogBox %Cell_lab7H(JCell7"(JName_lab7H(JName7"(JCell_lab7H(LCell7"(LName_lab7H(LName7"(LnPlH@NAttribute VB_Name = "TornadoVBA" Option ExplicitHSub D\(b P(h(hh(PME 6   0 @ "HP.X @8< N`4  "(0*8@h. "08LH8N4 Xpx  xZ  DZ (alogZ$ Pt vaZ(ZSensitContentsDialogBox %!h'f fb X'V'b fb(/''OK button clicked or list item double-clickedSensitContentsDialogBox %%j!l'Z Z ContentsText HelpFiles %4%%n'^ ^HelpText HelpFiles %4% B%p ` '\ \SensitHelpDialogBox %%j(l SensitHelpBox'Vhl''ShowSensitContentsBoxZPSensitHelpDialogBox %!h't t 0''Close (Cancel) button clicked (or X or Escape) X'V'b tb$''Help Contents button clickedSensitContentsBox'Vhl''ShowSensitHelpBoxhOverview'^ ^ ContentsText HelpFiles %4% B%p'Z ZSensitContentsDialogBox %%j(l ^HelpText HelpFiles %4% B%p ` '\ \SensitHelpDialogBox %%j(l SensitHelpBox'V'b\ VSensitContentsBoxHQA@d SensitHelpBoxHQA@rk( bl''HelpFromMenubAttribute VB_Name = "SensitHelpVBA" Option Ex@plicitHPub, NextBox As Sng, Pre vious , `ContentPsRowhI gper, n +Itema Jst8OffsetRD10Dim$FromMenuDone'BooleanSub pShow|;`(X) .ProcDataInvoke_Func \n14B,ResulWC= ThisWorkbook.DialogSheets( X").S If (False+e| p=m d M#rue ETB'''OK tcked or lJimiudoe-E-At@LBes(1).Index ZsWB?iles@TRange(" E&T@Cell.CaԀwSensitivity Analysis" ThenDelete Next 'I+=("1).-End %"!f' $.Z0H$Start %"!f'Step %"!f'XStop %"!f'+absolute = box.CheckBoxes("absolute").Value/percentage = box.CheckBoxes("percentage").ValueZ`xZ Thissheet %*! '$Newsheet %*! '& Newworkbook %*! '(Cell %"!f' $ $  X$' $ $.hXZ &NameSpiderMainDialogBox %%"!f'.\', 0 4 .$6 0!$6', . (2)'.rh 0 , 4B@8:''New worksheet becomes the active worksheet automatically :! . . :(hA1$.h ( <B@8A1$.''x is the starting Output CellhxCr     +9& !"#$%'()*,-./012345678:D;<>Q?@ABCENFGHIJKLMhPRSTU_WXYZ[\]^O`abcdefgjklmnozqrstuvwxyi{|}~eates Input Values TablePlease Wait. Calculating ... B( B( !> !@$n !>   !@   $n$B@ !> !@$n !>   !@   $n$B@  !> !@$n !>   !@   $n$B@ $d %(  %B@J  n Z X$dX $dZ B@ %!B@JPercent ( Input Variables Values9 5(n !> !@$n !> !@   $n$B@J   %( B@ %B@J B@ B( !> !@ $n !> !@   $n$.input ! !B@8perc ! !B@8 !> !@ $n !>   !@   $n$B@J =input*perc ( B@  B@Z(@    %n! !>  !@ $n !>  !@   $n$( Creates Output Values Table  %. $d %(  %B@J  n Z X$dX $dZ B@ %!B@JPercent ( Output Variable Values ( ! )9 5(n !> !@$n !> !@   $n$B@J   %( B@ %B@J B@ ! B@  B(ZX    %n! '     %!   %n(  !    %(  !  xA B (<<26 <MG=$*\Rffff*1b3d474d56‒  @‖P@‘@$ 0`  14` $ (s" T$ H'Men$ hols"$ lysi$ $ $@ ````X`@$ @& @( ```, `. 0 $``@ @ ``````` | Fx`p  P 14 P`  14 R` )" 14  `h H557'iT ab  14`V.`X%"``$‎@Star‐@%"—(@f'0(Px/pexXPx$0MEl  ( " 8@`p(    @ Pp"  20 6h  "0 *P    8 (HPh p xJ    ( 88H ( XX8^ &X0 DH `p  V( &( \P      v  "  &  X(    2   D X  p         2 $X $    . &8`Xx4 HXD`      8X2p,   \x     &0  X*x   xP`( L0 &  $$   @ Xpx  V 0 H`hx   *   (8\@ 2  0H `x  V 8 Php       2 " @&H Bp0H` x " & B(@Xp  " & 8Ph "   0( 8 8P  (     ! 0!  " 0@"  X# 4p# (# 8# "$ 0$ 0P$ *$ @$ 0$ ( % ,H% x% *% % 0% *& @8& 0x& (& ,& ' (' 8' X' `'>p' ':'(((  (xZZ@|Z@(P$Z0ivity ZPp ZPSpiderMainDialogBox %.Z B!'  B(Z input_lab %"!f' $. !!' input_cell %"!f' $. output_lab %"!f' $. output_cell  %(    %n(  'Creates Output Value Table (percentage)  %. $d %(  %B@J  n Z X$dX $dZ B@ %!B@JPercent ( Output Variable Percent ( ! )9 5(n !> !@$n !> !@   $n$B@J   %( B@ %B@J B@ B(Zp ! '    %n! '     %!   %n(  !     %(     %n(   !> !@ $n !>   !@   $n$B@JPercent (0.00% ( Chart Outputs Values ChartZ'  !@  $ ! '  !>    'Z' ''Do both charts, 1997-06-25  MsgBox ("x1.Row = " & x1.Row & Chr(10) & "x1.Column = " & x1.Column & Chr(10) & "inp = " & inp & Chr(10) & "steps =" & steps) '''1997-09-28 1540r m = Int(Application.Min(Range(Cells(x1.Row + 2, x1.Column + 1), Cells(x1.Row + inp + 1, x1.Column + steps + 1)))) !> !@ $n !>   !@   $n :%.'F MsgBox ("DataRange typename is " & TypeName(DataRange)) '''1998-09-28MsgBox ("Before calling Bins.") A MsgBox ("After calling Bins.")  L :!"%8B@J B( *8D !> !@$n !>  !@   $n$( ,* .024*Sensit - Sensitivity Analysis - Spider6% Change in Input Value8  Value: $B@& :!"! :%"B@< @ $%>B@J @ $%> 9B 9D 9Fnp H(J !> !@ $n !> !@   $n$B@J' A  :!"! :%"B@< J $%>B@J J $%> 9B 9Dn $!LB@J  !N(P H(JhHPercentage Chart'''Do both charts, 197-06-25  'aE'h !> !@ $n !>   !@   $n$B@J' A     L :!"%8B@J B( *8D !> !@$n !>  !@   $n$( ,* .024*Sensit - Sensitivity Analysis - Spider6% Change in Input Value8 % Change in : $B@& :!"! :%"B@< @ $%>B@J0% !R( @ $%> 9B 9Dnh H(J !> !@ $n !> !@   $n$B@J' A  :!"! :%"B@< J $%>B@J J $%> 9B 9Dnx $!LB@J  !N(P H(Jh@ B@J B( B(  B(l,Read Output Option Entered In The Spider Box0SpiderMainDialogBox %< .EditBoxes("Name").Text = "Sheet" & Worksheets.Count + 1name_lab7H(JName7"(Jname_lab7H(LName7"(Lcell_lab7H(JCell7"(Jcell_lab7H(LCell7"(LCell9NnplhxSpiderMainDialogBox %< .EditBoxes("Name").Text = "Sheet" & Worksheets.Count + 1cell_lab7H(JCell7"(JCell_lab7H(LCell7"(LName7"(Jname_lab7H(JName7"(Lname_lab7H(LName9NnlSpiderMainDialogBox %cell_lab7H(JCell7"(JName7"(Jname_lab7H(Jcell_lab7H(LCell7"(LName7"(Lname_lab7H(Lnl)MsgBox ("First line of Bins subroutine.")ZpDim bin As Range2Set bin = ThisWorkbook.Sheets("Bins").Range("bin") dd T B%Z'V'Xa0 T B%Z'V T B%\'XhV+MsgBox "SpiderVBA Bins before calling ScaleSmart" & Chr(10)' & "mini = " & mini & Chr(10)' & "maxi = " & maxi & Chr(10)' & "ScaleStart = " & ScaleStart & Chr(10)' & "ScaleStep = " & ScaleStep & Chr(10)' & "ScaleStop = " & ScaleStop V X   A^W,MsgBox "SpiderVBA Bins after calling ScaleSmart" & Chr(10)' & "mini = " & mini & Chr(10)' & "maxi = " & maxi & Chr(10)' & "ScaleStart = " & ScaleStart & Chr(10)' & "ScaleStep = " & ScaleStep & Chr(10)' & "ScaleStop = " & ScaleStoprang = maxi - mini.Scal = 10 ^ (Int(Application.Log10(rang)) - 1)!StdRange = Int(rang / Scal + 0.5)1LabelStep = Application.VLookup(StdRange, bin, 2)BarWidth = LabelStep * ScalStdMin = mini / Scal*IntStdMin = Int(Abs(StdMin)) * Sgn(StdMin)#NumMinSteps = IntStdMin / LabelStep:TempIntMinSteps = Int(Abs(NumMinSteps)) * Sgn(NumMinSteps)*If TempIntMinSteps * BarWidth <= mini Then! IntMinSteps = TempIntMinSteps&Else IntMinSteps = TempIntMinSteps - 1End If#ScaleStart = IntMinSteps * BarWidthStdMax = maxi / Scal*IntStdMax = Int(Abs(StdMax)) * Sgn(StdMax)#NumMaxSteps = IntStdMax / LabelStep:TempIntMaxSteps = Int(Abs(NumMaxSteps)) * Sgn(NumMaxSteps)*If TempIntMaxSteps * BarWidth >= maxi Then! IntMaxSteps = TempIntMaxSteps&Else IntMaxSteps = TempIntMaxSteps + 1End If"ScaleStop = IntMaxSteps * BarWidthScaleStep = BarWidthZ        '` `      'hhl;Attribute VB_Name = "SpiderVBA" Option ExplicitHDim Dialogvar As Sng PrivaScaleStart:DoublHe, *ep(oCGflag,Integer, chStype Sub DoOutput()  .ProcDataInvok@e_Func 0\n14~sbox5Object, Rangg,x1 2 inB_labC cell oY Set J= ThisWorkbook.Sheets(!Main Box"Kc_m`ode =A pwaz.CalxculP x@lAutom c1Etemr, ,C`d C$= `k(()(stp) - A":)) /!)fp If"%1Ien nx@_End If&u#e +Boolean, T8tiv%Qx!/!) r읩S'DoA D/= Fals`SFor EacDh $In &sG ,UCase(O")@,c.)0fTr!f/%/2& "0 (2)`-Exxit @  N'YLo{Until Not.Add h''' /(becomes t`he aca$aaefallys0AGbr%b <>#ewNom4 1"A1t,T>x,a]QsQ )x is!ZingJ C A? 'Cres`?=ruPTaz @tXusBP :se Wait. c}P... ScreenUpd`}v0As(xvwlumn)&,b t +TV+ 17P3 * (q{+ 4)))."C@ r  x},9  B$orArІd (xlNoneUx.Offset(1, 1).XumYY100 Selyrж.Sericol:=xlspVЯLin,ea eDa0y, _1_:=qq`` zeb/ RTrend:=N Cur0tRega Stdyl1"P#|$WitPR6"I*ri*s+E.Font.Bo|ldQN!/"w')&o #+lBo~m).WeightxlMedium *lut1(ppG2 , 0)._PaaSpecьutCopyM` @0~>* 0$u0N6qsr(CNGQH f:=" ", RefersToR1C1:=rmqp rVg!8V/+ p/lwD ! ZD APrrayp"C *" 5 !574Uiы, j  i}_oA/?0Q i 1>YNumbera*hYGY r{i df۶t Values Table Set x1 = x.Offset(4 + inp, 0) x1h1, 1).b(Start) / 100ZSelect6ion.DataSeriRowcol:=xl s, Type Linear, *Day, _Hstep:= , StopTrend:=Fals#hCurtR egMXStylez"Percent" WithI"Outdpuri( " & o _lab& ")%J.Font.Bold3TruVEnd 2 Range(CelXls(,=.Column),. 偐s1)).m;BorderlBottom).Weight xlMe@dium ut-Copy MG2PaSpecial+s.AutoFiAppliHcatutM odZkDim me!For i%1 To](c@G.BiG j@&pDCw *ZjC1@Y?{&@t̟ Number*ma_INext NjeS=C. i 'CreSȯ9"Hs(8unt).B$Axe2^ Կ&l .p@im|umrba jorUn= iepx@  Window.Visif9J&rPf1'&mn(&i@'9&: 3I6sE8Co #Axes(xlCategory).Select With ActiveChart. .MinimumScale =2 St`>aj@orUnit82 *@ep E8nd fn iPlotAreaion.Interior.ColorIndexWxlNone DWindow. VisibFaLlsnIfl'Percentage n p= 1 '''DPo boc~s, 197-06-25 If aThenx a@bsolut1F tes1EH: 0NRange(Cell2.Row + 2, Dx2yumn1), inp stepsftypO Call Bins (X)QSheeDt.GObjs.Add(beg@in_x, y(170v3&D33+164ApplicatApCutCopyMe@ry:= _A` xlXYt, format,:=2B xlc@LabelXs:="DSesHasLegendB Title:="Sens! - ivity Anal ysis pider",'Ot%A in Input Value v " & out _laby(1?Count).`EB6g?gwTickC#.Num0berFB,w"0%"ruC 4餑epS2uNKpIR pp p?353߼߼߼f.E߼߼w׼xɏ@tusBarNScreenU$pdng`Tru alculǂ!c_mKSuj 'Read Obm Op Enedu S{ BoxG!_issa_button1(Attrie.VB_ProcDataaInvoke_Func" \n14jjThisWorkbook.Dialog{s("aMains "' k .EditP"Name@").Texal"Eab sjA1:>("n!GWy_Ro ..Ena0~dcv qwo ?wAoFocusB%&#New#v#o#o#o#o#+o# o#eto#nto#"oxo#h#aTo#!"")% *Bb*Jo a  h 4pf#o#J #AFp#o#o#o#o#o#F DItKo`oo B!c@xo$ i) )?AeCҽla As ze!'Msg ("Firline of su,brХ .Dim mQDouPZ, maxi{`rAb  Set !=o6kj W"Pz  #= (1 / 100)0(p(Q) 42 = ota[|ax8wV$BACbepe kPgm!SC4hr )y& "= &POaDG _ ' & "ScaleStart = " & & Chr (10) ep ^\o \op   Calltm(mini`, max, ep op)  MsgBoxpiderVBA Bins a fter lingak;ifKPw'rax= - g]10 ^ (Int(Application.Log10() )) 1@V'StdRe /R + 0.5LabelStBVLookup(, bin, 2 BarWidth*)tdMinBa?@ C(AY)%=f1$ )X1)B1)^=Dim res As Double @Dchtypah1AA!= ((1`:8) / (2Dep%-B?) kLf<> 0 ! A* ۂ_)& Ed'Sub"rU~} 0  0 0  0 x  0   0   WrU $$`a$`a$`a$`a(!`a;prU~} G  aQ!Ii1Qy yyQAutoOpenSub(__SRP_18k __SRP_19 SpiderNewLogic  (fogBo` SpiderMainDialogBox %!" (f TornadoMainDialogBox %!" (finpuSpiderMainDialogBox %tp50Start7"(f $10Step7"(f150Stop7"(f $nHInitializing Output To Newsheet%PlotMainDialogBox %PlotThisSheetButton7*( okPlotThisSheetButton7*(J ' PlotThisSheetButton7*(L & WPlotThisSheetCellLabel7H(J_lPlotThisSheetCellLabel7H(LelPlotThisSheetCellEditBox7"(JPlotThisSheetCellEditBox7"(LPlotNewSheetButton7*( "NamPlotNewSheetNameLabel7H(JlaPlotNewSheetNameLabel7H(LmePlotNewSheetNameEditBox7"(JPlotNewSheetNameEditBox7"(LPlotNewBookButton7*( PlotNewBookButton7*(LnTornadoMainDialogBox % Thissheet7*( Newsheet7*(  Newworkbook7*( Cell_lab7H(JCell7"(JName_lab7H(JName7"(JCell_lab7H(LCell7"(LName_lab7H(LName7"(LnpSpiderMainDialogBox % Thissheet7*( Newsheet7*(  Newworkbook7*( cell_lab7H(Jcell7"(Jname_lab7H(Jname7"(Jcell_lab7H(Lcell7"(Lname_lab7H(Lname7"(Ln action_cancel = ""Z`x |Tools $%! |!Sensitivity AnalysisF |B@g | $.~S&ensitivity AnalysisTools ~%!B@jSensitivity AnalysisTools ~%%!&PlotPlotlC@8&SpiderSpiderlC@8&TornadoTornadolC@8&Help HelpFromMenulC@8nHVMenuBars(xlWorksheet).Menus("Tools").MenuItems.Add' Caption:="Sensitivity Analysis"UWith MenuBars(xlWorksheet).Menus("Tools").MenuItems("Sensitivity Analysis").MenuItems& .Add "Plot", OnAction:="Plot", .Add "Tornado", OnAction:="Tornado"* .Add "Spider", OnAction:="Spider"End Withg''Application.MacroOptions macro:="Plot", StatusBar:="Sensitivity analysis for a single input variable"w''Application.MacroOptions macro:="Spider", StatusBar:="Sensitivity analysis for percentage changes of input variables"v''Application.MacroOptions macro:="Tornado", StatusBar:="Sensitivity analysis for specified ranges of input variables"a''Application.MacroOptions macro:="HelpFromMenu", StatusBar:="Help for Plot, Spider, and Tornado"0Height must be determined on Mac running Excel 5 B!n$6$MPlotMainDialogBox %!p(rTornadoMainDialogBox %!p(rSpiderMainDialogBox %!p(rhl ''Auto_OpenG''Run these subroutines to determine heights for Macintosh dialog boxesZPlotMainDialogBox %B@hPlotMainDialogBox %!p!r$x'v vPlotMainDialogBox %!p(rPlotMainDialogBox %B@hlZ8SpiderMainDialogBox %B@hSpiderMainDialoxY Au e!6 "LLLLMG=$*\Rffff*1f3d474d56$*\Rffff*203d474d56$*\Rffff*1e3d474d56$*\Rffff*213d474d56*\R1*#c1*\R1*#ac*\R1*#3d*\R1*#20b*\R1*#b8*\R1*#171*\R1*#172*\R1*#173*\R1*#174*\R1*#208*\R1*#a7*\R0*#c0 d`@kss 14`x `| `~  t` x" 14@v  zP`0  14@v % |` (f 14@v $Putpub$`Hx0fhB6@t @`d @` @P @@L X @xH? h@ @@D x@@? @< @88? (P@x4 `8@$ @ `x!@ `2@h `@@  @8 @P @ @ @ hQ@? QS@ `Wllll@ PME  " "0 8@H P .EX  0E  0E  ( &-0"X"x"  & $-&"$ 0$ X& & ( ( $" & H& p( ( $""  8 &-@"h""    !(!@ X p  &-"""  0 H `!x!     (2%0 h 6x8/:9$((*P,  d \ , 2 0  n( ~ | h 6 "]8 ,B` .B .B   N " ` h &p : , &0 " 8@(H<p.( " ( <H.(xDim action_cancel As String fA@hh0ZH PlotMainDialogBox %!"gBox %!p!r$x'v vSpiderMainDialogBox %!p(rSpiderMainDialogBox %B@hlPZTornadoMainDialogBox %B@hTornadoMainDialogBox %!p!r$x'v vTornadoMainDialogBox %!p(rTornadoMainDialogBox %B@hlrAttribute VB_Name = "AutoOpenSub" Option ExplicitH'Dim ac\_cancel As Sng>t _() ,.ProcData Invok@e_Func \n14If IsTryoutCopy Then RemindUser End If|boxObjecFor Each InDisWorkbook.DialogSheets("PlotMain Box").Edites .TextRON:(0SpiderZ1Tornado1WithG.Cc GI("S0tartNEJ50JlL ep 1 >o {*^'Initpizing Output To News_t5}C5.B uttonDThisBC@0Val u0* isibBl TrueiE4nadHLabelM(Cell)r ae" d_n1P1`<311)!"ot"_"))'r3"B_SYJM mi3[F"t0;h@-%%9::d?%:$@%9: ] t"($* +t tC>FP A B :dD]/t6P\ B($%`:d%t"$ t d`WPEF)t`5PB($%`:d %t"$ t d`WPEF)t`5PB($%`:d %t"$ t d`WPEF)t`5P d LLHD@<84 x0 t`P0  0  0 P  \rU $`a$`a$`a$`apxA  (6 << <MG=$*\Rffff*1a3d474d56(0Hx $ x`p  14 ` H 14` Q14 ` 2 14 H @  @~ `0 HpME8   "  &0,X    (08 " HPX*`   L8@Nx48@HPX " x$  xZ ZH0 fFA@hgSpiderMainDialogBox %Sheet 4! Name7"(fxnp' SpiderMainBox'V\H V SpiderMainBoxHQ14A@SensitContentsBoxHQf'A@d SensitHelpBoxHQA@rk l''SpiderxZ'SpiderMainDialogBox %!h' ' b  SpiderMainBox'XSpider'^ ^ ContentsText HelpFiles %4% B%p'Z ZSensitContentsDialogBox %%j(l ^HelpText HelpFiles %4% B%p ` '\ \SensitHelpDialogBox %%j(l SensitHelpBox'Va ''OK button clickedA@'hhl''ShowSpiderMainBox B!SpiderMainHelpButton'hHl@8HAttribute VB_Name = "SpiderNewLogic" Option ExplicitHDim MainHelpButtonCBked As Bool ean VDone (SubD() X.ProcData Invoke_Func \n14If IsTryoutCopy Then RemindUser WithisWorkbook.DialogSheets(xc Box"G .Edit e").Text" & +s%.Count + 1 pEnd <}= False N( <dDo :Select Case   Y Shoẁensintents~KGA!B D6 Loop Until K'''/ ? 4L$_ResultʧGP0 +s=n.AJ MBeρTiruE@ T? @1 PreviouB1TA aCocGItemG@X RowA pa.Match( , _GLThhuk("!1FilespRan0ge(" r"), 0%w l~[!~.Lis~1)Index% @!em#r Offse.`  {D>RwOK cC DoQOutpuj[Ifce} ЀHandler7  iXCal %(&c "p`?q!__SRP_e__SRP_f# TornadoNewLogic Z__SRP_12"rU~} 0 0  0 x  0  arU $`a$`a$`apxA  (6 << <MG=$*\Rffff*1c3d474d56(x0 H$ x`p  14 ` H 14` V14 ` 3 14‐H @  @ `0 HpME      !#$%&()+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghjkmnoqrtuvxy{|}8   "  $0&X,  (0 HPX` " x*   L 8pN40Hhpx " & xZ ZH0 fFA@hgSensitXLM!ModelSheet BB@DitBoTornadoMainDialogBox %oxSheet 4! Name7"(fnH'TornadoMainBox'V14\ VTornadoMainBoxHQA@SensitContentsBoxHQA@d SensitHelpBoxHQA@rk l ''TornadoxZ'TornadoMainDialogBox %!h' ' b TornadoMainBox'XTornado'^ ^ ContentsText HelpFiles %4% B%p'Z ZSensitContentsDialogBox %%j(l ^HelpText HelpFiles %4% B%p ` '\ \SensitHelpDialogBox %%j(l SensitHelpBox'Va ''OK button clickedA@'hhxl''ShowTornadoMainBox B!TornadoMainHelpButton'hlhAttribute VB_Name = "TornadoNewLogic" Option Explicit!HDim MainHelpBu ttonCDked As Boo@lean XDone (SubaE() Z.ProcData Invoke _Func \n14If IsTryoutCopy Then RemindUserXpa.Run ("SensitXLM!ModelSheet"AWithisWorkbook.Dialogs(yQ Box .Edite").TextTQ/ & +s6s.Count + 1 End <= False N( zDo :Select Case    Z Show JContentsS‰@LG! AEC7 Loop Until AL'''D/ 4K$~@ResultJHQ1Wt=/./ BeU@ruE@ ~TH   PreviouACRUaaEHItemY-RowAv@Match(),d _HThvm("1Files rRange(" t"), 0`\(.Lis d1)Inde~x% @!emr  OffseĤ`  |D>aRxOK @L c#ȇDoDROutpu[!Ifo~ Handlero* @j YC|al %ɲ' "qA`}{@H rU~} 0 0  0 x  0  arU $__SRP_13'PlotNewLogic*k__SRP_8d__SRP_9i`a$`a$`apxA  (6 << <MG=$*\Rffff*173d474d56(0x H$ x`p logB 14 ` itBo 14`  ` 3 14‚H @  @ `0 HpME8   "  (0$XD   @H `hpx " (    L(8xN48Ppx " "xZ ZH0 fFA@hgSensitXLM!PlotModelSheet BB@DPlotMainDialogBox %Sheet !4! PlotNewSheetNameEditBox7"(fn0' PlotMainBox'VTorn\ V PlotMainBoxHQA@SensitContentsBoxHQA@d SensitHelpBoxHQA@rk l''PlotxZ'PlotMainDialogBox %!h' ' b  PlotMainBox'XPlot'^ ^ ContentsText HelpFiles %4% B%p'Z ZSensitContentsDialogBox %%j(l ^HelpText HelpFiles %4% B%p ` '\ \SensitHelpDialogBox %%j(l SensitHelpBox'Va ''OK button clickedA@'hxhpl''ShowPlotMainBox B!PlotMainHelpButton'hlqAttribute VB_Name = "PlotNewLogic" Option Exp licitHDim MainHelpButtonC>ked As Boolean RDone# (Sub(), T.Pr@ocData Invoke_Func \n14If IsTryoutCopy Then RemindUserUpa.Run ("Sens@itXLM!odelSheetB"AWith!isWorkbook.Dialog9s(w Bo x .Edite ").Text^ " & ActXive6sEs.Count + 1 End L= False N&9(dDo JSelect Case   hShow CQContentsŽRG C5 Loop Until ACJ1'''.A  3 d>Result EN.ņo =.A- B@eާRހruE@ TH  PreviouAQaEItemGURowAwMatch(, _EThvh("!0FilesoRange(" q"), 0 YH.Lis1)Index% @!emcr Offse`  yD>AQuOK Й cLJDo!QOutpujZIf#${ cHandle>rEiWCal@ #f% "hnAy%fwh rU~} 0 0  0 x  0  arU $`a$`a$`aprU~} 0  0   fPlotErrorCheck*V/__SRP_2l__SRP_3'pSpiderErrorCheck"pZ0NPlotMainOKButton %(uhhPlotOutputCell %"!fNEdit box for Output Variable's Cell must contain a reference to a single cell.A@PlotOutputCell %"! (NPlotMainOKButton %(uhPlotOutputCell %"!f$!!PlotOutputCell %"!f$! !NEdit box for Output Variable's Cell must contain a reference to a single cell.A@PlotOutputCell %"! (NPlotMainOKButton %(uhZPlotOutputCell %"!f$.2If Not Left(ModelOutputCell.Formula, 1) = "=" Then !DThe Output Variable's Cell on your worksheet must contain a formula.A@PlotOutputCell %"! (NPlotMainOKButton %(EThuxhpPlotOutputLabel %"!fdexPlotOutputLabel %"!f$!!PlotOutputLabel %"!f$! ![Edit box for Output Variable's Label must be empty or contain a reference to a single cell.A@PlotOutputLabel %"! (Nc6OnAPlotMainOKButton %(Helpuhh PlotStart %"!fIInput Values: Edit boxes for Start, Step, and Stop must contain numbers.A@a PlotStart %"! (NrcenPlotMainOKButton %(peciuhPlotStep %"!fHeightIInput Values: Edit boxes for Start, Step, and Stop must contain numbers.A@PlotStep %"! (NPlotMainOKButton %(u8h0PlotStop %"!fIInput Values: Edit boxes for Start, Step, and Stop must contain numbers.A@PlotStop %"! (NPlotMainOKButton %(uXhP PlotStart %"!f$PlotStop %"!f$ PlotStep %"!f$IInput Values: Edit boxes for Start, Step, and Stop must contain numbers. $ $@If Start is less than Stop, then Step must be a positive number.A@PlotStep %"! (NPlotMainOKButton %(uh PlotStart %"!f$PlotStop %"!f$ PlotStep %"!f$IInput Values: Edit boxes for Start, Step, and Stop must contain numbers. $ $CIf Start is greater than Stop, then Step must be a negative number.A@PlotStep %"! (NPlotMainOKButton %(u(h *Avoid ScaleSmart run-time error 1997-10-07 PlotStart %"!f$PlotStop %"!f$ PlotStep %"!f$ IInput Values: Edit boxes for Start, Step, and Stop must contain numbers. $ $1x7AS$(<6 < <MG=$*\Rffff*143d474d56  `@ P 14` P xP$ $`ble'`a re`cell` !$ ` `i!f 14`Inpu $ ME  "  & $@ h (pZ($ HP tXZ(0$X , 4T(h$ *tfp($(08 (@Zh($  t(Z($(PX `,h 8 P(0$X ,xh8 * $    $ V8 $ $   " V "p $   " V "P $x   v ( " $8@ vH"$ 0t"$ JN0$ HB h$  .|@ (6 8Xx      p $ 2 $ (0 8 @ "  X`$h xZHPlotMainDialogBox %.PlPlotMainOKButton %(inDi PlotInputCell %"!fMEdit box for Input Variable's Cell must contain a reference to a single cell.A@ PlotInputCell %"! (NPlotMainOKButton %(uh PlotInputCell %"!f$!! PlotInputCell %"!f$! !MEdit box for Input Variable's Cell must contain a reference to a single cell.A@ PlotInputCell %"! (NPlotMainOKButton %(uxhpZ` PlotInputCell %"!f$.-If Left(ModelInputCell.Formula, 1) = "=" Then !GThe Input Variable's Cell on your worksheet must not contain a formula.A@ PlotInputCell %"! (NPlotMainOKButton %(u@h8PlotInputLabel %"!fPlotInputLabel %"!f$!!PlotInputLabel %"!f$! !ZEdit box for Input Variable's Label must be empty or contain a reference to a single cell.A@PlotInputLabel %"! (Absolute value of Step must be less than or equal $.to absolute difference between Start and Stop.A@PlotStep %"! (NPlotMainOKButton %(u(h  Thissheet %*! Cell %"!fBEdit box for Cell of This Worksheet must contain a cell reference.A@Cell %"! (NPlotMainOKButton %(u0 h(  Newsheet %*! Name %"!f5Edit box for Name of New Worksheet must not be empty.A@Name %"! (NPlotMainOKButton %(uH h@ Checks if OverwriteZZ'PlotThisSheetButton %*! PlotStop %"!f$ PlotStart %"!f$ PlotStep %"!f$ '!MsgBox "NumPoints = " & NumPointsPlotThisSheetCellEditBox %"!f$.       %!f'rx hp  rH h@  [ !]  :!!  %:   %%Filename Overwrite %%H(f Overwrite %!hPlotMainOKButton %(a@ PlotThisSheetCellEditBox %"! (NPlotMainOKButton %(hhhl''ButtonPlotOK Z   SensIt - Plot$'l''PlotErrorMsgPqAttribute VB_Name = "PlotErrorCheck" Option ExplicitHSub Button^OK()   2.Pro cDataInvoke_Func \n14eDim LBox As Obje"ckSet= ThisWorkbook.DialogSheets(MainE" R.I'OK")$s0missJTrue|z GoTo Handl$er IfI.E(dit6e,InputCell+PTextq"[epn GM sg (" b!xfor  Variable's # must contm a referen ce tosi@ngle c8.x1Active.FocusB? Z*@6jNFa lsNA!Exit End IfMRange(Ee"AO).Rows.Count <> 1 _r ,ColumnThddidв\dnModelWo+ ao.=/_@p'eLeft(+ Srmu@la, 1)d=d,HasFoasi:hyour wsAknokpa?ik6`a]n?iN@hLabeՐ_,h 2q|Oqut+ qa b 9be empty ?ll<q=%Ǧ_>wAǧnCJ?Out+OhOhOhOhOhij _h3{3_hOL9|ohoho_plhh ______Z ____h'helhhqSiWitfR1Rihi߄rSh#ihhoog(@IRR50:"YhT[(hRhd_!iA Sx 9 r ii?i::oq% /iainЃ!{T!/iQ/iox(StartT8Elues: Abes, Step, 3ؐopnumbers}Jh 333333ept("t numbers@.") ActiveDialog.Focus = PEditBoxes("PlotStep").Name(>.ButtonJMainOK$ZDismiss`Fals>Exit Sub End If If U}o}TextF"" ThenErrorMsg ("Input Values:$ G b for Start,ep, a<Stop must cont^Uݔq(r8) < V) _ ADZBx= 0?bb%& Chr(10) I"@u is less thanxo@tB{xbe a posiDzĿC&z>?z}=>=A?n )oHǹ2S ȕNj7@ OExp_i*N<|Tbook.<"*]5Label0Filen04 "[ކ?!0 "] w@"!x.Addr (!":&, 1)  g ).Show&V^?uEFog.gjB;1UUU?UUa $u HЉler:A%Q '''ButtonPlotOK Sub xErr@orMsg( As Strin@g) At$bute .VB_ProcDataInvoke_Func = " \n14" Dim ResponseInt@eger =" pBoxw, vbExclamation, "SensIt -{"End '''  rU $`a(`ay0prU~} 0  0   frU $he same number of rows.A@ input_cell %"! (NSpiderOK %(uhxZ`  input_cell %"!f$ !$=KThe Input Variables' Cells on your worksheet must not contain any formulas.A@ input_cell %"! (NSpiderOK %(uxhp  output_cell %"!fNEdit box for Output Variable's Cell must contain a reference to a single cell.A@ output_cell %"! (NSpiderOK %(uh output_cell %"!f$!! output_cell %"!f$! !NEdit box for Output Variable's Cell must contain a reference to a single cell.A@Pl output_cell %"! (NSpiderOK %(!fu`hXZ output_cell %"!f$.rence !$=DThe Output Variable's Cell on your worksheet must contain a formula.A@ output_cell %"! (NelSpiderOK %(u`hX output_lab %"!fOEdit box for Output Variable's Label must contain a reference to a single cell.A@A@ output_lab %"! (N!SpiderOK %(on uhx output_lab %"!f$!! output_lab %"!f$! !, 1)OEdit box for Output Variable's Label must contain a reference to a single cell.A@tain output_lab %"! (NtCelSpiderOK %(PluXhPStart %"!fNInput Changes (%): Edit boxes for Start, Step, and Stop must contain numbers.A@!Start %"! (NSpiderOK %(uhStep %"!fl NInput Changes (%): Edit boxes for Start, Step, and Stop must contain numbers.A@!Step %"! (N SpiderOK %(uhStop %"!fNInput Changes (%): Edit boxes for Start, Step, and Stop must contain numbers.A@Stop %"! (NSpiderOK %(on uhStart %"!f$dCeKInput Changes (%): Edit box for Start must contain a number less than 100.A@Start %"! (NSpiderOK %( a ruhStep %"!f$utCeEInput Changes (%): Edit box for Step must contain a positive number.A@Step %"! (N!SpiderOK %( LefuHh@Stop %"!f$dMInput Changes (%): Edit box for Stop must contain a number greater than 100.A@Stop %"! (NSpiderOK %(uphh Thissheet %*! Cell %"!fBEdit box for Cell of This Worksheet must contain a cell reference.A@Cell %"! (NSpiderOK %(uhx Newsheet %*! Name %"!f5Edit box for Name of New Worksheet must not be empty.A@Name %"! (NSpiderOK %(u h Checks if OverwriteZZ0H`SpiderMainDialogBox %. input_lab %"!f'xA%(<6 < <MG=$*\Rffff*153d474d56 `@  14` x$ h$` ble'`a re` cell``ll `X```"``` $ `@ ll iSp 14`$Xp`ME  "  ( @ ` $hr$0PX 2`r$8X` $ht$0PX 2`t$8X` Xhp$0Xx ,X$8`  &Z&(Ppx pZ&Px *P &P x   $ \ $0 X x  l \ $X     Z  0 P p x  Z   @ H P Zp    & XH  $Rp $ZHh JN8Xx HB8X` h (  @` *   $0@"`          8@H P X "  px& xZHSpiderMainDialogBox %.SpiderOK %( input_cell %"!feEdit box for Input Variables' Cells must contain a reference to a single-column range of input cells.A@ input_cell %"! (NSpiderOK %(uh input_cell %"!f$! !eEdit box for Input Variables' Cells must contain a reference to a single-column range of input cells.A@ input_cell %"! (NSpiderOK %(uh input_lab %"!fgEdit box for Input Variables' Labels must contain a reference to a single-column range of input labels.A@ input_lab %"! (NSpiderOK %(uh input_lab %"!f$! !hEdit box for Input Variables' Labels must contain a reference to a single-column range of input labels.A@ input_lab %"! (NSpiderOK %(uh input_cell %"!f$!! input_lab %"!f$!!dThe ranges "Input Variables' Labels" and "Input Variables' Cells" must have t $.Cell %"!f'Start %"!f'Step %"!f'XStop %"!f' $ $  X$' !!'Zx' Thissheet %*!  $.         %!f'rH h@  r h  [ !]  :!!  %:     %%Filename Overwrite %%H(f Overwrite %!hSpiderOK %(a Cell %"! (NSpiderOK %(h h h  l''ButtonSpiderOKZH  Sensit - Spider$'l''SpiderErrorMsg8 xAttribute VB_Name = "SpiderErrorCheck" Option ExplicitHSub ButtonbOK(X)  6.ProcDataInvoke_Funct \n1B4iDim PBox As ObjecqSet= ThisWorkbook.DialogSheets(MainI" X.OK")"`smiss JT8rue~| GoTo HandHler IfH.PEdit4e)input_celBl*Textq"Xen CMsg (" bxfor I Variab@les' C$s must contk a reference tosingle-column range of E Es.>Active.Focus' 2I0;bRFalFsRExiqub End IfQR,(gU AS().CB9sunt <> 1?W?W{v?W WUl abTT' LabelTT@ TFWnDTr}(TT$<+_R@+ +_ 9+ G).xRow(3&]JT>hdH2 s ""nC2"" bhavhe snumberrAIJ_.2$^^_Y xModel xr FpjEach In qqPyAaLeft(irmula, 1)$"=)t`/ your wsatno(uny wr`Js* 2n2Gs sN+_Wouto*0_I fOv'srooe] A[ .xmDiGᜏG1 _0r/Loow :??Ϡ`x= vG3r pGa2/=fN?GG_GOGAb1/GF11ĺ1/`_ysR?kFbaK玠DCxV+ãDDDYpYo+3 + +ooTD7ODOD!\9?D*?Dsutput Variable's Label must contain a reference to8single cell.") ActiveDialog.Focus = (EditBoxes("o_lab").NameCSpider#.ButtLon)OK'Dismiss\Fals8Exit Sub End If 0 If O{StartNTextE"" Then @ErrorMs@g ("InChanges ( %): % bAd for ',Aep, a?Stop numb8ersWnepgIIdSt+?I o?IAt?I!$Val(n) >= 100nnn͔l less t`v n_%rrX%o) xTrup&ZPs;ؿP 1 r(! aWF`&i xo ep`s + 1jA3 * (+< 35 x.Offset(j ().A <> )Ϲb =UNj7@ OExZiN K|7g7vD48Filen5 "[" &$&"Hi Ii__SRP_4s__SRP_5 wTornadoErrorCheck$A__SRP_6z`a(`ay0prU~} 0  0 @  frU $`a(`ance to a single-column range of input cells.A@ input_cell %"! (N. TornadoOK %(nguh input_cell %"!f$!! ox ("BeEdit box for Input Variables' Cells must contain a reference to a multiple-rows range of input cells.A@ input_cell %"! (N!> TornadoOK %(uh input_lab %"!fgEdit box for Input Variables' Labels must contain a reference to a single-column range of input labels.A@x input_lab %"! (N!" TornadoOK %($uh input_lab %"!f$! !p hEdit box for Input Variables' Labels must contain a reference to a single-column range of input labels.A@A  input_lab %"! (N TornadoOK %( uh input_cell %"!f$!! input_lab %"!f$!!dThe ranges "Input Variables' Cells" and "Input Variables' Labels" must have the same number of rows.A@ input_cell %"! (N TornadoOK %( uxhpZ`  input_cell %"!f$ ! 1 If Left(ModelInputCell.Formula, 1) = "=" ThenKThe Input Variables' Cells on your worksheet must not contain any formulas.A@ input_cell %"! (N TornadoOK %( uHh@  Spid output_cell %"!fNEdit box for Output Variable's Cell must contain a reference to a single cell.A@(N output_cell %"! (NTh TornadoOK %(LauXhP output_cell %"!f$!! output_cell %"!f$! !NEdit box for Output Variable's Cell must contain a reference to a single cell.A@a refe output_cell %"! (Not TornadoOK %((u0h(xWAs{3(<6 < <MG=$*\Rffff*163d474d56 @`@ s("P 14` ton xb E$ un-t$ (Val$ t").$ s("P$` ll `` %``"``````` ll 8.$ ` "i ("B 14`bles@$@ME   "  ( @ ` $hr$0PX 2`r$8X` 2hr$@`h $pt$8X` 2ht$@`h Xpp$8` ,  8X$h  &Z&X pZ &     *  P0 &    $ \ $`    l \( $              ,@ , P ( ,0`08 R@j(HP RXj @`h Rpj8Xx h ` 6P &p  &  & H` @H P J`N @H HPB ( 0P p( (H h x $ 08 @ H X hp x (  H h  p        "   &!(! P!xZHTornadoMainDialogBox %. TornadoOK %( input_cell %"!feEdit box for Input Variables' Cells must contain a reference to a single-column range of input cells.A@ input_cell %"! (N TornadoOK %(uh input_cell %"!f$! !eEdit box for Input Variables' Cells must contain a refereZ output_cell %"!f$. !$=DThe Output Variable's Cell on your worksheet must contain a formula.A@ output_cell %"! (N TornadoOK %(OKu0h( output_lab %"!f OEdit box for Output Variable's Label must contain a reference to a single cell.A@ num output_lab %"! (N! TornadoOK %(OKuPhH output_lab %"!f$!! output_lab %"!f$! !p, aOEdit box for Output Variable's Label must contain a reference to a single cell.A@inOK output_lab %"! (NP TornadoOK %(u(h Low %"!f>Input Values' Ranges: Edit boxes for Low, Base, and High must $;contain references to ranges of cells that contain numbers.A@Low %"! (Np TornadoOK %(A@uhBase %"!f>Input Values' Ranges: Edit boxes for Low, Base, and High must $;contain references to ranges of cells that contain numbers.A@Base %"! (Npu TornadoOK %(t,uhHigh %"!f>Input Values' Ranges: Edit boxes for Low, Base, and High must $;contain references to ranges of cells that contain numbers.A@High %"! (N TornadoOK %(uhLow %"!f$! !Input Values' Ranges: Each edit box for Low, Base, and High must contain a reference to a single-column range of input values.A@Low %"! (N TornadoOK %(uhBase %"!f$! !Input Values' Ranges: Each edit box for Low, Base, and High must contain a reference to a single-column range of input values.A@Base %"! (N TornadoOK %(u h High %"!f$! !Input Values' Ranges: Each edit box for Low, Base, and High must contain a reference to a single-column range of input values.A@High %"! (N TornadoOK %(u h input_cell %"!f$!!Low %"!f$!!]The ranges "Input Variables' Cells" and "Low Input Values" must have the same number of rows.A@Low %"! (N TornadoOK %(u h input_cell %"!f$!!Base %"!f$!!^The ranges "Input Variables' Cells" and "Base Input Values" must have the same number of rows.A@Base %"! (N TornadoOK %(u h input_cell %"!f$!!High %"!f$!!^The ranges "Input Variables' Cells" and "High Input Values" must have the same number of rows.A@High %"! (N TornadoOK %(u hx c Version 01061905.xls chokes when input value ranges contain a proportion formatted as a percentage[ Change ModelLowCell.Text to ModelLowCell.Value in IsNumeric checks of the next three loops1 Revision is 02241715.xls, which seems to work OKZ Low %"!f$ ! $>Input Values' Ranges: Edit boxes for Low, Base, and High must $;contain references to ranges of cells that contain numbers.A@Low %"! (N TornadoOK %(uHh@ Z Base %"!f$ ! $>Input Values' Ranges: Edit boxes for Low, Base, and High must $;contain references to ranges of cells that contain numbers.A@Base %"! (N TornadoOK %(uh Z High %"!f$ ! $>Input Values' Ranges: Edit boxes for Low, Base, and High must $;contain references to ranges of cells that contain numbers.A@High %"! (N TornadoOK %(uh  Thissheet %*! Cell %"!fBEdit box for Cell of This Worksheet must contain a cell reference.A@Cell %"! (N TornadoOK %(uh Newsheet %*! Name %"!f5Edit box for Name of New Worksheet must not be empty.A@Name %"! (N TornadoOK %(uhChecks if OverwriteZ0HZ`xTornadoMainDialogBox %. input_lab %"!f' $.Cell %"!f'Low %"!f'Base %"!f'High %"!f' !!'Z ' Thissheet %*!  $.       %!f'rh  rh  [ !]  :!!  %:   %%Filename Overwrite %%H(f Overwrite %!h TornadoOK %(aCell %"! (N TornadoOK %(hHh@h80l''ButtonTornadoOK@Z  Sensit - Tornado$'l''TornadoErrorMsglAttribute VB_Name = "TornadoErrorCheck" Option ExplicitHSub B uttondOK()  8.ProcDataInvoke_Funcw \n14kDim RBox As ObjectSet = ThisWorkbook.DialogSh eets(Ma,inK" [.QOK")#smiss MpTrue GoTo Handler IfJ.Edit5e*input_cell+Textt"Zen EMsg ("  b{for I Variables' C%s must contm a reference tosingle-column range (of E Es.?ActiveG.Focus(? 3A0@ 1?X?XG?X ?XJV ).Row+ 2+WWmultipWrWWQqW r+VlabDLabel߀؀ +NpC))߀tEh,,?,= ;?,_U?,k{@>> _Z}o 8DThoo/#?s ""coo"" w' S1qhavphe sqnumberapaEu/Yog||/oxoτ= DboMod 1 _ Or-"Column#Tf sc+c cSbLoww#`t"" KInAClues'fs: ues@, Base, aHigh"t & Chr(10)@"EƸsrs o&fBhanumbersž[;FYνY"------HH|?-?Z.N?-?-_Zt_Z¶_Z_Zs?-?-5-y#j\ach e U]-c \iBvaAFK-0uPwssoshD)rnne[ow\/. Zp_Dao`?oeD@rϗsd 1eS-ox__= -oot9_\mH"9sHȤ&tyàAs ""5CsA"" Rhav`he s s\Fr߹߹"Eb4:/EI//.@??e~r?ҫHX_G_G" O^ wO?O44*K0?("OO"¼""I0t OOѰHw HHoOOMRem Vpion 01061905.xls chTokwP+  Bwpropo rtmatt ed as percentage Rem Change ModelLowCell.Text to PValue in IsNumeric checks of@ the njhree loopsRevision is 02241715.xls, which seemslwork OK @ Dim { As R F`or Ea7 In(TornadoBox.Edites(" ")) If Notd( t) Then,ErrorMsg ("I nput s'!?s: ; boxes fV=, Base, and High must" _.&r(10) & "coπreferenc$rcрhat numbers."oXActiveDialog.Foc`us = NHNIf NI[{IA|\| |.||||d$>>jaF>->ab>>>el >?}?}?}?}?}?}A("d$>>>tø->@$ Opt `Njhheetנ8"r1A(Gd>""ȶHt"BN`Tt Ws!-a 4&?mog.?HgC]'lE z*New_*rq //*0not be empty_?jkXd a3e_("4_!j_ 'Cif Overwxritl0>iObject, t@ String,0_labIr#pC3yPa2stepsInteger! Se@ox A,1,book. S,7{Maino7b =0iQ  CV(ІbNH9 Q@rQ&.Q& @ .Rows.CountfijOut` IsEa*Boolean, x1Tru#8onN` N(qi00 Tpo 120wjŅ(!+ 4D1 x.Offs0et(jP$ <> Rq04pG IUj7@ OE̷Ziw|_3gU3&@Label4Filen0 "= "[" `7JPX"] w.D"!x.Address(":&V,) p Show@%vӿi`.1EqJ]B' Q^(^ȡ1!#u Hle r:1#QSub '''fd P;$Մ(]7Ata`bute.VB_ProcDataInvoke_Func@" \n14"bResppeFD_sQD= 0[, vbExclama, "Sens-!^x rrorMsg  __SRP_7~ScaleSmartVBA2__SRP_cB__SRP_d)Gy0prU~}  0   0 p  0 @  0   \(<6 rU < #Nummaxsteps = IntStdMax / LabelStep  ':Tempintmaxsteps = Int(Abs(NumMaxSteps)) * Sgn(NumMaxSteps)    ' aE  ' h*If TempIntMaxSteps * BarWidth >= maxi Then! Intmaxsteps = TempIntMaxSteps&Else Intmaxsteps = TempIntMaxSteps + 1End If  '"scalestop = IntMaxSteps * BarWidth 'scalestep = BarWidth^3MsgBox "End of ScaleSmart subroutine" & Chr(10)' & "InMin = " & InMin & Chr(10)' & "InMax = " & InMax & Chr(10)' & "ScaleStart = " & ScaleStart & Chr(10)' & "ScaleStep = " & ScaleStep & Chr(10)' & "ScaleStop = " & ScaleStop conlpZ(A@MsgBox "ScaleTornado"%"     A^adoOKtGMsgBox "ScaleTornado subroutine" & Chr(10)' & "ValueMinimum = " & ValueMinimum & Chr(10)' & "ValueMaximum = " & ValueMaximum & Chr(10)' & "ValueStart = " & ValueStart & Chr(10)' & "ValueStep = " & ValueStep & Chr(10)' & "ValueStop = " & ValueStopoOK @ $%>0   9B, 199909051415   9F+ 199909051415) .MajorUnit = ValueStep '199909021950nl@Zn a     A^_cell @ $%>(N 9B 9F) .MajorUnit = ValueStep '199909021950 "9  9$nlZabel ( *   A^to a s J $%> num 9B 9F) .MajorUnit = ValueStep '199909021950 "9  9$nHl@82Attribute VB_Name = "ScaleSmartVBA" Option Ex@plicitHSub (ByVal InMin As Double, ,ax ,_ ~thS epo)\ 4.ProcData Invoke_Func \n14'Input s are[andax 'Uses range "bin" ~worksheet "Binsq!Out"[f,tep, * op Dim2R,Tempytd LabelS.LongarWidth >tStdc NumsGA$Int O yCaxŊE'! @f,I S@fA= ThisW@kbook.Sls(l). (uyIn/-9Ain@maxi - mini A(Ci= 1 0 ^ (&(A pAaA.LogL10@B))@1@'   @ME%t / G + 0.5tdAA# B= I+VLHup( , ', 2 bsLncBPt= '*g*@wTK8R=c0? `0!2@1  `QAbs`)* Sgn@stdibf/G  $sa6 `C^ (! i 1int ps`8Ifb/i* 4<ee^ᱫ Else:3@m- 1!f>i'$H.'A!An ED!KeSB̯.0'!s!sa;@&q @@/"St6Sax!n(SDE b&oS S&T)5)axX 8X 0 !`)>uTh)'/)O+)mp+2)))O'7)`RMU)stO>i`ii$i$i$ 14`$`ll ``%``"`````````  h$ @`  Aii 14``` `  Mii 14```h; &` P Yangei(pi*, Sc 14``0`xp@($MEe  "   *8 6h& H X"p 4 ( 88p "  0  *0` @x 0 (( ,P  *  0H *X @ 0  (P ,x  ( 0 ( "  08 Pp0$   0 @ H "  P X p    0     "    ( H ` h 0p      x Inputs are InMin and InMax$Uses range "bin" on worksheet "Bins"0Outputs are ScaleStart, ScaleStep, and ScaleStopZble'Z0H`a reZxcellZZ 8ll ZPbinBins %%.    'rang = maxi - mini  B% '.Scal = 10 ^ (Int(Application.Log10(rang)) - 1)  ? '!Stdrange = Int(rang / Scal + 0.5)   B%'1Labelstep = Application.VLookup(StdRange, bin, 2)  'Barwidth = LabelStep * Scal  'Stdmin = mini / Scal  '*Intstdmin = Int(Abs(StdMin)) * Sgn(StdMin)  '#Numminsteps = IntStdMin / LabelStep  ':Tempintminsteps = Int(Abs(NumMinSteps)) * Sgn(NumMinSteps)    'aE  'h*If TempIntMinSteps * BarWidth <= mini Then! Intminsteps = TempIntMinSteps&Else Intminsteps = TempIntMinSteps - 1End If  '#scalestart = IntMinSteps * BarWidth  'Stdmax = maxi / Scal  '*Intstdmax = Int(Abs(StdMax)) * Sgn(StdMax)  '15.tv+sх b;jorUnit'Y21950c{A 1Plot 1T W3111?10 OF 0l>. /@}0 (ѻ?$__.Cros!= xlCubm4Ap 4h End S@ub ` ScalePlotCategory( Minimum As Do@uble, hax 4) Att@ribute.VB_ProcData Invoke_Func = " \n14" Dim ValueStart wepo@ CallSnmD ,8epopmWith ActiveCh*.AxesX(xl .τle Aop 'jorUnity '199909@021950%CrossesCustom A!XcC`a +++, `aA++, `aA++, `ai++pxATryoutVBA__SRP_16__SRP_17% PlotVBA05 * (6 << <MG=$*\Rffff*1e3d474d56(xH 0$ hx`p   14 0`  14`2 4` 3Q  14.H @   @alog, #`0 HpME 9   * P ` px "     (0 " HPX&`42 0(LX8N40h" " "  (xSub RemindUser()# MsgBox "This is a tryout copy." EndEnd SubZ ZH0' TryoutBox'V\P V TryoutBoxHQa reA@0SensitContentsBoxHQA@d SensitHelpBoxHQ A@rk l ''RemindUser xZ'.TryoutDialogBox %!h'2 2 #''"Quit" button has Cancel propertyog10d8 2b$"''"I Agree" or "Order Info" button . TryoutBox'X(SensIt Purchase by web using credit card'^ ^ ContentsText HelpFiles %4% B%p'Z ZSensitContentsDialogBox %%j(l ^HelpText HelpFiles %4% B%p ` '\ \SensitHelpDialogBox %%j(l SensitHelpBox'Va ''"I Agree" button clicked'hHh@l''ShowTryoutBox B!TryoutOrderButton'.hlfAttribute VB_Name = "TryoutVBA" Option ExplicitH'Sub RemindUser() ' MsgBoxhis a t copy.JEnd^ N Dim uOrderButtonCoked As Boolean(Done_ C.ProcData Invoke_Func| \n14S0= False NextOk zSelect Case    Show{ SensitContents"Help f4 Loop Until D Dm '''GUpA` 4aa@/Resul>t ~nFWD= TWorkbook.DialogSheets('iK).- Lis}es(1).Index% @!emGx  + Offse"` hG FnE@Z"Vac?øg ]If zHandlЧb jUCal `"ăl"u vqnArU~} 0 0  0 x  0  arU $`a$`a$`ap3iÇZ'5'NSta,rtM4MSt4ep2sStoEnd +AsA @Integer, New  =.}Butt|ondKV F j Bv If#l = 1en aA}b`onC14#q^o#RrI).Row - 1M@DCIEb"ColumnIIfEIDuateb"`J+lean, TentativS`ng, xaKA+.b0BH0 I $J+/.AP= FalsaFor EachEIn: FsG A`MUCase(o$)c#$.)QfTrue1(O4& " (2) ꃦ Exit wKEBNcLoop Until Not / c.Add 'd'' wpv#9becomes t`he acq%autom&cally0Ab&b <>$eNom141 H."OByJB0 =3tPx3 sA /JgӇ*Hj ApCР.@Run ("fT!tR# @FТ1ess1 S\etsp/r0!??ӥ.BO: ]ՋEnd? >G:͘ a LJ wPFocus oc 1?3U/ྤk_^L1x/oxgD#1_??#y/L&a.x0N8/8WI?0J8lee"0g Tt  14@6$__SRP_aB__SRP_b("EducProfTryout__SRP_1arU~}  0  0  0 @  0   \ ,,0 rU $ `a$ `a$ `a$ `ap(&rU~} "!Q  a q Q A!!)""#I## $Q$$$A%%%Y&&''hU*#x*F@%`:d%t"$ t d`WP /x)t`6P@U*#x *F@%`:d %t"$ t d`WP /x)t`6P@U*#x *F@%`:d %t"$ t d`WP /x)t`6P@U*#x*F@%`:d%t"$ t d`WP /x)t`6P@U*#x*F@%`:d%t"$ t d`WP /x)t`6P@U*#x*F@%`:d%t"$ t d`WP /x)t`6P@ZU*#x*F@%`:d%txwA(<26 < <MG=$*\Rffff*183d474d56( `@ ;; 14`8 P`$P`&t Fr`( Cel`, Se`. 0$ :@`8  >L30 14 <`  I 14 >`  Tt  14@6$ME^  "  4H&P @x224H2.,,H P*h((  bb`  JHPX h  J  0@,H,x   ,,0 $8 ` " h$p&(&( 8X` " h$p&(&( 8X` " h$p&(&( 8 @ P x- Declare PlotMainDialogBox as object variableopy.ZHPlotMainDialogBox %.89Move Data Input From Plot Box to Named Cells in SensitXLM SensitXLM %PlotInputLabel 8%"!fL287(  PlotInputCell 8%"!fL307( PlotOutputLabel 8%"!fL337( PlotOutputCell 8%"!fL357(  PlotStart 8%"!fL387( PlotStep 8%"!fL407( PlotStop 8%"!fL427( nZ`xPlotThisSheetButton 8%*! '$PlotNewSheetButton 8%*! '&PlotNewBookButton 8%*! '( $ PlotThisSheetCellEditBox 8%"!f$!> C1 SensitXLM %%( n(PlotThisSheetCellEditBox 8%"!f$!@ C2 SensitXLM %%( .h0Z% &PlotNewSheetNameEditBoxPlotMainDialogBox %%"!f'.\', 0 4 .$6 0!$6', . (2)'.rPhH 0 , 4B@8:''New worksheet becomes the active worksheet automatically :! . . :(hC1 SensitXLM %%( C2 SensitXLM %%( hP ( <B@8C1 SensitXLM %%( C2 SensitXLM %%( hSensitXLM!StartPlot BB@DlPlotMainDialogBox %PlotThisSheetCellLabel7H(LPlotThisSheetCellEditBox7"(LPlotNewSheetNameLabel7H(LPlotNewSheetNameEditBox7"(LPlotThisSheetCellEditBox9Nnl@PlotMainDialogBox %PlotThisSheetCellLabel7H(LPlotThisSheetCellEditBox7"(LPlotNewSheetNameLabel7H(LPlotNewSheetNameEditBox7"(LPlotNewSheetNameEditBox9NnlPlotMainDialogBox %PlotThisSheetCellLabel7H(LPlotThisSheetCellEditBox7"(LPlotNewSheetNameLabel7H(LPlotNewSheetNameEditBox7"(LnlAttribute VB_Name = "PlotVBA" Option ExplicitHSub DoOutput(),  2.Pr@ocDataInvoke_Func \n14e' Declare VMainDialogBox as object variable DiBm)As O)  Set = ThisWorkbook.cSheets(z<"k 'Move ` Inv Fro> Nto d Cells in SensitXLM With 962 .Range("L28").Va lu.Edit?@ABCDEFGHJKLMNOQRSTUVWXYZ\]^_`abcdefghijklmopqrstuwxyz{|}~__SRP_1b+.oThisWorkbook!__SRP_1c/ __SRP_1d@qAӼ.Da]4(SLSS6"N0{00020819-0000-0000-C000-000000000046}MG=$*\Rffff*213d474d56($H` $ 14 $ $0h@hh0ME xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2 xA/O(> "LLMG=$*\Rffff*203d474d56$*\Rffff*213d474d56*\R1*#c1*\R1*#acpxDHKH00. F`@kx 14fK BK@$DfB@x @(t @d  1.13 (@@X@` @XP @@ HH(ME'    ( H@ " RUVUVU@TU`UNUP LUPUPUHNUZUBUHHU NURU8TUPU^U8LU  xZ$- DZ$tMainDZ$ 1.13  variaASet both Boolean Constants and VersionNumber before making add-inHSensIt DProfessional - PlotPlotMainDialogBox %!p(SensIt DProfessional - SpiderSpiderMainDialogBox %!p(SensIt DProfessional - TornadoTornadoMainDialogBox %!p(SensIt DProfessional - HelpSensItHelpDialogBox %!p(SensIt DProfessional - Help ContentsSensItContentsDialogBox %!p(SensIt DProfessional - Overwrite Overwrite %!p(ia fSensIt D Tryout - PlotPlotMainDialogBox %!p( SensIt DTryout - SpiderSpiderMainDialogBox %!p(SensIt DTryout - TornadoTornadoMainDialogBox %!p(SensIt D Tryout - HelpSensItHelpDialogBox %!p(SensIt DTryout - Help ContentsSensItContentsDialogBox %!p(SensIt DTryoutTryoutDialogBox %!p(SensIt DTryout - Overwrite Overwrite %!p(h  BSensIt DEducation - PlotPlotMainDialogBox %!p(SensIt DEducation - SpiderSpiderMainDialogBox %!p(SensIt DEducation - TornadoTornadoMainDialogBox %!p(SensIt DEducation - HelpSensItHelpDialogBox %!p(SensIt DEducation - Help ContentsSensItContentsDialogBox %!p(SensIt DEducation - Overwrite Overwrite %!p(hlAttribute VB_Name = "EducProfTryout" Option ExplicitHPub, Con st IsXCopy As Bo oleanFa`lse Za#0Tru /Vers~NumbeJr^Sng 1.13 'Set both{ants and Cbefor@e maki#a dd-injSu b $()  .cDataInvok@e_FuncI\n14ThisWorkbook.DialogSheets("PlotMain Box")Fr1.CaSensIt" & bH& "esapl - *<;SpiderN<Tornado ==PHelp?\\!te? B[!Ove@rwrite- Af IfThei __ "_'__n}p"^_~r*^}?__@fd^^ -A)^|Cn?Lk| ?l XikEIfal"lklN2'6mm6mm6uu6u/ub2`66/W}on67(%?7oq- ?7 ]v02l00A1PrU !Iq4crU @pxSheet131Sheet2&_VBA_PROJECT$dir6A F#+ (SLSS<N0{00020820-0000-0000-C000-000000000046}8($HME xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd xA#+ (SLSS<N0{00020820-0000-0000-C000-000000000046}8($HME xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd 0* pHdsensit$@T=j MG= J < tdole>stdole h%^*\G{0002.-TentativeSheetName<xSheet]  Worksheet WorksheetsUCase5 Addr ActiveSheet%N WorkbooksBRowColumni Application*Run_hThissheet_button1_mLabels,VisibleEnabled۪FocushNewsheet_button1ɨhNewbook_button1 SensitHelpVBA7(NextBox (PreviousBox@ (ContentsRow(HelpRow6 (ContentsItem (HelpRowOffset>HelpFromMenuDonegz(ShowSensitContentsBoxaContentsBoxResult@Show ListBoxes% ListIndexQCellsMatchR(ShowSensitHelpBoxՋ HelpBoxResultn (HelpFromMenu  AutoCloseSubR (Auto_ClosewitemzNewMenugMenuBars% xlWorksheet,Menus!L MenuItemsCaptionxDeletex SpiderVBA_ Dialogvar ScaleStart ScaleStep- ScaleStop /flag charttype?(DoSpiderOutputPboxyxox1_x2_ input_lab# input_cell output_lab output_cellwu calc_mode/W Calculationh xlAutomatic@tempRinp=RowsUCount0vStartstpcellstepsVal StatusBarʜScreenUpdating! Clear ClearFormats BorderAroundxlNoneOffset SelectionZ DataSeries6WRowcolxlRowsxlLinearxlDayTrend" CurrentRegion|StylepFontUBoldBordersC"xlBottom?Weight1xlMediumCopyƿ PasteSpecialK CutCopyModeActiveWorkbookNamesο RefersToR1C1c FormulaR1C1S FormulaArrayΠPastexlValuesoi`ja NumberFormatRColumnsp9AutoFit& memQbasevalbegin_xbegin_yabsolute;md percentage6test4 DataRangeMP(Bins ChartObjectsH ActiveChart  ChartWizardsSourceGGallery xlXYScatter)PlotBy$CategoryLabelshs SeriesLabelsth HasLegendBTitle~ categorytitleN valuetitleaRActivate|AxesbxlValue`7yZOGp,yJHqwMጚ'F|(\BNH)cCJ1љI"ܯ+NvWK8LGRRl5F"H*.R BaseVformatstep Excel+ VBAWin16~Win32Mac s112_20000226_1810.xls\cstdole`MSFormsC TornadoVBA _Evaluate(DoTornadoOutput//TornadoMainDialogBox ThisWorkbook| DialogSheetsKSheets Range ValueK EditBoxes  ThissheetNewsheet Newbook, OptionButtons@DuplicateSheetNameButtons] DismissButtonvHandler ? (PlotErrorMsgЪ ActiveDialogkModelInputCell HasFormulaModelOutputCellChrK~ NumPoints}OutputRangeIsEmptyjAddressMsgQResponseMsgBoxR vbExclamation SpiderErrorCheck>( ButtonSpiderOK+ SpiderBoxc;( SpiderErrorMsg4FormulaqY TornadoErrorCheck( ButtonTornadoOK  TornadoBox( TornadoErrorMsg ModelLowCell  IsNumeric$* ModelBaseCellcF ModelHighCellwLowsHighz ScaleSmartVBA6InMinInMax~InRange TempScale StdRangeP LabelStepBarWidthm?StdMin{U IntStdMin# NumMinSteps[TempIntMinSteps  IntMinStepsStdMax]T IntStdMax NumMaxSteps@TempIntMaxSteps IntMaxSteps&binyLog107HVLookup ( ScaleTornadog ValueMinimum ValueMaximum\ ValueStartl ValueStepL ValueStopM( ScalePlotValue5CrossesxlCustom^ CrossesAtv( ScalePlotCategoryCategoryMinimumCategoryMaximump TryoutVBATryoutOrderButtonClicked ( ShowTryoutBoxTryoutBoxResult( TryoutButtonHandler+ PlotVBAHPlotMainDialogBox:( ProcessPlotThisSheetButton$( ProcessPlotNewSheetButton( ProcessPlotNewBookButtonH EducProfTryoutڠ(IsEducationCopy (VersionNumberd (SetVersionf Sheet1 Sheet2Workbookk_Defaultj _B_var_UCasea _B_var_LeftQsensitTcU -   !7 "#A&y'( )I*K+,.D@ @ A@@ D @  @   @0430-C 0046}#2.0#0#C:\WINDOWS\System32\se2.tlb#OLE Automation`MSFo@rms>SFFrms/| rG36BD29A6-ABF0-4050-A27E-D3D179B 1D70DGYSTEMG4.TWD#MicrosPoft > b Object Library:Q0Q61312AC1-0T-487B-BEEA-FB7E84D34F8BQDOCUME~1\MICHA.MID\L OCALS@Temp\VBE\E.exdf..E .`PM A .TornadoVBA2#cnaV BA HB1B,B!B+BSHelp 2n@ iHlp=U]CloseSubI2AuQ@oCoeub;W] A2pider:2i*HerB?+ ` Open X2!Oetnve6}uSbNewLogic"xk2"'S"N9wL`Jghic0+R/V2`R6T*X??GPlotaL)#JP"Itt",a ErrorChec^k.k.%E`KrU" Ce`.k.z$L.;2< a>jz% d?2<"??!{3?caleSmartIcUAS a 2t}sH/TDTryouSET0ypwLS3[*PB% 2(-=@NDEducProf3 3-;3-ERu,P of=rU?iOQ;ThisWorkbooW4srU~}            14MsgInMinInMax ScaleStart ScaleStep ScaleStop ValueMinimum ValueMaximumCategoryMinimumCategoryMaximumdata B~6 __SRP_0{__SRP_14IPROJECTwmPPROJECT6[     OptionButtonsValueVisibleEnabled Name cell_lab PlotThisSheetCellLabelLabels PlotThisSheetCellEditBox PlotNewSheetButton PlotNewSheetNameLabel PlotNewSheetNameEditBox PlotNewBookButton Thissheet Newsheet Newworkbook Cell_lab Cell Name_lab cell name_lab nameF ToolsFdFeFfFgFCaption Sensitivity AnalysisDelete S&ensitivity AnalysisMenus MenuItemsAddMenu &Plot PlotAddOnAction &Spider Spider &Tornado Tornado &Help HelpFromMenu VBA332.DLL q  qi 8F M DialogFrameHeight SensIt  1.13 Professional - Plot Tryout - Tornado Professional - Spider Professional - Tornado Professional - Help SensItHelpDialogBox Professional - Help Contents SensItContentsDialogBox Professional - Overwrite Overwrite Tryout - Plot Tryout - Spider Tryout - Help Tryout - Help Contents Tryout TryoutDialogBox Tryout - Overwrite Education - Plot Education - Spider Education - Tornado Education - Help Education - Help Contents Education - Overwritesensitet1Sheet2FShowSpiderMainBoxSpiderButtonHandler=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.dllVBA  (F +C:\Program Files\MSOffice\Office\EXCEL8.OLBExcel !80FTornadoVBATornadoVBASensitHelpVBASensitHelpVBAAutoCloseSubAutoCloseSubSpiderVBASpiderVBAAutoOpenSubAutoOpenSubSpiderNewLogicSpiderNewLogicTornadoNewLogicTornadoNewLogicPlotNewLogicPlotNewLogicPlotErrorCheckPlotErrorCheckSpiderErrorCheckSpiderErrorCheckTornadoErrorCheckTornadoErrorCheckScaleSmartVBAScaleSmartVBATryoutVBATryoutVBAPlotVBAPlotVBAEducProfTryoutEducProfTryoutThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2ID="{C97CF557-9A2C-4CC0-B6D5-55B73F9D545C}" Module=TornadoVBA Module=SensitHelpVBA Module=AutoCloseSub Module=SpiderVBA Module=AutoOpenSub Module=SpiderNewLogic Module=TornadoNewLogic Module=PlotNewLogic Module=PlotErrorCheck Module=SpiderErrorCheck Module=TornadoErrorCheck Module=ScaleSmartVBA Module=TryoK)^           rU~~~~~~~~~~~~~ ~~~~~~~~~~6 'Ie$N:{(w  a ) y 1 a 9a   1 a aa ) 9ia )  a ) p  A a )   ) a ) x a ) I q Aa )  qa ) A a a )  a ) Y  a ) a ) Q iyYs112_20000226_1810.xls TornadoVBA SensitHelpVBA AutoCloseSub SpiderVBA AutoOpenSubSpiderNewLogicTornadoNewLogic PlotNewLogicPlotErrorCheckSpiderErrorCheckTornadoErrorCheck ScaleSmartVBA TryoutVBAPlotVBAEducProfTryout ThisWorkbookSheet1Sheet2FShowSpiderMainBoxSpiderButtonHandler=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.dllVBA  (F +C:\Program Files\MSOffice\Office\EXCEL8.OLBExcel !80FC:\WINDOWS\System32\stdole2.tlbstdole aH)6P@~y C:\WINDOWS\SYSTEM32\MSForms.TWDMSForms AX.E .`M *1a{H~O6C:\DOCUME~1\MICHAE~1.MID\LOCALS~1\Temp\VBE\MSForms.exd  Ah ButtonPlotOK PlotErrorMsg ButtonSpiderOKSpiderErrorMsgButtonTornadoOKTornadoErrorMsgPlotShowPlotMainBoxPlotButtonHandler DoPlotOutputProcessPlotThisSheetButtonProcessPlotNewSheetButtonProcessPlotNewBookButton ScaleSmart ScaleTornadoScalePlotValueScalePlotCategorySpiderDoSpiderOutputThissheet_button1Newsheet_button1Newbook_button1Bins $TornadoShowTornadoMainBoxTornadoButtonHandlerDoTornadoOutput RemindUser ShowTryoutBoxTryoutButtonHandler Auto_OpenPlotDialogBoxHeightSpiderDialogBoxHeightTornadoDialogBoxHeight SetVersionFqAӼ.Da]F"oPJQGgDFWorkbook @ PlotMainDialogBoxF EditBoxes Text SpiderMainDialogBox TornadoMainDialogBox 50 Start 10 Step 150 Stop PlotThisSheetButton utVBA Module=PlotVBA Module=EducProfTryout Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 HelpFile="" Name="sensit" HelpContextID="0" CMG="ECEEE117210725072507250725" DPB="D8DAD5EEDEEEDE8A278CBBCE1FCF213D" GC="C4C6C93F592A5A2A5A2A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] TornadoVBA=0, 0, 0, 0, C SensitHelpVBA=0, 0, 0, 0, C AutoCloseSub=0, 0, 0, 0, C SpiderVBA=0, 0, 0, 0, C AutoOpenSub=0, 0, 0, 0, C SpiderNewLogic=0, 0, 0, 0, C TornadoNewLogic=0, 0, 0, 0, C PlotNewLogic=0, 0, 0, 0, C PlotErrorCheck=0, 0, 0, 0, C SpiderErrorCheck=0, 0, 0, 0, C TornadoErrorCheck=0, 0, 0, 0, C ScaleSmartVBA=0, 0, 0, 0, C TryoutVBA=0, 0, 0, 0, C PlotVBA=0, 0, 0, 0, C EducProfTryout=66, 87, 398, 562, Z ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Oh+'0 X`H h t SummaryInformation(9nDocumentSummaryInformation8v|CompObjfSensIt - Sensitivity AnalysisnSensitivity AnalysisAnaMichael R. MiddletonAnawPerforms sensitivity analysis on a worksheet what-if model and creates simple plots, spider charts, and tornado chartsMichael R. Middletonana@8"8x@A@:8՜.+,D՜.+,HP X`hp x B  Bins HelpFiles SensitXLM OverwriteSensItContentsDialogBoxSensItHelpDialogBoxSpiderMainDialogBoxPlotMainDialogBoxTornadoMainDialogBoxTryoutDialogBox  WorksheetsExcel 4.0 MacrosDialogs 6> _PID_GUIDAN{FA2C0C00-3B51-4794-93A0-00DBCF1A69F3} FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q