Дробленый антрацит характеризуется тремя условными параметрами: длина, ширина и высота частиц. Эти параметры условны потому, что частицы далеки по форме от идеальных параллелипипедов. Об этом можно судить по среднему весу отдельных частиц, который в два и более раз меньше того веса, который имели бы частицы, имеющие форму идеальных параллелипипедов.
При рассеве дробленого антрацита между ситами остаются в основном такие частицы, ширина которых соответствует интервалу диаметров ячеек смежных сит.
Верхняя кривая приведенного в качестве примера рисунка отражает распределение частиц по их длине, а нижняя - по их ширине в остатке между ситами с диаметрами ячеек 2,5 и 2,0 мм (всего было 72 частицы).
Некоторые из частиц проходят через ячейки с диаметром меньшим, чем ширина частиц за счет того, что ячейки имели не круглую, а квадратную форму. Поэтому часть частиц смогла "протиснуться" по диагонали ячеек. Другая часть частиц просто не смогла развернуться так, чтобы пройти через ячейки, хотя в принципе и могла бы через них пройти. Эти отклонения проявляются в разной степени на разных ситах, но в основном между ситами остаются такие частицы, ширина которых отвечает интервалу диаметров сит. Что касается длины и высоты частиц, то значения первых могут существенно превышать диаметр ячеек, через которые они прошли, а значения последних могут быть существенно меньшими, чем диаметр ячеек сита с остатком частиц.
Таким образом, можно говорить о распределении размеров частиц по трем параметрам: их длине, ширине и высоте. Функция пользователя fsit разбивает пробу с известными размерами частиц на заданные диапазоны по их длине, ширине или высоте, имитируя распределение по условным ситам, после чего к этому распределению можно приметить обычную методику или функцию Rassev: примеры см. на Л7 и Лист1 в Excel.
Эти же операции можно проделать и вручную: подсчитать количество частиц, попадающее в заданные интервалы значений ширины или длины (высоту замерить сложнее), затем определить
значения вида d80, d10, Kn и т.д.
Function fsit(mid, Nmn, Nk, msit)
' Имитация ситового рассева
mid = mid
jk = UBound(mid, 1)
ik = UBound(mid, 2)
msit = msit
jksit = UBound(msit, 1)
ReDim msit2(1 To jksit, 1 To 1)
ReDim Kol(1 To jk)
For k = 1 To jk
Kol(k) = mid(k, Nk)
Next k
Mn = Application.WorksheetFunction.Min(Kol)
jsit = 0: j = 1
L1: jsit = jsit + 1: ss = 0
If msit(jsit, 1) < Mn Then GoTo L3
L2: ss = ss + mid(j, Nmn)
j = j + 1
If j > jk Then GoTo L3
If mid(j, Nk) >= msit(jsit, 1) Then GoTo L2
L3: msit2(jsit, 1) = ss
If jsit = jksit Then GoTo L4
GoTo L1
L4:
fsit = msit2
End Function
Варианты этой и других функций смотри в прилагаемых файлах Excel – файлы RASSEV.XLS, RASSEV2.XLS и RASSEV3.XLS.