@)\p Andre Lehre X T 2#-7IXh{(PwB  dMbP?_"*+%1 Geneva1 Geneva1 Geneva1 Geneva1 Geneva&fPage &p&?'?(?)?Mz,, ~ b yg(,, d'@""d??@# length# twolength# typeV General00.00#,##0 #,##0.00#,##0_);\(#,##0\)#,##0_);[Red]\(#,##0\)#,##0.00_);\(#,##0.00\)#,##0.00_);[Red]\(#,##0.00\)"$"#,##0_);\("$"#,##0\)"$"#,##0_);[Red]\("$"#,##0\) "$"#,##0.00_);\("$"#,##0.00\)%""$"#,##0.00_);[Red]\("$"#,##0.00\)0%0.00% 0.00E+00 #\ ?/? #\ ??/?? m/d/yy d\-mmm\-yy d\-mmm mmm\-yy h:mm\ AM/PMh:mm:ss\ AM/PMh:mm h:mm:ss m/d/yy\ h:mm ##0.0E+0mm:ss@52_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_),)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)=:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)41_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_) Engineeringabort,N!analysis_type_DB_def-9?" # gh" #!mCalculateMacro,oclass_size_DB_def-AH ClearMacro,k CopyMacro,ccountercumpct CutMacro,_ExitMenu,J$inv#,'InvNor#,maxphi,Bmenu_def_table0-"&menu_def_table1-'+menu_def_table2-,2menu_def_table3-34 OpenMacro,O PasteMacro,gqPhiEquivalents,phistep,EpPlotSizeDistribution, QuitMacro,[rollup,Jrowcount sampledate,Lsampleno,Msample_info_DB_def-JS SaveAsMacro,W SaveMacro,S SetUpMenuBar,@ sheetname,Csitename,KsSizeDistribution,sdSizeParameters,U"t#,(tailpct#,* twolength #, type,:"u#,* UndoMacro#, AL2C8D359C*C C  C  C  C  C C C C C C C C C C C  C  C  C  C  C  C "0C  C  C  C "0C "8C  (C "8C  C  (C  (C "C "C "8C  (C "0C  C "8C  (C  (C "0C "0C  C "8C  (C  (C  (C  (C "8C  C  (C "8C  U }  } } }   Tl_OGoDG`GeH>`FO<KM > A C` >] dMIGJK9UO1M`AG KpF#] [P!91 PARTICLE SIZE (PTXSIZE) v. 1.9!!91 AN EXCEL 4.0 MACRO TO CALCULATE PARTICLE-SIZE!91 DISTRIBUTION FROM SIEVE ANALYSIS OR WOLMAN !0( PEBBLE COUNTS!!.& written by!!0( Andre K. Lehre !3 + Department of Geology !5 - Humboldt State University !0 ( Arcata, CA 95521 !  !? 7 Copyright 1987, 1989, 1993 by Andre K. Lehre !!;3 PARTICLE SIZE may be distributed freely for!<4 non-commercial uses. Under no circumstances!=5 may it be sold or charged for, including disk!G? distribution fees. On-line distribution is encouraged.!A9 The author assumes no liability for errors in the!# program or its use.!!3+TO ABORT PROGRAM AT ANY TIME SIMULTANEOUSLY!91DEPRESS THE COMMAND (CLOVERLEAF) AND PERIOD KEYS.!!=5 Unless otherwise indicated, clicking "CANCEL" in a!80 dialog box will abort the program.!! INSTRUCTIONS:!OGTo carry out a particle-size analysis, set up the worksheet by choosing!MESizeDistribution from the Size Analysis menu. A dialog box lets you !TLchoose either a pebble count, sieve analysis, or sieve analysis with <2mm  lOO!d"`DO#Z@$]HE% @&[OF'[K(IM) *R+O@,1M- D.V/Y0&G1 2] 3\4a5^M6]@7=ˆ8 9^:<@; <]ˍ=\„>* ?@ !V Nsplit. A second dialog box prompts for the upper bound (in integer phi units)!!R!J of the largest class to be used in the analysis, and for the class width."!L"DThe program will then set up the worksheet, entering all appropriate#!O#Gformulas, and prompting for total weight and split weight if required. $!%!M%EAfter the worksheet has been set up, enter either the sieve weight or&!M&Ethe number of pebbles in each size category. (The numbers in columns'!;'3A and B are the lower bounds of the size classes.) (!)!D)<When you are finished entering data, choose "Calculate Now" *!A*9from the Calculate menu or press 'command-=' to cause the+!#+worksheet to be calculated.,!-!H-@The completed worksheet will display the % of the sample in each.!K.Csize category, and the cumulative % less than the size indicated in/!/columns A and B.0!1!O1GAfter the worksheet has been calculated, choose SizeParameters from the2!N2F Size Distribution menu to calculate D90, D84, D65, D50, D35, D16, and3!S3K D10. These are calculated using log-normal interpolation between the size4!P4Hcategories. Note that the program cannot interpolate between categories5!O5Gwhere one of the categories has 100% or 0% as its cumulative value (the6!/6'inverse normal function is there). 7!8!P8HChoose Plot Distribution from the Size Analysis menu to create a plot of9!.9& either vs cum % or log mm vs cum %.:!;!O;GChoosing -mm Equivalents from the Size Analysis menu produces a table <!N<Freminding you of the mm equivalents of values. Close that worksheet=!=after inspecting it.>!>?!?@lOOAUBCODCF@DZEHEZ@FcFOG_KHKMI.J KQ@LDMM|DN.O PQGQ.R. S TQU.MV.@W XVY.Z.@[ \Q].^. _ @@"Command@/ SetUpMenuBar&@0Puts up Size Distribution menuA+A#Auto exectes on opening macro sheetABB+C@BB-Create custom menu barC%C+?DB# B#C-Add File menu to custom barD%D+@DB# B#D-Add Edit menu to custom barE%E+@DB# B,E-$Add Particle Size menu to custom barF%F+@DB# B(F- Add Calculate menu to custom barGG+DBBG-Display custom menu barH,HB7HI!JCommandJ/ExitMenu&J#Reverts to main Excel menu barK1,K$Auto executes on closing macro sheetK2L1;L+)B  BBB/L'Display appropriate main Excel menu barM&MB7M.N!O"CommandO' OpenMacro%O(Simulates Open from File menuPP+BP-Q,QB7QR!S"CommandS' SaveMacro%S(Simulates Save from File menuTT+BT-U,UB7UV!W"CommandW' SaveAsMacro(W( Simulates Save As from File menuXX+BX-Y,YB7YZ!["Command[' QuitMacro%[(Simulates Quit from File menu\\+B \-],]B7]^!_"Command_'CutMacro$_(Simulates Cut from Edit menu`lOOa.b.DOc @dQHEe.@f.OFg KhSMi.j.k @lSMm.Dn.o pbGq.r. s +tz+uF+vV+@w:+xY+yf+z^+@{w+|_+}_+~e++@``+B1`-a,aB7ab!c"Commandc' CopyMacro%c(Simulates Copy from Edit menudd+B2d-e,eB7ef!g"Commandg' PasteMacro&g(Simulates Paste from Edit menuhh+B3h-i,iB7ij!k"Commandk' ClearMacro&k(Simulates Clear from Edit menull+B4l-m,mB7mn!o"Commando'CalculateMacro1o()Simulates Calculate Now from Options menupp+Bp-q,qB7qr!s"Commands/SizeDistribution3s0+Sets up worksheet for calculating particle-s%stt3t-size distribution.t%tuuCommand-option-su(To run program)u%uvv-STEP()v-v%vww+Bww-Open new worksheetw%wx:x+( Creating Particle-Size WorksheetBzx-x%xyy+BW y-Turn off screen updatingy%yz#z+#)Al.z-&Make pebble count the default analysisz%z{"{+##Al{-Initialize site{%{|"|+#Al|-Initialize date|%|}"}+#Al}-Initialize sample no.}%}~ ~+@#AI~-ADialog box to select pebble count (1) or sieve analysis (2 or 3) ~%~;+)D~ $A5#A5B-Abort on cancel%l+@h+q+@S+z+@Z+h+@+@n+@+x++Z++Z++f+@l++h+w+Z+t+x+^+{+y+^++n+]+S+$+ Helvetica B-Set font for worksheet%-+%  Bm-Select reference cells%+B.- Unock cells%*+$  Bm*-"Select cell to hold worksheet type%+ typeB=-Name cell "type"%!+C)B`!-Put value of type in cell%_+MC) #$Al#3 AlB%-Set default values for maxphi%)+#?Al-Set default class width% +@#AE-=Dialog box to get max size for classes and interval width%;+)D $A5#A5B-Abort on cancel%+C)  $A5jC#  $A5>.For pebble count, max must be -2 or largerBv"B0-(Check for error in max for pebble count%+$A5-Correct max value%p+^CA'  $A59)max is not integer; enter correct valueBvB(- Check to see if max is integer%+$A5-Correct max value%+|CCA'L?Max not evenly divisible by class width; enter correct valuesBv$A5BE-=Test whether max value can be evenly divided by class widths%+$A5'-Re-enter max and class width% +@#A&-Get sample location, date info%-+%  Bm7-/Select cells to hold worksheet reference values%+ 0.00B*&-Set number format (2 decimals)%*+$  Bm'-Select cell to hold max value%+ maxB=-Name cell "max"%!+CB`--%Enter max value into reference cell%*+$  Bm(- Select cell to hold class widths%+ widthB=-Name cell "width"%!+CB`4-,Enter class width value into reference cell %*+$  Bm)-!Select cell to hold column length%+ lengthB=-Name cell "length"%{+iCN !=ABS((max-4)/width)+1B`$=ABS((max+1)/width)+1B`B-Compute column length%-+%?Bm-Select data columns%+ B/-Set column width to 12%+B+- Align center%-+%?Bm-Select first column%l+f+r+h+s+Q++x+I+u+d+V+I+V+M+_+V+O+V+e++E+\+O+V+F++V+T+V+F+++ 0.0B*%-Set number format (1 decimal)%-+%?Bm-Select last two columns%+ 0.00B*&-Set number format (2 decimals)%-+% Bm -Select sample info cells%+B+- Left align%+sCN $Particle-Size DistributionB`+Pebble Count Size DistributionB`B-Set overall title%*+$Bm(- Titling sequence for sample info%+ Site:B`-%*+$Bm%-Select cell to hold site name%!+C#B`-Put site name in cell%*+$Bm-%+ Date:B`-%*+$Bm-%!+ dd-mmm-yyB*-%!+CB`-Put date in cell%*+$Bm-%#+ Sample No.:B`-%*+$Bm-%!+CB`-Put sample no. in cell%c+QCN $%Bm$A5B8-0Include sample wt and split wt if sieve analysis%+B+-%+ 0.00B*-Two decimal places%#+ Sample Wt.:B`-%*+$Bm-%+gmB`-%O+=CN  $A5$A5B&-Skip titling if no < 2mm split%*+$Bm-%(+Split Wt < 2 mm:B`-%*+$Bm-%+gmB`-%*+$Bm/-'Select cell to hold total sample weight%+B+- Align center%l+++V+S++++s+w+_++q+\+t+o+^+V+e+V+G+V+F+V+R+V+F+V++V++V+N+< Enter total dry weight of sample sample weightBhB` -Get dry weight of sample%>+,DB4B'-Clear cell if Cancel was chosen%*+$Bm-%+B+- Align center%O+=CN  $A5$A5B*-"Branch to avoid entry of 2mm split%m+[@Enter weight of < 2mm split; CANCEL if identical with sample wt. split weightBhB`"-Get weight of < 2mm split %4+"D $A5$A5B:-2Branch if < 2mm different from total sample weight%+ =B7B`2-*If < 2mm same as total wt, copy it to cell%*+$  Bm'-Select cell to hold "twolength"%!+ twolengthB=-Define cell name%++=ABS(max+1)/widthB`?-7Compute "twolength" (no. of cells to hold > 2mm values)%-+%  Bm-Select reference cells%+B.-Lock reference cells%*+$Bm$-Titling sequence for columns%C+1)Formatting Worksheet -- Please Be PatientBz-%2+  diameterB`-%*+ $  Bm-%9+'! lower limit of size classB`-%*+ $  Bm-%+ phiB`-%*+ $  Bm-%+mmB`-%*+ $  Bm-%&+geometric meanB`-%*+ $  Bm-%+mmB`-%*+ $  Bm-%g+UCN  wt. on sieveB`no. of pebblesB`B0-(Titles vary depeding on type of analysis%*+ $  Bm-%^+LCN weight%B` % of totalB`B-%*+$Bm-%]+KCN  cum. wt. %B`cum. %B`B-%l+V+T+V+h++d+++y+++X++X++X++X+l++j++v+++|+++u+++*+ $  Bm-%(+< indicated sizeB`-%*+ $  Bm-%+ =maxB`%-Set maximum size for analysis%D+2R14C1:R  CMtC1Bm%-Select cells to hold values%&+=R[-1]C+widthBa-Compute values%>+,R CMtC1Bm)-!Select cell to hold final value%Y+GCN < 4.0 B`<-1.0 B`B:-2Insert final value depending on type of analysis%"+counter BX1-)Initial counter for formatting mm columns%=++RC C2:RC C3Bm0-(Select cells in mm and geom mean columns%H+6RC[-1]!^AO  0B*$A5B&-No decimal places if < -6.5%+$A5-Go to end of loop%J+8RC[-1]!^AO  0.0B*$A5B.-&One decimal place if -6.5 =< < -3.25%+$A5-Go to end of loop%K+9RC[-1]!^AO@ 0.00B*$A5B/-'Two decimal places if -3.35 =< < 2.25%+$A5-Go to end of loop%L+:RC[-1]!^AO@ 0.000B*$A5B0-(Three decimal places if 2.25 =< < 3.75%+$A5-Go to end of loop%+ 0.0000B*(- Four decimal places if >= 3.75%p+^C  CMt   counterC =BX$A5B4-,Increment counter and branch to next section%+$A5+-#Go back to start of formatting loop%D+2R13C2:R  CMtC2Bm&-Select cells to hold mm values%&+=2^(-1*RC[-1])Ba*-"Compute mm equivalents of values%>+,R CMtC2Bm*-"Select last cell of mm equivalents%]+KCN  < 0.0625 B`< 2.00 B`B;-3Insert final mm value depending on type of analysis%*+ $  Bm,-$Select first cell for geometric mean%-+=2^(-1*(RC[-2]-0.25))B`/-'Compute geometric mean for largest size%D+2R14C3:R CMt C3Bm3-+Select cells to hold geometric mean values %0+=SQRT(R[-1]C[-1]*RC[-1])Ba-Compute geometric means%>+,RCMt C3Bm5--Select cell to hold last geometric mean value%W+ECN 0.0000B*0.00B*B3-+Four decimal places if sieve, two if pebble%X+FCN 0.0156 B`1.00B`B--%Insert value for final geometric mean%l++++Q+K++\++ + + i+ o+ +Q+j+Q++++b+++b+++++^++h++D+2R13C4:R CMtC4Bm<-4Select cells to hold sieve weights or pebble numbers%R+@CN 0.00B*0B*B5--If sieve, two decimal places; if pebble, none%>+,RCMtC3Bm#-Titling sequence for totals%+B+- Left align%+ Total: B`-%>+,RCMtC4Bm>-6Select cell to hold total of C4 (total wt or total no)%+ totalB=-Name cell "total"%O+=CN  $ A5$A5B--%Branch to calculations if < 2mm split%J+8 =SUM(R13C4:RCMt C4)B`,-$Compute simple total of values in C4% D +2R13C5:R CMt C5Bm+ -#Select cells to hold wt or number % %  ) +=100*RC[-1]/totalBa -Compute % of total %   +$A50 -(Go to computation of cumulative % values %  > +,RCMtC3Bm/ -'Titling sequence if < 2mm split present %  % + Total > 2mm: B` - % >+,RCMtC3Bm-%%+ Total < 2mm: B`-%D+2R13C5:R CM C5Bm5--Select cells to hold wt % of fraction >= 2mm %(+=100*RC[-1]/R7C2Ba9-1Compute wt % of total sample for fraction >= 2mm %>+,RCMtC4Bm7-/Select cell to hold total wt of fraction >= 2mm% +bigtotalB=-Name cell "bigtotal"%J+8 =SUM(R13C4:RCM C4)B`+-#Compute total wt of fraction >= 2mm%>+,RCMtC4BmC-;Select cell to hold total wt of fraction < 2mm (from split)% +twototalB=-Name cell "twototal"%k+Y=SUM(R CMC4:R0C?Mt C4)B`7-/Compute total wt of fraction < 2mm (from split)%e+SRCMC5:R+C:Mt C5Bm<-4Select cells to hold adjusted wt % of < 2mm fraction%@+.(=100*(RC[-1]/twototal)*(1-bigtotal/R7C2)BaG-?Compute wt % of < 2mm fraction (split prorated to whole sample)%*+ $  Bm;-3Select cell to hold 100% (top cell of cumulative %)%+ 100.00B`-Insert 100 in cell%D+2R14C6:R CMt C6Bm;-3Select cells to hold cumulative % < indicated value%&+=R[-1]C-RC[-1]Ba-Compute cumulative %%>+,RCMtC5Bm&-Select cell to hold total wt %%J+8 =SUM(R13C5:RCMt C5)B`-Compute total wt %% l+!+"Q+#+$Q+%X+&j+'F+(j+)E+*++R+,L+-j+.\+/+0j+1|+2j+3J+4j+5J+6j+7J+8j+9J+:j+;J+<j+=J+>j+?J+ e +SRCMtC3:R+C:MtC5Bm, -$Select cells to hold size parameters % !!+B,!- Make bold!%!">"+,RCMtC4Bm4"-,Titling sequence for size parameter headings"%"##+B+#- Left align#%#$,$+ Size ParametersB`$-$%$%>%+,RCMtC4Bm%-%%%&&+mmB`&-&%&'>'+,RCMtC5Bm'-'%'((+B`(-(%()e)+SRCMtC3:R+C:MtC3Bm,)-$Titling sequence for size parameters)%)**+B+*- Right align*%*+ ++Dmean = B`+-+%+,>,+,RCMtC4Bm,-,%,--+ 0.00B*--Two decimal places-%-.{.+i =SUM(R13C5:RCMt  C5*R13C3:R<CKMt C3)/100Bb4.-,Compute % weighted geometric mean size in mm.%./>/+,RCMtC5Bm/-/%/0,0+=-1*LN(RC[-1])/LN(2)B`*0-"Convert mean size in mm to units0%01>1+,RCMtC3Bm1-1%122+ D90 = B`2-2%23>3+,RCMtC3Bm3-3%344+ D84 = B`4-4%45>5+,RCMtC3Bm5-5%566+ D65 = B`6-6%67>7+,RCMtC3Bm7-7%788+ D50 = B`8-8%89>9+,RCMtC3Bm9-9%9::+ D35 = B`:-:%:;>;+,RCMtC3Bm;-;%;<<+ D16 = B`<-<%<=>=+,RCMtC3Bm=-=%=>>+ D10 = B`>->%>?e?+SRCMtC4:R+C:MtC4Bm8?-0Select cells to hold size parameter values in mm?%?@l+A[+Bw+C]+D+E~+F_+GV+H+I +Jb+K+Lp+M+NZ+On+Pg+QZ+RS+SB+T2+U2+Vo+WQ+XY+Y+Z^+[s+\q+]o+^+_+@@+ 0.00B*@-Two decimal placs@%@A,A+=EXP(-1*LN(2)*RC[1])Ba%A-Compute size parameters in mmA%ABB+B B-Set manual calculationB%BC sheetnameJC+8Enter name for saving worksheetworksheet nameBhtest!C-Prompt for worksheet nameC%CD4D+"DC $EA5$GA5B$D-Test to see if CANCEL chosenD%DE$E+C"BE- Save documentE%EFF+$HA5F-Skip next alertF%FG<G+*!Worksheet not SAVED -- be carefulBv)G-!Alert that worksheet is not savedG%GHH+CN E8Put sieve weights in Column D;calculate with 'command='BvI9Put pebble counts in Column D; calculate with 'command='BvB6H-.Tell user to enter sieve wts or pebble numbersH%HII+ BqI-Scroll left 4 columnsI%IJrollup<J+F* CMt0J-(Compute number of lines to scroll upwardJ%JK!K+CBp)K-!Scroll upward to top of worksheetK%KLDL+2R13C4:R  CMtC4Bm.L-&Select cells to hold weights or countsL%LMM+$PA5M-Avoid abort messageM%M Nabort*N+PROGRAM ABORTEDBvN-Abort on CANCELN%NOO+B)O-!Close worksheet w/o save on abortO%OPP+BzP-Turn off message barP%PQQ+BWQ- Update screenQ%QRR+B7R-R%RS4S5SS%ST!TTT%TU"U/SizeParameters3U0+Calculates size parameters for distributionU%UV/V-'using log-normal interpolation between V%VWWCommand-option-dWmeasurement points.W%WXHX+6.Calculating Size Parameters--Please Be PatientBzX-Turn on message barX%XYY+BW Y-Turn off screen updatingY%YZ#Z+rowcountBX*Z-"Initialize value for scanning rowsZ%Z[*[+ $  Bm![-Select first cumulative %[%[\*\+RCC6Bm\-Select next lower cum %\%\]M]+;R[-1]C!^AOZ A^Z B$ $^A5$hA5B?]-7Check if prev cell cum % is >= 90 and current cell < 90]%]^S^+AR[-1]C!^AOd A^MbP? B% $aA5$_A5B3^-+Check to see if parameter can be calculated^%^_*_+RCC1Bm3_-+Select cell holding category for checking_%_`l+a+b+c+dT+eg+f+g+hl+io+j`+ko+l+m+n+o+p+q+rT+sg+t+u+va+wo+x`+yo+z+{+|+}+~++`:`+(A^Ay<  $aA5$eA5B-`-%Check to see if lowest cell is text`%`a3a+!D90 cannot be calculatedBv1a-)Alert that parameter cannot be calculateda%ab>b+,RCMtC4Bm+b-#Select mm equivalent parameter cellb%bcc+B4c- Clear formulac%cdd+$jA5(d- Skip putting D90 formula in celld%de>e+,RCMtC5Bm*e-"Select cell to hold D90 in unitse%eff+=RC  C1+(NORMSINV(90/100)-NORMSINV((RC8 C6)/100))*(RCSC1-RCjC1)/(NORMSINV((RCC6)/100)-NORMSINV((RC C6)/100))B`f- Compute D90f%fgg+$jA5-g-%Go to computations for next parameterg%gh/h+rowcountCBXh-Increment rowcounth%hii+$\A5!i-Loop back to look for D90i%ij*j+RCC6Bmj-Select next lower cum %j%jkMk+;R[-1]C!^AOT A^T B$ $lA5$vA5B?k-7Check if prev cell cum % is >= 84 and current cell < 84k%klSl+AR[-1]C!^AOd A^MbP? B% $oA5$mA5B3l-+Check to see if parameter can be calculatedl%lm*m+RCC1Bm3m-+Select cell holding category for checkingm%mn:n+(A^Ay<  $oA5$sA5B-n-%Check to see if lowest cell is textn%no3o+!D84 cannot be calculatedBv1o-)Alert that parameter cannot be calculatedo%op>p+,RCMtC4Bm+p-#Select mm equivalent parameter cellp%pqq+B4q- Clear formulaq%qrr+$xA5(r- Skip putting D84 formula in cellr%rs>s+,RCMtC5Bm*s-"Select cell to hold D84 in unitss%stt+=RC  C1+(NORMSINV(84/100)-NORMSINV((RC8 C6)/100))*(RCSC1-RCjC1)/(NORMSINV((RCC6)/100)-NORMSINV((RC C6)/100))B`t- Compute D84t%tuu+$xA5"u-Go to computations for D84u%uv/v+rowcountCBXv-Increment rowcountv%vww+$jA5!w-Loop back to look for D84w%wx*x+RCC6Bmx-Select next lower cum %x%xyMy+;R[-1]C!^AOA A^A B$ $zA5$A5B?y-7Check if prev cell cum % is >= 65 and current cell < 65y%yzSz+AR[-1]C!^AOd A^MbP? B% $}A5${A5B3z-+Check to see if parameter can be calculatedz%z{*{+RCC1Bm3{-+Select cell holding category for checking{%{|:|+(A^Ay<  $}A5$A5B-|-%Check to see if lowest cell is text|%|}3}+!D65 cannot be calculatedBv1}-)Alert that parameter cannot be calculated}%}~>~+,RCMtC4Bm+~-#Select mm equivalent parameter cell~%~+B4- Clear formula%l+g+++a+o+`+o+++++++T+g+++a+o+`+o+++++++T+g++++$A5(- Skip putting D65 formula in cell%>+,RCMtC5Bm*-"Select cell to hold D65 in units%+=RC  C1+(NORMSINV(65/100)-NORMSINV((RC8 C6)/100))*(RCSC1-RCjC1)/(NORMSINV((RCC6)/100)-NORMSINV((RC C6)/100))B`- Compute D65%+$A5"-Go to computations for D50%/+rowcountCBX-Increment rowcount%+$xA5!-Loop back to look for D65%*+RCC6Bm-Select next lower cum %%M+;R[-1]C!^AO2 A^2 B$ $A5$A5B?-7Check if prev cell cum % is >= 50 and current cell < 50%S+AR[-1]C!^AOd A^MbP? B% $A5$A5B3-+Check to see if parameter can be calculated%*+RCC1Bm3-+Select cell holding category for checking%:+(A^Ay<  $A5$A5B--%Check to see if lowest cell is text%3+!D50 cannot be calculatedBv1-)Alert that parameter cannot be calculated%>+,RCMtC4Bm*-"Select mm equivalent paraeter cell%+B4- Clear formula%+$A5(- Skip putting D50 formula in cell%>+,RCMtC5Bm*-"Select cell to hold D50 in units%+=RC  C1+(NORMSINV(50/100)-NORMSINV((RC8 C6)/100))*(RCSC1-RCjC1)/(NORMSINV((RCC6)/100)-NORMSINV((RC C6)/100))B`- Compute D50%+$A5"-Go to computations for D35%/+rowcountCBX-Increment rowcount%+$A5!-Loop back to look for D50%*+RCC6Bm-Select next lower cum %%M+;R[-1]C!^AO# A^# B$ $A5$A5B?-7Check if prev cell cum % is >= 35 and current cell < 35%S+AR[-1]C!^AOd A^MbP? B% $A5$A5B3-+Check to see if parameter can be calculated%*+RCC1Bm3-+Select cell holding category for checking%:+(A^Ay<  $A5$A5B--%Check to see if lowest cell is text%3+!D35 cannot be calculatedBv1-)Alert that parameter cannot be calculated%>+,RCMtC4Bm*-"Select mm equivalent paraeter cell%+B4- Clear formula%+$A5(- Skip putting D35 formula in cell%>+,RCMtC5Bm*-"Select cell to hold D35 in units%+=RC  C1+(NORMSINV(35/100)-NORMSINV((RC8 C6)/100))*(RCSC1-RCjC1)/(NORMSINV((RCC6)/100)-NORMSINV((RC C6)/100))B`- Compute D35%+$A5"-Go to computations for D16%l+o+`+o+++++++T+g+++a+o+`+o+++++++T+g+++\+o+`++/+rowcountCBX-Increment rowcount%+$A5!-Loop back to look for D35%*+RCC6Bm-Select next lower cum %%M+;R[-1]C!^AO A^ B$ $A5$A5B?-7Check if prev cell cum % is >= 16 and current cell < 16%S+AR[-1]C!^AOd A^MbP? B% $A5$A5B3-+Check to see if parameter can be calculated%*+RCC1Bm3-+Select cell holding category for checking%:+(A^Ay<  $A5$A5B--%Check to see if lowest cell is text%3+!D16 cannot be calculatedBv1-)Alert that parameter cannot be calculated%>+,RCMtC4Bm+-#Select mm equivalent parameter cell%+B4- Clear formula%+$A5(- Skip putting D16 formula in cell%>+,RCMtC5Bm*-"Select cell to hold D16 in units%+=RC  C1+(NORMSINV(16/100)-NORMSINV((RC8 C6)/100))*(RCSC1-RCjC1)/(NORMSINV((RCC6)/100)-NORMSINV((RC C6)/100))B`- Compute D16%+$A5"-Go to computations for D10%/+rowcountCBX-Increment rowcount%+$A5!-Loop back to look for D16%*+RCC6Bm-Select next lower cum %%M+;R[-1]C!^AO A^ B$ $A5$A5B?-7Check if prev cell cum % is >= 10 and current cell < 10%S+AR[-1]C!^AOd A^MbP? B% $A5$A5B3-+Check to see if parameter can be calculated%*+RCC1Bm3-+Select cell holding category for checking%:+(A^Ay<  $A5$A5B--%Check to see if lowest cell is text%3+!D10 cannot be calculatedBv1-)Alert that parameter cannot be calculated%>+,RCMtC4Bm+-#Select mm equivalent parameter cell%+B4- Clear formula%+$A5(- Skip putting D10 formula in cell%>+,RCMtC5Bm)-!Select cell to hold D10in units%+=RC  C1+(NORMSINV(10/100)-NORMSINV((RC8 C6)/100))*(RCSC1-RCjC1)/(NORMSINV((RCC6)/100)-NORMSINV((RC C6)/100))B`- Compute D10%+$A5-Exit computation loop%/+rowcountCBX-Increment rowcount%+$A5!-Loop back to look for D10%>+,RCMt C5Bm/-'Move to empty cell to clear formula bar%+ Bq-Scroll to left margin%X+m+d+Z+S+++R+R+B+2+2 c E E ? B J y  j    y K C p ^ s W +  Bp(- Scroll upward to show parameters%+B %-Turn on automatic calculation%+Bz-Turn off message bar%+BW- Update screen%4+"DC $A5$A5B4-,Save worksheet if it's been previously saved%<+*!Worksheet not SAVED -- be carefulBv)-!Alert that worksheet is not saved%+$A5- Skip to end%+B-Save worksheet%+B7-%)5% %Command/PlotSizeDistribution,#$Makes a scatterplot of particle-size+-%distribution. Cumulative % less than+-%indicated size plots on X-axis, or -'log of particle size on Y-axis.Command-option-p.(To run program)+BW Turn off screen updatingK+91Plotting and formatting graph --please be patientBzDisplay wait messageF+4R13C10:R CMt C10BmA9Select first column of scratch area to hold cum. percents+ =RC[-4]Ba91Put cum. percents in first column of scratch areaK+ &90To plot mm click OK; to plot click CANCELBv'Choose mm or for size displayD+2R13C9:R CMt C9BmD<Select second column of scratch area to hold size categories@+.D=RC[-7]Ba=RC[-8]BaBH@Put appropriate size categories in second column of scratch areaE+3R13C9:R CMt C10Bm"Select entire scratch area+ &B2#Copy the whole scratch area+ &BwOpen a new chart+ & B5A9Paste first column of scratch area into x, second into y +BH3+Choose scatter plot w/ lines between points9+'DAxis 2Bm$A5B( If mm, select size axis (x-axis)&+BWMake x-axis logarithmic++BT*"Make minor ticks on x-axis visibleD i I [ i H W y i H Z i Z _ g i K c i y T @ ? T . Z  B E Q .+Geneva B )!Use 9-point Geneva for axis units+BPPut mm label on x-axis,%="particle size, mm"B`-Text for x-axis label.+Geneva B )!Use 9-point Geneva for axis label+$A5Skip formatting for + Axis 2Bm'If , select size axis (x-axis)4+"??BW3+Put in reverse order, y-axis at large end.+Geneva B )!Use 9-point Geneva for axis units+BPPut label on x-axis+%="particle size, "B`-Text for x-axis label.+Geneva B )!Use 9-point Geneva for axis label+ Axis 1Bm*"Select cum. percent axis (y-axis)*+d BW#Set scale limits for y-axis++BT*"Make minor ticks on y-axis visible.+Geneva B )!Use 9-point Geneva for axis units+BP Put cum% label on y-axis4+"=" cum % < indicated size"B`Text for y-axis label.+Geneva B )!Use 9-point Geneva for axis label+ BLIAPut gridlines on x-axis major and minor ticks, y-axis major ticks+B*"Expand chart window to fill screen+BzRemove message+BW Update screen+B,$Giver user opportunity to save chart$ &B7."Command/PhiEquivalents)0!Conversion between units and mm+-Command-option-q(To run program)+ &Bw-Open new worksheet9+ &'Creating -mm equivalent tableBz-+ &BW -Turn off screen updatingl H C T d ? B M D  B  O  C  _  1 ` 1 E 3 E 4 E 5 E 6 B G ` Q e V ^ ? + & B -Set size of window!+ &Geneva B-Set font+ & B&-Remove row and column headings-+ &%Bm%-Select columns to hold values+ &B+- Align center*+ &$Bm-+ &B`"-Title for column to hold + &B,-Make title' bold*+ &$Bm-  + &mmB`# -Title for column to hold mm  + &B, -Make title bold - + &%Bm -Set number formats for   + &0B* - - + &%Bm! -Set number formats for mm+ &0B*--+ &%Bm-+ & 0.0B*--+ &% Bm-+ & 0.00B*--+ & % Bm-+ & 0.000B*--+ &%Bm-+ & 0.0000B*-*+ &$Bm-+ & -10B`-Insert max value-+ &%Bm!-Select cells for values!+ & =R[-1]C+1Ba-Compute other values-+ &%Bm&-Select cells to hold mm values&+ &=2^(-1*RC[-1])Ba-Compute mm equivalents*+ &$Bm"-Move off of mm equivalents+ &BW- Update screen+ &Bz-Remove message bar D ". # $2 %2 &* '2 ( )0 *2 +4 ,4 -# .F /B 0J 1E 2  3- 4 6@ 7 8` 9F :b ; <y =r > ?}  *  &B7  " File # Open# OpenMacro #O $ Save$ SaveMacro $S% Save As% SaveAsMacro & Quit& QuitMacro &Q ' Edit ( Cut(CutMacro (X ) Copy) CopyMacro )C * Paste* PasteMacro *V + Clear+ ClearMacro +B, Size Analysis,- Size Distribution-SizeDistribution -z. Size Parameters.SizeParameters .d/ Plot Distribution/PlotSizeDistribution /p0  mm Equivalents0PhiEquivalents 0q 1 -2 Exit This Bar2ExitMenu3 Calculate4 Calculate Now4CalculateMacro 4=6 6 Item 6 Horiz 6 Vert 6 Item 6 Item 6 Text6 Initial/Result7 7 Num 7 Pos 7 Pos 7 Wdth 7 Hgt7 88 8 8 8 8 8 9 Dialog box9 ~ 9 @X@~ 9 L@~ 9 Pt@~ 9 l@9 : Option group~ : &@~ : O@~ : "@~ : @i@~ : Z@:Type of Analysis~ : @; Option button~ ; (@~ ; R@~ ; B@; ; ; Pebble Count; < Option button~ < (@~ < R@~ < N@< <  <Sieve< = Option button~ = (@~ = R@~ = T@= = =Sieve w/ < 2mm split= >Default OK button~ > ?~ > ^@~ > a@~ > S@> >Continue> ? Cancel button~ ? @~ ? ^@~ ? f@~ ? S@? ?Cancel? AT BN Ca Di Ei Fa Gc Hc Jc KX Lk M[ N[ Ol Pm Qm Rq Su A Dialog box~ AU@~ AI@~ Au@~ Ak@BNumber edit box~ B @~ B@n@~ B8@~ BR@~ B C Static text~ C@~ C7@~ C4@$CUpper limit of largest classD Static text~ D@~ D7@~ DC@$D(must be integer value of )ENumber edit box~ E @~ E@n@~ E@T@~ ER@~ E?F Static text~ F@~ F7@~ FV@FClass width in unitsGDefault OK button~ G?~ G``@~ Ga@~ GP@ GOKH Cancel button~ H@~ H`@~ H`f@~ HP@HCancelJ Dialog boxJ ~ J M@~ J J@~ J @y@~ J m@K Text edit box~ K @~ K e@~ K 5@~ K j@K  KtestL Text edit box~ L @~ L e@~ L N@~ L d@L M Text edit box~ M @~ M f@~ M Z@~ M `d@M N Static text~ N @~ N 9@~ N [@N N N Sample No.:ODefault OK button~ O ?~ O d@~ O e@~ O P@O  OOKP Cancel button~ P @~ P d@~ P i@~ P P@P PCancelQ Static text~ Q @~ Q 9@~ Q T@Q Q Q(day-month-year)R Static text~ R @~ R 9@~ R @P@R R RDate of collection: S Static text~ S@~ S9@~ S9@SSite name/location:= <T.2> "