аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџўџџџўџџџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRџџџџџџџџРFэЁа†РРBook џџџџџџџџџџџџМ(CompObjџџџџ\SummaryInformation(џџџџџџџџџџџџ8ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџРFMicrosoft Excel 5.0 Worksheetўџџџ5FIBExcel.Sheet.5ўџ`р…ŸђљOhЋ‘+'Гйр…ŸђљOhЋ‘+'Гй0 B'œpebblesort.xlmcounter—, diameters;џџ "Q'€џ?inclass 'numpebs:џџ "Q[€--ˆs PebbleSortTab:џџ€%phivalrowcounttempП values and tabulates the number of UMdiameters falling into each 0.5 П size category. The results are displayed PHin column F, with the corresponding lower limits of each class given in !columns D (П) and E (mm).TLThe tabulated values in column F can be copied and pasted into the worksheetзBK X8 @@5 5 69;7 C@B& A@ V[UXZRYT% <Є@„"№U#ме%LЄьO&„ЄŒС'ŒёШ„(ЬЄ)ьџј„*ќЄЌЮ+ЌЮ,мь-Ќў./ь„0ьџ1ЬЄH…2Фт3LзмЬ456Hь…7мь89  :; (<05ь…=dЇO>І,†?І†5 -created by the PARTICLE SIZE (PtxSize) macro.L"DThis macro has been protected to prevent inadvertent modification.  #The password is Wolman.%Command% PebbleSortTab;%3Sorts pebble count data and tabulates it into 0.5 ПО && categories''Command-option-s'To run program(<(џџ)ў&Calculating--please be patientBz€(Post message on screen))џџ*џBW )Turn off screen updating*(*џџ+џ Helvetica B€*Set font for worksheet++џџ,џC1Bm€'+"Select column holding diameters,%,џџ-џ diametersB=€.,&Name column A of worksheet "diameters"-numpebs3-Рb@.џ9 ! "K\B?-7Count number of pebbles in worksheet column A (numpebs).!.Рџџ/џ C1:C6Bm€.S „ ЪсСПРт\ Andre Lehre B'œpebblesort.xlmcounter—, diameters;џџ "Q'€џ?inclass 'numpebs:џџ "Q[€--ˆs PebbleSortTab:џџ€%phivalrowcounttemp=(3`18X@"к1Дџ#Geneva1ДџМ#Geneva1Дџ#Geneva1ДџМ#Geneva1Шџ#Geneva"$"#,##0_);\("$"#,##0\)"$"#,##0_);[Red]\("$"#,##0\) "$"#,##0.00_);\("$"#,##0.00\)%""$"#,##0.00_);[Red]\("$"#,##0.00\)5*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_),))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)=,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)4+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р рѕџ јР рѕџ јР р ѕџ јР р"Р р"Р р"Р р"Р р"Р р"4Р €@р"<Р I€@ р"<Р I€@ р"4Р @р"4Р H@ р"<Р H@ р"<Р @€H@ р"<Р @€H@ р"4Р @€@р"4Р @€H@ р (Р @ “€џ“џ“џ“€џ…­pebblesort.xlm @„ Ъ U O ?(  dќЉёвMbP?_*+‚€%ŒС&fPage &pƒ„Ё"F `хр?р?# diametersU } Uem} €me} *em} е me} е em U<Є@„№UмеLЄьO„ЄŒСŒёШ„ЬЄьџј„ќЄЌЮ ЌЮ мь Ќў  ь„ьџЬЄH…ФтLзмЬHь…мь   (05ь…dЇOІ,†І†P4, PEBBLE SORT V 1.1<4 AN EXCEL MACRO TO SORT PEBBLE COUNT DIAMETERS IN<4 DESCENDING ORDER AND TO TABULATE THEM BY 0.5 П 1) INTERVALS.1) Written by2* Andre K. Lehre5 - Department of Geology7 / Humboldt State University3 + Arcata, CA 95521 ? 7 Copyright Љ 1989, 1992 by Andre K. Lehre<4 PEBBLESORT may be distributed freely for >6 non-commercial uses. It may not be charged" for in any way.=5TO ABORT THE PROGRAM AT ANY TIME, SIMULTANEOUSLY HOLD<4 DOWN THE COMMAND (CLOVERLEAF) AND PERIOD KEYS.RJTo use PebbleSort, open an Excel worksheet and enter the pebble diameters WOin mm into column A, beginning with cell A1. If any of the diameters fall intoQIthe < 2mm category, enter those values as 1.5. Then run PebbleSort. Be TLsure that the worksheet holding the diameters is in front. Pebble Sort willVNsort the diameters in descending order and put the П equivalents in column B .NFThe macro then loops through the et formats for colums//Рџџ0џB+€/0 0Рџџ1џ 0.00B*€011Рџџ2џC4Bm€122Рџџ3џ 0.0B*€233Рџџ4џC6Bm€344Рџџ5џ0B*€4575Рџџ6џ!R1C1:RC "K\C1Bm€&5Select diameters (in column A)656Рџџ7џ; !Нџ?B'€ 6Sort in descending order777Рџџ8џ!R1C2:RC !с "K\C2Bm€+7#Select column to hold П equivalents808Рџџ9џ=-1*LN(RC[-1])/LN(2)Ba€%8Convert mm values to П values9,9Рџџ:џ: ! РBm€&9Title columns to hold results ::Рџџ;џПB`€:;,;Рџџ<џ: !]РBm€;<<Рџџ=џmmB`€<=,=Рџџ>џ: !%РBm€=>>Рџџ?џ no.B`€>?'?Рџџ@џrowcountBX:?2Initialize counter for determining row for resultsз@w D9P$k$@lNXWeQ586765ogtgd5D6D7@<Є@„A№UBмеCLЄьOD„ЄŒСEŒёШ„FЬЄGьџј„HќЄЌЮIЌЮJмьKЌўLMь„NьџOЬЄH…PФтQLзмЬRSTHь…@+@РџџAџphival$РBX&@Set phi to maximum value (-10)A&AРџџBџcounterBX1A)Initialize counter for scanning diametersB&BРџџCџinclassBX9B1Initialize counter for number of pebbles in classC2CРџџDџRC "K\C2Bm€CSelect next diameterDiDРџџEџSA^C "K\р? A^C !”& "K\ B$ $EA5$HA5B*D"Compare diameter with class limitsE6EРџџFџ inclassC "K\BX4E,Increment class counter if diameter in classF6FРџџGџ counterC !` "K\BX1F)Increment counter for scanning diameters GWGРџџHџAC !> "K\C !U "K\  $CA5$RA5B)G!Quit when diameters are exhaustedH2HРџџIџRC "K\C4Bm€-H%Select cell to hold П value for classI%IрПJџC !В "K\)I!Put П value into this macro cell J]JџџKџGYўџ !Й !§ "K\№П <-1.00B`€DIРB`€B%JInsert П value into worksheetK2KРџџLџRC !Ь "K\C5Bm€/K'Select cell to hold equivalent mm valueLiLРџџMџSYўџ !/ "K\№П <-2.00B`€=2^(-1*RC[-1])B`€BLCompute mm value M2MРџџNџRC !ˆ "K\C6Bm€2M*Select cell to hold no of pebbles in classN)NРџџOџC ! "K\B`€%NInsert no of pebbles in classO;OРџџPџ%phivalC !У "K\р?BXOIncrement value of ПP7PРџџQџ!rowcountC !( "K\BX*P"Increment counter for size classesQSQРџџRџ=C !m "K\C !| "K\  $BA5$RA5B)Q!Quit when diameters are exhaustedR*RРџџSџC !Я "K\Bp€"RScroll to top of worksheetSSРџџTџBz€STurn off messageT T!Рџџm s§B7Tз.я ciq`Ѕ|y’q`”s”v`isŽ^F> Е+++Ћ" јџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ