ࡱ> 0  5. !"#$%&'()*+,-/1S2346PI8B:;<=>?@A7CDEFGHJKLMNOTRUVX~Z[\]^_`aQcdefghijklmnopqrstuvwxyz{|}WRoot Entry F ϵ)%kF@]Workbook$}_VBA_PROJECT_CUR""- jF%kFVBA - jFpkF  !#$%&'()*+,-./0123456789:;<=>?@ABCDFGHIJKLNOQRSTUVWXYZ[\]^_`abcefgiklmnopqrstuvwxyz{|}~ s \p Jon Peltier Ba= ThisWorkbook=iQ)<X@"1^Arial1^Arial1^Arial1^Arial"$"#,##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\);_(* "-"??_);_(@_)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\)0.0                + ) , *  8f¥bT/ا^w_up)fvfff̙̙3f3fff3f3333333f33___\` iBlank"cc s  !  dMbP?_*+%"??U>@7 Sheet1 488u#<M 2+$IZFY6U@YGgUxY6U@YGgUM 2+$IZMEThisWorkbook"__SRP_9 E__SRP_8MSheet1PPSLSS6" <<<N0{00020819-0000-0000-C000-000000000046}p ``|k@Ti  `|kX%` %8 %`` `@h07_Gc`#XApH `@\TXxXL#$*\Rffff*4J4c581e78$*\Rffff*4S4c581e7a4  "  " (0@xA@o``A@ oH@!Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit` P"& Sub _Be@foreClB(Cancel As Boolean) DeletePTSLOESSMenu` End#*Oppen(rU ` 2Q')2'#4'' ``  I  W <   $ <   $ 44PrU @( `TI#$A `X Lz8u#<&>eMע k FK:Ā+EkU1xK:Ā+EkU1&>eMע kME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` %t %`h8@HHxXL#$*\Rffff*4F4c581db64 xpAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit rU 4a*4*4**`__SRP_cd__SRP_dhBM_LOESS x5__SRP_5 j. rU @nrU~|  y5Y$$YiAQ!Q Y$, x lx  kpb kb Qt Qp xXL#$*\Rffff*4Q4c581e78$*\Rffff*4T4c581e7a*\R1*#1c8*\R1*#229*\R0*#1e*\R0*#1d*\R0*#13*\R1*#2ac*\R1*#e8*\R0*#f*\R0*#19 " "08@HPX`hpx  ( $ & 8  H X ` h p x               0 <(C,8u&xME0"((.(>  LL<4<8<<< * `k@@ \xXBn% txxl% p% 0lt% 2@h%`4d`6b `8P `:N `<L `>< `@8 `B4 /`D$ Sour`F File`H extW JRefE+d`k`aaDif gesWih ij il8=>`ntF`ppL`r`lR`thX`vd^`xT d`zLj`|` Dp`~<v`4`,`x$``` `H   J ( P p +H` o i   (t%`*r ( +`po  i   H$ %X@`(p8P h` e%e e@ e@ e@ 4 erd e e ee@ ` e eP2e e@ e@ e` Ph80  ` dxx    ` 0 FH@ @h $@ @@  @5X   @  @ @ j@ @  0! '@@  0 '"@P @ @ t X *@h p " @ >@ l h ># h @)@ h  C'!@ d C Edj@( ` @ M @\ ( M(@h L @@ < @ , @  @ @ ( ( S @ [\  X8 `z  P2<.@l @ \ %@L @`H xx8@DO `P@@ @< Vf`)@, @ @ @( @@ @@ '@ Hhx(`z 8@`h @X .@T H(@D @4 @8$ @ @  @ @P @ @ x H &@h        ` ( hHB  (08@ H `p x    *, " 0@ P h   2   ,0P h   (  0 HX$p   00"    @HPX`h$=,F$=4Y  P X  Jx " "   8  @ H B P X ` /h 43        .X 0X0 0X` 0X 0X 0X $ 8 @ H P B X ` *Hh ,H ,H ,H ,H( ,HX $    xPublic gfrmLOESS As F_LOESSEn]@]`]]]]]]](]@]X]p]]]]]! ' use dialog to get user inputs If gfrmLOESS Is Nothing Then Set gfrmLOESS = New F_LOESS End If.\ \C@L5'6 65D. 5F.5H.0D5.2Sour5^'4k8q0 \A@r 6G`j get values from rangest !b'D !b'F 0!b'H get array of loess calculations D F H 4$d'J put loess into sheet J 2(b`@o8Y' http://junkcharts.typepad.com/junk_charts/2008/05/turning-in-his.html#comment-135008877' blog comment by nickbPublic Function loess(X() As Double, Y() As Double, xDomain() As Double, nPts As Long) As Double() ]]]0]H]`]x]]] 8P]h]]] f$Range f!b'fk h$Range h!b'hkX j$Range j!b'jk( j jJH t j j f'p f'r t$j' p rh p r n p r populate x, y, distance n$f   n+_% find the nPts points closest to xNow r p lGxj p$ r$  remove first point p 'p p$ r$ e remove last point r 'rd  remove both points? p 'p r 'rk Find max distance'z n p r n$ z G n$'zj`) calculate weights using scaled distances n p r n$ z  n+ do the sums of squares'|'~''' n p r | n$ '| ~ n$f n$ '~  n$f n$ '  n$h n$ '  n$f n$h n$ ' |  ~ 'C calculate the regression coefficients, and finally the loess value |  ~   '   ~   '    t+J J'di]] ( !& (! ptsLOESStype$ 2 ptsLOESStype'*y8k0( * @ ptsLOESStype %&!>$<+ ptsLOESSrange1 %&!>$<+ ptsLOESSrange2 %&!>$<+ ptsLOESSrange3 %&!>$<+ ptsLOESSrange4 %&!>$<+  ptsLOESSalpha %&!>$<+  .!0'*k *'iH ptsLOESStype$  !&B@ ptsLOESSrange1$  !&B@ ptsLOESSrange2$  !&B@ ptsLOESSrange3$  !&B@ ptsLOESSrange4$  !&B@  ptsLOESSalpha$  !&B@  .!0'XiPHضAttribute VB_Name = "M_LOESS" Option Explicit @ 'Pub0 gfrm As Fb>Sub LoessDialog() ` Dim ^4r@InputXIRange2Y8Out01nP ointsILong`bCancel Boole4an vI Va0rian}UbSeparate5!-w.i Si5 XieQY Xoyl()Doxa{ ' use ds to getAr BsIfIs Nothing TheT' S `= NewǍ@End If_A F With .ShowCv= .Cyw@*' E(' ~ @ WC Y.X EuYRegrCFA?UnloadB9 8 GoTo@it@':@values om rap: $L= ".VDL%Y'eL@$"g! array of la calculaQ-%B(, , d , D' d ~o sheebw~r C gEzxB$:#-&@\' http://junkchar@ts.typ`dP.com_/2008/05/turn`-in-his.html#`ment-135877b b D by 0nickDFunc!#(Xt`"xDomainnPgH|m .H@ $ j æi#jMinoaxona/m"maxDistaSumWc", "b+2ˏHaG! Den`i%WLRSlo pe `IntercepxNow dI (b.%' remove@ r?bElse<qQlla2=#0"- 1 b s?R 10V _Q '2 opS' FATF U= -T $ax 8(%#U5'Ƃe -ssPedf.E 1+(Q%( / d ) ^ 3B+ A' do 1,sums squaPf= 0T28 S /_W+$(i8o"X + X(3;*3 + 6>^ 2)^ Ot 2YYX ,EЅrv=Ss -#X2#Areeffps, a01Iallyr|= (2YJcq/ "X2Xma $& * Sv1X LOESS = yLoess End Functionx, GetPreviousSettings(v As Variant)Boolea Dim nm(Namhe "br ,For Each1In AveS`heet.= If Righ t$(nm, Len("ptstype"))  TheD= TruL `Exit CT  IfNext='On Err^Resume  Re(1 To d6)%  VEvaluate({m.Refer(sTo$2%$ra@nge1")3U243546alp,haO(.Number0e醅Go@}0}GXrM.PAdd Kg,jU, FalsbfL92)%y2"]3F3445Fi68?IHHQl Qh lqdclx$ kb(ta$palad$^YlM %h, ,dL  dYhxp<lt$Phl #0/(l Ab l #0/PlAbl #0/xlAb,l5ILl5Il5ILhl5IdXl 5ILqpl 5Iqlh@(%lBt5lplllplllptlldw2t@(%l oktBltl5 tf;lllplplllllpqplpllllllqllpqpllqlytLlptlldlBltloL8 ltltL tfllptlldd"ltloLϯltl tfdStDt<t4t,t$lptlld\oDltltD=o)%) %)@%`d`\`T`L`D`n@ (HbP%0@h08@l ( @P0 %@h @ @ X P @ @  @ `@H @x @` @ 0@8 @  @ @ @p @ ` @P H@P@ @< @h, @ @ @ xH0`  ( `x@l `@ @0 @ @ @  S^ Me@x mns(@P  leBuh ( e @ Rang P it3.Te@ Case@ lue @ Get@8 xt).@ lect@ Coun@ Yout@P (Xou@h p End @ ` @ P @ @ @< End @ , Func@  () A@ @ P `  xH p X @l e>  @  @(  @@ @P  E2@@ @  @ p @ @8 @ @ @ 1@h @ t AB-@ d B97@ T ~1\@ D \VBE@@4 E @$ 8@ T@( 2@X ,@ G S@ ` GV_(xXL#*\R1*#1c8$*\Rffff*4R4c581e78*\R1*#61[ , "8 F` B  <   0 ion%? http://www.adamslim.com/ModellingGuides/ModellingGuidesWLR.htm5calculates the weighted linear regression - intercept by Adam Slimth]t gf]F_]0validate ranges. !\ !\ !\ !\(fails - the ranges must be the same size Y('Sourz@k8calculate the sigmas6G n !\  n %!b '  n %!b n %!b '  n %!b n %!b '  n %!b n %!b '  n %!b n %!b n %!b '08/0 nin-hiscalculate the outputs'         ') iH1calculates the weighted linear regression - slope by Adam Slim]0`]H`]xvalidate ranges !\ !\ !\ !\(fails - the ranges must be the same sizeb Y('zkxcalculate the sigmasX n !\  n %!b '  n %!b n %!b '  n %!b n %!b '  n %!b n %!b '  n %!b n %!b n %!b 'ate nancecalculate the outputs         ' xiTcalculates the weighted linear regression - returns an array {a,b} {slope,intercept}'p by Adam Slim e]H`xoint]]bovalidate ranges !\ !\ !\ !\(fails - the ranges must be the same size Y('zkcalculate the sigmas` n !\ts  n %!b 'n  n %!b n %!b '  n %!b n %!b '  n %!b n %!b '  n %!b n %!b n %!b ' ncalculate the outputs         +         + 'iYAttribute VB_Name = "M_WtLR" Option Explicit ' Adam'sPcel financial modellin@g sitePWeighted Linear Regress:http://www.aQslim.com/MG@Guides W@LR.htmFuncIntercept(YRange As , X  ) 'calculates the walara - i9Ʉby Se  Dim SigmaWJDouble,X 2 ] Y iLong 'vaHlidm rs IfH.Count <> CPOrO ThenQfailsHAP must( beUssi>z Ip@CV@Err(xl@R eff Exit }CEnd I~fpC^;For i1 T^o5CADj=l+ ;s(i).Valu/C XE *22 q ^ 26zYY%A Xs> q.C* !8 Next iC 0Ekd :[aTa L>d- thHhH %hl\X ( @HL  PTS ChartsLOESS LoessDialog`@`      !#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMOPQRTUWXYZ[\]^_`adefghjklmnopqrt \Z,dd5IL`d5Id$1G`@d,% $  d HQ) 5,K.:L %   , l= x) K lxci@c%'%'%(<%(L %   $ l= x)  lx     c@c%'%'%(<%(L% x P  $ l=t)  lt  ;$ l*#*#*# 2 \   cc `f$t4<$xdt6  ,\dM`:Pl`:@l``0 `Z0hKh5ILdh5Id(aGd@h0% $$ $ d HQ)$ 50. :P %$ $ , l = x)$ 1'@% :P%$x P $ ,  )$ '$x P $ ( l$M'P%x c df(rhd0xh&$ 0` f$%prU $ `$ `n(xXL#$*\rU $`$A`$`$ ` $ `$$A `(icrosoft Forms 2.0 Object Library*#26*\R4*#28*\R4*#27*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*4Q4c581e78*\R1*#2ac*\R1*#e8*\R1*#d7*\R0*#13*\R0*#10*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R1*#4a*\R0*#e*\G{4736F698-78AB-4EE3-B57A-87AFA7948C0B}#1.2#0#..\..\..\Application Data\Microsoft\Forms\RefEdit.4 ( 8u xME(L > LLL*LLLP*L"L lHH  `o!! x% t%`dd `f` `Xo( xPs.%`dh !`fd- thHhH %hl\X ( @HL  PTS ChartsLOESS LoessDialog`@`x@@< @, cu@( x lities@$ 0 @ @ 0@ (` $% @X @p @ `%`4%Hee@ e@ e@0 e@ deeDe8Xpp(@X(heee`x e@XP pe@@ He@0 e@, eee@( eHee@$ |e@ \e@ $e@` e$%p(e e@ ee eH(xXL#$*\Rffff*4S4c581e7a*\R3*#52*\R3*#92*\R0*#17*\R1*#2ac*\R1*#e8*\R1*#d7*\R3*#8c*\R3*#4d*\R3*#4e*\R3*#4f*\R3*#50*\R3*#51*\R3*#51$*\Rffff*4J4c581e78*\R1*#f109  (@ "X`hpx  2M G. @( H  P  X`h"@p  ";   "2M  X`G.1'  xp] PTS Chartsmo]LOESS W] LoessDialogH]]]]A@Worksheet Menu BarChart Menu BarD'dulates f d dssion  f$d % 7 .  5 % .  99qk ! % .  h9' !'! l9|99qqo]8]X]pWorksheet Menu BarChart Menu BarD'd f d dn f$d % 7 . h % B@ ! !\ B@kqoòAttribute VB_Name = "M_Menu" Option Exp licit@PrivaModule Co`nst snAHs S7tH=>2l8ug(gqK:,ͻd Έ;= CEۺ%{$xJr= SCK~x SCK~g(gqK:,ͻdMEd@SPSSS8.>"LLLLL LLLL@p *@` @\ ndo@L b#OL@H Offi@D E2@@ -BDE@8 am F0PD1@Hx @v AB-@8p B97@x` ~1\@`\ \VBE@ X E @H 8@8 T@( 2@ ,@ G S@ `VGV_LhOW@ !M@ @ M* 8Px/X/X@x  @v Az!@p  8Px_2@x xlR@v l@p : 8Px$@x 3@v 2Y@p EЅr 8Px@x @v 8@p  8Px@x OESS@v B@ @p rang 8Px @x 4@v !0@p  8Px@x U@v @p p 8P  @t @`p Px8@l ` @h @X $@T @D @4 $`0H@t J! @p P"!@l 8  @`h @xX @T @D `@4 x@8$ @ @ 6@  @ $@ l@ h X@p`xH  Vmlo$@0T wei@D ion @4 by@0 @, ]@@  va@ !\@ !@ @  sam0  Y('@ 8X  @ n \(HX!!!"!!" !@0!t 'H!! @p !b!0!%@l  VD@!h @!X @T @P `1ca"!o@("@ ion @p"0 #@@" @X" @ te r@ !\0! !p!%ils thP#=!n % $ $X$8$h  `$z p H$ $ulate $sr$  \!(%%%%(%h%H%(V V%x@%ce%X%(%%date r.BD!\ \@%h @%X nges@T &@%D @4 ate @$ n&0''&'&h^ %`^&x n&&&%!b @t @p outp(h(P(((()(h `'z $((('DFH@(p @l  @(h p@(X @(H @(D @)4 @0 @ {8(Y(F**X*p***@* *(D )% D)x*%0**) V.$@*t @*d $@` @+\ @+L @*< @0+, "@( @@ @ ,-,,-,H,,-(,(F ,S% F+x ,%8,,`,+ @v ,H,``bfhVdj@,p  @,` @-^ @-X @0-H 0@H-F @`-@ H@x-0 h@-. @( @ @ @ @- k@ p,D#". 0H/`/80x//.h0.(H . % H.x. %.. /.r@v I /Ty`bdVfhc@/p ec@/` fo@/^ e @/X @/H ct@0F @@ 1@0 L@. @( k @P0 cr@0 0/j.tSS@ g X1 211h221X12x1( P1T% 81xp1ib%1X1oso181eds@v t 1ry`Vbdhr@82p bj@P2` ʞ@2^ /@X Li@2T @2D B@24 ti@$ os@ @ I@ l1fjHoΜt*  0 X. xXL#*\R1*#1c8$*\Rffff*4T4c581e7a*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\Windows\system32\FM20.DLL\2#Mexd#Ref Edit Control*#0*\R1*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47HLPTX\`dhlptx|  ( 8@H "P X ` p "  (F ( 8@ HP$Fh 0_ 2W  2 ( 8HPX "`   $   $ ( @ .` 2 " 0 0  P h "x $ , 2  (8,@Xhp "x $ , @ ( 0@,H`px " $ J 08 "@ $H Xh@p" " $  068"p" " $  , .@ p    "  $    , " "( P ` h "p  $x    " " .  0 8 "@  $H  X h "p " " "   "  (  0 @  X (Ah   (@    "   L  X ` "h .p       .P DP ;h$F 4_ 2 ( " 08 @"7X0+    ,-(08@HP/X-p "   B  B !  (K8X!`px B*  B  .HP`.h 3$lF8@ HX0`0 3$l0H8 -& - (28px   B"d2I (0 B8@H:P"d,}"d2P0PX` Bhpx,z"dU"dU "d@h2pI B*"d-"d UH"dh-"d-"d-"d82@PXxx] ] ]`] ]]' B@07. B@ox0]p]]]  !^ ': z ToggleButton zX  % !b z+:yk VRefEdit VX  % !RefEdit VX  % !d$VRefEdit VX  % !d V +:kk !!d+:n :$'6 B@!bkkoPrivate Sub optAlpha_Click()' RegressionOptionEnd SubbPrivate Sub optNPoints_Click()% RegressionOptionEnd Sub/0Private Sub RegressionOption()outp Select Case True Case Me.optAlpha.Value( Me.txtAlpha.BackColor = lWindowBkdei+ Me.txtNPoints.BackColor = lButtonFace Case Me.optNPoints.Value`) Me.txtAlpha.BackColor = lButtonFace* Me.txtNPoints.BackColor = lWindowBkd End SelectsizebEnd Sub !ca (e sigm !!d$   !( !D' !D!Z!\ !!d$ !(d nkk (!bk !!d$%  !(ko0 !!b (!b !!d$  !( !D' !!d$ !D!Z!\0.000$ !(dkk (Tcak !!d$ reg  !(kop !'pA@xdam SlkP93 columns: Shared X input and X output, Y input, Y output !(date r !( !( !(A@o !he samA@xY('k/2 columns: Shared X input and X output, Y input !(1 column: Y output !(n !( !(A@o !A@xk%1 column: Shared X input and X output !(1 column: Y input !(1 column: Y output !( !(A@o 0 !A@xk2 columns: X input, Y input !(2 columns: X output, Y output !( !( !(A@o`p !A@xk02 columns: X input, Y input !(1 column: X output !(1 column: Y output !( !(A@o !A@xk`1 column: X input !(1 column: Y input !(2 columns: X output, Y output !( !(A@o !A@xk1 column: X input !(1 column: Y input !(1 column: X output !(1 column: Y output !(A@o0] ( | | z ToggleButton |X  % (bkh` ToggleButton zX  % (b (o ] Label X  % ! RefEdit X  % (o( get activeworksheet's previous settings]@]X]p $'H H( ToggleButton$ X  % (b>Application.Run "ToggleButton" & CStr(vSettings(1)) & "_Click" J J $ X $VRefEdit JX  % ! J $ X RefEdit JX  % (dkk$ X !(dko]H RefEdit X  % 55d 5d$V 9d@ 9k0k(q  !D !!d$ !!d$A@ eA@dA@k !!d$e !!d$A@khk`kXoP` 'A@k o 'm@ F$..V V2 F B D %>'F@ F$..Vkix !!d$X '^ ^  !(k0m(0]]'' !D' X Input Range is undefined ' k !FPr' Y Input Range is undefined 'rk` !D !F !D!Z!\ !F!Z!\' 2X and Y Input Ranges must have same number of rows ' Rk k !H' X Output Range is undefined 'kh !as' Y Output Range is undefined 'k !H ! !H!Z!\ !!Z!\Airp' 3X and Y Output Ranges must have same number of rows 'kx kp !!d$gh'  !( alpha is undefined 'l d  !(k !!d$lͷ'  !( number of points is undefined 'Powed  !(kp  !( 'iP @  !!d$V%.D D!Z!\verl D  D%$..Dk  m 0   !`!bK !b!bK !f!bK !h!bKTedits !!d$V%.F Pro !d!bK !j!bK !!bKT !!d$V%.FBanknon F!Z!\Rate D!Z!\ F%P.Fkm  !`!bK !b!bK !d!bKTetin !!d$V%.HH@ !f!bK !h!bKTSe !!d$V%.H@ !j!bK !!bKTex !!d$V%.Hn H!Z!\ H  H%$..HkPHm@ 0( !`!bKT !!d$V%. Dd !b!bKT !!d$V%.9F@ !d!bK !h!bKT42 !!d$V%. !f!bKT !!d$V%.lopes !j!bKT !!d$V%.St !!bKT !!d$V%. n !Z!\edit H!Z!\ %P.kxmphAttribute VB_Name = "F_LOESS" Basx0{88CEE10B-3D3B-430A-96FC-45C9DBBA257B}{107824D1-EFEE-4AAB-9FA4-F5723DA681AE} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizDOption 0licit Const lRedWarning As Lo= &HC0C0FFWindowBkRd 805ButtonF &' Dim mbCancel&Boolean LastChangeNPointssWorkshee1PCE Sub btn _C9k() = \ .SetFocus Me.HidqdEndILO6KI2b@( vVarian*iTogg@GAA iRefA_If Valid6En@es TheI @+RegressvJ> 0 > Re((1 To 6J!For )= =7A# tr`ols("C3}" & CStr())./ue $F(1)@D  it g1IfNex) wb!'4 E8ditgisNiv+ Not GetR!Q.(`-t T ) hIs hi f "b=+  ).  $S!# 6- txtA0lpha W= `Uvious@ts(B#c#2%oe' fopcgf'aOVc '?&v*'d !`Selepct Cc `XB (BackCole= lL.eAg 7[ cb. 07_éQ`cAppa!.EnEveAG^V= (` IsNumcl+44 Oc@;Xinput?9sQf  KI nt .Rows.Count *A[ 4;$Gko=)W OKqd<\    "" { ) /.8kdS Y mb 3 0hpmat(;D{ /9^", "0."o!1o!o!`o!t_ JEhB{e! "ьM1?7Zt W=r 1A g Labe`l1.Cac3 columns: Sh1 X =aX out>, YS#[2#"2)3eZ.24Vуility 21[T22to1:/l׏e3ler 3 $@%/lZ#(o$Y)4"77%$7O$AZJ#Q$ µMe.Label4.Caption = "" RefEditVisibility End Sub Private8 ToggleButton5_C@lick()If Appa.EnableEvents ThenF >r 5bIf 1 2 columns: X input, Y42 4143out4 +3Y E676 x!QF _GA_IV7I7IՅOTXj#r(i A@s LongDim  W= False&For#= 1s2 ) y <>'~x oControls("" & CSt)).Valu&e ~Ne|xta a` Tru= C 0.)Ctrl') $%4,! !l (Len(b.D) > 0"( NOn ErrUResume FPr (1)G ')HRun Y\"㕢 hE DbiNotRan8ge(c F'+ A Is h2Jn*GMNg( it'T9P; " /aQ)|txtAl0pha.((6~)2 oB< &0M`-eMoveh(ByG Êq)Integer, ShiftІUSleYa#2 /@DX1r ÂK WithKSBo@GA0.PCAaCrA! &$2.BackCol05= lWindowBkd! M3Ea RedWarn0P O !A )XRv/PIsN@?ricqS:$)zNPoiP4 1_Ch9a  mbLast?! @X!`  "Az! G6  oп!q/7'7Quer yClosMances6Mode6R4= 0Cc5|! btnSW Pub@ PropertyAW c()hkcPNmbSϥFun t l3\sAddress1Str0 KK V`RGoTo 0_2=: vP@Imula(U, xlR1$C1qA1B f>v/ 0lG 2 Reg0:ѭpCLng(]$A53>" o*&G0MMO !F!pidEies&bbEL(s!g$10 5@Tngt5 bValidate = False sion` 4& "X Input Range is undefined" & vb0NewLEnd IfIf Me.YirIs Nothing Then ]1Y4}XGAXUf.Rows.Countx <>r rs  aMws must have same number of rI LJgXoutug>OCq?#Ȱ#Y 4#Ŋ$ +DsX Ë =?  E"IsNum eric( {txtAlpha.T0ext)zIBackColor`lRedWarn`A baA\VWindowBk>d!%ca7NP`oints_a !#{p2 %lblgh.Capt!aeEn`tries9ƹ A*Func!HPublic Property Get c() Asˡ On EDrrBRes@M N`KS PRefEdit1C3lumns8(1)9/= ^1U C,.`(xlDown) a#܆GoTo 0etlect Case Trud5ToggleButton1.2ue,aO24r5sadq=Q?v2"  , 3/"6r7s/ ! 2/ SeQq! 9Y!esiz/ y1on_%3_%?e83o%pn%t %ŮF+FFFFF@z/Vt Yc%%%FF"9Ys(3_B)to?_(q(H(POBO?1?! (on/ l=.UG_4.} ߷2$?1422f52y2$.XS/X-/X!X__SRP_75__SRP_6^_VBA_PROJECT"dirH l >LF8%hH58 h pz @(h(LH48$$vx $ x kvxUx $ x x,px x l >pF` x5`6x x 0 xx lxcx4 6pH H l lp t8x xa`\\aLv"o8#@D D h 2p@)x\HD6`Lx $ x x,px x l >pF` x5`x x 0 x*F8D$ ,p@x\HD`L0$vx $ x kvxx $ x x,px x l >pF` x5`bx x 0 xx lxcx` 6px x l lp t\ \a`XXaHv:NoH"k(   h 2p)x\X6 `H(x $ x x,px x l >pF` x5`x x 0 x$ 8 px\X`H($vx $ x kvx5Yp@x x @xx x @xx x @xx x @xD6 $ x$vx $ x kvx5Yp@x x @xx x @xx x @xx x @xD6 $ x$vx $ x kvx5Yp@x x @xx x @xx x @xx x @xD6 $ x$vx $ x kvx5Yp@x x @xx x @xx x @xx x @xD6 $ x$vx $ x kvx5Yp@x x @xx x @xx x @xx x @xD6 $ x$vx $ x kvx5Yp@x x @xx x @xx x @xx x @xD6 $ x$vx $ x kvx5Yp@x x @xx x @xx x @xx x @xD6 $ x0t $ t txdl lx AfD%Tlx#h*FX%t Lt $T/h)tT5X xfl4@cD%T #h*FX%t Lt $TrU 0.4%y5 1YyiA1 yYQy-!!6,.a-1 i!!i"I# $$5)5Q5y54H9 Aa `L a1 `P !Q T 1 X I \ !a `  d a  `h  l ! p !  t 9 ` x9 AY  ` |9 A  `I9 A  `9 A  `9 A ` 9 A!`I   , 9,  `I ``0`Q    w_WWW__h4 4x! x x  4$ x@^k^:X lX8 4h ddPF4ld#L*F8%H LH $4W$/L)H468$(%ldi%h dfP_`dF4l`#L*F8%H LH $4W$/L)H468$_4l`#L*F8%H LH $4W$ `Tlc2L)H468$Wl`i%4l`#L*F8%H LH $4W$ %h/L)H468$ `f2(%LH /h)tT5Xt $ t tXH$ htTXxdpT lx#l*FX%h Lh $TWD!4($]p%lx#*F%  L $2l)hT 6XD xfp$ 8 lhT XD4 l "pjkjKPc%(T%l4K#0*F%, L, $/0),64ddo;,ldiT%l4K0Tl,c/0,54cFld#0*F4%, L, $W/0),64a_ldiT%l4KF%ld#0*F%, L, $ /0),64 df2(T%l4K#0, , h /0,54K( l$0,4Hxdp7Tlx#l*FX%h Lh $QTP/lh5X0PWPWX @(0]p '6X+hPWX `lTlhc/lh5X0%P#0%P#cP xfph lhch,lh h l >lFX h5X-lh h l >lFX h5Xf 6| ,lh h l >lFX h5X-lh h l >lFX h5X (P,lhTX@ P    $ H 4pz/ $ -K!T'X% Fh% $ QTxK lxcK$ '4%'D%X% Fh%T $ T p$`' T5$K!T'X% Fh% $ QTxK/ X(xT$d*pt t l lp qx/ptlxWt t 0 t/ %T d$ ptpxCtp lpcpHpxlt$*#l%*1t/lp lpcppxlt&*#l%*1t/l3p lpch lhc)phAlp paXhhaHv"D Da400a v")phD06XH4 ?pxlt'*#l%*1t/lp lpcpzpxlt(*#l%*1t/lp lpcppxlt)*#l%*1t/l3p lpch lhc)phslp paXhhaHv"D Da400a v")phD06XH4 qpxlt**#l%*1t/l-lp p l >lFX p5Xpxp p 0 plt+*#l%*1t/lp p 0 p-lp p l >lFX p5Xjpxp p 0 plt,*#l%*1t/lp p 0 pltp p @pkxpz/ \(t0 lphD0XH4 H-Kd(<%\t tad``T\aL((x/`)t\(6dL2xadttaLv"t6dLI<%xdtdoL%lxo% $ Qtx6dLK/ t(x(`t\(dL-Kpvkv`p p -`Vp5`kvHX X -HVX5Hkv0@ @ -0V@50kv( ( -V(5d(%Xp pa``TXaH@@0x/)pX@6`H0zkv`p p -`Vp5`kvHX X -HVX5Hkv0@ @ -0V@50d(%Xp pa``TXaH@@0x/)pX@6`H02xa`ppaHv"p6`H{Pppa`XXaHv"i%x0x)pX6`H0K/  (Xx0 pX@(`H0@-Kpvzkv`p p -`Vp5`kvHX X -HVX5Hkv0@ @ -0V@50d(%Xp pa``(TXaH@@0x/()pX@6`H0`Rkv`p p -`Vp5`CkvHX X -HVX5Hd(%Xp pa``(TXaH@@0x/()pX@6`H0`Rkv`p p -`Vp5`kvHX X -HVX5H`d(%Xp pa``(TXaH@@0x/()pX@6`H02xa`ppaHv"p6`HI%x`p`oH%lxo% $ Qpx6`HK/ (Px((pX@`H0W0-Kpv*kv`p p -`Vp5`d(4%Tp pa``XTTaD  x/X)pT 6`D*kv`p p -`Vp5`2d(4%Tp pa``XTTaD  x/X)pT 6`DRkv`p p -`Vp5`kvDT T -DVT5Dd(4%Tp pa``XTTaD  x/X)pT 6`D*kv`p p -`Vp5`|d(4%Tp pa``XTTaD  x/X)pT 6`D*kv`p p -`Vp5` d(4%Tp pa``XTTaD  x/X)pT 6`D*kv`p p -`Vp5`d(4%Tp pa``XTTaD  x/X)pT 6`D2xa`ppaDv"p6`DPp pa`TTaDv"i4%xx)pT6`DK/  p0(Px(XpT `DtLdx|  H   $ `,$ `0$`4$A`8$`<(`@($ `D$I`H8`L 1aq ,`P$Ia&&( h#0I`T0=(h((`#, h=,Ih =,h =,h=n0* pHd PTS_LOESDS0@ = p xXL#J J< rs@tdole>stdol@e h%^*\G{HShow InputRange+Resize@4SeparateOutput SeparateInput+ OutputRangeOffsetRowsUCount0vRegressionPointsGExitSub*ValueK(LOESSBXoYlxDomain nPtsCi`iMinUiMaxTiPointʔiMx mxN^maxDist!SumWts SumWtX SumWtX2k,SumWtY SumWtXY,Denom*(WLRSlope. (WLRIntercept=xNowzdistance'weight1TypeName M_WtLRFYRangeXRangeW WeightRangeSigmaW_`SigmaWXXSigmaWX22SigmaWYXSigmaWXY2xlErrRefCells(WLRzoutWLR lRedWarning lWindowBkd lButtonFaceWmbCancelmbLastChangeNPoints!btnCancel_Clicke btnCancelIVSetFocusHide9z btnOK_Click"ValidateEntriesoptSeparateXYXY_ClickڂSetOutputVisibilityyoptSharedXSeparateY_Click optSharedXYY_ClicknlblOutputSharedHVisible optSharedXYYlglblOutputSeparateoptSeparateXYXYMWlblOutputMixedhoptSharedXSeparateY refOutputtxtAlpha_Change Application* EnableEvents IsNumeric$*txtAlpha BackColorރ txtNPointszValtxtNPoints_ChangeNUserForm_MouseMoveiButtonShiftrefInputUserForm_QueryClose CloseMode؟ bValidateۼ M_Menu sMenuName.ctlpop(CommandBarPopup ctlbtnCommandBarButton9 CommandBars ControlsKAddrCaptionxOnActionFaceIdiDeletexWorkbookk BeforeClose~;ItemzUserFormNlblInputIbtnOKdoptAlpha optNPointslblAlpha} lblNPointslblAlphaEquationClickChange MouseMovev QueryCloseT _B_var_Format Worksheetr1c1 _B_var_r1c1 _B_var_ifPConvertFormula sSelectedxlR1C1pxlA1sAddresssadd _B_var_On6saddApplicationU _B_var_sadd$3saddr iinputrw _B_var_setGetRangePath2Save UserForm1) F_LOESS_2 ToggleButton1G ToggleButton2H ToggleButton3I ToggleButton4J ToggleButton5K ToggleButton6LToggleButton1_ClickRToggleButton2_ClickToggleButton3_Click(ToggleButton4_Click ToggleButton5_Click BToggleButton6_ClickToggleriToggle|iTogC| _B_var_forjLappl9itoggler>_B_var_itoggler| ToggleButton7MToggleButton7_ClickRefEditRefEdit1Label1,Label2,RefEdit2Label3,RefEdit3Label4,RefEdit4 TextAlign xcapF}_B_var_ValidateEntriesRefEditVisibility.iCtrlϘgtl]xinColumnsp9_DefaultjSj _B_var_Select'E _B_var_CaseYoutput _B_var_SharedG _B_var_InputVLabel5,Label6,Label7,Three _B_var_Threeqay  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.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.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\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{7A87EDAB-8208-4A3F-8CE7-E66B976B9300}#2.0#0#C:\Users\JONPEL~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   xXL#8uThisWorkbook4J4c581e78ThisWorkbook` Sheet14F4c581db6u Sheet1M_LOESS4Q4c581e78$M_LOESS&x0, M_WtLR4R4c581e78 M_WtLRH0 M_Menu4S4c581e7a M_Menu `F_LOESS4T4c581e7a)F_LOESS0x8lH0x`\İ4}Q@&ՀCm)Cn|-\ D7qAnMh(uaO&;AJ=KGགྷeNE0?y >hU(x:Y@T AsCase"Const=DimCEachDElseEElseIfHendifRFalseTForZGet^GoTo_IfbInkIsxLong{MeNotNothingPropertyPublicReDimResumeSetSubThenToTrueVariantWith Excel+ VBAWin16~Win32MacVBA6# PTS_LOESS1/stdole`OfficeuMSFormsC ThisWorkbook| _EvaluateWorkbook_BeforeCloseCancel(DeletePTSLOESSMenu. Workbook_Open(CreatePTSLOESSMenu<Sheet4 M_LOESSvF gfrmLOESS F_LOESS (LoessDialogarInputfRange rOutputXzrOutputYznPoints}bCancel vInputbSeparateOutputbSeparateInputvOutputXniInput?iOutput$XinputkLYinputIXoutputyLoessFourV _B_var_FourvlblToggleButton1V"UserForm_Initialize5c InitializeNControlTipText8Replacef vbNewLineuaranges _B_var_ranges1}Two7 _B_var_TwoHfirstz _B_var_first> ActiveCell ctivecell}_B_var_ctivecellew msWorksheet5UserForm_ActivateZs(GetPreviousSettingst_B_var_FunctionO(SetPreviousSettingsJrInputXrInputYActivate|Xouput _B_var_WithYlredw lblNotice F xInputRangeG _B_var_Elseifqm_B_var_Nothing$S sValidationosval= lblValidation.7F_LOESS_0_B_var_PropertyBeepModule1bxinp _B_var_sval lblVarxlDown0Dyinpy ActiveSheet%N vSettingsE  avtivesheet_B_var_avtivesheetNamesοnmh^bSettingsetpre4ErroNumber-Right  _B_str_Right#(bSet  _B_var_ReDimvSetHEvaluateTRefersTovm_B_var_veerror:vbsettg bSettingssiSettingErrorOut0Run_isetugfrm_B_var_SiRefpcs\setprfrmLOESS lblParametersblblIdentifyRangeslblDefineRanges  vCBarNamesiCBar6 sMenuItemsmenui$ sOnAction2 _B_var_Constg _B_var_Stringӊsona Sheet1%)u  l @@00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation`EOffi"cEOfijcEE2DF8D04C-5BFA-101@B-BDE5EA*AC42EProgram Files\CommonMicrosoft Shared\OFFICE11\MSO`.DLL#M 11.0 Object LibraryKMSForms>SFrms3 D452EE1-E08F`A-8-02608C4D0BB4SFM20L'B _&/;"~1jIqAHq00}#0Bq# ў50 A7A87EDAB-8208-4A3F-8CE7-@E66B973AƉUsers\JONPEL~1\AppData\Local\Temp\VBEc7.exdd<@".E .`M 8uThisWorkbookGTi@l"Wnkbok 2 HB1B,!""+rShePet1G Seq`t1 Av2 ` VGV_LhOEWS@2C,&!M_WtLRM_WLR $0 Menu M*nu    (A'Fi+~Fm+c+ o8lo#:irU~~~~~~~~~~~~~~~a    XYxDom__SRP_0X__SRP_1F_LOESS!pkFkFf"S B `FFA NamesF ptsLOESStypeRefersTo ptsLOESSrange1 ptsLOESSrange2 ptsLOESSrange3 ptsLOESSrange4 ptsLOESSalphafĤIx8<0VBE6.DLL 1j @ 1 `F r3 columns: Shared X input and X output, Y input, Y outputYl|  LabelCaptionlblDefineRanges 11  1E BackColor L1 columns: Shared X input and X output "1 column: Y input $1 column: Y output 0.000 1  4X Input Range is undefined  CreatePTSLOESSMenu 4Y Input Range is undefined dX and Y Input Ranges must have same number of rows 6X Output Range is undefined 6Y Output Range is undefined fX and Y Output Ranges must have same number of rows $alpha is undefinedWorkbook_BeforeClose Workbook_Open :number of points is undefinedCҋB `Add Range 1O zLf@@Nŷg2ƏYl|Ayf*$[HI5v\3ӎgD' D9Mݨ=VBYC}ȉ Y& A}UmDQf7Ff'q^TE@FTBE#8q4uDFWorkbook @DeletePTSLOESSMenu $Worksheet Menu Bar F F F  F F F LOESS ' '!LoessDialogF{(2O^Iٮ FNeMע kK:Ā+EkU1wiLV&XDVng(gqK:,ͻd Έ;= CEۺ%{$xJr= SCK~HAN:' 5 A J1 column: Shared X input and X output'ainnPts vSettings iYRangeXRange WeightRange 9  ( 8 H  X ahiToggleButtonShiftCancel CloseModesAddress &x i' i* , 0  Q1 14 5 $  "0}[?-R KQDBTahoma8KEFҋB `EF8KEFҋB `EF8KEFҋB `EF8KEFҋB `EF  2ToggleButton1{ OoMCompObjLaVBFrameN-PROJECTwmS@J5m-|zd<Dw4liti8J5utu,vu`*@wu@vJ5; uh-u;C6Wuuk@J5 uSw3u4ȉP i*OP`u|*u0ܜ upOѸOuuP4*B\h- 0u\u6WkC:Dwu.jgqiHf!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8'ɳϟ=UO=UϿ~}[e߁(e 6XփF8!YFf!y!8"H)"蹘19#zA0#>cI{FdK$bWhxUY[1~)ޖ= e~fr&~k obթxBEq9bgg}*E vYqjX6)hE*iNijyڔ- _eI+N䫔+ѰZ*#S)l J Y[:dnb2[Irˠ‹%Dкwz٪^pZ6o2/amÁ>[ M XIz C##Z'2sZ/k33[Y3+ƱBrE"c>|| 5BREu3pL*ά&umDMjkWKwsZ˶An7EE޻fp..y;˟^Pq ܽ=U 7i:\eG^ZV%>㜺Ϋ#ܺ=o{kge _rF|DƗ_u͓,J?3U[s6@`)~ Inl ~*k`((,ӅKp$< υB 0\h0L!5L(!|2 LiK;$}sx7"&͈Kb=&JωR8&|I_ W4>D*dU0P\Eqz^r|ԞiGo_-<=gdX8AL⭏γ$$ @MO#M)@TPd%r=0!CWv|9BOM,&0_(s^|\3cxN.Ӽa51x򲊅a7!1KRb(y1M"6 s@L"&;uTahoma(F@0?R KQlt GIF89arttllEq >Ew 7H )u 07:HE&Dw0PCQ0: ׍7uDٛDw(qvvx (Dw-CD:w\DUwsˋe}`.rgisfC(F@0?R KQlt8GIF89arttllilveu E}wP&&P؅ 'H&Dw&]Pa &Y\Uu5D5P؛'Dw(uvvx (DwQCD:w\DUws5e}`.rgisfC:@\wUsfeܒr usuIDVwKIDwW]Dw\h5]…D)w5)}zd<Dw4liti5ꅒutu,vB$u`&@wu35oׅܒ uh)u;CZVuu5 uSw3u4 iOP`ژ꒽uu 2+u4pOѸOuu4BuhY)Buu$fVC:DwuR.jegqpiHlf!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sɳϟ@ JѣH*]ʴӧPJJիXjʵׯEKٱҪ]˶pʝK7.ؘgu˷oݿKll++eK.!b-5|سb,E%t`*Ueu]رem(u7c'&q%eܹ]ѥ:\ٵsO;ҫ_Ͼ˟G~}/i?{wX`ZG 28^~z} :WaG7ajԡ{F#Wo'z+bF/!3^T{7:E;k?Zv=jX$EGFKN䐦E)TzfDS>u`>$&udЙ̥Bl ۜtd'mxYО@&١i2"zYZ&AVZ٥Q ) Jh*m)rz)w*)|ڊ(hVi@꫟.zlNƨJ,X尉VK*Fٲtz[oj[eִj*[[&,`*,-[:-|/¦J<.ſgj|.Z*y.ƫ+t.oW<>Ϻ>%Gvt\O;ލq\RAZ=Y~BaP5:s&(J(bB"H;1F 7݌J5}fw(Q-s:~-i㌊x#&1fEB~ @JЂI@;uTahoma(F@0?R KQlt8 GIF89arttllQtC Ew 7H )d2y76H&Dw0PQ0 p׍7pu:D::Dw(tvvx (Dw-CD:w\DUws:e}`.rgisfC:@\wUsڬeݒr usuIDwKIDwW]Dw\h]:D3w:3}zd<Dw4liti:utu,vu`0@wu:ݒ uh3u;C򙒓uu: uSw3u4P i0OP`|0u upOѸOuuP40B\h3)6u\u$C:Dwu.jgqiHf!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sɳϟ@ JѣH*]ʴӈJJTXj5ӯ ۵Yh ]Kլۭi dKWۻƭ[i0Zd 5 Xŋ?ulrWɓ) sS͛9{TZI6hIYvvs;7N3^7У'ȼnk/>NEW$_&c Y@8K"tAZM6 Wb )%ASj9"cT&j[YyohmXq9uY)eR'Qo2 BbF UN馗vcrjtZ" iZj ]*'Ҋz~Zh籾BAFy(d2hhh"oNX^3ڥ˟=[PK뗻 [x˞;>|-Z>9++ºb\Irej+q,6 "q *$i2q,20tCksWyPlqTS4;0VKd|c*WNoϔLsoiW]˽/ݙڝ0px}xydz~ 7g3;;{+]zʧz˫ۺK7Yẕ<ѵC{&Wo{<)Dazڳ{*w<E @U15 ѓ$.b#vЌX@nЍR7:)4 ѧAExSD!D"NcW-a`g$!J"c i8H}_"5I΅wh[d'00\ШB5#"/l!^r#YJlcJ*p}i/mL\6S }IH`S$&+G Rdfݜi"M$'-2LǠ 'hH|R.(V(NVR#4 ѣ )DV`ʉMQ2\' o:Ou֓S)X cFҤ whsj347IJzҞAu@ɼoZ"4Ǩ',Eڎ^*՚LU!媅RTd$'=MX02y,da"ɺe f3r%IB+Z"9-jAպlgKͭnw p;uTahoma(F@0?R KQlt GIF89arttllx Ew,10 d,,Y10H&Dw*PB*Uk,1u@J5@DJ54Dw(xvvx (DwOCD:w\DUw@sJ5me|`.rgisfC:@\wUΑsѬe;r usuI6DWwkKIDwW]Dw@\hJ]5D-w:@\wUsڬeݒr usuIDwKIDwW]Dw\h]D3wˋ3}zd<Dw4liti˒utu,vu`0@wuݒ uh3u;C򙒓uu uSw3u4P0 iOP`u u0鬢upOѸOuu4RBhC3u$uC:Dwu.jgqiHf!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sɳϟ@ JѣH*]ʴӧPJJիXjʵׯ-KٱҪ]˶ZIʝ붮]H-k/[G 0F5qQzuL2]u),sfA9th|I5ujoYtMZٳiNݻy(_μKNt wc7ë>^q㯟?=㣧޾kw 8 ()9IiYhyHo׹^yʨ5~! #x Em1ȤKIbV>FdJ0'^fRjcXgfk擰E)#] q`]:*ʕ":(JJ"ZjZ)z*** + {*[,:kIkZ-j[[ۊۭT{*:uxyg}'¹"ܩ¥2<éBĿR\ŽbrׂܬՒ<٢\\/ hCʼѻSC/Г E3}B-M#4^r/Y0 } ]=ݱ#'#%3޲/C3S^1c3j]K~47b_{]غzd\;_Vg>6W;C=YWK]=Sc?Qaݽ[ kܶos_wß{߷_w8&N#` 8FNc`x9fN`,9ͅ|`#[̶> O#b8?$Ocb?(Ob8@,Pb@06P$c8A4VPdcݸA8va8B<'ta eB׵BL 2C>Џ7dCHP?d7DQGd=DP6QO$eM9ETVQWde]EXvQ_em9F\Qge}F`Qo$f9GdQwc1GhQtf BF-2!#ImNR$%͙InRy!|!t&UI}R(YJR$* JRd,ZKR.-KR0=ZLS$2ML>Sd4YM^St6M ;aO͓@4Θ;9NS> OS@ZPT %BP>TeDZQ^TFQ~T!HZRT)%J RľT1eLC]7li0ͶfA[ϮgQZ]01m`+ف/mZp"aQi%=nq;[$M t{R$ֽHݐp.x;"nz{"}|Kͯ~LN;H@;uTahoma(F@0?R KQlt GIF89arttllJHq >Ew7+uX7HE&Dw0PCQ0:ן7uD:Dw(qvvx (Dw-CD:w\DUwsˋe}`.rgisfC:@\wUsڬeݒr usuIDwKIDwW]Dw\h]D3wˋ3}zd<Dw4liti˒utu,vu`0@wuݒ uh3u;C򙒓uu uSw3u4P0 iOP`u u0鬢upOѸOuu4RBhC3u$uC:Dwu.jgqiHf!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sɳϟ@ JѣH*]ʴӧPJJիXjʵׯ!KٱҪ]˶ZIʝ붮]H-k/[G 0F5qQzuL2]u),sfA9th|I5ujoYtMZٳiNݻy(_μHNq ÇϮ8w虃{^ϧO={_?~~E`~6sF^`&߅e `E b N`(,RWh'R$Xݍ8ю#.D*'@Z&DM:iQB6eDUdY*%D]~`PWֈ`j:fGJbKYYT&~^Mi_ʥth iEuڙ$y)E"ɡZHMjV ͉i!:bu*+ZʫDnd *JBcB٬*-&!lԾh-FzgJ&mDŦһr KKjقyo"/D2\.YA?cV/a#TC'W2i+2{ 0 K+2?{4KOcE|IqvmכY |ˬ&;,C=U|unS rLP8{xa}JuH rNms_ݘ}-έe~wo?˧ꩶ$SP+;;/1/ iϻm/ï@\(׸!/yX#g=Oc Х1Nm:~  fBPh* ;NicZ BPp3D] 9wCPk;tZ-C1{Cl^=wD}~!LeX+00"HCP8\ϒȵ%殉Aaoccx<8ΏB4#hD5NhA9bj/DP<`kȘFr.,yf`'3I;"#eL ґ$$!COӣlUƓ%|=`O -8(ocf>h"D1YLW@&XKMf>mAN&1q?ܛ(XJL$)EBRў: C1:Qդ5-M.P<(=GxR1D*QodOZF,Qi4mFQtAaZNVƠ ZH{4":MS$i=K&R$kD:QVek3zI>T5faPsvFQ~!HZҫU)eJR1ULM6ԯtg`9Xr֩jM;KUjkJOm0m+Pğ;o tL}hJ{ @+Ƹ`u3ٛj6e:խVjyzޣ7]*h:؎ k}z߲BM+e߶k޺kFm~_.x.m&qua|)1{q [/qdz22b#O1Qg)+2-Yv]\e1]6siМ>f(c5qj\9$-AЅmh71! IҘδ7N{ӠGMRԨNWVհgMZ#;uTahoma(F@0?R KQlt GIF89arttll?DVwq E}w7Ь,00     7H&Dw0PCQ0:ם7uDٛDw(qvvx (Dw-CD:w\DUwsˋe}`.rgisfC:@\wUsڬeݒr usuIDwKIDwW]Dw\h]D3wˋ3}zd<Dw4liti˒utu,vu`0@wuݒ uh3u;C򙒓uu uSw3u4ȉ iOP`u u0鬢upǽOuѸOuu4RBhC3u$uC:Dwu.jgqiHf!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sɳϟ@ JѣH*]ʴӧPJJիXjʵׯ"Kٱ]˶۵`cK7ۻw¤˷]uٷ&l/yl"'Sr+7s92hv.tfWv6Y٥i}4ϺKF#9I凋1سk>{O ӧϾ=y!WO{x~}8~E' ~fb&!Ut'vVxԅMǖb!{ ^$h݉⥘ڊUv0'h4բ9f=cAg!|vI~M&F9VەX吔 Eaf%9"ajL(bkpb)'yi&z\7I(c.:c=dtRiOJh]n*b ~j݉'`jQR*uBu* kZDZ߫PJ찥KB UmDFrKjA Qߞ /P>Do; KD?о˰O7 jN㪩bkȿl9qO3tqD ܬϲ\6os: nn$zS QKK#;Qa$}9MkQ#gkM$(:#ڕu g1;z7| Ӝ"J򨏯wN~#xCHx]xC7n 7r[Nv:9N4:Cxh[K:_}y݋OZۚ<œ[\^{(Üۗ?4pr7#&jz⮦1D~d!;x5Z$+!Hd:y rdU\F!WW.3A\c5?.vsDc9M @g.?wyݲB.!g+Αin:ˁN;MO9ԗ5mVհgMZָεw^MbN;uTahoma(F@0?R KQlt GIF89arttll?DVwq E}wh7Ь,00`7H&Dw0GPCQ0:hך7uD:Dw(qvvx (Dw-CD:w\DUwsˋe}`.rgisfC:@\wUsڬeݒr usuIDwKIDwW]Dw\h]D3wˋ3}zd<Dw4liti˒utu,vu`0@wuݒ uh3u;C򙒓uu uSw3u4ȉ iOP`u u0鬢upǽOuѸOuu4RBhC3u$uC:Dwu.jgqiHf!, H*\ȰÇ#JHŋ3jȱǏ CIɓ(S\ɲ˗0cʜI͛8sɳϟ@ JѣH*]ʴӧPJJիXjʵׯKٱ]˶۵`cK7ۻw¤˷]uٷ&l/yl"'Sr+7s92hv.tfWv6Y٥i}4ϺKF#9I凋1سkqË.W9շW}{凟~}g_{ןmavX{–b 28`~aj9x֡i#Wf'Y"|{'q37"e1#@8dcEg!b9ʷoGdK$[Y]q)BݘיUul>feMsYu]9ji` P!*>: !JHJ9wq>9'~jǩNjl9_*h꩖tpRwko&*)Rkr9zx,ɒ-ݢHѩ)yY6-2.zyi;o:y0碻/جς Y qO$,q)-zZ1c9=?sApE_ztI/tM 9;;4{U+{3QO:u55ao:6ez6i6mKtq:7uk{7y*}7[;8Ӆ|8{ƍ3;?v-f,WT2o35[o71+:\9DZ<; |W#ʭGC=̵l//pȽ|G;‹S}㽼-;s}׹;=ěK9{LwO.KƧ4 6(5 fS eu (6 n 86Rv H(7"3Bv( WCUp94!CqAt1WDy07?wICDIse=|YuWFڝ}i^,F]zQWG{qDFAuG}~"7 auI413T]!YwH|(W &v\*FDF`%+52,WKS~20 3ɤ2>3. YLWRT4;X^38KXS\:[S}xG S$@XP$T eBO>TD0R%FXQLJD{}MX#ucI=O=#xQ9j$e7YzJTAePkTTeSILSAUQ%TmTI1NXSP>acCYUT^UYeZYVd~JViudG!U\Uq\YWhVyRUXpU%bXl>VefYt^VhYZxVjyR`yZ|V%X [VepZ\Wɥl-\>(DX%-h>Z&/DuRěo{igZ&p{jsvoi݆[k ;#&)ݑhvވlgd۽F/fx)7D`n!nw=n˛"vHzHKd )!(|iBqH9qN>8Ё{D/:ȏ+PԧN[XϺַ{`NhO ;uTahoma(CancelqOuTahoma(OKhoqOuTahoma4($alpha = Npts / Points in Input RangeX7@Tahoma@(0Number of points for the moving regression, Npts5TahomaD(3Smoothing parameter, alpha (Typically 0.25 to 0.5)5TahomaH,,5Tahoma@H,,0.335TahomaH$? ,5Tahoma ? X5Tahoma ? X5TahomaH$? ,5Tahoma ? X5TahomaH$? ,5Tahoma ? X5TahomaH$? ,5Tahoma(Identify ranges used in these calculations. If one cell is selected, the program will use cells below until the first blank cell.d75Tahoma(The values in Xinput and Yinput define the data range. For every X value in Xoutput, the program will calculate the corresponding Y value in Youtput.7N5Tahoma@(.Identify parameters used in these calculationsts8X5Tahoma!|!5Tahomane single range. Shared X input and X output values in first column, Y input in second column, Y output will go into third column.d 2 ToggleButton2  Two separate ranges. Shared X input and X output values in first column, Y input in second column of first range. Y output will go into second range.t. 2N ToggleButton3 Three separate ranges. Shared X input and X output values in first range, Y input in second range, Y output will go into third range. 2 ToggleButton4{Two separate ranges. X input and Y input values in first and second columns of first range. X output in first column and Y output will go into second column of second range. 2 ToggleButton5 Three separate ranges. X input and Y input values in first and second columns of first range. X output in second range. Y output will go into third range. 2 ToggleButton6{Three separate ranges. X input in first range. Y input in second range. X output in first column and Y output will go into second column of third range.e. 2 ToggleButton7 Four separate ranges. X input in first range, Y input in second range. X output in third range. Y output will go into fourth column., ;8btnCancelton4((74btnOKa<,(02XlblAlphaEquation`*, 2`lblNPointsua&(2dlblAlpha$#( 4txtNPointsuaG'$<txtAlpha#(18 RefEdit1) (2, Label1t1 (2, Label2t1x(18 RefEdit2(2, Label3t2(18RefEdit3(2,Label4t38(18RefEdit4I42lblIdentifyRanges{>02lblDefineRangesn{0 2`lblParametersesn{ 0 "20lblValidationesn Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} F_LOESS Caption = "PTS LOESS Calculator" ClientHeight = 6660 ClientLeft = 45 ClientTop = 375 ClientWidth = 9195 StartUpPosition = 1 'CenterOwner TypeInfoVer = 48 End ThisWorkbookThisWorkbookSheet1Sheet1M_LOESSM_LOESSM_WtLRM_WtLRM_MenuM_MenuF_LOESSF_LOESSID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} DPROJECTVPROJECTlk b6SummaryInformation(#clDocumentSummaryInformation8iDocument=Sheet1/&H00000000 Module=M_LOESS Module=M_WtLR Module=M_Menu BaseClass=F_LOESS HelpFile="" Name="PTS_LOESS" HelpContextID="0" VersionCompatible32="393222000" CMG="FDFF516CDF37E337E333E733E7" DPB="C4C668B5E8610561059EFB62059D007099388519A7C15AFCB91BCCB71D3C33E498EAF32D6131" GC="8B8927F2EFF3EFF3EF" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=62, 41, 968, 643, Sheet1=50, 50, 1047, 570, C M_LOESS=0, 0, 0, 0, C M_WtLR=0, 0, 0, 0, C M_Menu=0, 0, 0, 0, C F_LOESS=0, 0, 0, 0, C, 200, 200, 953, 755, C "EFEFOh+'0< X`   (4$PTS Excel LOESS Smoothing Utility Jon Peltier<Apply LOESS smoothing to your Excel data. PTS Inc 2009 Jon PeltierMicrosoft Excel@Tt@1ħt@jF՜.+,D՜.+,( PX  $Peltier Technical Services, Inc.' Blank  Worksheets(aiAutosafePathAndNameCopyright NoticeTC:\Documents and Settings\Jon Peltier\My Documents\1 Utilities\_ LOESS\LOESS.xlsLPeltier Technical Services, Inc., Copyright 2009. All rights reserved. F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89qCompObjsm