автореферат диссертации по машиностроению и машиноведению, 05.02.13, диссертация на тему:Разработка математических моделей для автоматизированного проектирования шаровых барабанных мельниц

На правах рукописи

Стремнев Александр Юрьевич

Разработка математических моделей для автоматизированного проектирования шаровых барабанных мельниц

Специальность 05.02.13 -Машины, агрегаты, процессы

Автореферат диссертации на соискание ученой степени кандидата технических наук

Белгород - 2004

Работа выполнена в Белгородском государственном технологическом университете им. В.Г. Шухова

Защита состоится 24 декабря 2004 года в 14 часов на заседании диссертационного совета д 212.014.04 Белгородского государственного технологического университета им. В.Г. Шухова по адресу: 308012, г. Белгород, ул. Костюкова, д. 46, Белгородский государственный технологический университет им. В.Г. Шухова.

С диссертацией можно ознакомиться в библиотеке Белгородского государственного технологического университета им. В.Г. Шухова.

Автореферат разослан 22 ноября 2004 года.

Научный руководитель

заслуженный работник образования РФ, заслуженный изобретатель РФ, действительный член академии проблем качества России, профессор, доктор технических наук B.C. Богданов

Официальные оппоненты д.т.н., профессор A.A. Погонин,

к.т.н., профессор A.C. Ильин.

Ведущее предприятие

ОАО "Осколцемент'

Ученый секретарь диесептационного совета, кандидат технических наук

М.Ю. Ельцов

ОБЩАЯ ХАРАКТЕРИСТИКА РАБОТЫ

Актуальность темы.

В современном производстве технологические и конструктивные параметры внедряемого помольного оборудования зачастую нуждаются в значительной корректировке при работе в конкретных условиях предприятия. Это связано с тем, что завод-изготовитель не всегда может , учесть все требования заказчика, касающиеся того или иного образца помольного оборудования. Решить эту проблему может комплексный подход к проектированию, определяющих работу помольного агрегата. Непосредственную помощь проектировщику может оказать САПР, построенная на системном анализе процессов, протекающих внутри проектируемой машины. При этом необходимо математическое описание, адекватно описывающее процесс и учитывающее возможности средств вычислительной техники.

Шаровые барабанные мельницы (ШБМ) являются сложными промышленными агрегатами. ШБМ отличаются разнообразием конструкции (соотношение длины и диаметра помольной камеры, количество камер, тип футеровки, характер мелющей загрузки и т.д.) и широким спектром требований для различных условий производства (исходный размер кусков материала, свойства измельчаемого материала, требуемая производительность, тонкость помола, энергозатраты на помол). В связи с этим применение автоматизированного проектирования на базе системного математического моделирования для разработки ШБМ представляется более целесообразным, чем традиционное проектирование, позволяя получить результат, максимально удовлетворяющий требованиям заказчика, в минимальные сроки. Цели и задачи.

Целью работы является разработка математических моделей, охватывающих комплекс процессов внутри ШБМ и позволяющих реализовать автоматизированное проектирование данного помольного * агрегата. Предметом исследования являются математические модели, реализующие представление о комплексе процессов внутри помольных агрегатов, к которым относятся ШБМ. Для достижения указанной цели решался следующий ряд задач:

1) Определение математической модели для процессов, протекающих внутри объекта исследования - ШБМ.

2) Анализ применимости и определение параметров математической модели ШБМ.

3) Разработка алгоритма расчета математической модели ШБМ.

4) Определение методик численного расчета конструктивных и технологических параметров ШБМ.

5) Разработка алгоритмов расчета конструктивных и технологических параметров ШБМ.

6) Создание САПР, реализующей алгоритмы расчета математической модели, конструктивных и технологических параметров ШБМ.

Методы исследования.

При выполнении теоретических исследований и реализации поставленной цели работы использовались методы анализа и систематизации инженерных знаний, теория проектирования, численные методы решения математических задач, концепция объектно-ориентированного программирования. Научная новизна работы.

Разработана математическая модель процесса измельчения в ШБМ на основе структуры потоков материала, учитывающая тонкость помола до и после измельчения, а также характер неодиородностей потоков в ШБМ: байпаса, рецикла и застойных зон.

Найдены критерии применимости разработанного математического описания, указывающие на обоснованность использования модели идеального вытеснения для описания процессов в ШБМ.

Предложена методика построения винтовых поверхностей для автоматизированного проектирования, заключающаяся в замене винтовой поверхности элементарными призматическими участками.

Впервые создана САПР, реализующая алгоритмы расчета математической модели ШБМ на основе структуры потоков. Практическая значимость результатов исследования. Разработана математическая модель и создана САПР ШБМ, реализующая алгоритм расчета математической модели процесса измельчения на основе структуры гидродинамики потоков. Математическая модель позволяет учесть широкий комплекс факторов при проектировании ШБМ. В САПР по исходным данным дается проектное решение для ШБМ с возможностью получения технической документации (комплекта чертежей и спецификаций). Апробация (реализация) работы.

Основные научные и практические результаты работы докладывались и обсуждались на Международном Конгрессе "Современные технологии в промышленности строительных материалов и стройиндустрии", г. Белгород, 2003 г. и на Белгородском

областном конкурсе научных молодежных работ "Молодежь Белгородской области", г. Белгород, 2003 г. Результаты работы.

Программный продукт "САПР шаровой барабанной мельницы", разработанный в рамках диссертационной работы, использовался для разработки модернизации шаровой барабанной мельницы 03x14м в ЗАО "Белгородский цемент". Разработанная САПР и результаты ее функционирования (техническая документация, результаты расчетов, численные методики) используются при чтении лекций, проведении лабораторных работ и практических занятий по дисциплинам специализации 171603 на кафедре механического оборудования БелГТУ им. В.Г. Шухова. Публикации.

По теме диссертации опубликовано 6 печатных работ в виде научных статей и тезисов докладов. С основными положениями и результатами работы в рамках диссертации можно ознакомиться на web-странице автора http://saprmill.narod.ru.

Положения, которые выносятся на защиту.

1) Математическая модель процесса измельчения в ШБМ на основе структуры гидродинамики потоков

2) Алгоритм расчета математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков.

3) Комплекс алгоритмов для расчета основных конструктивных и технологических параметров ШБМ: отношения длины барабана к диаметру, количества и длины камер, мелющей загрузки и профиля футеровочных плит.

4) Методика построения винтовых поверхностей для автоматизированного проектирования деталей машиностроения.

Структура и объем работы.

Диссертационная работа состоит из введения, пяти глав, общих выводов, списка литературы и приложений. Основная часть работы включает 147 страниц машинописного текста, 55 рисунков, 11 таблиц и список литературы из 167 наименования. Общий объем работы 258 страниц.

СОДЕРЖАНИЕ РАБОТЫ Во введении обосновывается актуальность выбранной темы диссертации, формулируется цель и задачи диссертационной работы, указывается научная новизна, приводятся основные научные положения, выносимые на защиту, описывается структура работы.

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

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

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

В рамках второго подхода к моделированию процесса измельчения в работах В.В.Кафарова и М.А.Вердияна был предложен ряд типовых моделей структуры потока материала (вещества) в аппаратах для

измельчения: идеальное смешение (перемешивание), идеальное вытеснение, диффузионная модель, ячеечная модель (табл. 1). __Таблица 1

Вид модели Структурная схема модели Уравнение структуры потока модели

Идеальное смешение ОС^ _0С11ЫХ ^(СВХ-С) л у1- В\ /

Идеальное вытеснение рс0х -1осг 31 дх

Диффузионная <5С„ -> Г)Г дt ь ах2 эх

^ V—

Ячеечная <зсвх дсвых ■КГНШЕЬ 1<ю*-дгс- сл п А "Vй-1 С,)

Модели, представленные в виде дифференциальных уравнений (табл. 1), выражают зависимость между главной характеристикой продукта (С) и параметрами процесса (0- массовым расходом, V-массовой загрузкой, и - линейной скоростью движения материала, -коэффициентом обратного перемешивания, п- числом ячеек, х-линейной координатой, Ь- длиной аппарата), включая также и время измельчения (I). Кроме того, для учета неоднородностей потока в уравнения моделей вводились факторы застойной зоны (доли объема зоны измельчения, занятого частицами, время нахождения которых в ШБМ больше среднего времени измельчения), байпаса (доли потока материала, время нахождения которого в ШБМ меньше среднего времени измельчения) и рецикла (доли потока материала, движущегося со скоростью меньшей основного потока либо навстречу основному потоку).

Один из основных показателей, в соответствии с которым осуществляется выбор и проектирование технологических аппаратов для процессов, связанных с какими-либо превращениями вещества (например, для измельчения), является время, необходимое для того, чтобы превращение вещества (измельчения материала) происходило с достаточной полнотой. Зависимости характеристики готового продукта (доли недомолотого продукта) от временного фактора, а именно от произведения константы скорости реакции (измельчения) к на время

измельчения I дают решения дифференциальных уравнений моделей (табл. 1). Для типовых моделей, без учета факторов неоднородностей потока, решения дифференциальных уравнений представлены в табл. 2.

Таблица 2

Вид модели Решение уравнения модели

Идеальной смешение с = с 1

Идеальное нытсснение С - С е~к1 ^вых ^вхс

Диффузионная 4а р р

<-вых - Ч>Х ре о Ре (1 +а) ехр[- — (1 -а)]-(1 -а)" ехр[-у (1+а)]

где а= Л/1 + 4к1/Ре, Ре = иЬ/Оь

Ячеечная с -с 1 №Х "(И-кО»

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

Более широкое применение получили модели без учета внутренней структуры и механизма процесса измельчения. Среди упомянутых выше моделей следует выделить математические модели гидродинамической структуры потоков. Введение понятия модели потока, т.е. использование приближенных представлений о внутренней структуре потока измельчаемого материала в ШБМ различного конструктивного исполнения, позволяет получать математические описания процессов, относительно простые по своей структуре и удовлетворяющие точности, необходимой в инженерных расчетах. Кроме того, уравнения структуры потоков позволяют получать теоретические зависимости для основных конструктивных размеров ШБМ: отношения длины к диаметру, количество и соотношения длин камер. Этим обусловлен

выбор математических моделей на основе гидродинамики структуры потоков для автоматизированного проектирования ШБМ.

В первой главе рассмотрены современные системы для автоматизированного проектирования промышленного оборудования. На основе анализа существующих систем выявлены наиболее существенные их характеристики, которые позволяют оценивать целесообразность использования САПР при проектировании конкретного оборудования: максимально возможная ориентация на предметную область, поддержка ЕСКД, ассоциативность между деталями, сборками и чертежами, гибкость и масштабируемость, твердотельное и поверхностное моделирование, простота использования, поддержка интерфейса прикладного программирования.

Во второй главе разрабатывается методика построения математической модели процесса измельчения в ШБМ на основе гидродинамики потоков, определяются основные зависимости для данного типа моделей и возможность их применения для моделирования ШБМ.

Для получения обобщенного описания процесса измельчения в ШБМ используется модель, схема которой приведена на рис. I. Модель представляет комбинацию последовательно расположенных зон смешения и вытеснения с участками структурных неоднородностей потока: байпасом, рециклом и застойными зонами. Система уравнений

для данной модели представляется в следующем виде:

р=-(2)

Х + г+к,(1-Ь,>1 4 ;

где Свых - содержание недомолотого продукта на выходе из ШБМ, Свх - содержание недомолотого продукта на входе в ШБМ, X -доля потока, проходящего через последовательно расположенные зоны смешения и вытеснения (при доле байпасирующего потока 1-Х,, рис. О» Ь,(Ь2) - доля объема зоны измельчения, занимаемая застойной зоной, присоединенной к зоне смешения (вытеснения), г - доля потока, занимаемая внутренним рециклом, ё, Г - доли объема зоны измельчения, занимаемые идеальным смешение и вытеснением = рис. 1), к^! (к2^-2) ~ произведение константы скорости

измельчения на время измельчения в зоне идеального смешения (вытеснения).

Рис. 1. Представление структуры потока материала в ШБМ в виде комбинированной модели

При задании различных значений параметров <1, f, X, ^ , Ь2, г можно получать различные типы моделей, отражающие характер процессов в ШБМ. Для определенных характеристик измельчаемого материала на входе и выходе ШБМ (Свх, Свых ) из системы уравнений

(1- 2) определяется произведение 1а константы скорости измельчения на время измельчения. Совместное решение системы 1-2 с диффузионным уравнением (табл. 2) позволяет вычислить значение числа Пекле (Ре, табл. 2) как главной гидродинамической характеристики потоков материала в ШБМ, определяющей основные геометрические характеристики, в частности отношение длины ШБМ к диаметру.

Таким образом, алгоритм расчета математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков можно представить виде, представленном на рис. 2.

Проверка установленного типа и параметров модели производится по найденному из системы (1-2) значению 1а, оно должно входить в пределы, определяемые конструктивными и технологическими параметрами существующих ШБМ.

Расчет основных конструктивных параметров ШБМ начинается с определения отношения длины барабана к диаметру по значению числа Ре из эмпирического уравнения, положенного в основу проектирования помольных агрегатов:

Ре = 6,6ехр(6,5-10_3ехр0,99—) (3)

га

с

начало

ввод исходных данных: содержание недомолотого продукта в исходном, материале и на выходе из мельницы

Рис. 2. Алгоритм расчета математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков

Диаметр ШБМ определяется по заданной производительности по формуле:

0,25 • 6,45 • л • к ■ я • ^(0,001фцр)0-8

3,5

где Э, м - рабочий диаметр ШБМ (в свету), О, т/ч -производительность ШБМ, я, т/кВт*ч - удельная производительность, к - поправочный коэффициент на тонкость помола, <р - коэффициент загрузки барабана, р, кг/мЗ - насыпная плотность мелющих тел, ц -пустотелость загрузки.

В основу определения количества (N _ камер) и длин (1_кам(0...2)) камер (рис. 3) положены данные о том, что на выходе из первой камеры содержание недомолотого продукта в материале приближается к 30% (С вых / С вч >0,3 при Свх =100% - для

однокамерной ШБМ), а содержание недомолотого продукта на выходе из второй камеры, как правило, не менее 10 % (СВЬ1Х /Свх <0,1- для трехкамерной ШБМ). Для определения длины первой камеры ШБМ используется уравнение Розена-Рамлера:

ll=L-lg-b*_, (5) ^Bbixl

где С |1ЫХ1, % - содержание недомолотого продукта на выходе из первой камеры ШБМ.

В третьей главе разрабатываются численные методики для расчета конструкции и технологических параметров ШБМ.

В качестве методики проектного расчета мелющей загрузки принимается подбор мелющих тел по равной суммарной поверхности каждой размерности шара. Сущность методики заключается в подборе мелющей загрузки таким образом, чтобы в каждой из камер мельницы полные поверхности мелющих тел разных размеров были равны между собой.

Выбор такой зависимости обуславливается наиболее полным использованием кинетической энергии и удельной поверхности загрузки. Алгоритм расчета мелющей загрузки для однокамерной мельницы представлен на рис. 4. В алгоритме (рис. 4)

D_sh_tabl[M],Pl_tabl[M],Pov_tabl[M] - табличные значения (массивы) диаметров (массив упорядочен по убыванию), насыпной плотности и средней удельной поверхности мелющих тел.

В алгоритме (рис. 4) D_sh_tabl[M],Pl_tabl[Ml,Pov_tabl[M] -табличные значения (массивы) диаметров (массив упорядочен по убыванию), насыпной плотности и средней удельной поверхности мелющих тел.

По заданному исходному размеру кусков материала (d _ куск) определяется максимальный диаметр шаров мелющей загрузки ( d _ sh ), принимается ассортимент загрузки, вычисляется поверхность (S_rasch) и масса мелющих тел (m_sh) для каждого типоразмера загрузки (рис, 4).

с

начало

3

j fi,L. Р.с1_куск j

D_sh _ tabl[M], PI _ tabl[M], Pov _ tabl[M]

d _sh = 1 Од/40 _куск

-<J = 2,M-1,1^>

P1(0) = PI _tabl[i - l],Pl(l) = PI _tab\[i], Pl(2) = Pl_tabl[i+1], Pov(0) = Pov_tabl[i - l],Pov(l) = Pov_tabl[i],Pov(2) = Pov_tabl[i +1]

S _ rasch = 0.25n ■ fi • D2 • L • (P1(0) + Pl(l) + Pl(2))/

3 3 3 -+-+-

Pov(0) Pov(l) Pov(2)

, /лч S rasch .... S rasch .... S rasch m-sh(0) = в /w 'm-sh(1) = в /n >m_.gh(2) = -

Pov(0) Pov(l) Pov(2)

m_sh(0) = m_sh(0),d_sh(0) = D_sh _tabl[i -1], m_sh(l) = m_sh(l),d_sh(l) = D_sh__tabl[i], m_sh(2) = m_sh(2),d_sh(2) = D_sh_tabl[i +1]

конец

Рис. 4. Алгоритм расчета мелющей загрузки однокамерной ШБМ

Чтобы обеспечить оптимальную высоту подъема шаров в барабане ШБМ и максимальную отдачу энергии ими при одной и той же шаровой загрузке, необходимо выбрать оптимальную форму брони. Подъем

шаров в барабане характеризуется коэффициентом сцепления который можно изменять, применяя различные формы брони. Профиль плит брони влияет на срок их работы и на удельный износ. Наиболее близкую к оптимальной форму износа имеет броня волнистого профиля. При правильном подборе параметров профиля волнистая броня обеспечивает наиболее выгодный угол подъема материала и мелющих тел, при этом имеет место эффект наклепа выпуклых частей профиля как и в каблучковой футеровке. Схема профиля волнистой футеровки представлена на рис. 5.

Профиль футеровки определяется диаметром ШБМ Б, шагом у и подъемом волны профиля Р. Алгоритм определения параметров профиля представлен на рис. 6. Значения у и р определяются по таблицам для различных материалов в зависимости от удельной производительности я (рис. б).

Также. в третьей главе разрабатывается численная методика прочностного расчета основных деталей и узлов ШБМ: корпуса барабана, цапф, болтовых соединений.

о

Рис. 5. Расчетная схема профиля волнистой футеровки

Рис. 6. Алгоритм определения параметров профиля футеровки

Четвертая глава посвящена созданию САПР ШБМ на основе разработанного математического описания формируется обобщенный алгоритм реализации САПР ШБМ (рис. 7), в главе рассматриваются вопросы создания пользовательского интерфейса и программных модулей.

С начало ) Ввод исходных данных

Расчет математической модели процесса измельчения в ШБМ _на основе структуры гидродинамики потоков_

Расчет отношения длины ШБМ к диаметру, длины и диаметра ШБМ

Расчет количества и длин камер ШБМ

X

Расчет ассортимента и массы мелющей загрузки

Выбор типа и расчет профиля

Прочностной расчет деталей и узлов ШБМ

Вывод результатов расчета]^

Анализ результатов расчета, _+ _

Блок графических построений

Рис. 7. Обобщенный алгоритм реализации САПР ШБМ

Главный экран разработанной САПР (рис. 8) содержит раздел ввода исходных данных с возможностью задания дополнительных параметров, раздел задания неоднородностей в потоке материала для модели ШБМ, раздел результатов расчета, а также кнопки запуска расчета модели и построения технической документации.

Результатом работы САПР является проектное решение и набор технической документации, включающий: чертеж общего вида шаровой барабанной мельницы (рис. 9), сборочный чертеж входного днища со спецификацией, чертежи деталей входного днища (торцевой крышки, торцевой плиты, трубошнека), чертежи футеровочиых плит (волнистой наклонной, волнистой, гладкой) для всех камер мельницы.

Регзэьтэтъ* рйУйггз

4 5 Р

21

Ж

И

......

• ' ПОССГОЮИЕ

Рис. 8. Оболочка САПР ШБМ. Главный экран

Рис. 9. Чертеж общего вида ШБМ по результатам работы САПР

Для построения ряда чертежей в составе набора выходной документации (трубошнека, сборочного чертежа входного днища, волнистой наклонной футеровочной плиты) использовалось трехмерное твердотельное моделирование, позволяющего получить любые виды и разрезы электронной модели детали, содержащей сложные поверхности на основе винтовой линии. В случае трубошнека имеет место винтовая поверхность по конусному основанию. Для построения винтовой поверхности (рис. 10, а, 2) используется метод разбиения ее на элементарные участки с прямой образующей (рис. 10, а, 1).

Каждый из элементарных участков представляет собой призму с соответствующим задаче построения профилем основания.

Винтовая поверхность задается радиусами оснований Я и а также высотой Н, соответствующей половине винтовой линии (рис. 10, б). Для построения призм, образующих винтовую поверхность, необходимо установить положение точек их оснований (В, М и т.д. (рис. 10, б)), определить высоту (1, (рис. 10, б)) и углы поворота призм (а,, , Ъх (рис. 11, а, б)) относительно точек оснований. Расчет параметров приведен в табл. 3. В табл. 3 N 0др - количество призматических элементов в винтовой поверхности.

Таблица 3

Расчет элементов винтовой поверхности._

Параметр Расчетная формула

Угол волане между соседними точками оснований призматических элементов a=:t/No6p

Шаг замены винтовой поверхности на N 0рр призматических элементов вдоль оси поверхности All = H/N05p

Угол ориентации основания призмы к оси винтовой линии (угол расположения точки основания призматического элемента) a, = ¡ -a

Высота расположения точки основания призматического элемента h¡ = i-Ah

Радиус расположения точки основания призматического элемента r =R~R-.(H-i.Ah) + Rl H

Высота призматического элемента винтовой поверхности 1¡ = -\¡Ah2 +г,и2 +г,2 +2-гы -г, -cosa

Угол поворота элементарной призмы относительно оси У Y,- = arctg-:— ví+i -smaj

Угол поворота элементарной призмы относительно оси Ъ f П -Г..1 'COSO. Zj = arctg ~——- ^ r¡+|-sina \

Элементы чертежей из выходного комплекта документации САПР ШБМ, полученные с использованием разработанной методики, представлены на рис. 12.

..............

а ^

щ

J

б

Рис. 12. Элементы чертежей выходной документации САПР ШБМ

а - волнистая наклонная плита, б - трубошнек Для реализации САПР ШБМ использовался пакет Visual Basic б с библиотекой объектов AutoCAD.

В пятой главе проводится анализ результатов математического моделирования ШБМ путем сравнения теоретических результатов проектирования ШБМ с экспериментальными данными работы существующих мельничных установок, анализируется также технико-экономическая обоснованность создания и внедрения разработанной САПР.

В качестве объекта оценки адекватности модели ШБМ выбрана зависимость между остатком на контрольном сите Свых,% (при Свх =100%) и оптимальным отношением, при этом данные по работе существующих ШБМ приводились к общей производительности. Для оценки сходимости рядов значений отношения Ь/Б использовался критерий Стыодента.

Годовой экономический эффект от использования разработанной САПР при проектировании ШБМ составляет 78917 рублей, срок окупаемости проекта внедрения САПР ШБМ составляет 0,73 года.

ОСНОВНЫЕ ВЫВОДЫ И РЕЗУЛЬТАТЫ

1. Выявлено два основных подхода к математическому моделированию процесса измельчения: а) описание на основе закономерностей в локальном объеме аппарата для измельчения; б) описание с учетом закономерностей во всем объеме аппарата.

2. Раскрыты преимущества математического описания процесса измельчения в ШБМ на основе гидродинамической структуры потоков материала, заключающиеся в возможности получения относительно простых по своей структуре теоретических зависимостей для определения основных конструктивных размеров ШБМ, удовлетворяющих точности необходимой в инженерных расчетах.

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

4. Разработана математическая модель процесса измельчения в ШБМ на основе гидродинамики потоков материала, учитывающая тонкость помола материала до и после измельчения, а также характер неоднородностей потоков внутри ШБМ, обусловленных ее конструктивными и технологическими особенностями.

5. Исследовано влияние факторов неоднородностей потока материала на математическую модель процесса измельчения в ШБМ Наличие застойных зон в объеме измельчения увеличивает время нахождения материала в мельнице. Неоднородности типа застойной зоны и рецикла оказывают сходное влияние на структуру потока измельчаемого материала: застойная зона характеризует долю частиц в потоке, время пребывания которых в мельнице превышает среднее время, а рецикл определяет частицы, переносимые от выходного сечения ШБМ к входному. Увеличение доли байпаса сокращает время нахождения материала в ШБМ, одновременно характеризуя наличие во входном потоке частиц готового продукта.

6. Разработана методика определения произведения константы скорости на время измельчения и числа Пекле как главных характеристик математической модели ШБМ на основе структуры потоков. Найдены критерии применимости математической модели на основе структуры потоков для проектирования ШБМ. Критерии указывают на обоснованность использования модели идеального вытеснения для описания ШБМ.

7. На основе математической модели получена возможность расчета рационального отношения длины ШБМ к диаметру.

8. Разработаны алгоритмы расчета: математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков; основных конструктивных параметров ШБМ (отношения длины барабана к диаметру, количества и длины камер, мелющей загрузки и профиля футеровочных плит); прочностного расчета деталей и узлов ШБМ.

9. Разработан алгоритм реализации САПР ШБМ на основе математической модели структуры потоков материала, позволяющий с учетом исходных данных (производительности мельницы, исходного размера кусков материала, остатка на контрольном сите на выходе из мельницы, характеристики измельчаемого материала и загрузки мелющих тел) дать проектное решение для ШБМ с необходимой технической документацией.

10. Предложена методика построения винтовых поверхностей для автоматизированного проектирования деталей машиностроения. Методика реализована в программных модулях разработанной САПР ШБМ для электронных моделей наклонной волнистой футеровки и трубошнека.

11. Впервые создана САПР, реализующая алгоритмы расчета математической модели процесса измельчения в ШБМ на основе

структуры гидродинамики потоков и расчета конструктивных и технологических параметров ШБМ.

12. Для результатов автоматизированного проектирования ШБМ с использованием математической модели структуры потоков установлена адекватность реальным помольным агрегатам.

13. Выявлена экономическая целесообразность применения средств автоматизированного проектирования (на примере разработанной САПР ШБМ), обусловленная снижением трудозатрат на выдачу проектного решения.

ПУБЛИКАЦИИ ПО ТЕМЕ ДИССЕРТАЦИИ

1. Сфемпев, АЛО. Использование случайных марковских процессов для математического описания процесса измельчения / АЛО. Стремнев // Энергосберегающие технологические комплексы и оборудование для производства строительных материалов: межвузовский сб. паучн. тр. -Белгород: изд-во Б1ТУ им. В.Г. Шухова, 2003. - С. 245-250.

2. Стремнев, АЛО. Математическое моделирование помольных агрегатов с использованием типовых моделей структуры потока / АЛО. Стремнев // Энергосберегающие технологические комплексы и оборудование для производства строительных материалов: межвузовский сб. научи, тр. -Белгород: изд-во БГГУ им. В.Г. Шухова, 2004.-С. 157-163.

3. Стремнев, АЛО. Математическое моделирование помольных агрегатов с использованием типовых моделей структуры потока / АЛО. Стремнев // Молодые ученые - пауке, образованию, производству: сб. паучн. тр. региональной научно-практической конференции. ~ Старый Оскол: СТИ МИСиС, 2004.-С. 46-51.

4. Стремнев, АЛО. Моделирование деталей оборудования ПСМ, содержащих винтовые поверхности / АЛО. Стремнев // Энергосберегающие технологические комплексы и оборудование для производства строительных материалов: межвузовский сб. научн. тр. - Белгород: изд-во БГТУ им. В.Г. Шухова, 2004. -С. 152-157.

5. Стремнев, АЛО. Моделирование дегалей оборудования IICM, содержащих винтовые поверхности / АЛО. Стремнев // Молодые ученые - науке, образованию, производству: сб. научн. тр. региональной научно-практической конференции. - Старый Оскол: СТИ МИСиС. 2004. - С. 51 - 55.

6. Стремнев, АЛО. Системность научного знания и его воплощение в научных понятиях (па примере технических наук) / АЛО. Стремнев // Молодежь Белгородской области: сб. по материалам областного конкурса научных молодежных работ. - Белгород, 2003. - С. 76 - 87.

Изд. лиц. ИД № 00434 от 10.11.99 Подписано в печать él Формат 60x84/16. Усл. п.л. 1

Тираж 100 экз.

Отпечатано в Белгородском государственном технологическом университете им. В.Г. Шухова 308012, г. Белгород, ул. Костюкова, 46

РНБ Русский фонд

'-4

Введение.

СОДЕРЖАНИЕ

ГЛАВА 1. ОБЗОР СУЩЕСТВУЮЩИХ МЕТОДИК ПОСТРОЕНИЯ МАТЕМАТИЧЕСКИХ МОДЕЛЕЙ ПРОЦЕССА ИЗМЕЛЬЧЕНИЯ. Ю

1.1. Модели процесса измельчения на основе описания в локальном объеме.

1.2. Модели измельчения без учета внутренней структуры и механизма процесса.

1.2.1. Статистические модели и их применение в описании процесса измельчения.

1.2.2. Математический аппарат случайных марковских процессов в описании процесса измельчения.

1.2.3. Матричные модели процессов дробления и измельчения.

1.2.4. Математические модели гидродинамической структуры потоков в шаровых барабанных мельницах. зо

1.3. Выбор методики построения математической модели процесса измельчения в шаровых барабанных мельницах.

1.4. Методики расчета конструктивно-технологических параметров шаровых барабанных мельниц.

1.5. Обзор существующего программного обеспечения для автоматизированного проектирования технологического оборудования.

1.6. Выводы.

ГЛАВА 2. РЕАЛИЗАЦИЯ МАТЕМАТИЧЕСКОЙ МОДЕЛИ В ПРОЕКТИРОВАНИИ ШАРОВЫХ БАРАБАННЫХ МЕЛЬНИЦ.

2.1. Составление уравнения математической модели процесса измельчения в шаровых барабанных мельницах на основе гидродинамической структуры потоков.

2.2. Определение времени и константы скорости измельчения.

2.3. Определение числа Ре как гидродинамической характеристики потоков в шаровых барабанных мельницах.

2.4. Определение основных конструктивных параметров шаровых барабанных мельницах.

2.4.1. Оптимальное соотношение длины и диаметра шаровых барабанных мельницах.

2.4.2. Определение количества и соотношения длин камер.

2.5. Анализ математической модели.

2.6. Выводы.

ГЛАВА 3. РАСЧЕТ ТЕХНОЛОГИЧЕСКИХ ПАРАМЕТРОВ И ОСНОВНЫХ ДЕТАЛЕЙ ШАРОВОЙ БАРАБАННОЙ МЕЛЬНИЦЫ.

3.1. Определение ассортимента и массы мелющей загрузки.

3.2. Выбор типа и расчет профиля футеровки.

3.3. Математическая модель определения суммарной мощности привода.

3.4. Прочностной расчет основных деталей шаровой барабанной мельницы.

3.5. Выводы.

ГЛАВА 4. АЛГОРИТМ И ПРОГРАММНАЯ РЕАЛИЗАЦИЯ СИСТЕМЫ АВТОМАТИЗИРОВАННОГО т ПРОЕКТИРОВАНИЯ ШАРОВОЙ БАРАБАННОЙ

МЕЛЬНИЦЫ.

4.1. Алгоритм реализации САПР.

4.2. Структуры программного обеспечения САПР.

4.2.1. Пользовательский интерфейс.

4.2.2. Система программных модулей.

4.2.2.1. Программные модули пользовательского интерфейса.

4.2.2.2. Программные модули расчетного блока САПР.

4.2.2.3. Программные модули блока построения графической документации.

4.3. Выводы.

ГЛАВА 5. АНАЛИЗ РЕЗУЛЬТАТОВ МАТЕМАТИЧЕСКОГО МОДЕЛИРОВАНИЯ ШАРОВОЙ БАРАБАННОЙ

МЕЛЬНИЦЫ.

5.1. Сравнительный анализ теоретических результатов проектирования с экспериментальными данными.

5.2. Выводы.

Актуальность темы.

В современном производстве технологические и конструктивные параметры внедряемого помольного оборудования зачастую нуждаются в значительной корректировке при работе в конкретных условиях предприятия. Это связано с тем, что завод-изготовитель не всегда может учесть все требования заказчика, касающиеся того или иного образца помольного оборудования. Решить эту проблему может комплексный подход к проектированию, основанный на охвате как можно более широкого круга факторов, определяющих работу помольного агрегата [83, 108]. При этом непосредственную помощь проектировщику может оказать САПР, построенная на системном анализе процессов,. протекающих внутри проектируемой машины [126].

Шаровые барабанные мельницы (ШБМ) являются сложными промышленными агрегатами. ШБМ отличаются разнообразием конструкции (соотношение длины и диаметра помольной камеры, количество камер, тип футеровки, характер мелющей загрузки и т.д.) и широким спектром требований для различных условий производства (исходный размер кусков материала, свойства измельчаемого материала, требуемая производительность, тонкость помола, энергозатраты на помол) [34]. В связи с этим применение автоматизированного проектирования на базе системного математического моделирования для разработки ШБМ представляется более целесообразным чем традиционное проектирование, позволяя получить результат, максимально удовлетворяющий требованиям заказчика, в минимальные сроки [37, 77, 146, 153].

Степень разработанности темы.

В соответствии с темой работы следует рассмотреть два направления научной деятельности, а именно:

1) Разработку математических моделей для процессов измельчения, поиск наиболее полного и адекватного описания, а также использование этого описания для решения конкретных задач проектирования и эксплуатации оборудования для измельчения, в частности помольного оборудования, а именно ШБМ.

2) Разработку программных продуктов для инженерной деятельности, реализующих задачи проектирования, поиска оптимальных решений, моделирования процессов внутри помольных агрегатов.

Что касается первого направления то для описания процессов измельчения используется два подхода, нашедших отражение в большинстве предлагаемых математических моделей. Первый подход основан на построении математического описания в масштабе всего аппарата для измельчения на основе математического описания процессов в локальном объеме. Второй подход основан на составлении математического описания процессов измельчения с учетом закономерностей, имеющих место не в локальном объеме аппарата, а во всем рабочем пространстве аппарата, но без учета внутренней структуры и механизма измельчения.

Объект и предмет исследования.

Объектом исследования является ШБМ как высокопроизводительный помольный агрегат для строительной, энергетической и химической отраслей промышленности. Предметом исследования являются математические модели, реализующие представление о комплексе процессов внутри помольных агрегатов, к которым относятся ШБМ. Математические модели, а также способы их решения представляют основу для построения САПР и решения задач конструирования.

Цели и задачи.

Целью работы является разработка математических моделей, охватывающих комплекс процессов внутри ШБМ и позволяющих реализовать автоматизированное проектирование данного помольного агрегата.

Предметом исследования являются математические модели, реализующие представление о комплексе процессов внутри помольных агрегатов, к которым относятся ШБМ. Для достижения указанной цели решался следующий ряд задач:

1) Определение математической модели для процессов, протекающих внутри объекта исследования — ШБМ.

2) Анализ применимости и определение параметров математической модели ШБМ.

3) Разработка алгоритма расчета математической модели ШБМ.

4) Определение методик численного расчета конструктивных и технологических параметров ШБМ.

5) Разработка алгоритмов расчета конструктивных и технологических параметров ШБМ.

6) Создание САПР, реализующей алгоритмы расчета математической модели, конструктивных и технологических параметров ШБМ.

Научная новизна работы.

Разработана математическая модель процесса измельчения в ШБМ на основе структуры потоков материала, учитывающая тонкость помола до и после измельчения, а также характер неоднородностей потоков в ШБМ: байпаса, рецикла и застойных зон.

Найдены критерии применимости разработанного математического описания, указывающие на обоснованность использования модели идеального вытеснения для описания процессов в ШБМ.

Предложена методика построения винтовых поверхностей для автоматизированного проектирования, заключающаяся в замене винтовой поверхности элементарными призматическими участками.

Впервые создана САПР, реализующая алгоритмы расчета математической модели ШБМ на основе структуры потоков.

Практическая значимость результатов.

Разработана математическая модель и создан программный продукт для автоматизированного программирования ШБМ, реализующий алгоритм расчета математической модели процесса измельчения на основе структуры гидродинамики потоков. В программном продукте по исходным данным для проектирования дается проектное решение для ШБМ с возможностью получения технической документации (комплекта чертежей и спецификаций).

Положения, которые выносятся на защиту.

1) Математическая модель процесса измельчения в ШБМ на основе структуры гидродинамики потоков

2) Алгоритм расчета математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков.

3) Комплекс алгоритмов для расчета основных конструктивных и технологических параметров ШБМ: отношения длины барабана к диаметру, количества и длины камер, мелющей загрузки и профиля футеровочных плит.

4) Методика построения винтовых поверхностей для автоматизированного проектирования деталей машиностроения.

Апробация работы.

Основные научные и практические результаты работы докладывались и обсуждались на Международном Конгрессе "Современные технологии в промышленности строительных материалов и стройиндустрии", г. Белгород, 2003 г. и на Белгородском областном конкурсе научных молодежных работ "Молодежь Белгородской области", г. Белгород, 2003 г. Программный продукт "САПР шаровой барабанной мельницы", разработанный в рамках диссертационной работы, использовался для разработки модернизации шаровой барабанной мельницы 03х 14м в ЗАО "Белгородский цемент" (Приложение 18). Разработанная САПР и результаты ее функционирования (техническая документация, результаты расчетов, численные методики) используются при чтении лекций, проведении лабораторных работ и практических занятий по дисциплинам специализации 171603 на кафедре механического оборудования БелГТУ им. В.Г. Шухова (Приложение 18).

Краткое содержание всех глав диссертации.

В гл. 1 дается представление о существующих методах построения математических моделей процесса измельчения. В этой главе описаны модели, относящиеся к двум направлениям: описание объекта на основе описания в локальном объеме и описания объекта без учета внутренней структуры и механизма измельчения. Кроме этого, в гл. 1 приведены сведения о современных системах, реализующих автоматизированное проектирование промышленного оборудования, рассматриваются их преимущества и недостатки.

В гл. 2 разрабатывается методика построения математической модели процесса измельчения в ШБМ на основе гидродинамики потоков, определяются основные зависимости для данного типа моделей и возможность их применения для моделирования ШБМ. В данной главе определяются также численные методы для расчета главных конструктивных параметров ШБМ (отношение длины барабана ШБМ к диаметру, количество и соотношение длин камер) при использовании модели гидродинамики потоков.

В гл. 3 разрабатываются численные методики для расчета конструктивных и технологических параметров ШБМ.

Гл. 4 посвящена созданию САПР ШБМ на основе разработанного математического описания, в главе рассматриваются вопросы создания пользовательского интерфейса и программных модулей, формируется обобщенный алгоритм САПР ШБМ.

В гл. 5 приводится анализ результатов математического моделирования ШБМ путем сравнения теоретических результатов проектирования ШБМ с экспериментальными данными работы существующих мельничных агрегатов.

ОБЩИЕ ВЫВОДЫ

Результаты диссертационного исследования позволяют сделать следующие выводы:

1. Выявлено два основных подхода к математическому моделированию процесса измельчения: 1) описание на основе закономерностей в локальном объеме аппарата для измельчения; 2) описание с учетом закономерностей во всем объеме аппарата.

2. Раскрыты преимущества математического описания процесса измельчения в ШБМ на основе гидродинамической структуры потоков материала, заключающиеся в возможности получения относительно простых по своей структуре теоретических зависимостей для определения основных конструктивных размеров ШБМ, удовлетворяющих точности необходимой в инженерных расчетах.

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

4. Разработана математическая модель процесса измельчения в ШБМ на основе гидродинамики потоков материала, учитывающая тонкость помола материала до и после измельчения, а также характер неоднородностей потоков внутри ШБМ, обусловленных ее конструктивными и технологическими особенностями.

5. Исследовано влияние факторов неоднородностей потока материала на математическую модель процесса измельчения в ШБМ Наличие застойных зон в объеме измельчения увеличивает время нахождения материала в мельнице. Неоднородности типа застойной зоны и рецикла оказывают сходное влияние на структуру потока измельчаемого материала: застойная зона характеризует долю частиц в потоке, время пребывания которых в мельнице превышает среднее время, а рецикл определяет частицы, переносимые от выходного сечения ШБМ к входному. Увеличение доли байпаса сокращает время нахождения материала в ШБМ, одновременно характеризуя наличие во входном потоке частиц готового продукта.

6. Разработана методика определения произведения константы скорости на время измельчения и числа Пекле как главных характеристик математической модели ШБМ на основе структуры потоков. Найдены критерии применимости математической модели на основе структуры потоков для проектирования ШБМ. Критерии указывают на обоснованность использования модели идеального вытеснения для описания ШБМ.

7. На основе математической модели получена возможность расчета рационального отношения длины ШБМ к диаметру.

8. Разработаны алгоритмы расчета: математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков; основных конструктивных параметров ШБМ (отношения длины барабана к диаметру, количества и длины камер, мелющей загрузки и профиля футеровочных плит); прочностного расчета деталей и узлов ШБМ.

9. Разработан алгоритм реализации САПР ШБМ на основе математической модели структуры потоков материала, позволяющий с учетом исходных данных (производительности мельницы, исходного размера кусков материала, остатка на контрольном сите на выходе из мельницы, характеристики измельчаемого материала и загрузки мелющих тел) дать проектное решение для ШБМ с необходимой технической документацией.

Ю.Предложена методика построения винтовых поверхностей для автоматизированного проектирования деталей машиностроения. Методика реализована в программных модулях разработанной САПР П1БМ для электронных моделей наклонной волнистой футеровки и трубошнека.

11.Впервые создана САПР, реализующая алгоритмы расчета математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков и расчета конструктивных и технологических параметров ШБМ.

12.Для результатов автоматизированного проектирования ШБМ с использованием математической модели структуры потоков установлена адекватность реальным помольным агрегатам.

1. ГОСТ 2.105-1995. Общие требования к текстовым документам. -М.: ВНИИНМАШ, 1995. 35 с. - (Единая система конструкторской документации).

2. ГОСТ 7.1-2003. Библиографическая запись. Библиографическое описание. М.: ИПК изд-во стандартов, 2004. - 170 с. - (Система стандартов по информации, библиотечному и издательскому делу).

3. Алексеев, A. AutoCAD 2000: специальный справочник / А. Алексеев. СПб.: Питер, 2001. - 688 с.

4. Алексеев, Б.В. Технология производства цемента: учеб. для сред. ПТУ / Б.В. Алексеев. М.: Высш. шк., 1980. - 266 с.

5. Аленичев, В.М. Экономико-математическое моделирование горнотехнических задач на рудных карьерах / В.М. Аленичев. — М.: Недра, 1983.-135 с.

6. Антонцев С.Н. Системное математическое моделирование процессов водообмена / С.Н. Антонцев, Г.П. Епихов, А.А. Кашеваров. Новосибирск: Наука (Сибирское отд-ние), 1986. -215 с.

7. Аршанский, Е.А. Проектируем с помощью компьютера. Будущему инженеру о САПР / Е.А. Аршанский, Г.Я. Нисневич, А.Е. Петрилин. Минск: Университетское, 1991. — 125 с.

8. АСУ и САПР в строительном комплексе: материалы семинара. -М.: МДНТП, 1989.-137 с.

9. Ахназарова, С.А. Методы оптимизации эксперимента в химической технологии: учеб. пособие. / С.А. Ахназарова, В.В. Кафаров. М.: Высшая школа, 1985. - 327 с.

10. Баруча-Рид, А.Т. Элементы теории марковских процессов и их приложения / А.Т. Баруча-Рид. М.: Наука, 1969. - 225 с.

11. Бауман, В.А. Механическое оборудование предприятий строительных материалов, изделий и конструкций: учебник для вузов / В.А. Бауман, Б.В. Клушанцев, В.Д. Мартынов. М.: "Машиностроение", 1975.-351 с.

12. Бергман, А.К. Экономико-математическое моделирование производственных систем (проблемы развития предприятий, объединений): учеб. пособие / А.К. Бергман. — М.: МАДИ, 1989. -55 с.

13. Биленко, Л.Ф. Закономерности измельчения в барабанных мельницах / Л.Ф. Биленко. М.: Недра, 1984. — 200 с.

14. Боганов, А.И. Механическое оборудование цементных заводов /

15. A.И. Боганов. -М.: МАШГИЗ, 1961.-382 с.

16. Богданов, B.C. Шаровые мельницы: учеб. пособие / B.C. Богданов, Е.Ф. Катаев. Белгород: изд. МИСИ и БТИСМ, 1983. - 88 с.

17. Богданов, B.C. Шаровые барабанные мельницы (с поперечно-продольным движением загрузки) /B.C. Богданов. Белгород: изд-во "БелГТАСМ", 2002. - 258 с.

18. Борде Б.И. Основы САПР вычислительных устройств и систем / Б.И. Борде. Красноярск: изд-во Красноярского ун-та, 1989. - 176 с.

19. Бухин, Б.П. Математическое описание процесса измельчения в мельнице непрерывного действия / Б.П. Бухин // Сб. науч. тр. / ВНИИЦЕММАШ. Тольятти, 1976. - Вып. 19. - С. 82 - 87.

20. Быков, В.И. Моделирование критических явлений в химической кинетике / В.И. Быков; отв. ред. А.И. Вольперт. М.: Наука, 1988. -262 с.

21. Быков В.П. Методическое обеспечение САПР в машиностроении /

22. B.П. Быков. Л.: Машиностроение (Ленингр. отд-ние), 1989. - 254

23. Васильев, Ю.С. Решение гидроэнергетических задач на ЭВМ. Элементы САПР и АСНИ / Ю.С. Васильев, В.И. Виссарионов, Л.И. Кубышкин. — М.: Энергоатомиздат, 1987. 158 с.

24. Васюков И. Логико-алгебраические методы решения геометрических задач и разработка программного обеспечения САПР / И. Васюков. Киев: Наук, думка, 1991. - 138 с.

25. Вердиян, М.А. Анализ технологических схем измельчения / М.А. Вердиян, В.В. Кафаров, В.Л. Петров и др. // Цемент. 1975. - №4. — С.15- 17.

26. Вердиян, М.А. Математическое моделирование помольных агрегатов / М.А. Вердиян, В.В. Кафаров // Цемент. 1976. — №12. — С. 13-14.

27. Верич, Е.Д. Оборудование для производства цемента: учеб. пос. для вузов / Е.Д. Верич. Киев: ХИСИ, 1988. - 113 с.

28. Верлань, А.Ф. Математическое моделирование непрерывных динамических систем / А.Ф. Верлань, С.С. Москалюк. — Киев: Думка, 1988.-287 с.

29. Вернер, И.М. Математическое описание и методы преобразования геометрических объектов САПР открытых горных пород: учеб. пособие / И.М. Вернер, И.А. Каплан, М.Д. Печорина. -Свердловск: СГИ, 1989. 74 с.

30. Волков, Е.А. Численные методы: учеб. пособие / Е.А. Волков. — М.: Наука, 1982.-256 с.

31. Вопросы измельчения в цементной промышленности: тр. М.: Стройиздат, 1972. — Вып. 26.-191 с.

32. Гарабажиу, А.А. Математическое моделирование процессов измельчения и классификации сыпучих материалов в роторно-центробежной мельнице / А.А. Гарабажиу // Химическая промышленность. 2003. - Т.80, № 6. - С. 15 - 30.

33. Герасименко, В.Б. Технические основы создания машин: учеб. пособие для выполнения курсовой работы / В.Б. Герасименко. -Белгород: изд-во "БелГТАСМ", 1998. 70 с.

34. Гмурман, В.Е. Теория вероятности и математическая статистика: учеб. пособие для вузов / В.Е. Гмурман. — М.: Высшая школа, 2002.-479 с.

35. Григорьев, A.M. Винтовые конвейры / A.M. Григорьев. — М.: Машиностроение, 1972. 184 с.

36. Давыдов, С. Я. Новое оборудование цементных заводов сухого способа производства : учеб. пособие / С.Я. Давыдов, В.А. Пьячев. Екатеринбург: У р. гос. техн. ун-т - У ПИ, 2001. - 102 с.

37. Демиденко, Н.Д. Моделирование и оптимизация тепло-массообменных процессов в химической технологии / Н.Д. Демиденко. М.: Наука, 1991. - 239 с. ~

38. Дешко, Ю.И. Измельчение материалов в цементной промышленности / Ю.И. Дешко, М.Б. Креймер, Г.С. Крыхтин. -М.: Изд-во литературы по строительству, 1964. 275 с.

39. Добряков, А.А. Методы интеллектуализации САПР. Обеспечение творч. форм деятельности в САПР силовых конструкций: учебник / А.А. Добряков. М. Наука (С.-Петербургское отд-ние), 1992. -286 с.

40. Дуда, В.Г. Цемент. Электрооборудование, автоматизация, хранение, транспортирование: справ, пособие / В.Г. Дуда; сокр. пер. с англ. Р. Д. Айтмуратова; Под ред. Б. Э. Юдовича, И. А. Прозорова. М.: Стройиздат, 1987. - 372 с.

41. Еленин, Г.Г. Математическое моделирование явлений на поверхности / Г.Г. Еленин, М.Г. Слинько. М.: Знание, 1988. - 32 с.

42. Закономерности измельчения в шаровых мельницах: сборник докл. междунар. конгресса по обогащению полезных ископаемых. Л.: Гос. пуб. библ., 1968. - 6 с.

43. Зарубин, B.C. Инженерные методы решения задач теплопроводности / B.C. Зарубин. — М.: Энергоатомиздат, 1983. — 326 с.

44. Зеленков, С.Ф. Технологические комплексы для производства цемента: уч. пос. для студ. спец. 171600 / С.Ф. Зеленков. — Белгород, БелГТАСМ. 2000. - 86 с.

45. Измельчение цементного клинкера: тр. / ин-т. Гос. ВНИИ цемент, пром-сти; науч. ред. В. 3. Пироцкий. — М.: НИИцемент, 1980. — 142 с.

46. Ильевич, А.П. Машины и оборудование для заводов по производству керамики и огнеупоров: учебник для вузов / А.П. Ильевич. — М.: Высш. школа, 1979. 344 с.

47. Кафаров, В.В. Анализ и синтез химико-технологических систем: учебник для вузов /В.В. Кафаров, В.П. Мешалкин — М.: Химия, 1991.-432 с.

48. Кафаров, В.В. Исследование характера движения материала в трубных мельницах / В.В. Кафаров, М.А. Вердиян // Цемент. — 1974. -№11.- С.16 -18; №12. - С. 16 - 18.

49. Кафаров, В.В. Математическое моделирование основных процессов химических производств: учеб. пособие для химико-технологических специальностей вузов / В.В. Кафаров, М.Б. Глебов. М.: Высшая школа, 1991. - 400 с.

50. Кафаров, В.В. Математические модели структуры потока материала в мельницах / В.В. Кафаров, М.А. Вердиян // Цемент. — 1977.-№5. С. 9- 11; -№6. - С. 12-13.

51. Кафаров, В.В. Моделирование химических процессов / В.В. Кафаров. — М.: Знание, 1968. 350 с.

52. Кафаров, В.В Определение оптимального числа и соотношения длин камер трубных мельниц / В.В. Кафаров, М.А. Вердиян // Цемент. 1975. - №8. - С. 9 - 11.

53. Кафаров, В.В. Основы кибернетического подхода к изучению процессов измельчения цементных материалов / В.В. Кафаров, М.А. Вердиян // Цемент. 1976. - №4. - С. 4 - 5.

54. Кафаров, В.В. Системный анализ процессов химической технологии. Процессы измельчения и смешения сыпучих материалов / В.В. Кафаров, И.Н. Дорохов, С.Ю. Арутюнов. М.: Наука, 1985. - 440 с.

55. Козырев, В.М. Основы современной экономики: учебник / В.М. Козырев. — М.: Финансы и статистика, 2003. 528 с.

56. Колокольников, B.C. Производство цемента: учеб. для проф.-техн. учеб. заведений и подготовки рабочих на производстве / B.C. Колокольников, Т.А. Осокина. М.: Высш. шк., 1974. - 245 с.

57. Кравченко, И.В. Технический прогресс в цементной промышленности: учеб. пособие / Кравченко И. В. М.: Б. м., 1979.- 183 с.

58. Краткий справочник технолога цементного завода / под ред. И.В. Кравченко, Т.Г. Мешик. М.: Стройиздат, 1974. - 303 с.

59. Крыхтин, Г.С. Интенсификация работы мельниц / Г.С. Крыхтин; отв. ред. В.В. Кармазин; Гос. н.-и. и проект.-конструкт. ин-т гидрометаллургии цв. металлов. Новосибирск: Наука. Сиб. изд. фирма, 1993.-239 с.

60. Летин, Л.А. Среднеходовые и тихоходные мельницы / Л.А. Летин, К.Ф. Роддатис. М.: Энергоиздат, 1981. - 359 с.

61. Линч, А. Цикл дробления и измельчения: моделирование, оптимизация, проектирование / А. Линч. М.: Недра, 1981. — 456с.

62. Лышевский А.С. Мельницы тонкого и сверхтонкого помола твердых топлив / А.С. Лышевский, В.Ф. Мыльнев, А.С. Мозжухин. М.: НИИинформтяжмаш, 1974. - 46 с.

63. Малыхин, В.И. Математическое моделирование экономики: учебно-практич. пособие для вузов / В.И. Малыхин. — М.: УРАО, 1998.-160 с.

64. Малышев, Н.Г. Нечеткие модели для экспертных систем в САПР / Н.Г. Малышев, Л.С. Берштейн, А.В. Боженюк. М.: Энергоатомиздат, 1991. — 134 с.

65. Математическое и программное обеспечение технических систем: сб. / АН СССР, Сибирское отд-ние; отв. ред. С.В. Елисеев, А.А. Засядко. Новосибирск: Наука, Сиб. отд-ние, 1989. - 224 с.

66. Математическое обеспечение САПР систем вентиляции: учеб. пособие. Белгород: Изд-во БелГТАСМ, 1998. - 77 с.

67. Математическое описание и алгоритмы расчета мельниц цементной промышленности: приложение к временным методическим указаниям. М: НИИЦемент, 1978, - 94 с.

68. Мельницы углеразмольные шаровые барабанные: каталог / Главниипроект при Госплане СССР, Электростальский завод тяжелого машиностроения. — М.: ЦБНТИ, 1958. 6 с.

69. Мельницы углеразмольные шаровые барабанные: каталог / Сызраньский завод тяжелого машиностроения. Куйбышев: ЦНТИ, 1977.- 19 с.

70. Митрофанов, В.Г. Математическое обеспечение САПР технологической подготовки производства: учеб. пособие / В.Г. Митрофанов. — М.: Машиностроение, 1991. — 52 с.

71. Мищенко, В.А. Теория эквивалентных преобразований алгоритмов в САПР СБИС / В.А. Мищенко, А.А. Прихожий. — Минск: НАВУКАI ТЭХН1КА, 1991.-262 с.

72. Моделирование и оптимизация: сб. науч. тр. Киев: ИК, 1991.-84 с.

73. Моделирование и оптимизация сложных динамических процессов: сб. ст. / АН СССР, ВЦ; отв. ред. Ю.Н. Павловский. М.: ВЦ АН СССР, 1990.-79 с.

74. Моделирование и оптимизация сложных систем: межвуз. сб. науч. тр. / М-во транспорта РФ, Волжск, гос. акад. водного транспорта; Ред. совет: Федосенко Ю.С. (отв. ред.) и др.; Вып. 275. — Нижний Новгород; ВГАВТ, 1998. 178 с.

75. Моделирование, оптимизация и декомпозиция сложных динамических процессов: сб. ст. / Рос. АН, ВЦ; Отв. ред.: Ю.Н. Павловский. М.: ВЦ РАН, 1993. - 100 с.

76. Моденова, В.В. Исследование предельной неравновесной модели массообмена / В.В. Моденова // Вычислительные методы и программирование: сб. работ; ред. В.Н. Пасконова. М: Изд-во Московского университета, 1983. - С. 169 - 173.

77. Моденова, В.В. Численное исследование диффузионной модели противоточного массообмена / В.В. Моденова, М.С. Сафонов // Вычислительные методы и программирование: сб. работ; ред. В.Н. Пасконова. М: Изд-во Московского университета, 1983. - С. 157 -169.

78. Мусаев, О.Я. САПР: методология, технология, организация / О.Я. Мусаев. М.: ВНТИЦЕНТР, 1989. - 86 с.

79. Несвижский, О.А. Механическое оборудование цементных заводов: учеб. для техн. / О.А. Несвижский, В.Г. Банит. М.: Машиностроение, 1967. — 307 с.

80. Несвижский, О.А. Справочник механика цементного завода / О.А. Несвижский, Ю.И. Дешко. М.: Стройиздат, 1977. - 336.

81. Несмеянов, Н.П. Моделирование и интенсификация энергетического воздействия мелющей загрузки в цементных мельницах: автореф. дис. . канд. техн. наук: 05.17.11; 05.02.16 / Несмеянов Н.П. М., 1994 - 17 с.

82. Николаев, Е. В. Закономерности и интенсификация процесса сухого измельчения цементного сырья в барабанных шаровых мельницах: автореф. дис. . техн. наук: 05.17.11 / Николаев Е.В. — М., 1993.-20 с.

83. Оборудование для производства строительных материалов и изделий / под ред. В.А. Баумана. — М.: "Машиностроение", 1977. — 396 с. — (Строительные машины: справочник: в 2 ч. / под ред. В.А. Баумана; ч. 2)

84. Оптимальное планирование цементной промышленности / под ред. Н.П. Лебединского. М.: Стройиздат, 1978. - 182 с.

85. Павлов, А.Р. Математическое моделирование процессов тепломассопереноса и температурных деформаций в строительных материалах при фазовых переходах / А.Р. Павлов. М.: Наука: С.Петербург. отделение, 2001. — 176 с.

86. Пелипенко, Н.А. Обоснование опорного угла подшипника шаровой мельницы / Н.А. Пелипенко, А.И. Полунин // Математическое моделирование в технологии строительных материалов: сб. научн. тр. Белгород: изд-во БТИСМ, 1992. - С. 132-135.

87. Повышение эффективности производства строительных материалов: тр. / под ред. М.С. Беляевой, И.Б. Будановой, И.М. Гиндиной. — М.: Стройиздат, 1983. — 248 с.

88. Подставкина, Т.В. Применение методов компьютерного моделирования для определения оптимальных конструктивно-технологических параметров многотрубных мельниц: дис. канд. техн. наук: 05.13.16 / Подставкина Т.В. Белгород, 1997. - 232 с.

89. Привалихин, С. Г. Принципы системного анализа в задачах интенсификации процессов измельчения в цементной промышленности: автореф. дис. . д-ра* техн. наук: 05.13.10, 05.17.11 / Привалихин С.Г.; Междунар. акад. систем, исслед. М., 2001.-32 с.

90. Присняков, В.Ф. Математическое моделирование переработки информации оператором человеко-машинных систем / В.Ф. Присняков, JI.M. Приснякова. М.: Наука, 1990. - 244 с.

91. Проблемы обработки информации в интегральной автоматизации производства: сб. н. тр. / АН СССР, Ленинградский ин-т информатики и автоматизации; отв. ред. В.М. Пономарев. — Л.: Наука, Ленинградское отд-ние, 1990. — 255 с.

92. Римский, Г.В. Теория систем автоматизированного проектирования: интеллектуальные САПР на базе вычислительных комплексов и сетей / Г.В. Римский. Минск: Наука и техника, 1994. — 632 с.

93. Россоловский, A. AutoCAD 2000: Настольная книга пользователя / А. Россоловский. М.: Нолидж, 2001. - 928 с.

94. Сайлер, Бр. Использование Visual Basic 6: Специальное издание / Бр. Сайлер, Дж. Споттс; пер. с англ. — М.; СПб.; К.: Издательский дом "Вильяме", 1999. 832 с.

95. Самарский, А.А. Математическое моделирование: Идеи. Методы. Примеры / А.А. Самарский, А.П. Михайлов. — М.: Физ.-мат. литература, 2001. 316 с.

96. САПР и графика: журн. по автоматиз. проектированию, компьютерн. анализу, техн. подготовке производства и технического документооборота / учредитель ООО "КомпьютерПресс". 2002 - 2004.

97. САПР. Системы автоматизированного проектирования: уч. пос. для техн. вузов: в 9 кн. / под ред. И.П. Норенкова — Минск: Вышэйш. шк., 1987.

98. Сатарин, В.И. Современные цементные заводы (Процессы, оборудование и проектные решения) / В.И. Сатарин. М.: Стройиздат, 1967. - 195 с.

99. Сатарин, В.И. Цементная промышленность за рубежом / В.И. Сатарин, М.Б. Френкель. М.: Госстройиздат, 1963. - 294 с.

100. Сергеев, И.В. Экономика предприятия: учеб. пособие / И.В. Сергеев. — М.: Финансы и статистика, 2000. — 304 с.

101. Системы автоматизированного проектирования объектов строительства: респ. межвед. науч.-техн. сб. — Киев: Буд1вельник, 1991.-85 с.

102. Справочник по проектированию цементных заводов / под ред. С.И. Данюшевского. Л.: Стройиздат, 1969. - 239 с.

103. Справочник по производству цемента / под ред. И.И. Холина. — М.: Госстройиздат, 1963. 851 с.

104. Стремнев, А.Ю. Системность научного знания и его воплощение в научных понятиях (на примере технических наук) / А.Ю. Стремнев // Молодежь Белгородской области: сб. по материалам областного конкурса научных молодежных работ. — Белгород, 2003.-С. 76-87.

105. Тарасевич, Ю.Ю. Математическое и компьютерное моделирование: Ввод, курс : учеб. пособие для студентов естеств.мат. специальностей / Ю.Ю. Тарасевич. М.: Едиториал УРСС, 2002.-141 с.

106. Тарасик, В.П. Математическое моделирование технических систем / В.П. Тарасик. Минск.: "ДИЗАЙН ПРО", 1997. - 630 с.

107. Теория и практика создания САПР РЭА. М.: Научн. совет по компл. пробл. "Кибернетика", 1988. — 92 с.

108. Тынников, И. М. Исследование и организация циклических режимов для интенсификации работы цементных мельниц: дис. . канд. техн. наук: 05.02.13 / Тынников И.М. Белгород, 1999. — 179 с.

109. Управление, моделирование и оптимизация технологических процессов производства цемента: тр. — Белгород: изд-во БТИСМ, 1976.-Вып. 35.-88 с.

110. Ходаков, Г.С. Тонкое измельчение строительных материалов / Г.С. Ходаков. — М.: Стройиздат, 1972. — 236 с.

111. Царева, З.М. Теоретические основы химической технологии: учеб. пособие для хим.-техн. спец. вузов / З.М. Царева, Е.И. Орлова. — Киев: Вища шк., 1986 270 с.

112. Чичварин, Н.В. Экспертные компоненты САПР / Н.В. Чичварин. -М.: Машиностроение, 1991. 240 с.

113. Шарапов, P.P. Шаровые мельницы замкнутого цикла измельчения с повышенной продольной скоростью материала: дис. . канд. техн. наук: 05.02.13 / Шарапов P.P. Белгород, 1995. - 200 с.

114. Шаталов, А.В. Помольный комплекс для измельчения кремнеземистых материалов: дис. . канд. техн. наук: 05.02.13 / Шаталов А.В. Белгород, 2002. -230 с.

115. Юдин, К.А. Оптимизация работы шаровых барабанных мельниц с учетом разрушения частиц измельчаемого материала: дис. . канд. техн. наук: 05.02.13 / Юдин К.А. Белгород, 1999. - 180 с.

116. Ягупов, А.В. Мельницы самоизмельчения в СССР и за рубежом / А.В. Ягупов. М.: НИИинформтяжмаш, 1975. - 50 с.

117. Яшин, В.П. Совершенствование методик определения измельчаемости в мельницах периодического действия / В.П. Яшин, Г.В. Зверева, А.А. Ященко // Гипроцемент: труды; ред. Ю. Лурье. М.: Госстройиздат, 1984. - Вып. 16. - С. 60 — 69.

118. Berthiaux Н. Validation of a model of a stirred bead mill by comparing results obtained in batch and continuous mode grinding / H. Berthiaux, D. Heitzmann, J.A. Dodds // International journal of mineral processing. 1996. - V44-5. - pp. 653 - 663.

119. Blecher L. Energy distribution and particle trajectories in a grinding chamber of a stirred ball mill / L. Blecher, J. Schwedes // International journal of mineral processing. 1996. - V44-5. — pp. 617 — 629.

120. Bond, F.C. Mathematics of crushing and grinding / F.C. Bond // Symposium of Mineral Dressing, Institute of Mining & Metallurgy. — London, 1952.

121. Bye G.C. Portland cement: composition, production, properties / G.C. Bye. Pergamon Press, 1983. - 149 p.

122. Clinker and cement production: Proceedings of the 10th International congress on the chemistry of cement, Gothenburg, Sweden, June 2-6, 1997 / Ed. by Harald Justnes; Vol. 1. Gothenburg, 1997. - 454 p.

123. Data A. A direct approach of modeling batch grinding in ball mills using population balance principles and impact energy distribution / A. Datta and R.K. Rajamani // International journal of mineral processing. 2002. - V64. - pp. 181 - 200.

124. Dong H. Assessment of discrete element method for one ball bouncing in a grinding mill / H. Dong and M.H. Moys // International journal of mineral processing. 2002. - V65. - pp. 213 — 226.

125. Fuerstenau D.W. The energy efficiency of ball milling in comminution / D.W. Fuerstenau and A.-Z.M. Abouzeid // International journal of mineral processing. 2002. - V67. - pp. 161 - 185.

126. Gay S.L. Numerical verification of a non-preferential-breakage liberation model / S.L. Gay // International journal of mineral processing. 1999. - V57. - pp. 125 - 134.

127. Gore M. Elements of systems analysis / M. Gore, J.W. Stubbe. -Dubuque.: Wm.C. Brown Publishers, 1988.-616 p.

128. Kapur P.C. Analysis of single-particle breakage by impact grinding / P.C. Kapur, D. Pande, D.W. Fuerstenau // International journal of mineral processing. — 1997. — V49. pp. 223 — 235.

129. Kapur P.C. Role of dispersants in kinetics and energetics of stirred ball mill grinding / P.C. Kapur, T.W. Healy, P.J. Scales // International journal of mineral processing. 1996. - V47. — pp. 141 - 153.

130. Kett I. Engineered concrete: mix design and text methods / I. Kett. -London: CRC Press, 1999. 167 p.

131. Klimpel R.R. Some industrial experiences in modifying fine grinding environments for improved downstream product performance / R.R. Klimpel // International journal of mineral processing. 1996. - V44-5. -pp. 133-143.

132. Klymowsky I.B. The use of data from small-scale mills and computer simulation techniques for scale-up and design of sag mill circuits / I.B. Klymowsky, A.L.M. Rijkers // International journal of mineral processing. 1996. - V44-5. - pp. 273 - 289.

133. Kolacz J. Ultrafine grinding in an air-swept ball mill circuit / J. Kolacz, K.L. Sandvic // International journal of mineral processing. — 1996. -V44-5. pp. 361 -373.

134. Liu J. Modeling of interparticle breakage / J. Liu, K. Schonert // International journal of mineral processing. — 1996. V44-5. - pp. 101 -117.

135. Lwin Т. Analysis of data collected from increments collected at unequally spaced mass intervals from flowing streams / T. Lwin // International journal of mineral processing. — 2003. V69. — pp. 49 -74.

136. Neter J. Applied linear statistical models regressions, analysis of varians, and experimental design / J. Neter, W. Wasserman, M.H. Kutner.- 1990.- 1181 p.

137. Paul W. Cleary charge behaviour and power consumption in ball mills: sensitivity to mill operating conditions, liner geometry and charge composition / W. Paul // International journal of mineral processing. -2001.-V63.-pp. 79-114.

138. Regourd, M. Cracking and grindability of clinker / M. Regourd, H. Hornain // Ciments Beton Platre Chaux. 1980. - V727.

139. Salama A.I.A. Sampling schemes for mass balance of flowsheets with multi-component streams / A.I.A. Salama // International journal of mineral processing. — 1999. V55. - pp. 219 — 229.

140. Songfack P. Cleary Hold-up studies in a pilot scale continuous ball mill: dynamic variations due to changes in operating variables / P. Songfack, R. Rajamani // International journal of mineral processing. -1999.-V57.-pp. 105-123.

141. Teke E. Kinetics of dry grinding of industrial minerals: calcite and barite / E. Teke, M. Yekeler, U. Ulusoy and M. Canbazoglu // International journal of mineral processing. — 2002. V67. — pp. 29 — 42.

142. Viswanathan K. Computer based models for grinding and industrial case studies / K. Viswanatan // Aufbereitungs Technik. 1986. - V27. -pp. 560-572.

143. Viswanathan K. Computer simulation and optimisation of ball mills circuits / K. Viswanatan, K.C. Narang // World Cement. 1988. -VIO.-pp. 143-148.

144. Viswanathan К. Effect of ball size distribution on product particle size distribution in ball mills / K. Viswanathan, B.P. Mani; Proc.lOth Powder & Bulk Solids Conference U.S.A. Cahners Exposition Group. - 1985.-pp. 839-849.

145. Viswanathan K. Mathematical analysis of a tumbling mill to determine the optimum operating speed / K. Viswanathan, B.P. Mani; Paper presented at the Symposium on Advances in Science and Technology of Mineral Benefication in India, Dec. 3-5, 1981.

146. Viswanathan K. Scale-up procedure for grinding in tumbling mills using the distributed fracture model / K. Viswanathan, B.P. Mani // Aufbereitungs Technik. 1984. - V25. - pp. 589 - 594.

147. Алгоритм расчета параметра kt для модели идеального вытеснения. Алгоритм расчета параметра kt для модели идеального смешения.

148. Алгоритм расчета параметра kt для модели идеального вытеснения.

149. Алгоритм расчета параметра kt для модели идеального смешения.

150. В представленном алгоритме используются следующие обозначения: Исходные данные:

151. Алгоритм расчета числа Пекле.

152. Алгоритм расчета числа Пекле.

153. В представленном алгоритме используются следующие обозначения: Исходные данные:kt произведение константы скорости измельчения на время измельчения для выбранной модели;

154. Свых /Свх — отношение долей крупного класса в выходном и входном потоках;h Ре шаг расчета числа Пекле.1. Расчетные параметры:

155. Ре рабочее значения величины Ре.

156. Алгоритм расчета отношения L / D шаровой мельницы.

157. Алгоритм расчета отношения L / D шаровой мельницы.

158. В представленном алгоритме используются следующие обозначения:1. Исходные данные:1. Ре число Пекле;h LD шаг расчета L / D;tochn точность расчета.1. Расчетные параметры:1./ D рабочее значения величины L / D.

159. Алгоритм определение количества и соотношения длин камер.

160. В представленном алгоритме используются следующие обозначения: Исходные данные: L м — общая длина мельницы;

161. СВЬ1Х /Свх отношение долей неразмолотого материала на выходе и входе в мельницу.1. Расчетные параметры:

162. N камер рабочее значение количества камер мельницы; 1 кам(О), 1 кам(1), 1 кам(2) - длины 1,2, 3 камер соответственно.

163. Алгоритм проверки вхождения результатов расчета модели в областьдопустимых значений.

164. Алгоритм проверки вхождения результатов расчета модели в областьдопустимых значений.

165. В представленном алгоритме используются следующие обозначения: Исходные данные:kt произведение константы скорости измельчения на время измельчения для выбранной модели;

166. С вых — отношение долей крупного класса в выходном и входном потоках;

167. Алгоритм определения ассортимента загрузки и массы мелющих тел.

168. Алгоритм определения ассортимента загрузки и массы мелющих тел.

169. S rasch = 0.257ifiDm2Lm(Pl(0) + Pl(l) + Pl(2))/3 3 3 +-+Л1. Pov(O) Pov(l) Pov(2),лч S rasch , S rasch , S rasch m sh(0) = , m sh(l) = ~ , m sh(2)1. Pov(O)1. Pov(l)1. Pov(2)m sh(0) = m sh(0) + m sh(l) + m sh(2), d sh(0) = d shСконец

170. P1(0) = PI tablM -1., Pl(l) = PI tabl[M], Pl(2) = PI tabl[M], Pov(O) = Pov tabl[M -1], Pov(l) = Pov tabl[M], Pov(2) = Pov tabl[M]

171. P1(0) = PI tabli -1., Pl(l) = PI tabl1., Pl(2) = PI tabl[i +1], Pov(O) = Pov tabl[i -1], Pov(l) = Pov tabl[i], Pov(2) = Pov tabl[i +1]

172. S rasch = 0.257ifiD m2 L m(Pl(0) + Pl(l) + Pl(2))/3 3 3 +-+1. Pov(O) Pov(l) Pov(2)

173. P1(0) = PI tablM -1., Pl(l) = PI tabl[M],Pl(2) = PI tabl[M], Pov(O) = Pov tabl[M 1], Pov(l) = Pov tabl[M], Pov(2) = Pov tabl[M]1 7 S rasch = -7rfi(0)D nrl кам(О)-4 (Pl(0) + Pl(l) + Pl(2))f 3 3 3 )l4Pov(0) ' Pov(l) Pov(2))1

174. S rasch , ,14 S rasch , S rasch m sh(0) = —=-,m sh(l) = —=-,m sh(2) = ^=- Pov(O) Pov(l) " Pov(2)m sh(0) = m sh(0), d sh(0) = D sh tablM -1., m sh(l) = m sh(l) + m sh(2), d sh(0) = d shСконецJ

175. P1(0) = PI tablfi -1., Pl(l) = PI tablfi], Pl(2) = PI tabli +1], Pov(O) = Pov tabl[i -1], Pov(l) = Pov tablfi], Pov(2) = Pov tablfi +1]

176. S rasch = — Jtfi(0)D m'l кам(О) , (ЖВД + HQ) + РЦ2»- / 3 3 3-+/лх S rasch , S rasch , S rasch m sh(0) = —=-, m sh(l) = —=-,msh(2) =1. Pov(O)1. Pov(l)1. Pov(2)

177. Pl(3) = PI tabli + 2., Pl(4) = PI tabl[i + 3], Pov(3) = Pov tabl[i + 2], Pov(4) = Pov tabl[i + 3]

178. S rasch =—flfi(l)D m2l кам(1) , И3> + Р'(4»2 2 +1. Pov(3) Pov(4)

179. В приведенном выше алгоритме используются следующие обозначения:1. Исходные данные:

180. Dm,Lm диаметр в свету и длина мельницы (камеры помола) соответственно;

181. N камер, 1 кам(0), 1 кам(1), 1 кам(2) — количество камер мельницы, а также их длины;fi — коэффициент заполнения первой камеры мельницы;d куск средний диаметр кусков материала на входе;

182. DshtablM. табличные значения (массив) диаметров мелющих тел (шаров), в соответствии с алгоритмом предполагается убывающий порядок значений в массиве;

183. PI tablM., Pov tabl[M] — табличные значения (массивы) насыпной плотности и средней удельной поверхности мелющих тел;

184. PI cyl насыпная плотность цильпебса.1. Расчетные параметры:dsh оптимальный максимальный размер мелющих тел (шаров) в первой камере мельницы;

185. Р1(0),Р1(1),Р1(2),Р1(3),Р1(4) рабочие значения насыпной плотности мелющих тел в трехкомпонентной загрузке первой камеры и двухкомпонентной загрузке второй камеры мельницы;

186. Pov(0),Pov(l),Pov(2),Pov(3),Pov(4) рабочие значения среднейудельной поверхности мелющих тел в трехкомпонентной загрузке первой камеры и двухкомпонентной загрузке второй камеры мельницы;

187. Алгоритм расчета профиля волнистой футеровки.

188. АО,ВО значения радиусов расположения геометрических центров впадин и выступов профиля футеровки первой камеры мельницы;

189. Алгоритм прочностного расчета деталей и узлов шаровой барабанноймельницы.

190. Алгоритм прочностного расчета деталей и узлов шаровой барабанноймельницы.178 £tol = tol + h tol1. D ^нар = RBH + tol1. GK =7ipgLm(R 2 -RBH2)1. GKp =0,3GK1. GCHT=0,14GKp

191. G z = G 3 + G к + 2 ' G кр + G пер + G фуг + G сит1. Q = ^/GX2+PU2+GXP1 U-Q1. Ц 2duau1опо = Lm + 2(0,51„ +L)м =Q ИЗГ ' ^onop 8пО^нар4 ~RBH4) ^= 4RHapi = i + lkaI <араст1. Мц = 0,25Q • 1i = 1

192. В представленном алгоритме используются следующие обозначения: Исходные данные:

193. D m,L м диаметр в свету и длина мельницы соответственно; hmin, h2 - минимальная толщина и высота профиля волны футеровки первой камеры мельницы;

194. N камер количество камер мельницы;

195. N £ — мощность привода мельницы;

196. Q — равнодействующая веса вращающихся частей и центробежной силы вращающейся загрузки;1Ц длина опорной поверхности цапфы;1опор длина мельницы между точками опор;

197. М изг максимальный изгибающий момент корпуса мельницы;

198. М £ — приведенный момент по изгибу и кручению корпуса мельницы;

199. Wconp момент сопротивления сечения корпуса мельницы;Dболт — рабочий диаметр болта крепления крышки и корпуса (по стержню); Dболт вп ~~ рабочий диаметр болта крепления крышки и корпуса по впадине резьбы;

200. Рокр — окружное усилие на болты;

201. Мц — изгибающий момент в поперечном сечении цапфы;

202. Wu момент сопротивления сечения цапфы;d ц внут диаметр внутренней поверхности цапфы.

203. Листинг модуля Modulel.bas .

204. Листинг модуля Modulel.bas

205. Public dalshe As Boolean Public И камер As Integer Public calk draw As Boolean Public fi As Double Public mu As Double Public gamma As Double Public qu As Double

206. Public chl As Boolean Public ch2 As Boolean Public ch9 As Boolean Public ch3 As Boolean Public ch4 As Boolean Public ch5 As Boolean Public ch6 As Boolean Public ch7 As Boolean Public ch8 As Boolean

207. Public tdr As Integer Public pi As Double

208. Public Type Rasch tolsh As Double Qu ravnod As Double 1ц As Double du As Double гболткркорп As Double d6onTKpKopn As Double Иболткркорп As Double ё ц внутр As Double dбoлтф As Double Э болт шн As Double npriv As Double End Type

209. Public Type MyPoint3D x As Double у As Double z As Double End Type

210. Public Type Kam nk As Double 10 As Double 11 As Double 12 As Double End Type

211. Листинги программных модулей пользовательского интерфейса главнойформы" САПР.

212. Check4.Enabled = True .Check6.Enabled = True .Check9.Enabled = True

213. Text2.EnabIed = False .Text4.Enabled = False .Text7.Enabled = False

214. VScroll2.Enabled = False .VScroll4.Enabled = False .VScroll7.Enabled = False

215. VScroll2.Min = 0 .VScroll2.Max = 1000

216. VScroll2.Value = 1000 .VScroll2.Max / 10 .Text2.Text = 1 - ,VScroll2.Value / 1000

217. VScroll4.Min = 0 .VScroll4.Max = 1000

218. VScroll4. Value = 1000 .VScrolW.Max / 10 .Text4.Text = 1 - ,VScroll4.Value / 1000

219. VScroll7.Min = 0 ,VScroll7.Max = 1000

220. VScroll7. Value = 1000 .VScroll7.Max / 10 .Text7.Text = 1 - ,VScroll7.Value / 10001. End With1. End Sub

221. Private Sub Check4Click() With Forml1. (.Check4. Value = 1) Then1. VScroll2.Enabled = True1.ne 1 (6).BorderColor = &H80000008

222. Shape4.BorderColor = &H80000008 Else1. VScroll2.Enabled = False1.ne 1 (6).BorderColor = &H80000009

223. Shape4 .BorderColor = &H800000091. End If1. End With1. End Sub

224. Private Sub VScroll2Change() Forml.Text2.Text= 1 Forml.VScroll2.Value /1000 End Sub

225. Private Sub VScroll4Change()

226. Forml.Text4.Text = 1 Forml.VScroll4.Value / 10001. End Sub

227. Private Sub VScroll7Change() Forml.Text7.Text = 1 Forml.VScroll7.Value / 1000 End Sub1. Private Sub cmdParClick()

228. Form3. Visible = True End Sub

229. Private Sub cmdCalkClick() Dim a As Variant

230. Forml.lblProc.Caption = "Расчет." calkdraw = False dalshe = False a = firstsubO1. End Sub

231. Private Sub cmdCalkDrawClick() Dim a As Variant

232. Forml.lblProc.Caption = "Подготовка к построению." calkdraw = True dalshe = False a = firstsub()1. End Sub

233. Private Sub ViewDrawClick()1. Form4.Show1. End Sub

234. Листинги программных модулей пользовательского интерфейса "формы" настройки дополнительных параметров.

235. Листинги программных модулей пользовательского интерфейса "формы" настройки дополнительных параметров.1. Private Sub FormLoad()

236. With Form3 .Text 1.Text = fi .Text2.Text = mu .Text3.Text = gamma .Text4.Text = qu End With1. End Sub

237. Forml.RichTextBoxl.Text = "Расчет прерван"1. Exit Sub1. End Ifmu = CDbl(.Text2.Text)1. (mu > 0.62 Or mu < 0.52) Thenmsg = MsgBox("nycTOTeflocTb загрузки должна быть в пределах 0.52 0.62.",, "САПР шаровой барабанной мельницы")

238. Forml.RichTextBoxl.Text = "Расчет прерван" Exit Sub End Ifgamma = CDbl(.Text3.Text)1. (gamma > 4900 Or gamma < 4300) Thenmsg = MsgBox("HacbinHaa плотность мелющих тел должна быть в пределах 4300 кг/мЛ3 4900 кг/мл3.",,

239. САПР шаровой барабанной мельницы")

240. Form l.RichTextBoxl.Text = "Расчет прерван"1. Exit Sub1. End Ifqu = CDbl(Text4.Text) If (qu > 0.2 Or qu < 0.02) Thenmsg = MsgBox("yдельная производительность должна быть в пределах 0,02 т/кВт*ч 0,2 т/кВт*ч.", ,

241. САПР шаровой барабанной мельницы")

242. Form l.RichTextBoxl.Text = "Расчет прерван"1. Exit Sub1. End If1. End With

243. Form3 .Visible = False Unload Form31. End Sub

244. Листинги программных модулей пользовательского интерфейса "формы"выбора состава документации.

245. Листинги программных модулей пользовательского интерфейса "формы"выбора состава документации.1. Private Sub FormLoad()

246. Form2.Check7.Enabled = False Form2.Check7.Value = 0 Form2.Check8.Enabled = False Form2.Check8.Value = 0 Case 2

247. Form2.Check8.Enabled = False Form2.Check8.Value = 0 Case 31. End Select1. End Sub

248. Private Sub cmdListdrawClick() Dim tr As Integertr = 0

249. Form2.Checkl.Value = 0 Thenchl = False1. Elsechl = True tr = tr + 290 End If

250. Form2.Check2. Value = 0 Thench2 = False1. Elsech2 = Truetr = tr + 80 + 55 + 40 + 20 End If

251. Form2.Check3.Value = 0 Then ch3 = False1. Elsech3 = True tr = tr + 65 End If

252. Form2.Check4.Value = 0 Thench4 False1. Elsech4 = True tr = tr + 55 End If

253. Form2.Check5.Value = 0 Thench5 = False1. Elsech5 = True tr = tr + 60 End If

254. Form2.Check6.Value = 0 Thench6 = False1. Elsech6 = True tr = tr+ 120 End If

255. Form2.Check7.Value = 0 Thench7 = False1. Elsech7 = True tr = tr + 40 End If

256. Form2.Check8. Value = 0 Thench8 = False1. Elsech8 = True tr = tr + 30 End If

257. Form2.Check9.Value = 0 Thench9 = False1. Elsech9 = True tr = tr + 25 End Iftdr = tr

258. Form2 .Visible = False Unload Form2dalshe 1 True

259. Form 1.Refresh Call Forml.first sub1. End Sub

260. Листинги программных модулей пользовательского интерфейса "формы"просмотра документации.

261. Листинги программных модулей пользовательского интерфейса "формы"просмотра документации.

262. Private Sub FormLoad() Filel.FileName = "*.dwg" Filel.Path = App.Path & "\Log\" End Sub

263. Private Sub CommandlClick()1. Dim msg As Integer

264. Dim Acadapp As AcadApplication1. Dim curfile As Stringcurfile = Filel.FileName1. On Error GoTo myclose

265. FileCopy App.Path & "\LogV & curfile, App.Path & "V & curfile Kill App.Path & "/" & curfile

266. Set Acadapp = AcadApplication

267. Листинги программных модулей расчетного блока САПР.

268. Листинги программных модулей расчетного блока САПР.1. Function firstsub()

269. Dim npr As Double Dim i As Integer1. Dim msg As Integer

270. Dim beta As Double Dim lambda As Double Dim R As Double

271. Dim F As Double Dim m As Double

272. Dim P As Double Dim S As Double1. Dim I d As Double

273. Dim D m As Double Dim Lm As Double1. Dim krr As Double1. Dim Pr As Double

274. Dim 1кам(3) As Double Dim fiz(3) As Double Dim dsh(3) As Double Dim dkusk As Double1. Dim msh(6) As Double

275. Dim tolshkorp As Double Dim mz As Double Dim duHap As Double Dim dueнут As Double Dim 1ц As Double DimD болт As Double

276. Dim Оболтрасп As Double Dim Ы болт As Double Dim Оболтфут As Double Dim 0болтшн As Double1. With Forml1. dalshe = False Then .lblProc.Caption = "Расчет." ElselblProc.Caption = "Проверка." End If1. Refresh

277. RichTextBox l.Text = "Расчет прерван" Exit Function End If

278. Pr = CDbl(Form 1 .Text9.Text) If (Pr < 0) Thenmsg = MsgBox("Пpoизвoдитeльнocть должна быть больше 0",, "САПР шаровой барабанной мельницы") .RichTextBox 1 .Text = "Расчет прерван" Exit Function End If

279. F = CDbl(.Textl l.Text) If (F < I Or F > 90) Thenmsg = MsgBox("OcraTOK на сите должен быть в пределах 1 % 90 %.", , "САПР шаровой барабанной мельницы")

280. RichTextBox 1.Text = "Расчет прерван" Exit Function End If

281. RichTextBox 1 .Text = .RichTextBoxl.Text & "ИСХОДНЫЕ ДАННЫЕ" & Chr(10) & "--------------" & Chr(10)

282. RichTextBoxI .Text = .RichTextBoxI .Text & "производительность = " & .Text9.Text & " т/ч" & Chr(IO) .RichTextBoxl.Text = .RichTextBoxl.Text & "средний размер кусков исходного материала = " & .Textl3.Text & " м" & Chr(10)

283. RichTextBox 1 .Text = .RichTextBoxl.Text & "остаток на сите 008 в исходном материале = 100" & " %" & Chr(10)

284. RichTextBoxl.Text = .RichTextBoxl.Text & "остаток на сите 008 в готовом продукте = " & .Textl l.Text & " %" & Chr(10)

285. RichTextBoxl.Text = .RichTextBoxl.Text & "ПАРАМЕТРЫ МОДЕЛИ" & Chr(10) & "------" &1. Chr(10)

286. RichTextBoxl.Text = .RichTextBoxl.Text & "модель вытеснения" & Chr(10)1. (.Check4. Value = 1) Then beta = CDbl( .Text2 .Text)

287. Form l.RichTextBoxl.Text = .RichTextBoxl.Text & "с застойной зоной (доля= " & beta & ")" & Chr(10) Elsebeta = 0 End If1. (.Check6. Value = 1) Then lambda = 1 CDbl(.Text4.Text)

288. Form l.RichTextBoxl.Text = .RichTextBoxl.Text & "с байпасом (доля= " & lambda & ")" & Chr(10) Elselambda = 1 End If1. (.Check9. Value = 1) Then R = CDbl(.Text7.Text)

289. Forml .RichTextBoxl.Text = .RichTextBoxl.Text & "с рециклом (доля= " & R & ")" & Chr(10) Else1. R = 0 End Ifm = F/1001. Вызов расчета kt

290. S = vit(beta, lambda, R, m)

291. Вызов проверки модели на применимость1. (proverka(m, S) = False) Thenmsg = MsgBox("HeT решений: требуется корректировка параметров модели", , "САПР шаровой барабанной мельницы")

292. RichTextBoxl.Text = "Расчет прерван" Exit Function End If

293. Вызов расчета числа Пекле Р = PeRRkt(m, S)

294. RichTextBoxl.Text = .RichTextBoxl.Text & Chr(10) & "РАСЧЕТНЫЕ ПАРАМЕТРЫ ШБМ" & Chr(10) & "— ------------» & Chr(10)

295. Вызов расчета отношения длины мельницы к диаметру ld = Fix(ldPe(P) * 100) /100

296. RichTextBoxl.Text = .RichTextBoxl.Text & "отношение длины к диаметру = " & ld & Chr(10)кгг = -1.5 *m*m + 4*m + 0.5

297. D m = Fix(100 * (Pr / (0.25 * 6.45 * pi * krr * qu * ld * ((fi * mu * gamma * 0.001) л 0.8))) л (1 / 3.5)) /100 .RichTextBoxl.Text = .RichTextBoxl.Text & "диаметр ШБМ = " & D m & " м" & Chr(10)1. = Fix(100 ♦ I d * Dm) /100

298. RichTextBoxl.Text = .RichTextBoxl.Text & "длина ШБМ = " & Lm & " м" & Chr(10)

299. Вызов расчета количества и соотношения длин камер

300. Ыкамер ■= kamery(m, Lm).nk 1кам(0) = kamery(m, Lm).l0 1кам(1) = kamery(m, Lm).ll 1кам(2) = kamery(m, Lm).l2

301. RichTextBoxl.Text = .RichTextBoxl.Text & "число камер = н & NKaMep & Chr(10)

302. Select Case Ыкамер Case 1 Case 2

303. RichTextBoxl.Text = .RichTextBoxl.Text & "длина первой камеры = " & 1кам(0) & Chr(10) .RichTextBoxl.Text = .RichTextBoxl.Text & "длина второй камеры = " & 1кам(1) & Chr(10) & Chr(10) Case 3

304. RichTextBoxl.Text = .RichTextBoxl.Text & "загрузка:" & Chr(10) & "одна камера: шары, " & "m= " & msh(0) + msh(l) + msh(2) & " т" & Chr(10) & Chr(10) Case 2

305. RichTextBoxl.Text = .RichTextBoxl.Text & "загрузка:" & Chr(10) & "первая камера: шары, " & "m= " & msh(0) + msh(l) + msh(2) & " т" & Chr(10) & "вторая камера: цильпебс, " & "m= " & msh(5) & " т" & Chr(10) Case 3

306. RichTextBox 1 .Text = .RichTextBox 1 .Text & Chr( 10) & "футеровка:" & Chr( 10)1. Select Case Ыкамер Case 1

307. RichTextBoxl.Text = .RichTextBoxl.Text & "третья камера:" & Chr(10) & "прямая броня" & Chr(10) & "минимальная толщина = " & Int( 1000 ♦ h min) / 1000 & " м" & Chr(10) End Select

308. Вызов прочностного расчетаtolsh korp = prochrasch(0.5 * D m, h2, h min, Lm, mz * 1000).tolsh1. (tolsh коф = 0) Then

309. RichTextBoxl.Text = .RichTextBoxl.Text & Chr(10) & "толщина стенок барабана = " & tolshkorp & " м" & Chr(10)

310. RichTextBoxl.Text = .RichTextBoxl.Text & "длина опорной поверхности цапфы = " & Fix(1000 * 1ц) / 1000 & " м" & Chr(10)

311. RichTextBoxl.Text = .RichTextBoxl.Text & "диаметр опорной поверхности цапфы = " & Fix(1000 * с!цнар) / 1000 & " м" & Chr(10)

312. RichTextBoxl.Text = .RichTextBoxl.Text & "толщина стенок опорной поверхности цапфы = " & Fix(1000 * 0.5 * (с1цнар с1цвнут)) / 1000 & " м" & Chr(10)

313. RichTextBoxl.Text = .RichTextBoxl.Text & Chr(10) & "мощность привода = " & Fix(0.001 * npr) & " кВт" & Chr(10)

314. End If .lblProc.Caption = "" ElselblProc.Caption = ""msg = MsgBoxC'PacneT завершен",, "САПР шаровой барабанной мельницы") End If1. End With1. End Function

315. Function vit(beta As Double, lambda As Double, R As Double, m As Double) As Double

316. Function proverka(m As Double, S As Double) As Boolean

317. Dim a As Double Dim mmax As Double Dim mmin As Double

318. Function PeRRkt(RR As Double, kt As Double) As Double

319. Dim a As Double Dim Pe As Double Dim Temp As Double1. Pe = 0.1a = Sqr(l + 4 * kt * (I / Pe))

320. Temp = (4 * a * Exp(0.5 * Pe)) / ((1 + а)л 2 * Exp(0.5 * a ♦ Pe) (1 - а) л 2 * Exp(-0.5 * a * Pe))

321. Do While ((Temp RR) > 0.1 * RR) Pe = Pe + 0.1a = Sqr(l + 4 * kt * (1 / Pe))

322. Temp = (4 * a * Exp(0.5 • Pe)) / ((1 + а) л2 * Exp(0.5 • a • Pe) (1 - а) л 2 * Exp(-0.5 • a • Pe)) Loop1. PeRRkt = Pe End Function

323. Function ldPe(Pe As Double) As Double

324. Dim Id As Double Dim Temp As Double

325. Temp = 6.6 * Exp(0.0065 * Exp(0.99 » Id))

326. Do While (Abs(Temp Pe) > 0.01 » Pe) Id = Id + 0.001

327. Temp = 6.6 » Exp(0.0065 » Exp(0.99 » Id)) LoopldPe = Id End Function

328. Private Function kamery(m As Double, Lm As Double) As Kam

329. Private Function zagruzka(NKaMep As Integer, fi As Double, dkusk As Double, 1кам0 As Double, 1кам1 As Double, 1кам2 As Double, D m As Double) As zagr

330. Dim i As Integer Dim Dshtabl(9) As Double Dim Pltabl(8) As Double Dim Povtabl(8) As Double Dim fiz(3) As Double Dim dsh(3) As Double Dim Pl(3) As Double Dim Pov(3) As Double Dim msh(6) As Double Dim S rasch As Double Dim mz As Double

331. Dshtabl(0) = 100 Pltabl(O) = 4560 Povtabl(O) = 76930 Dshtabl(l) = 90 Pltabl(l) = 4590 Povtabl(l) = 82550 Dshtabl(2) = 80 Pltabl(2) = 4620 Povtabl(2) = 94870 Dshtabl(3) = 70 Pltabl(3) = 4640 Povtabl(3) = 96250

332. Dshtabl(4) = 60 Pltabl(4) = 4660 Povtabl(4) = 122840 Dshtabl(5) = 50 Pltabl(5) = 4708 Povtabl(5) = 154050 Dshtabl(6) = 40 PItabl(6) = 4760 Povtabl(6) = 192500 Dshtabl(7) = 30 Pltabl(7) = 4850 Povtabl(7) = 254520 Dshtabl(8) = 20

333. Srasch = pi * 0.25 ♦ Dm л 2 ♦ 1кам0 * fiz(0) ♦ (P1(0) + Pl(l) + Pl(2)) / (3 ♦ ((1 / Pov(O)) + (1 / Pov(l)) + (1 / Pov(2))))msh(0) = 0.001 ♦ Srasch / Pov(O) msh(l) = 0.001 » S rasch / Pov(l) msh(2) = 0.001 ♦ Srasch / Pov(2) Else

334. P1(0) = Pltabl(i 1) Pl(l) = Pltabl(i) Pl(2) = Pltabl(i + 1)

335. Pov(0) = Povtabl(i -1) Pov(l) = Povtabl(i) Pov(2) = PovtabI(i +1)

336. S rasch = pi * 0.25 ♦ Dm л2 * 1кам0 * fiz(0) * (P1(0) + Pl(l) + Pl(2)) / (3 * ((1 / Pov(0)) + (1 / Pov(l)) + (1 / Pov(2))))msh(0) = 0.001 ♦ Srasch / Pov(O) msh(l) = 0.001 * S rasch / Pov(l) msh(2) = 0.001 * S rasch / Pov(2) Else1. P1(0) = Pltabl(i 1)

337. Pl(l) = Pltabl(i) Pl(2) = Pltabl(i + 1) Pov(0) = Povtabl(i -1) Pov(l) = Povtabl(i) Pov(2) = Povtabl(i + 1)

338. S rasch = pi * 0.25 ♦ Dm л2 * 1кам0 * fiz(0) * (P1(0) + Pl(l) + Pl(2)) /(3 ♦ ((1 / Pov(O)) + (1 /Pov(l)) + (1 / Pov(2))))msh(0) = 0.001 ♦ Srasch / Pov(O) msh(l) = 0.001 ♦ Srasch / Pov(l) msh(2) = 0.001 • Srasch / Pov(2)

339. P1(0) = Pltabl(6) Pl(l) = Pltabl(7) Pov(0) = Povtabl(6) Pov(l) = Povtabl(7)

340. Srasch = pi • 0.25 * Dm л2 ♦ 1кам1 ♦ fiz(l) ♦ (P1(0) + Pl(l)) / (2 ♦ ((1 / Pov(0)) + (1 / Pov(I))))msh(3) = 0.001 * S rasch / Pov(O) msh(4) = 0.001 * S rasch / Pov(l)

341. Elself (i = 5) Then P1(0) = Pltabl(4)

342. Pl(l) = Pltabl(5) Pl(2) = Pltabl(5) Pov(O) = Povtabl(4) Pov(l) = Povtabl(5) Pov(2) = Povtabl(5)

343. Srasch = pi * 0.25 * Dm л 2 « 1кам0 * fiz(0) * (P1(0) + Pl(l) + Р1(2» / (3 * ((1 / Pov(0)) + (1 / Pov(l)) + (1 / Pov(2))))msh(0) = 0.001 » S rasch / Pov(0) msh(l) = 0.001 * S rasch / Pov(l) msh(2) = 0.001 » S rasch / Pov(2)

344. P1(0) = Pltabl(6) Pl(l) = Pltabl(7) Pov(0) = Povtabl(6) Pov(l) = Povtabl(7)

345. S rasch = pi » 0.25 * Dm л 2 * 1кам1 * fiz(l) * (P1(0) + Pl(l)) / (2 » ((1 / Pov(0)) + (1 / Pov(l))))msh(3) = 0.001 * S rasch / Pov(0) msh(4) = 0.001 * S rasch / Pov(l)1. Else

346. P1(0) = Pltabl(i 1) Pl(l) = Pltabl(i) Pl(2) = Pltabl(i + 1) Pov(0) = PovtabI(i - 1) Pov(l) = Povtabl(i) Pov(2) = Povtabl(i + 1)

347. S rasch = pi * 0.25 « Dm A 2 ♦ 1кам0 * fiz(0) * (P1(0) + Pl(l) + PI(2)) / (3 * ((1 / Pov(0)) + (1 / Pov(l)) + (1 / Pov(2))))msh(0) = 0.001 ♦ Srasch / Pov(0) msh(l) = 0.001 ♦ Srasch / Pov(l) msh(2) = 0.001 * Srasch / Pov(2)

348. PI(0) = Pltabl(i + 2) Pl(l) = Pltabl(i + 3) Pov(0) = PovtabI(i + 2) Pov(l) = Povtabl(i + 3)

349. Private Function profil(qu As Double, Dm As Double) As prof

350. Dim gamma4 As Double Dim gamma42 As Double Dim betta As Double

351. AO = (rl + r2) ♦ Sin(betta) / Sin(0.5 ♦ gamma4)

352. OB = (rl + r2) * Sin(pi (betta + 0.5 * gamma4)) / Sin(0.5 ♦ gamma4)h2 = (AO + r2) (OB - rl)вторая камераrl2 = 0.5 * D m • Sin(0.25 ♦ gamma42) / Sin(betta2)r22 = 0.5 * D m * Sin(0.25 * gamma42) / Sin(betta2 + 0.5 * gamma42)

353. AO2 = (rl2 + r22) ♦ Sin(betta2) / Sin(0.5 * gamma42)

354. Private Function prochrasch(Rm As Double, h2 As Double, h min, Lm As Double, mz) As Rasch

355. Dim Мц As Double Dim Wu As Double

356. Dim d6bn(23) As Double Dim d6(23) As Double Dim О болт As Double Dim d6onibn As Double

357. Dim P srez As Double Dim Б болт As Double Dim г болт As Double Dim i As Integer

358. Dim Р изг As Double Dim Рзат As Double Dim сигмаболт As Double Dim тауболт As Double

359. Dim dцaпфывнyт As Double Dim О болт фут As Double Dim О болт шн As Double1. Dim msg As Integerkolper = Ыкамер 1с1цапфы = Rm

360. Rb = Rm + 0.5 * h2 + h mintol = 0.0011. Dotol = tol+ 0.001 RHap = Rb + tol G1 =9.81 *mz

361. G2 = 9.81 * 7800 • pi * Lm * (RHap л 2 Rb л 2) G3 = 0.3 • G2

362. G4 = 0.04 * 9.81 * 7800 » kolper » Rb л 2

363. G4sht = pi * 7800 * Lm * 9.81 * (0.08 * Rb 0.0016)1. G5 = 0.14 * G3

364. Оболт = d6(i) * 0.001 dбoлтвп = d6Bn(i) * 0.001

365. Psrez = qu + Мкрут / (Янар + 1.4 * 0болт) Б болт = pi * 0.25 * d6oflTBn л 2 г болт = Fix(-952.38 * 0болт + 105.71)1.op While (Psrez / (0.4 * гболт * Бболт) > 96000000)1. Do

366. Ризг = 1.5 * qu * 1цапфы / (2 * 0.75 * гболт * 2* (Янар + 1.4 * Оболт))

367. Рзат = 0.4 ♦ Б болт * 320000000сигмаболт = (0.2 * Р изг + Рзат) / Бболттауболт = 0.1 * 1.2 * Р зат * О болт / (0.2 * dбoлтвп л 3)1. (i > 22) Then1. Exit Do End If

368. Листинги программных модулей блока графических построений.

369. Листинги программных модулей блока графических построений.

370. Dim postroenie lista As Double Dim postroenie barabana As Double Dim postroeniefuterovkiI As Double Dim postroeniefuterovkiIl As Double Dim postroenie futerovki lll As Double Dim postroenie texta As Double

371. Dim Vgabarit As Double Dim Hgabarit As Double Dim flag zz As Boolean Dim Vmeln As Double Dim H meln As Double Dim cur i As Integer Dim Razm l As Double Dim Razm2 As Double

372. Dim start t As Double Dim endt As Double

373. FileCopy App.Path & "/shablon.dwg", App.Path & "/Log/shablon.dwg" Kill App.Path & "/Log/*.*"

374. Forml.ProgressBarl.Min = 0 Form 1 .ProgressBar 1 .Max = 100 Form I .ProgressBar 1 .Value = 0masmstb(O) = 1 masmstb(l) = 2 masmstb(2) = 2.5 masmstb(3) = 4 masmstb(4) = 5 masmstb(5) = 6 masmstb(6) = 8

375. Function fpostroenielista() As Double

376. Set Acadapp = New AcadApplication

377. Acadapp.Documents.Open (App.Path & "/shablon.dwg")

378. Acadapp.ActiveDocumentSaveAs (App.Path & "/Log/chertegl.dwg")

379. Set newText = Acadapp.ActiveDocument.TextStyles.Add("MYSTYLE") newText.Height = 5newText.fontFile = App.Path & "/tob.shx"

380. Set newText l = Acadapp.ActiveDocument.TextStyles.Add("DIMTSTYLE") newTextl.Height = 5newText l .fontFile = App.Path & "/Wwcade.shx" found = False

381. For Each entry In Acadapp.ActiveDocument.Linetypes

382. StrComp(entry.Name, "DASHDOT", 1) = 0 Then found = True Exit For End If Next

383. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load "DASHDOT", "acad.lin"

384. For Each entry In Acadapp.ActiveDocument.Linetypes

385. StrComp(entry.Name, "DASHED", 1) = 0 Then found = True Exit For End If Next

386. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load "DASHED", "acad.lin"

387. Acadapp.ActiveDocument.Layers.Add("ldashed").Linetype = "DASHED" Acadapp.ActiveDocument.Layers.Add("ldashdot").Linetype = "DASHDOT"

388. Dim Acadapp As AcadApplication Dim sset sbor As AcadSelectionSet Dim newText As AcadTextStyle Dim newText l As AcadTextStyle Dim found As Boolean Dim entry As AcadLineType Dim ldashed As AcadLayer Dim I dashdot As AcadLayer

389. Dim pattemName As String Dim patternName2 As String Dim pattemName3 As String Dim PatternType As Long Dim bAssociativity As Boolean

390. Dim Acadapp As AcadApplication Dim ssetsbor As AcadSelectionSet Dim newText As AcadTextStyle Dim newText l As AcadTextStyle Dim found As Boolean Dim entry As AcadLineType Dim l dashed As AcadLayer Dim l dashdot As AcadLayer

391. Dim patternName As String Dim patternName2 As String Dim patternName3 As String Dim PatternType As Long Dim bAssociativity As Boolean

392. Dim Acadapp As AcadApplication Dim sset sbor As AcadSelectionSet

393. Dim newText As AcadTextStyle Dim newText l As AcadTextStyle

394. Dim Acadapp As AcadApplication Dim sset sbor As AcadSelectionSet

395. Dim newText As AcadTextStyle Dim newTextl As AcadTextStyle

396. Dim Acadapp As AcadApplication Dim sset sbor As AcadSelectionSet

397. Dim pattemName As String Dim pattemName3 As String Dim PattemType As Long Dim bAssociativity As Boolean

398. Dim newText As AcadTextStyle Dim newText l As AcadTextStyle

399. Dim ssetsbor As AcadSelectionSet Dim Acadapp As AcadApplication Dim entry As AcadLineType1. Dim textObj As AcadText

400. Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean

401. Dim lineObjgab As AcadLine Dim lplit0 As Double Dim nplit0 As Integer1. Dim 1plit1 As Double

402. Dim Acadapp As AcadApplication Dim entry As AcadLineType

403. Dim Pointmasshtab(2) As Double Dim textObj As AcadText

404. Dim patternName As String Dim Pattern Type As Long Dim bAssociativity As Boolean

405. Dim hatchObj l 1 As AcadHatch Dim hatchObj12 As AcadHatch Dim hatchObj21 As AcadHatch Dim hatchObj22 As AcadHatch Dim hatchObj31 As AcadHatch Dim hatchObj32 As AcadHatch Dim hatchObj41 As AcadHatch Dim hatchObj42 As AcadHatch

406. Dim hatchObj51 As AcadHatch Dim hatchObj52 As AcadHatch Dim hatchObj61 As AcadHatch Dim hatchObj62 As AcadHatch

407. Dim outerLoopl(0 To 7) As AcadEntity Dim outerLoop2(0 To 5) As AcadEntity Dim outerLoop3(0 To 3) As AcadEntity Dim outerLoop4(0 To 9) As AcadEntity

408. Dim lineHatch As AcadLine Dim lineHatch2 As AcadLine

409. Dim Acadapp As AcadApplication

410. Dim DimPointAngularObj As AcadDim3PointAngular Dim dimObj As AcadDimAligned Dim DimRad As AcadDimRadial Dim DimDiam As AcadDimDiametric

411. Dim plosh large As Double Dim plosh small As Double Dim kl As Double Dim k2 As Double Dim k3 As Double Dim dk4 As Double Dim dk5 As Double Dim fi As Double Dim xx As Double Dim RKpu As Double Dim hordascrugl As Double

412. Dim startPoint(0 To 2) As Double Dim endPoint As Variant Dim vspcoord As Variant

413. Dim arcObj As AcadArc Dim arcObjl As AcadArc

414. Dim arcObjr16 As AcadArc Dim arcObjrl 7 As AcadArc Dim arcObjrl 8 As AcadArc Dim arcObjr19 As AcadArc Dim arc0bjr20 As AcadArc Dim arcObjr21 As AcadArc Dim arcObjr22 As AcadArc Dim arcObjr23 As AcadArc

415. Dim ararcl6 As Variant Dim ar arc 17 As Variant Dim ar arcl 8 As Variant Dim ararcl9 As Variant Dim ar arc20 As Variant

416. Function drawing shnek(mstb dn As Double, 0болтшн As Double, mstbshnek As Double, d u mp As Double, duBHyT As Double, 1ц As Double, 0болт As Double, 0болтрасп As Double, tolsh korp As Double, h2 As Double, h min As Double)

417. Dim ssetsbor As AcadSelectionSet Dim ssobjssbor(0 To 1) As AcadEntity1. Dim blockObj As AcadBlock

418. Dim blockRefObj As AcadBlockReference

419. Dim insPoint sheroh As Variant

420. Dim basePointsheroh(0 To 2) As Double

421. Dim lineObj sheroh l As AcadLine Dim lineObjsheroh2 As AcadLine Dim textObjsheroh As AcadText

422. Dim explodedObjects As Variant

423. Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean Dim hatchObj As AcadHatch Dim hatchObj l As AcadHatch Dim hatchObj2 As AcadHatch Dim hatch0bj3 As AcadHatch

424. Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb Dim dimOb

425. As AcadDimAligned 2 As AcadDimAligned 3 As AcadDimAligned 4 As AcadDimAligned5 As AcadDimAligned

426. As AcadDimAligned 7 As AcadDimAligned 8 As AcadDimAligned 9 As AcadDimAligned

427. As AcadDimAligned 11 As AcadDimAligned12 As AcadDimAligned13 As AcadDimAligned21 As AcadDimAligned22 As AcadDimAligned

428. Dim Pointsborl(0 To 2) As Double Dim Pointsbor2(0 To 2) As Double Dim Pointsbor3(0 To 2) As Double

429. Dim shnek sbor As Acad3DSolid

430. Function drawingshnekright(mstbdn As Double, О болт шн As Double, mstbshnek As Double, duHap As Double, duBHyT As Double, 1ц As Double, О болт As Double, О болтрасп As Double, tolsh korp As Double, h2 As Double, h min As Double)

431. Dim ssetsbor As AcadSelectionSet Dim ssobjssbor(0 To 1) As AcadEntity1. Dim blockObj As AcadBlock

432. Dim blockRefObj As AcadBlockReference

433. Dim insPoint sheroh As Variant

434. Dim basePointsheroh(0 To 2) As Double

435. Dim lineObjsherohl As AcadLine Dim lineObjsheroh2 As AcadLine Dim textObjsheroh As AcadText

436. Dim explodedObjects As Variant

437. Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean Dim hatchObj As AcadHatch Dim hatchObj l As AcadHatch Dim hatch0bj2 As AcadHatch Dim hatch0bj3 As AcadHatch

438. Dim Pointsborl(0 To 2) As Double Dim Pointsbor2(0 To 2) As Double Dim Pointsbor3(0 To 2) As Double

439. Dim expr As Double Dim 1 verh As Double

440. Function drawingshnekleft(mstbdn As Double, Оболтшн As Double, mstbshnek As Double, duHap As Double, duBHyr As Double, 1ц As Double, О болт As Double, О болтрасп As Double, tolsh korp As Double, h2 As Double, h min As Double)

441. Dim ssetsbor As AcadSelectionSet Dim ssobjssbor(0 To 1) As AcadEntity1. Dim blockObj As AcadBlock

442. Dim blockRefObj As AcadBlockReference

443. Dim insPoint sheroh As Variant

444. Dim basePointsheroh(0 To 2) As Double

445. Dim lineObj sheroh l As AcadLine Dim lineObjsheroh2 As AcadLine Dim textObjsheroh As AcadText

446. Dim explodedObjects As Variant

447. Dim pattemName As String Dim PatternType As Long Dim bAssociativity As Boolean Dim hatchObj As AcadHatch Dim hatchObj l As AcadHatch Dim hatchObj2 As AcadHatch Dim hatchObj3 As AcadHatch

448. Dim Pointsborl(0 To 2) As Double Dim Pointsbor2(0 To 2) As Double Dim Pointsbor3(0 To 2) As Double

449. Dim expr As Double Dim 1 verh As Double

450. Function fpostroenielista23() As Double

451. Set Acadapp = New AcadApplication Acadapp.Documents.Open (App.Path & "/shablon.dwg") Acadapp.ActiveDocumentSaveAs (App.Path & "/Log/cherteg23.dwg")

452. Set newText = Acadapp.ActiveDocument.TextStyles.Add("MYSTYLE") newText.Height = 5newTextfontFile = App.Path & "/tob.shx"

453. Set newText l = Acadapp.ActiveDocument.TextStyles.Add("DIMTSTYLE") newText 1 .Height = 5newText J .fontFile = App.Path & "/Wwcade.shx" found = False

454. For Each entry In Acadapp.ActiveDocument.Linetypes

455. StrComp(entry.Name, "DASHDOT", 1) = 0 Then found = True Exit For End If Next

456. Not (found) Then Acadapp. ActiveDocument.Linetypes.Load "DASHDOT", "acad.lin"

457. For Each entry In Acadapp.ActiveDocument.Linetypes

458. StrComp(entry.Name, "DASHED", 1) = 0 Then found = True Exit For End If Next

459. Not (found) Then Acadapp. ActiveDocument.Linetypes.Load "DASHED", "acad.lin" Acadapp.ActiveDocument.Layers.Add("ldashed").Linetype = "DASHED"

460. Dim DimPointAngularObj As AcadDim3PointAngular Dim dimObj As AcadDimAligned Dim DimRad As AcadDimRadial

461. Dim ploshlarge As Double Dim plosh small As Double Dim kl As Double Dim k2 As Double Dim k3 As Double Dim dk4 As Double Dim dk5 As Double Dim fi As Double Dim RKpu As Double

462. Dim startPoint(0 To 2) As Double Dim endPoint As Variant

463. Dim circleObj As AcadCircle

464. Dim R As Double Dim rl As Double

465. Dim vsp Point l As Variant Dim vspPoint2 As Variant Dim vspPoint3 As Variant Dim vspPoint4 As Variant Dim vspPoint5 As Variant

466. Dim vspfil As Double Dim vspfi2 As Double Dim vspfi3 As Double

467. Dim arcObj As AcadArc Dim arcObj l As AcadArc Dim arcObj2 As AcadArc Dim arcObj3 As AcadArc Dim arcObj4 As AcadArc Dim arcObj5 As AcadArc Dim arcObj6 As AcadArc

468. Dim arcObjscr Dim arcObj scr Dim arcObj scr Dim arcObj scr Dim arcObj scr1 As AcadArc2 As AcadArc 201 As AcadArc3 As AcadArc4 As AcadArc

469. Dim sset sbor As AcadSelectionSet

470. Dim outerLoopl(0 To 7) As AcadEntity Dim outerLoop2(0 To 7) As AcadEntity Dim outerLoop3(0 To 7) As AcadEntity

471. Dim line0bj031 As AcadLine Dim line0bj0311 As AcadLine Dim line0bj026 As AcadLine Dim line0bj0261 As AcadLine

472. Dim lineObj251 As AcadLine Dim line0bj301 As AcadLine Dim lineObj252 As AcadLine Dim line0bj302 As AcadLine Dim lineObj253 As AcadLine Dim line0bj303 As AcadLine

473. Dim ploshlarge As Double Dim ploshsmall As Double Dim kl As Double Dim k2 As Double Dim k3 As Double Dim dk4 As Double Dim dk5 As Double Dim fi As Double Dim R«pu As Double

474. Dim startPoint(0 To 2) As Double Dim endPoint As Variant

475. Dim vspPointl As Variant Dim vspPoint2 As Variant Dim vspPoint3 As Variant Dim vspPoint4 As Variant Dim vspPoint5 As Variant

476. Dim vspfi2 As Double Dim vspfi3 As Double

477. Dim arcObjrl As AcadArc Dim arcObjrl 1 As AcadArc Dim arcObjr2 As AcadArc Dim arcObjr3 As AcadArc Dim arcObjr31 As AcadArc

478. Function fpostroenielista2() As Double

479. Set Acadapp = New AcadApplication Acadapp.Documents.Open (App.Path & "/shabIon.dwg") Acadapp.ActiveDocument.SaveAs (App.Path & "/Log/cherteg2.dwg")

480. Set newText = Acadapp.ActiveDocument.TextStyles.Add("MYSTYLE") newText.Height = 5newText-fontFile = App.Path & "/tob.shx"

481. Set newText l = Acadapp.ActiveDocument.TextStyles.Add("DIMTSTYLE") ne wText 1 .Height = 5newTextl.fontFile = App.Path & "/Wwcade.shx" found = False

482. For Each entry In Acadapp.ActiveDocument.Linetypes

483. StrComp(entry.Name, "DASHDOT", 1) = 0 Then found = True Exit For End If Next

484. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load "DASHDOT", "acad

485. For Each entry In Acadapp.ActiveDocument.Linetypes

486. StrComp(entry.Name, "DASHED", 1) = 0 Then found = True Exit For End If Next

487. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load "DASHED", "acad. Acadapp.ActiveDocument.Layers.Add("Idashed").Linetype = "DASHED" End Function

488. Dim textObj As AcadText Dim Pointlpoz As Variant Dim Point2poz As Variant Dim Point3poz As Variant Dim Point4poz As Variant Dim Point5poz As Variant Dim Point6poz As Variant Dim Point7poz As Variant Dim Point8poz As Variant

489. Dim Point0g As Variant Dim Pointlg As Variant Dim Point2g As Variant Dim Point3g As Variant Dim Point4g As Variant Dim Point5g As Variant Dim Point6g As Variant

490. Dim lineObjlg As AcadLine Dim lineObj2g As AcadLine Dim lineObj3g As AcadLine Dim lineObj4g As AcadLine Dim lineObj5g As AcadLine Dim lineObj6g As AcadLine

491. Dim line0bjlg0 As AcadLine Dim line0bj2g0 As AcadLine Dim line0bj3g0 As AcadLine Dim line0bj4g0 As AcadLine Dim line0bj5g0 As AcadLine Dim line0bj6^0 As AcadLine

492. Dim lineObjlgl As AcadLine Dim lineObj2gl As AcadLine Dim lineObj3gl As AcadLine Dim lineObj4^gl As AcadLine Dim lineObj 5 g 1 As AcadLine Dim lineObj6gl As AcadLine

493. Dim lineObjlkrshn As AcadLine Dim lineObj2krshn As AcadLine Dim lineObj3krshn As AcadLine Dim lineObj4krshn As AcadLine

494. Function ^озй-оеше зреайсф болт фут As Double, 0болтшн As Double, 0болт As Double, 0болтрасп As Double, 1ц As Double, ё ц нар As Double, ё ц внут As Double, tolsh korp As Double, h2 As Double, h min As Double) As Double

495. Dim 1болтафутеровки As Double Dim 1шпилъкишнека As Double1. Dim d6(0 To 22) As Double

496. Dim mvyssh15(0 To 22) As Double Dim m vys sh l 6(0 To 22) As Double

497. Dim mvysgayki15(0 To 22) As Double Dim mvysgayki16(0 To 22) As Double

498. Dim vyssh16 As Double Dim vysgayki16 As Double

499. Dim vyssh15 As Double Dim vysgayki15 As Double1. Dim i As Integer

500. Dim plosh large As Double Dim fi As Double Dim kl As Double Dim k2 As Doubleкрепежи

501. Function drawingmodeling(mstb As Double, xstart As Double, y start As Double, zstart As Double, fi As

502. Double, RBHHTa2 As Double, Rnpoe2 As Double, RBHHTal As Double, Rnpoel As Double, 1pliti As

503. Double, gamma As Double, tolshmin As Double, Rm As Double)

504. Dim hPoint221 As Variant Dim hPoint222 As Variant Dim hPoint223 As Variant Dim hPoint224 As Variant

505. Dim DimRadl As AcadDimRadial Dim DimRad2 As AcadDimRadial Dim DimRad3 As AcadDimRadial Dim DimRad4 As AcadDimRadial

506. Dim hPoint13 As Variant Dim hPoint14 As Variant Dim darcObj l As AcadArc Dim darcObj2 As AcadArc Dim dlineObj l As AcadLine Dim dlineObj2 As AcadLine Dim explodedObjects As Variant

507. Function fpostroenielista345(fhame As String) As Double

508. Открытие чертежа Set Acadapp = New AcadApplication Acadapp.Documents.Open (App.Path & "/shablon.dwg") Acadapp.ActiveDocument.SaveAs (App.Path & "/Log/" & fhame)

509. Set newText = Acadapp.ActiveDocument.TextStyles.Add("MYSTYLE") newText.Height = 5newText.fontFile = App.Path & "/tob.shx"

510. Set newTextl = Acadapp.ActiveDocument.TextStyles.Add("DIMTSTYLE") newText l .Height = 5newText l .fontFile = App.Path & "/Wwcade.shx" found = False

511. For Each entry In Acadapp.ActiveDocument.Linetypes

512. StrComp(entry.Name, "DASHDOT", 1) = 0 Then found = True Exit For End If Next

513. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load "DASHDOT", "acad.lin"

514. For Each entry In Acadapp.ActiveDocument.Linetypes

515. StrComp(entry.Name, "DASHED", 1) = 0 Then found = True Exit For End If Next

516. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load "DASHED", "acad.lin"

517. Dim preferences As AcadPreferences

518. Dim Acadapp As AcadApplication Dim DimPointAngularObj As AcadDim3PointAngular Dim dimObj As AcadDimAligned Dim DimRad As AcadDimRadial

519. Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double

520. Dim centerPoint(0 To 2) As Double Dim radius As Double Dim startAngle As Double Dim endAngle As Double

521. Dim ssetObj As AcadSelectionSet Dim i As Integer

522. Dim entry As AcadLineType Dim found As Boolean Dim I dashed As AcadLayer Dim l dashdot As AcadLayer Dim lvsp As Double Dim lvspl As Double Dim cos x As Double Dim textObj As AcadText

523. Dim var DlMTAD As Variant Dim var D1MTIH As Variant

524. Function fpostroeniefuterovkiIII(x As Double, у As Double, mstbf As Double, D m As Double, gamma4 As Double, hmin As Double, tolshpl As Double) As Double

525. Dim preferences As AcadPreferences

526. Dim newText As AcadTextStyle

527. Dim Acadapp As AcadApplication

528. Dim DimPointAngularObj As AcadDim3PointAngular

529. Dim dimObj As AcadDimAligned

530. Dim DimRad As AcadDimRadial

531. Dim lineObj As AcadLine Dim lineObj l As AcadLine Dim arcObj As AcadArc Dim arcObjl As AcadArc

532. Dim centerPoint(0 To 2) As Double Dim radius As Double Dim startAngle As Double Dim endAngle As Double1. Dim i As Integer

533. Dim polarPnt As Variant Dim polarPnt3 As Variant

534. Dim l dashed As AcadLayer Dim l dashdot As AcadLayer

535. Dim varDIMTAD As Variant Dim var DIMTIH As Variant Dim Pointmasshtab(2) As Double Dim textObj As AcadText1. Открытие чертежа

536. Set Acadapp = New AcadApplication

537. Acadapp.Documents.Open (App.Path & "/Log/cherteg5.dwg")varDIMTAD = Acadapp.ActiveDocument.GetVariable("DIMTAD") varDIMTIH = Acadapp.ActiveDocument.GetVariable("DIMTIH")

538. Pointmasshtab(O) = 415 12: Pointmasshtab(l) = 5 + 25: Pointmasshtab(2) = 0:

539. Set arcObj = Acadapp.ActiveDocument.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle) arcObj .Line weight = acLnWt080нижняя частьradius = (h min + 0.5 * D m) * 1000 / mstb f startAngle = -0.5 * pi gamma4 endAngle = -0.5 * pi + gamma4

540. Графические элементы чертежа ШБМ выходной документации САПР.в