ࡱ>    >2= *"#$%&'()+,-./013456789:;<?E@ABCDFGHRoot Entry FP,NojNWorkbook _VBA_PROJECT_CUR"0O-`_.VBA0O-F.  !"#$%&'()*+,-./012356789:;<=>?@ABCDEFGHIJKLMOPQRSTUVWXYZ[\]^_`abcdefgijklmnopqrstuvwxyz{|}~ \p Alex Bristor Ba= ThisWorkbook=xiL;!<X@"1Arial1Arial1Arial1Arial"$"#,##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\);_(* "-"??_);_(@_)                + ) , *  ` Sheet1 Sheet2 Sheet3!LinearInterpolator,ݻ͌ Print_Area_Area%\ReEp9wxE µip0͌ n  n͌ Н0n 쮌T< ip0 ͌Tnj0n ZԵT0t00, __Demzm00 E000߿0Եt0LinearInterpolator]쮌(0\w|0{T0T00Twe0Twբ0Tw|ww?10|)w.,w@kT0e0{T0L0{T0LkT0 0 $L0$ʻǬp0p00|쮌h쮌S]0쮌ؽwܷ4%0,,    dMbP?_*+%"F.??kU>@ Sheet1    dMbP?_*+%"??kU>@ Sheet2    dMbP?_*+%"??kU>@ Sheet3 <(3~=JD_: FtmE=WӎxR8q#tmE=Wӎ(3~=JD_:n4Sheet1 4`Sheet2N`Sheet3h`ThisWorkbook h(SLSS6"N0{00020820-0000-0000-C000-000000000046}]ݩ?$*\Rffff*753fa9de01($H(p02 $numb $s do $@  $8 $h` $ $ $ $(t $Xp6 $l< $0`@8MExAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd<\qz40aC]ST9 F?FS"HϠʼxR8qc#?FS"HϠʼ\qz40aC]ST9n4(SLSS6"N0{00020820-0000-0000-C000-000000000046}]ݩ?$*\Rffff*763fa9de01(H$H(p02 $ $ $@ $8 $h $ $ $ $( $X $ $0`@8MExAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd<)_QM֓v F%z\Jz]JxR8q#%z\Jz]J)_QM֓vn4(SLSS6"N0{00020820-0000-0000-C000-000000000046}]ݩ?$*\Rffff*773fa9de01($H(p02 $ $ $@ $8 $h  $ $ $ $( $X $ $0`@8MExAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd<`d?_HfbFJ4]\G?B^xR8q#J4]\G?B^`d?_Hfbn4(SLSS6"N0{00020819-0000-0000-C000-000000000046}]ݩ?$*\Rffff*783fa9de01(;C$H(p02 $ $ $@ $8 $h $ $ $ $( $X $ $0`@hh8MExAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2rU~}  I!4 h dlM8@ Nl M8 @ g pPl'%'(%'%8%c%HModule1 !/__SRP_3__SRP_2_VBA_PROJECTthe range of known x's & y's's &s $.'Tf 0@.ZAnd Not cutOff Then V 0 $,bThen$Known omissions Known X's must be in order.! Values must be continuous global variablesHget the x & y values first, and store to an array, resizing as necessary; also determine the number of entries and any empty entriesZ`Z ,8 .X'0 ignore ita 0 , , @,hh n!* 0+, 0 '00': ignore ita : . . @.@h n!* :+. : ':X2check to make sure that each x value has a y value 0 :#! <V('Tsharemember counting from zeroting'>sa > 0 $counting from 0 and want 2nd to last >$, V > $, V  > $, >$,  <V('Tshcalculate m in y = mx + c > $. >$.  > $, >$, 'B >$. B >$, '2 B V 2 'Tshhf n $%4$&!6 n (%4$&!6mb0-Copyright (C) 2003 Tarsier Software Solutionser o V$, calculate m in y = mx + c > $. >$.  > $, >$, 'B >$. B >$, '2 B * 2 '"calculate m in y = mx + c > $. >$.  > $, >$, 'BF F >$. B >$, '2 B V 2 'T 0 '>0hGNU GPL - Summary=This program is free software; you can redistribute it and/or;modify it under the terms of the GNU General Public License>as published by the Free Software Foundation; either version 26of the License, or (at your option) any later version.?This program is distributed in the hope that it will be useful,>but WITHOUT ANY WARRANTY; without even the implied warranty of=MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the,GNU General Public License for more details.AYou should have received a copy of the GNU General Public License;along with this program; if not, write to the Free SoftwareKFoundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.NThis software has been developed by Tarsier Software Solutions and is providedVfor your use under the terms of the GNU GPL, see GNU home page (www.gnu.org/home.html)(or www.tarsiersoft.com/TT/TT-Lic-en.htm.PPlease refer to www.tarsiersoft.com/TT/TT03-002/Overview.htm for the license feefor use of this software. BUG REPORTINGVIf you suspect a bug in this Tarsier Tool, before contacting us, please check the FAQsSand Bug Reports (both at www.tarsiersoft.com/TT/TT03-002/Overview.htm) to see if ithas already been identified.SIf it hasn't, e-mail a description to us at bug-report@tarsiersoft.com. Ensure you`identify the software (Excel Linear Interpolation Function TT03-002) somewhere in the e-mail andTinclude as much detail as possible; including a six jq $P8&6 LL<]ݩ?*\R1*#15d$*\Rffff*613fa9dd62*\R1*#b8*\R0*#10*\R1*#5b*\R1*#b8*\R1*#20b $(  p$x ".d$$$  @ ",h$$$X$ $ T`H  jj))$ @)(`iVij@H   `0P`:N iX  `>R n`H `BH\`2Th@0 `hl ()hx< h`8 X(( @ @ h8  @ @  @ @ I8IO `O p SO SY( twar X, ca0ME) 6 2 H 4H   D B` D < 0 F8 D D 2 H HP B R 8 T@ \ . ( V0   \ Z( " Z f Zx Z 8 @ (X 4@ B  "P p Tx H P $h   N B(px8     X &l!   (&lH!Xx   8   ,V  H` ( 0PB.X   .P(V  (x$ @B.` H  .PBX,! B.8,(    Z+ A function to perform linear interpolationCauses of error return codesN 1. if there are a different number of entries in mple example spreadsheet is alwaysShelpful! but make sure it does not contain proprietary or confidential information.Program Details"Rev By Date Description.1.0 ajb 17-Nov-03 Initial version created/ Excel Linear Interpolation Function (TT03-002) 0 $.'Tme xssacalculate m in y = mx + c'> > $. >$.  > $, >$, 'B127-94 >$. B >$, '2 B V 2 'T\VBEsH <V('T ifMs0phhZZZ0 <V('T ExpZX <V('T\)o j$pF'jg ErrorNum -'jg X$pF'Xgss <V('T0%extrapolate if value is less than min`'extrapolate between points in the range XF'Bgstep between values j Xben val j Xb jCthis needs to be first because of the OR statement for cutOffAction jCthis needs to be first because of the OR statement for cutOffActiona(X(extrapolate if value is greater than maxxTAttribute VB_Name = "Module1" ' Excel Linear Interpolation Func (TT03-002)bA f0to perform li ZCopyright (C) 2003 Tarsier Softwarelujs2GNU GPL - SummaryThis program free s@; you can redisit and/ormodifDy und=the vms o f :eneral Publiccensea= shed 4byF@aFoC+; ei(r ves2 2Li(, or (at[r op})Uy N. }pd inEhopgh(pwill be useful,@@ WITHOUT ANY WARRANTY; w*out eveCimpli9erantyGAMERCH@ A@BILITY/FITNESS FOR A PARTICULAR PURPOSE.x Sh@BW  modetPails=Ytshould havevceiv&a c@cmlong8I; if not, wriƀ@) s,Gt,@c., 59 TeGe Place§330, Boston, MA 02111-1307, USAq@5si@]d^loƁvided@(NrAz `PL, s10hopage (www.gnu.org/.html|SattA.com/TT@b-`X-enaPPleas!4fjo& V/O[vi|ewA?/mam fem!W< 7A Re$BUG RHEPO`NNG!Ifsuspec~ bugCc`E*`Tool,@.` e1`HntaCus, pCchecbkjFAQ B` Reports (both lere) LS/NithalreadyC@9ntifnxn'`Te-mb a descrfib us-r@5oEns~uk@Dd c) 2(n mewhe nQinclude much !zpossible@obi.a s e exajspA"@et]alway0help!:t mak`$does!y9@cprirrfin ?mB,@"PD#! Rev ByDa`AG/1.0ajb 17-Nov-c`iti *cttOc6Ex c@ FE#or(known_x As R@ange, #y(x_Value!DoӀ_  al cutOffA#|uPstepBp1eanq? Cap7Bqerrp@return' EQ Num -1.T;!|P*if`@ent numbAo@sjpeGpr x's &X y'0K omi#onA` CXmust@3or| globPvariaӀ&p g$Ex! vAs firs5=0[ 9array,fsiz*%ecess also1-ermЎbB?Apany pbs Dim x()#y/m=c ci!A#ge~i"+#&Оl'%Re 10 y( HIsMng($0) Thk*&= 0&F Y] F&EfaBr In/%0.Addr(, True)). qRx > UB(xc0m PpXeG+ End0x(i= >.B"QB @ HNex[ y y  < y y y y( @ P  A iy '4ooUteax#3qŠa ybp<|>  L CVB(xlP0C&Px[O E:rapeQEr}`l 6:p7(O<0) !L)2*'tneedssбB@DcOAOR stp_m;Q a5,= @KElse 1 OrPXOBy(1:P: 'calcua mAR@P= mx@cik*am("!)Ь/ (05Š)r c!ѐm *i"dj+ /68+  gtr4 axP#v >=x 1 Vp= iAc 8u   88- 14 u'remember counting from zero 'calculate m in y = mx (+ ciixP - 2m(y(iB1),)) / (x&))\c.")0m * LinearInterpoor)"@_ValueExit Function ) XTheX" = (Estep30 'vARs. bd~N@d@[DhCGo`F%"$ a[H6 (>kPlh !lh hHa(BkPlh5( kPpP HkPdpNl'%'(%'%8%c%H`F%"$ a[H6 (-kNld!ld dHa(BkNld5( kNpN H kPkNN8llh# 8l ldk8lpR.kRldkRldkRlhkRlht\kRldo\kRlhtTo\oTk8lkPlh [8l kPldk8l kPpR.kRldkRldkRlhkRlht\kRldo\kRlhtTo\oTk8lRkPc!kRlhkRlh.kRldkRldkRlhkRlht\ rt\kRldo\kRlhtTo\oTk8l RdP8ldHh((krU H`=a=a+pa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications *\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\Program Files\Microsoft Office\Office\EXCEL8.OLB#Microsoft Excel 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation*\G{90703A78-DFE7-4F01-A7DD-821EA718E525}#2.0#0#C:\WINNT\System32\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{FE7CF12A-519B-4127-94AE-01C8732E0332}#2.0#0#C:\DOCUME~1\e158812\LOCALS~1\Temp\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\Program Files\Microsoft Office\Office\mso97.dll#Microsoft Office 8.0 Object Library]ݩ?q Sheet1 753fa9de01*D Sheet2 763fa9de01*Dc Sheet3 773fa9de01*D0ThisWorkbook 783fa9de01*DHModule1 613fa9dd62*D h$0hHgEv1%`lCZd\bM? 1 FGzT0%stdole f%\*\Gdir__SRP_0}__SRP_1 PROJECTwm!      "$%&'()*+-./02345678:{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automation^MSForms>SFErms/4z pF90703A78-DFE7-4F01-A7DD-821EA718E5 25F3.TWD#Microso(ft = ` Ob Library9P0PKCF12A-519B-4127-94AE-01C873@2E0332PDOCUME~1\e158812\@LOCALSTemp\VBE\ -EX'-.E .`0M |Of(fic|Oyfic|@0D12DF8D04C-5BFA-101B-BDE5|tAA{4I1@gram File,s\GV\mso97.dll^ 8.0_q­Sheet12°Sh@2e@1@2HBj1BB,B"B+BH*2H2M2dcT3H3 3 b  {ThisWorkbookFb")2T$ikWBlkb1okwodule2Ո2Dyouq2$m2! 1c2bK)^rU~~~~~~~~~~~d 1FiG^cGA      A a  Sheet1Sheet2Sheet3 ThisWorkbookModule1 VBAProjectF=C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.dllVBA Q y(F 3C:\Program Files\Microsoft Office\Office\EXCEL8.OLBExcel i80FC:\WINNT\System32\STDOLE2.TLBstdole qHx:pO݂%C:\WINNT\System32\MSForms.TWDMSForms aAX.E .`M *|Q'As.2 1C:\DOCUME~1\e158812\LOCALS~1\Temp\VBE\MSForms.EXD iAhL-[DR 2C:\Program Files\Microsoft Office\Office\mso97.dllOffice YxLinearInterpolatorFF FF! VBA332.DLL qP brU~}  known_xknown_yx_Value cutOffActionstep_Sheet1Sheet1Sheet2Sheet2Sheet3Sheet3ThisWorkbookThisWorkbookModule1Module1ID="{75A39413-95EC-4A56-A050-0ACF0BD167B9}" Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Document=ThisWorkbook/&H00000000 Module=Module1 Name="VBAProject" HelpContextID="0" CMG="FEFC2C16DC36B03AB03AB03AB03A" DPB="D6D4047E048EDD8FDD8FDD" GC="AEAC7CA68CA665A765A79A" [Host PROJECT#SummaryInformation(, DocumentSummaryInformation81CompObj9fExtender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C ThisWorkbook=0, 0, 0, 0, C Module1=33, 25, 840, 644, Oh+'0HPl Linear Interpolator Alex BristorolaPerforms Linear Interpolationof Alex Bristorar Microsoft Excel@wN՜.+,D՜.+,4 PX|  Tarsier Software Solutions1 Sheet1Sheet2Sheet3  Worksheets 6> _PID_GUIDAN{B017D3BF-FEA7-4A27-AB22-BD05075A3A40} FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q