Особенности рассева дробленого антрацита

Дробленый антрацит характеризуется тремя условными параметрами: длина, ширина и высота частиц. Эти параметры условны потому, что частицы далеки по форме от идеальных параллелипипедов. Об этом можно судить по среднему весу отдельных частиц, который в два и более раз меньше того веса, который имели бы частицы, имеющие форму идеальных параллелипипедов.

 

При рассеве дробленого антрацита между ситами остаются в основном такие частицы, ширина которых соответствует интервалу диаметров ячеек смежных сит.

 

 

Верхняя кривая приведенного в качестве примера рисунка отражает распределение частиц по их длине, а нижняя - по их ширине в остатке между ситами с диаметрами ячеек 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.

Copyright © 2009 - 2021 Алгоритмист | Правовая информация
Сделано в JustCreative | Карта сайта
Яндекс.Метрика