ࡱ> Cyl  !"#$%&'()*+,-./0123456789:;<=>?@ABEmFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijknoprstuvwx{|}~Root Entry F0?L.DEWorkbook_VBA_PROJECT_CUR" K.0?L.Ctls x T8\pMelinda Winton Ba=  ThisWorkbook=x-xCalibri1?Calibri14Calibri14Calibri1 Calibri1 Calibri1Arial1Calibri1Calibri1 Calibri1Calibri"$"#,##0;\-"$"#,##0"$"#,##0;[Red]\-"$"#,##0"$"#,##0.00;\-"$"#,##0.00#"$"#,##0.00;[Red]\-"$"#,##0.005*0_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- 0.0000% 0.0%0.0 0.000 0.00000 0.0000 0.0E+00 0.0000000 0.000000                #  #  #  #  #  #  #  #  #  #  #  #  "  "  "  "  "  "  "  "  "  "  "  "        ff + ) , *      P  P         `           ! a     H  @  H #X  d@ @   d@ @   d!@ @   d!@ @   `@@   `!@@  "x!@ @  "x!@ @  "x!!@ @  "x! @  "x!@@   D  H #x@@  d@  `  @ #x@  d  #x @   d   d"@ @  `@@  d@  d@  `@  #x @   #x@@   d"@   d" @  #p  #x@  #p   `@   ` @  `   `   d@ @  d@   d@  #p@ @   ` @  #x @  d@ @  d@ @  d@@   d@@  d!@@   d@ @   d@ @   d@@   d"@ @   d"@ @   d"!@ @  "x"@ @  d"@ @   d"@ @   d"!@ @   h@@  `@  ` @   `   `   `@ @   `  `   h@  d  h@ @   d  d  d  h!@ @   `!@ @   h@ @   `@ @   d@ @  #x@ @   d@ @   `@  `   h@@   h@  #x    l@ @    l@ @    l@ @    l!@ @   h@    l@    l@    l!@    l@ @    l@ @    l!@ @    l@ @   l@ @   l!@ @   l!@ @    l!@ @    l!!@ @   "x!@ @   "x!@ @   "x!!@ @   #x   #X   l@    l   l    l@@   l@   l@    h@@ #x@@ #x @ #x@ #x  #x@  #x    H  h@@    h@  #x #x   l@  P  d!@ @   d!!@ @   d!@ @    h@  #X    P   h@ +   h@@ +   h@@+   h!@@ +   h +   h@ +   h@ +   h @ +   h@ @ +   h@@ +   h @+   h@ @+   h@@+   h! @ +   h!@ @ +   h!@@ +  d@ @   d!@ @  "8@ "8 "x "8 "x P P "x@@  "x@  "x  @  "x  @ ||`T}-}= _-;_-* "}A}2 _-;_-* "-@_- }A}3 _-;_-* "?-@_- }A}4 _-;_-* "23-@_- }-}5 _-;_-* "}A}1 a_-;_-* "-@_- }A}( _-;_-* "-@_- }A}9 e_-;_-* "-@_- }}7 ??v_-;_-* "̙-@_-    }}; ???_-;_-* "-@_- ??? ??? ??? ???}}) }_-;_-* "-@_-    }A}8 }_-;_-* "-@_- }}* _-;_-* "-@_- ??? ??? ??? ???}-}? _-;_-* "}x}:_-;_-* "-@_??? ??? ???}-}/ _-;_-* "}U}> _-;_-* "-@_ }A}" _-;_-* "-@_}A} _-;_-* "ef-@_}A} _-;_-* "L-@_}A} _-;_-* "23-@_}A}# _-;_-* "-@_}A} _-;_-* "ef-@_}A} _-;_-* "L-@_}A} _-;_-* "23-@_}A}$ _-;_-* "-@_}A} _-;_-* "ef-@_}A} _-;_-* "L-@_}A} _-;_-* "23-@_}A}% _-;_-* "-@_}A} _-;_-* "ef-@_}A} _-;_-* "L-@_}A} _-;_-* "23-@_}A}& _-;_-* "-@_}A} _-;_-* "ef-@_}A} _-;_-* "L-@_}A}  _-;_-* "23-@_}A}' _-;_-* " -@_}A} _-;_-* "ef -@_}A} _-;_-* "L -@_}A}! _-;_-* "23 -@_ 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L˭ % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  L % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23 % 60% - Accent3M( 60% - Accent3 23 % 60% - Accent4M, 60% - Accent4 23f % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23Ў % "Accent1AAccent1 [ % #Accent2A!Accent2 }1 % $Accent3A%Accent3  % %Accent4A)Accent4  % &Accent5A-Accent5 Dr % 'Accent6A1Accent6  pG %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text %0 : Followed Hyperlink 1Good;Good  a%2 Heading 1G Heading 1 DTj%[3 Heading 2G Heading 2 DTj%?4 Heading 3G Heading 3 DTj%235 Heading 49 Heading 4 DTj%6( Hyperlink 7InputuInput ̙ ??v% 8 Linked CellK Linked Cell }% 9NeutralANeutral  e%"Normal :Noteb Note   ;OutputwOutput  ???%????????? ???<$Percent =Title1Title DTj% >TotalMTotal %[[? Warning Text? Warning Text %XTableStyleMedium2PivotStyleLight16` iGywGy ErrorǁRecVar;MassVarLagranWeightReWilman=CV< GYErrorGYMass JKNoErrora|f^fH( @8Od$"t(vc{BwQlq%@=t(vc{BwQlq% M?b^0 xVOhe}I%M2WfK!ڊ ^FBN/BHR;f < 8F!I౓vSo^* ڧyߗz%Oߤ;YeFlŁmHQYJG _ceu@3S${{Hw9) ^ L -llriW_ܩe<d},3*xԥ`0 x B%aг =c w z#v 3Zņ~虈x.ƿU|j^L1MkTyb'?c}t/#Vj+ W繷?#,>569ˠ#.RڝNű 28 \ȣܨWBҨn4*~,H:>4u9q (%kZʚ_[-8owiWg KXU۵֍lQiVkʫI:{*RP0  wxSM,9dMIѿP)Cq,E^7y"DZ3Y6Aˆ:ϏQrH'~3\MV.9H] QGh6a9K^EQz n|GFJou(iU&K'zU;aL-z7A|FJo*a!K'0z=R<ۡ 9[* գ^^WPd1O>DN .us_߳'?KhO<<:}2I}{ɋ -QygvҚl{\'D)|_ҟ^zż& y}{_}n{6y~;ﴋk|..tpY8WMNc0jM-jwL%wwk+~؂L>{)WeyOItOdB:I&-&l$uKDPD0<:u>NuAnRD:uuW}饓]"qPbo{Ǩ/.1C>2u\W]V=N{㵪>kB+y"Z娏&{V" +rm-`Mn4 eR yU5^D;{g|s՛=2>᣾1b@"; ?G?<۾6@=; ?G?<۾6 OW xVOhufvM6[;AT"E/F&Bi",Y$&+-"Ҵѣ`+=fOARAqko{l<M yx88ߜ? x^hFi"I_T2عW~)Aoͬ&F{<`IFpU(ZIѠ,g8gJ`Q+ GI] yv]r9<VP4ݜ訴uS/5{ׂLp|8{^jo$:K"myBhĝnH#{S0"WyrOuԨ O1B#^/Β&TxHogcP|/{_&WUx.PRKԄ,q곺Lھ靕ya_dmҩ*$YC3mKf[ a^6+ Og,Kܲ8#{K\垞 $ތ#k'}U8! d"QrR@=QrR MK^0 xV_h[Uݛ4KE[&L|Pv2>4a2!@1s}Ӎ=؃ B(/>~|;s4dl`+ ^? x9@itheme/theme/theme1.xmlY[F~/?;I|ͶMBq[if%yKևRh/1 m#zf$38{a)ii3ߜst:8M|:81M_(#bt7v?:!1AM7bS, #~p &,dZ'FX)bH:1Ʉ3.ݥXp90@ƆŽCѦ ?Cpԟ[ܽ^D;[l52QE͙LI=V_jFҔo7]?j[V^_+PWo=Vx^R|Z]f($>@Y6LݳׯU2+TC^]r ŶZ#  ;b14* Ji7C10\*?O4k !ᣄDק^>g?gs+Wݻϝ?݋ө\ǿ鋷>U(|o_XtÇ$ܹO{,Zb'Bx{ f$26# LXfF1f5\Zxj<{Hpo>y%64R 41Ǝ0!!F\(aM8mD!CVF{$,l!Fl8mFmc CL0Ds"!}$B")16; WK-P{"2 G61eGE3v@P~Ds w<"E3X^g%i{d&Dm9(!hjeW¢aaQ`ɁV=0#xBeT/yL`UեvL$r3IȨC4Yuиhd(|PZ+X\6` 4֕I >͚0ApEt /F"Io(,ᢋx\N8q(\~+ Q\dC#I7'<zڵ> Ue~ydsH 8tCPb~,8&^h ̅lUk)]tYy WRQgy lP-$Y#<yH9lgiꙆȮiW1ceX嚼jb4çҽ.֭.ghd5xSfgfX. jiKkq{u:Tr_">|&#.SU*C`C4P{T6y,[yB:S(^zBoU -߯{~mWBcaTӏ.}xE٧5%Zk6bQ+EE\}~)W~qΓoTШۮ]ZF+תvW/N%I(ԼJZzmc`|d*^PK! ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PK-![Content_Types].xmlPK-!֧6 0_rels/.relsPK-!kytheme/theme/themeManager.xmlPK-!u>itheme/theme/theme1.xmlPK-! ѐ' theme/theme/_rels/themeManager.xml.relsPK] oQjⴡ> T8 lv  dMbP?_*+%&?'?(?)?M\\JKTECH-SERVER\Suzy's PrinterG 4dXA4PRIV''''H " dXX??&U} } m}  }                          ~HTB . =B <B  ~ W@ /B 2 ~ @ 0B 3 ʡE? 1B  ~ @ 4B  ~ ? 5B   8 6B  9~ @ B  9~ p@ B 7  : ~ @ B   @?$@ Mbp? B   @@@@ B B  V!@#$$$$$ @$ $ @$$ $ $B V!@#$$$$$ @$ $ @$$ $ $B V!@#$$$$$ @$ $ @$$ $ $B V!@#$$$$$ @$ $ @$$ $ $B B B  V!@#$$$$$ $ @$ @$$ $ $B V!@#$$$$$ $ @$ @$$ $ $B V!@#$$$$$ $ @$ @$$ $ $B V!@#$$$$$ $ @$ @$$ $ $B B BBBBBBB @@. F00TTXTTTH^DbR$$$ H     $   $>@   7 SheetGyggD T8 x  dMbP?_*+%&?'?(?)?"??&U} } m}  }                         ~hTB =B <B  ~ W@ /B 2 ~ @ 0B 3 ʡE? 1B  ~ ? 5B   8 6B  9~ @B  9~ p@ B 7  : ~ @ B   @?$@ Mbp? B   @@@@ B B g @@@Y@$@B B  V!@#$$$$$ $ @$ @$$$ $B V!@#$$$$$ $ @$ @$$$ $B V!@#$$$$$ $ @$ @$$$ $B V!@#$$$$$ $ @$ @$$$ $B B BBBBBBB @@,|000TTXTTH^DbR$V$$ 0     $>@  7ggD T8 s  d  !"#$%'()*+,-./0123456789:<>?@ABCDFGHIJKLMNOPQRSTVWXYZ[\]^_`abcdefghijklmnopqrsuwyz{|}~@2iw@   7 SheetRecVarggD T8 Qz  dMbP?_*+%&?'?(?)?"??&U} }  }  } I} I"@@ @       AFBBBBBBA B;BBBB TA B<BBBB emBB  ~ W@ g BBB ~ X@ g BB M ~ @Q@ h BBAPBBB  $e l# BB  ~ ? f% bHPsׂ? D dD B N ~ ? g% bׁsF? D dD B ~ ? h% dP|a2?D dD B DDDBBBB D _" ^BBBBD Z3iZ!#dDDBBBBBD [Dj[!.#dDDDDBBBBBD \ jBBBBD ]!Dk]!.#dDDDDBBBBBQBBBBBBA R%@YR!*#dDDDDB T BB BVA UQ`U!;DD DD DD  VBB BOA WaW!DA X BB BPABBBBBBBBBBBBB@@8$8,$DPDLukk,ar,rd <      D >@   7 SheetMassVarggD T8 9y  dMbP?_*+%&?'?(?)?M\\JKTECH-SERVER\Suzy's PrinterG 4dXA4PRIV''''H " dX??&U} $} I} m"                              A@BDBBBBBBBB ;BDBBBBBBB  W <BDBBBBBBB BDBBBBBBB nBBBBBBBB   >BBBBBBB  BXBCCBBBBBBBB nBBBBBBB  Y  ? BB ~-S`q}B@ T  B  BCCBBB BI    BB BJ    K L O z, B Z B & @E@(@ t=lq 4@ uE@ v@ {voǂVS@ B  B ' u@@f@ FW1w2 @ ExM@ q٥ ;? | ,.lO@ B B (M@@j@F_L@E^/i9@qJ R@|Iu0@  BB B )&@(@"@Fn1?EϠE?qYp?|$E@ B  \B *B@C@A@o0?pd-rf?rgUx?| C@  B B +~@@(\@ot-8(@p P)đ"@r|A +@||DoQ@  BB Bopr|B  [Bopr|B Bopr|BB BGHs}B  ]BBBBBBBBBB BBBBBBBBBB 4,8, ,L 8z L, , (  ~  s DA ?@cmdBtnLagran < ]` 1 6$Forms.CommandButton.1>@  B      7 SheetLagranggD T8 Y~  dMbP?_*+%&?'?(?)?M\\JKTECH-SERVER\Suzy's PrinterG 4dXA4PRIV''''H " dX??&U} $}  } } } } m"@      @ @ @  AE BDBBBBBBBBBBB DDBBBBB  i < DBBBBB "DBBBBB MbP?*5? BcBBBBBBBBB Y@@ BdBBBBBBBB  BX"ABDBBBBBBBBBBB nBBBBBBBBBB  Y  ABBBBBBBBBB " BCCBBBBBBBBBB  nBBBBBBBBBBB   B BBBBBBBBBB ^" BCCBBBBBBBBBB  nBBBBBBBBBB   CBBBBB ~-  S p2O@  T  B "BCCBBBBBBB BI      B  _B Jk K L M N L O K  L  O  z,  B B@@ c@@~ @W@330@J @L  dL%d?L LBM4DM(@ ,4@J @L  dL%d?L LBtV@ uf^sZ@ v̂ ? wڥU@  B Bj@?@U@ u@0@5@J@L  dL%d?L LBt)@F.? EXP]? qs˓ @ xU_\>@  BB B@@@Q@qq(@.'@@8@F "@ EXY1@ q ؋#>? xϺC^W@ B  `B@y@x@Gz? p(@'n)@ʗ |2@FQH> @ E{i@ qNe'? xtU@  B B,@w@Ȁ@U@ k)@jq'@v7[~5@oKaq @ pxY@ r&O? xԃwV@  BB Bp@w@Ȁ@V@ k)@jq'@qq5@oQ@/ @ pGraR@ r{Mh? x5c|V@ B  aB@u@~@R@^;0)@G).(@7"u7@o-E @ pNƳ@ r0n? xlW@  B Bp@s@(\@~ V@~%bc*@x1(@]tE]5@os5@ p4@ r-h? x@#cWV@  BB B@x@y@V@{1)@(@]tE]5@ou- @ prUc@ rD? xiOlV@ B  b"BGHsyB "BBBBBBBBBBBBB >02>2&fd&>F&2R&2&t-&  B (    s HA ?@cmdBtnWeightRe ]` 0 6$Forms.CommandButton.1|>@R         7 SheetWeightReggD T8 r  dMbP?_*+%&?'?(?)?M\\JKTECH-SERVER\Suzy's PrinterG 4dXA4PRIV''''H " dX??&U} $}  } } } } m"          ALBDBBBBBBBBBB j D  <  "ABDBBBBBBBBBB  nBBBBBBBBBBB   IBBBBBBBBBB  BX"BCCBBBBBBBBBBB nBBBBBBBBBB  Y  JBBBBBBBBBB " BCCBBBBBBBBBB  nBBBBBBBBBBB   K BBBBB ~-  S݇E@ T B ^" BCCBBBBBB BI      B BJ K L M N L O K  L  O  z,  B B &*@E@(@???tav'6@ uTOkE@ vLX@ w`T@  BB B '*u@@f@???Fr @ EƄU@ qpX? x6z&IoQ@ B  _B (*M@@j@???FJfK@ Eܯ#K9@ q̡*kS@ x+;3@  B B )*&@(@"@???F|+mں? Evz`? qė? xZ'MH@  B B **B@C@A@???o6f`?? pa? r!? x_zF@  BB B +~@@(\@???oT@ p ܂%"@ r)5҃w@ xT*S@ B  `"BoprxB "BoprxBB BoprxB  e"BGHsyB "BBBBBBBBBBBBBB BBBBBBBBBBBBB  f"BBBBBBBBBBBBB "BBBBBBBBBBBBB >l 0>22&2R&>F&2&h&&2&&2&0(  ~  s DA ?@cmdBtnWilman` ]` 0 6$Forms.CommandButton.1|>@  R           7 SheetWilmanggD VBA >L. L.ThisWorkbookSheetGyWeightReModulez&xME (SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2\a,#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "SheetGy" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2 d0\Uc,Code updated to VBA by JKTech Pty Ltd (2005)]@]X]p]]]]]]@]x]]]]]]  L!N!'*C5 N%>!P',C6 N%>!P'.C9 N%>'0C12 N%>'2C15 N%>'4 0 N%>.< 2 N%>.@ <!R'D < T%V D'F F6P F8p F: . , F < @ 6 8 :AX 4 N%>(P H F H$6 H 4 N%>%Z(P H$8 H 4 N%>%Z(P H$: H 4 N%>%Z(Pd H$6 H$:  H$8 H$8 H$:  H$6 H 4 N%>%Z(P H ,D5 N%>(P .D6 N%>(Pd$6$: $8$: K15 N%>(PoX]H]]]]] ]8]P]h]]]]]]]]( F\X F^x F`]]]]H]] F| F~( FH Fh F F F6 F8 F: 'd'h H F H <%Z H+| H <%Z H+~ H <%Z H+ H @%Z H+ H @%Z H+ H @%Z H+ H$| H$' H+\ H$~ H$' H+^ H$ H$' H+`d H$| H$  H$~ H$ 'b d H$| H$  H$~ H$  'd h H$~ H$  'h H d h'v v'r'z'x z . xb'f'j H F H$\ r H$^  r  H$` 'l f H$| H$  H$~ H$  l 'f j H$~ H$  l 'j H f j't t r  ,'x t'rd'xk z 'z z'. t r ', H F H$\ t H$^  t  H$` 'n H$| t H$~  t  H$ 'p H$| p H$\ n H+6 H$~ p t H$^ n H+8 H$ p t  H$` n H+: HoAttribute VB_Name = "WeightReModule" 'T: Reconciliation of excess dat@a by wed least squares - B.Wills (1985)AEstimJbe1flow ra MCiduals8 ]fol5t2Lagrangian Method2Code up(toAXJKTech Pty Ltd (200O Public S(ub (]Dim SheetAs SngOConverg ence Do%eMaxItetsIntegerAssayDCe1SDsBala?H _Feed(),I 7c_ pTailO 8R?mHHD7P!PNumberOfColumnVXviejN3= ActiveWorkbook.. C C C("C5").ValuF 6 ̑ 9"ZjJs121TSet([)$kEB ID-Bek.Dsa8s|Fun :onuntA() / c 9ReA$k1 To m&}_bnCal&lfc(*K, (S,L,7, ., ++4@H K$a3NullFor i O!_ )." (0i, 1 m(i$ a 2 " 3 @?aH4G100 * :(_)}e#'i)) 2(Ju?POMhNext i "DS@!5xV>DRJ0/$K1_I_D>_p1P/r (1 ' 0 EndaPrivY<0: k!h?@T6SVar$0 !y ݙSumDpWGs Rm KOm EOm CO@B_m X^-QRepeks/ + Dqd l (\kxME(<><< <( (66`*`,`.x`0`2`4 6 88  :pX <% @% B%`D`F`H`J8 X x Xeei.i,iF8)<X`%)@%)6 )8 ):@ ( \x` ^ ``b`d`f`h`j`l`n`p`r`t`v`H`x`z@ `  | ~ @( x`    0 P p      zD X 8X 2 2 " (0 8@H PX`hpx   (  @P h & **8*hr   8PP  "   (0 8Ph  (@Xp  0P 2p22 <<X(       F8  B  .     0  8 @  H P X h p x  F : ,( 2X :    RWeightRe: Reconciliation of excess data by weighted least squares - B.Wills (1985)2Estimation of best flow rate by weighted residuals,least squares followed by Lagrangian Methods= 0Gf31s%i)6/a#-ells(i, 2) AssayData_Tail(i) = L.C3pSDslFeendl"h1\Conc. .Var_^ 2 * / / 10 %W% % % % %ORecovery؀\j(w-6) / H -Q SumvD+EP*e2GG ) @J*Next iCXB-/ /JGCCXBIterationCount0RepeatF1CDo While < Maxs Andn UWGAFor i To NumberOf|s# @R + CH%)+1 - C)hDO+ % j5B:/ R"#z ci Ea' CFWeB g'If Abs((>= @ rgence Theng @RCRElse]U MIf'LT=mV+ D[LoopKYc_'"W KVBuWB:WE 5*Ǩ- (a b-Bala7=QE$ob/ .Kh_e+ Xv $ 5TE%Sub SheetWeightRe&2GyModule ,__SRP_2;|__SRP_3=x,cmdBtnWeightRe, 1, 0, MSForms, CommandButtonME(SLSSsN0{00020820-0000-0000-C000-000000000046} h@% %*pX@x@x*\R8004*#5d" A(oh`Attribute VB_Name = "SheetWeight Re" Bas0{0002`0820-C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2ControlcmdBtn, 1, 0, MSForms, CommandButton P<@ Sub _Click () Call * End rU~| WrU X`,a!Iq **********0Xconfidence level of 95% in the resultFwould be acceptable. For instances when greater accuracy is required,.then a 99% level of confidence is recommended.]]]]]]]0]HHCheck the function parameters dConfidence Levelfraction$' dRelative Assay Errorfraction$' dOre Component Assayfraction$' dMineral Component Assayfraction$' Mineral Densityt/m3$' Gangue Densityt/m3$'  $'  ?'  G'j  '         ' $YESKKYKT?'S?'n  KT?'  KT?' KT'  KT?'n0    '    ' ''i`]]]0]H]`]x]]pCheck the function parameters dConfidence Levelfraction$' dOre Component Assayfraction$' dMineral Component Assayfraction$' Mineral Densityt/m3$' Gangue Densityt/m3$'  ?'  G'j  '         ' $YESKKYKT?'S`?'nH@  KT?'  KT?' KT'  KT?'n    '    ?'  $' '80'i BThis functions checks that the ParameterValue is not > CheckValue.GIf it is greater, then the ParameterValue is divided by ConversionValue]   The  is >   with units of  .  !This value will be adjusted from   to    $'  'd 'ki] ?KTPn?'ffffff?KTRQ?'333333?KT\(\?'Gz?KTS㥛@'ףp= ?KTS㥛@'Q?KT~jt@'+?KTQ@'Cl?KTS @'Sp-Set Confidence Level to one of the following:  40.9995 0.999 0.9975 0.995 0.99 0.975 0.95 0.9 $''ni0] ?KTRQ?'ffffff?KT\(\?'\(\?KTS㥛@'Gz?KT< j !\xME(6 << <+``@66 i`/ViLIiiiii i@i`ii````````+`55 iiii i@i`iiiii````````+` i i@i`ii`+0`i`+`pi``0%0zD$*\Rffff*0@5ce69682 0 40 h 2  @ & 0 R8  D L 40 B hpx   $6::X>20 @Xx8    0 8@ P` p   (    (08 B @HPX`hpx   $6:>02p0 8  Xh          8 H P .p       B  H N0    @ P X ` h B p x                 (  8 H  X h  x      ( B 0 8 @ H  X h  x              ( |0  *Sample Size by Gy formula - B.Wills (1982)-from P.Gy - Sampling of Particulate MaterialsowElsevier (1979) Chapter 2,Code updated to VBA by JKTech Pty Ltd (2005)9The function will output the minimum sample mass required to achieve a set sampling error.LThe calculated mass is from Gy's formula multiplied by a safety factor of 2.=For routine sampling, a S㥛@'ףp= ?KT~jt@'V-?KTQ@'+?KTS @'S-Set Confidence Level to one of the following:  *0.999 0.998 0.995 0.99 0.98 0.95 0.9 $''n@i80@Attribute VB_Name = "GyModule"  'Sample Size by Gy formula - B.Wills ( 1982)`fr om P.P- xing of ParticpMaterials3ElsevierI79) CHhap! 2Code upd6Pd toAJKTech Pty Ltd (20059The function w out put tminimum sqmass req`uired6achieve a0 setierpror.6c$alrd (is Gy'tipliedc,afebfactor2,F r]ineA,IconfidenPce lRl9 5% inpresultNwoul7dcceptable. A instas when greh accuracy 0E,On99%#B commended3 Public FEcGYM)\(CF0L0Asngle, AssayRelEǁZ@OrebMFral TDop_cm NumberOfS tagesIF95toF5_Ra Li@ n_RD Gangue AlluvGold_YN ng)XDim SD_Max5syA %FPASHGogi`XComposif {`8Ht2kA=_g`}veX R(TOn #GoTo 8Labc'C0heckbbƁparĐ-Q=GMU, 1@0P0, "G X"`f@g'"D"SY H  N <#. % @ " 1 ŀn/= 1 $'D /o@F 1L) * ((y;+ #* 9) # Select Case UQ(TqaB"YES!P:"Y1SXG=S!1End S TrueSa f> 41oyS1/yn"/5$ < 2pJ = ze 7 e &*@ *O0*., uej=ƫ]m*Q+^ 3*(A^p/ 녤)жSlRpHNexD m:cL 0 AE qIy,(6C8 1 Then1= 16PMinwlAssays / .ogicalCompoϊX1 -R ) * ((  + )~+ISelect Case U(AlluvialGold_YN"YES1Y"! AShape0 .2ElseÛDcEnd & cC*TruBF95toF5_R > 4C '@}R (H0AFQ < 2u 7= &7D& SSamplingCon`stant n* M9**l D_MaxEr"rNumOfStagesn*Xtt3WeMass_g*w hRel% SD_R_TwoSiPded(fnceLevel*I&'od= Box(" " &#&` >BG" with u )s of*. vbLf`` ` v:will be adjusted froml!to1/-$, vbOKOnly K c$"D If_^on ;T:One_:P:()/ & icl?3 W0.9Q/ `1.28W2[x`+`.64xZq<96  < 2.d3299 2.5799/ %V807? 9O 3.0hO ]x3.29]u>Seponta a" `6oned+ooco50e55 5 ~ / 1_11)T" O1.|98O"O1eA)O?1 2./1q#/ /1 / s1e 111l11m 080#00`,a!Iq **********0<`)Qq ***00(`a *(!`a *n\v#xSheetRecVarEUsefulModuleU__SRP_4 tT__SRP_5vyME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "SheetRecVar" Bas0{00020820-CA$0046} |G lobalSpacFalse dCreatablPredec$laIdTru BExposeTemplateDerivBustomizD2*\*xME(6 << <+`@ i `8@i (@%@zD$*\Rffff*0A5ce69682B  B 6P f ,  H  h   ;The function JKNoError(anything) is the same as using.ed/ If(Iserror(anything),0,anything)`The default value "0" can be changed to whatever you like by using the optional second parameter&eg JKNoError(something,"")BThis shortens many formula, especially those with long 'anythings'Phil Guerney - July 2005 $ 'dX 'kHi@8Attribute VB_Name = "UsefulModule" Public Function JKNoError(x As Varia@nt, Opose with @long 'ps'$Phil Guerney - Ju2005If Is) cnA-+CJElse x@BIf Eŋ rU~| krU ,`/nSheetMassVarxLagranModule SheetLagran-SheetWilman+\@#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "SheetMassVar" Bas0{00020820-C$0046} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD24 N%>%Z(P Hd$6$: $8$: H9 N%>(Po 0]x]]]]]]] ]X] F| F~ F  F6@ F8` F:'d'h H F H <%Z H+| H <%Z H+~ H <%Z H+d H$| H$  H$~ H$ 'b d H$| H$  H$~ H$  'd h H$~ H$  'h H d h'v H F v  v  'n H$| v H$~  v  H$ 'p H$| p n H+6 H$~ p v n H+8 H$ p v  n H+: Ho״Attribute VB_Name = "LagranModule" 'L: Reconciliation of excess data by non-weighted least squares - B.Wills @(1984)S imple8de adjustm8entK >-fopllow[kgian multipliers(dCoOup,t oASJKTech Pty Ltd (2005D Publi@c Sub +(PDim SheetAs S ng3AssadyDCenBalance%_Feed()R 'DoNeCÀǟTail(0RangSPNumberOfColumnsAIntegerGBijNc= ActiveWorkbook..Al CF9Cj B=("C6"~Nm 9 Set-D#K! S@.X[ s@?sF$unCon untA() / gReAYO1 To "Q;Fa_RCall$r@c(e,g-, ++/o5H bF).ValuNull#For i`00'!_ )." (i, 1 m(i$ 2 6 ɗ 3 "; 4 100 * ( ǪcIi))`_(`ҟ` 9Next i :"H D)1)1/ PA EndaPrivaذff 4QJ[2mhHjr +FveryQamSumD`xuDmGm KOm EOm XB]c /hF{_y7Ma+3SU<EsR8=_ r#SR"= 0G@X?Y CSuCi)2XM/a3 /ls\2ߔ[R /#3$2= TD  -,s!PD@)H b+ Wt+Ya9G  ^ 2sW==OC/aGSS_ _ C`A 1YXB) VE!h`*Hg (e$ G 6"(E}lK'*+ Q*P/ M*6pExE 6h  (08@HP X h       @X*b.\?cx*cmdBtnLagran, 1, 0, MSForms, CommandButtonME(SLSSsN0{00020820-0000-\bxME(<><< < 0,,`*``0`4x 6 8 :( <H% Bh%`D`F`H`J   p..iF)<%)6 )808 ):p X`b`d`h`n`p`v`H |P8 ~p    ( H h 0`0zD_ Z .` ( 2 "   (08@HP X h       @X*p**r x N  "    (0 8Ph 0 <P<(   (0:X  &.    0TLagran: Reconciliation of excess data by non-weighted least squares - B.Wills (1984)lan'Simple node adjustment by least squares"followed by Lagrangian multipliers,Code updated to VBA by JKTech Pty Ltd (2005)]@]X]p]]]]0]P]p]]] L!N!'*C6 N%>'0C9 N%>'4 0 N%>.< <!R'D < T%V D'F F6 F8 F:( F < 6 8 :A 4 N%>(P H F H$6 H 4 N%>%Z(P H$8 H 4 N%>%Z(P H$: H 4 N%>%Z(Pd H$6 H$:  H$8 H$8 H$:  H$6 H 0000-C000-000000000046} h@% %*pX@x@x*\R8004*#5d" Aoh`Attribute VB_Name = "SheetLagran" Bas0{00020820-CA$0046} |G lobalSpacFalse dCreatablPredec$laIdTru BExposeTemplateDerivBustomizD2ControlcmdBtn, 1, 0, MSForms, CommandButtoP;A? Sub _Click()  Call A( End b.\"cx*cmdBtnWilman, 1, 0, MSForms, CommandButtonME(SLSSsN0{00020820-0000-0000-C000-000000000046} h@% %* pX@x@x*\R8004*#5d" Aoh`Attribute VB_Name = "SheetWilman" Bas0{00020820-CA$0046} |G lobalSpacFalse dCreatablPredec$laIdTru BExposeTemplateDerivBustomizD2ControlcmdBtn, 1, 0, MSForms, ComdBuhttoP;? Sub _Click() ACall (  End 0* pHd VBAProject4@j = r zD J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE16\MSO.DLL#P 16 .0 Ob LibraryNWilmanModule d#_VBA_PROJECTdir__SRP_0) @ 6 8 :A 4 N%>(P H F H$6 H 4 N%>%Z(P H$8 H 4 N%>%Z(P H$: H 4 N%>%Z(Pd H$6 H$:  H$8 H$8 H$:  H$6 H 4 N%>%Z(P Hd$6$: $8$: K12 N%>(Poh]]]H]]]]]]]](]@]X]p]] F\ F^ F`]]P]]]]0 F| F~ F F F F  F6@ F8` F:'f'j H F H <%Z H+| H <%Z H+~ H <%Z H+ H @%Z H+ H @%Z H+ H @%Z H+ H$| H$' H+\ H$~ H$' H+^ H$ H$' H+`d H$| H$  H$~ H$ 'b H$\ H$~ H$ ' H$^ H$| H$  H$~ H$ ' H$` H$~ H$|  H$~ H$ ' f H$| H$  H$~ H$     $ 'f j    $ 'j H f j'v H F H$\ v H$^  v  H$` 'n H$| v H$~  v  H$ 'p H$| p H$\ n H+6 H$~ p v H$^ n H+8 H$ p v  H$` n H+: p H$\ n' p v H$^ n' p v  H$` n'r HoAttribute VB_Name = "WilmanModule" 'L: Reconciliation of excess data by varian$ in ma2equXs - B.ls ( 1985)EstimObest flow raRQcompo`nent VEDadjustm8Lagrang Multi@pliers/C@ode up[ePd toA_JKTech Pty Ltd (200T Public Sub (aDim SheetAs 2Sng5AssayQCelSDsBal5_Feed() 7Do^eCt_ TailO G8R^HD7PH+PNumberOfColumnsAIntexgerijNGr= ActiveWorkbook..z C?x C("C6"{ 9 H12 $Set@8@ /#,%5)D 5^.8s+sgFun -onuntA() / c 9Rel$_1 To b`p_aCalfld@c(e,3, *,++0< H).ValuNullCFor i1P'_ ).BT(i, 1 N3i$  2 7 & 3 B< 4 100 * )Ti)'Ji))I&`( b` 9Next0 i "KDv" $6 Pb1 / (1 ` EnduA Privv3^4@5 M65(q6nO7,aHVarw`bR'їvery |SumDWpXumGRm AA_m BB!_m CC_m "KOm EOm >X^(qO{QRepeatIte!Co`dq*##`oOs4r"7r`I#7#S;#5f=_ [Loxf_RGe?P:m`cC= 0B?Q7,0m{Ӏ/aS /ls!28[/#3$bm G % Q wG2?^ 2@{ Q/ x0A 5Y/ 10 Var_Tail(i) = AssayDataL^ 2 * SDsTRecovery  \:rxME(<><< < h00`*J1`0`2x`4 6 8 :@( <`% @% B%`D`F`H`J ( H QQiF)<%)@%)6PX 8)8 x):  \ ^@( `x``b`f`j`l````n`p`v`H`x`z   |H0 ~h   ( `Hh      ( H h h`hzD \ F` 0 2 " (0 8@H PX`hpx       8Ph  ***0r`  P 8 " @HPX`hpx    (08 @Xp  (@`  2282p <.NNhV&  8 H X Fp : , 2( :`   (    ( UWilman: Reconciliation of excess data by variances in mass equations - B.Wills (1985)L?Estimation of best flow rate by variance in component equations)Data adjustment by Lagrangian Multipliers,Code updated to VBA by JKTech Pty Ltd (2005)]@]X]p]]]]]H]h]]]]] L!N!'*C6 N%>'0C9 N%>'2C12 N%>'4 0 N%>.< 2 N%>.@ <!R'D < T%V D'F F6  F8@ F:` F <~B(Feedl-!l) / )Conc)kAAeśX&C m#BB#;*EZ:4:|CC::D)^:SumDW+&:9gHqr(g+ @V+` CC))=G + 1@2S Next iCXAj./ BI For i61 To NumbehrOfs K3Ɍ+ q* ǁ]@F1 -C[wDjEѷ*{s(BalanceBc- E]5/ Ke+!v $ ec ! * zb@ [!k KMEndKb ReS SheetName6 Convergence MaxIterationsqAssayDataCells SDsDataCellsBalanceDataCellsYBalanceData_Feed1BalanceData_ConcޕBalanceData_Tailj AssayData)Range SDsData, BalanceDataNumberOfColumnsPNumberOfAssaysi`jaActiveWorkbook ActiveSheet%NValueKColumniWorksheetFunction&CountA38 WeightReCalcCellsVar_FeedVar_ConcVar_TailRecoveryBSumD9SumDW SumG9SumGW VarR KbE\CZCB\XB_RepeatIteration IterationCountAssayData_FeedkmAssayData_ConcSAssayData_Tail( SDsData_Feed SDsData_Conc SDsData_Tail_ SheetWeightRezcmdBtnWeightRe_ClickGyModuleGYMassConfidenceLevel AssayRelErrortOreAssay4 MineralAssay OreTopSize_cmZNumberOfStages~ F95toF5_Ratio" Liberation_cm Mineral_RDq Gangue_RD!AlluvialGold_YN0SD_MaxAssasyError%SLiberationFactorOreMineralAssayMineralogicalCompositionFactorqSamplingConstant SampleMass_g  ShapeFactorL$SizeRangeFactorLabError/XCheckParameterSD_MaxAssayErrorSD_Factor_TwoSidedǚUCase5 GYError ParameterValuen CheckValueConversionValueg ParameterTexti"UnitTextintMsgTcMsgBoxRvbLfT%vbOKOnlySD_Factor_OneSided SD_Factor^ SheetRecVar  UsefulModule JKNoErrorxodefaultIsErrorU SheetMassVarM LagranModuledNLagranL LagranCalcS SheetLagrancmdBtnLagran_ClickD SheetWilman@cmdBtnWilman_Click$Wilman΀ WilmanModule WilmanCalcxAA{\BB\CC\Sqr(AX cmdBtnLagran:cmdBtnWeightRek cmdBtnWilmanm   !% ' $Module095ce69682LagranModulebSheetLagran0=5ce69682SheetLagran?SheetWilman0?5ce69682SheetWilman"WilmMSFo@rms>SFrmHs3D452EE1-E08F1A-8-02608C4 D0BB4TINDOWSTFM260L'B @a&/;"1lrAAr00}#0r#G 50 A6358E193-B357-4BD8-A67A-3D3FED@8A58786Users\uqmwint1\AppData\Local\Temp\Excel8.0@d8.exdHe=#.E .`(M A "\¿ThisWorkbookGT@imWpkbok 2 HB1`%B,Q""+bISheetGy*GbISebtGyM23a!a,VWeightReMo@duleG! Wig@tRE`M`!du2."k!"  G !lhe@ )E2\Ma ,*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files (x86)\Microsoft Office\Office16\EXCEL.EXE#Microsoft Excel 16.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.8#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{6358E193-B357-4BD8-A67A-3D3FED8A5878}#2.0#0#C:\Users\uqmwint1\AppData\Local\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  zD  \ ThisWorkbook015ce69682!ThisWorkbook%SheetGy025ce69682%SheetGya,%WeightReModule035ce69682&WeightReModulek0.SheetWeightRe0>5ce69682SheetWeightReUHGyModule0@5ce69682GyModule` !SheetRecVar065ce69682SheetRecVarvx%UsefulModule0A5ce69682UsefulModule*SheetMassVar085ce69682SheetMassVar@%LagranModule095ce69682LagranModulebSheetLagran0=5ce69682SheetLagran?SheetWilman0?5ce69682SheetWilman"WilmanModule0<5ce69682WilmanModule:r(`x0HUwtEMSJqv+RaN &t0k/x1}AͫR;Nu!ob9-C-XUR3ɻF5&hlOfN^a5#nZM^:mUT65{BO\B6nI\HT4Ya45 BXpeÝCB5(68 bExcel+VBAWin16~Win32Win64xMacVBA6#VBA7# VBAProjectstdole`OfficeuMSFormsC ThisWorkbook| _EvaluateSheetGysSWeightReModule!fWeight/5U+' Gye&4$i2qo nEͫ" "RecVarGE6cVar;@21Wv+!zful!iU ieaF"io@-$*+$a "$MassB$aGjM#s $c'$am@$LaUinyLgan3 S9I? 5b$S2$$$?5?WilmanQWiHmn?y-"yoSb` }-:rDK*rU~~~~~~~~~h #ދFd ( Z     ) Q   ! 9 a y       1 Qqq VBAProject ThisWorkbookSheetGyWeightReModule SheetWeightReGyModule SheetRecVar UsefulModule SheetMassVar LagranModule SheetLagran SheetWilman WilmanModuleFHC:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA  a0F:C:\Program Files (x86)\Microsoft Office\Office16\EXCEL.EXEExcel  @0FC:\Windows\SysWOW64\stdole2.tlbstdole !iPL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice `.E .`M C:\WINDOWS\SysWOW64\FM20.DLLMSForms  1ypXcWKz=?Xx9C:\Users\uqmwint1\AppData\Local\Temp\Excel8.0\MSForms.exd  1yGYMassGYErrorCheckParameterSD_Factor_OneSidedSD_Factor_TwoSided  JKNoError@rU  ConfidenceLeve__SRP_1PROJECTwmPROJECTNSummaryInformation(l AssayRelErrorOreAssay MineralAssay OreTopSize_cmNumberOfStages F95toF5_Ratio Liberation_cm Mineral_RD Gangue_RDAlluvialGold_YN SampleMass_gParameterValue CheckValueConversionValue ParameterTextUnitTextxdefaultThisWorkbookThisWorkbookSheetGySheetGySheetWeightReSheetWeightReGyModuleGyModuleWeightReModuleWeightReModuleSheetRecVarSheetRecVarUsefulModuleUsefulModuleSheetMassVarSheetMassVarLagranModuleLagranModuleSheetLagranSheetLagranSheetWilmanSheetWilmanWilmanModuleWilmanModuleID="{1033E1ED-E1DD-4861-884C-DC1EFD935D83}" Document=ThisWorkbook/&H00000000 Document=SheetGy/&H00000000 Document=SheetWeightRe/&H00000000 Module=GyModule Module=WeightReModule Document=SheetRecVar/&H00000000 Module=UsefulModule Document=SheetMassVar/&H00000000 Module=LagranModule Document=SheetLagran/&H00000000 Document=SheetWilman/&H00000000 Module=WilmanModule Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="B9BBB8B8BCB8BCB8BCB8BC" DPB="727073C82DC92DC92D" GC="2B292A93E294E2941D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace     ] ThisWorkbook=0, 0, 0, 0, C SheetGy=54, 70, 1209, 706, C SheetWeightRe=108, 140, 1317, 637, C GyModule=22, 29, 1145, 514, WeightReModule=81, 105, 1228, 733, C SheetRecVar=0, 0, 0, 0, C UsefulModule=81, 105, 1290, 558, C SheetMassVar=0, 0, 0, 0, C LagranModule=54, 70, 1263, 523, C SheetLagran=162, 210, 1116, 663, C SheetWilman=0, 0, 1209, 453, C WilmanModule=135, 175, 1344, 628, C Oh+'0X X`  8 DP8Recovery and Sampling formula for Mineral ProcessingMichael Dunglison8Two Product Formula, Recovery Formula, Gy, Sample SizeMelinda WintonMicrosoft Excel@a͑@݇K. ՜.+,0X `h DocumentSummaryInformation8CompObjk 2Mineral ProcessingTim Napier-MunnJKTech Pty Ltd Gy Gy ErrorRecVarMassVarLagran WeightReWilman  Worksheets FMicrosoft Excel 2003 WorksheetBiff8Excel.Sheet.89q