Разработка математических моделей для автоматизированного проектирования шаровых барабанных мельниц тема диссертации и автореферата по ВАК РФ 05.02.13, кандидат технических наук Стремнев, Александр Юрьевич
Стремнев, Александр Юрьевич
кандидат технических наук
2004
- Специальность ВАК РФ05.02.13
- Количество страниц 258
Оглавление диссертации кандидат технических наук Стремнев, Александр Юрьевич
Введение.
СОДЕРЖАНИЕ
ГЛАВА 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. Выводы.
Рекомендованный список диссертаций по специальности «Машины, агрегаты и процессы (по отраслям)», 05.02.13 шифр ВАК
Процессы эффективного измельчения в агрегатах с инерционным воздействием на разрушаемый материал2011 год, доктор технических наук Вайтехович, Петр Евгеньевич
Технологическая аспирация шаровых барабанных мельниц2013 год, кандидат технических наук Бажанова, Ольга Ивановна
Шаровая мельница с поперечно-продольным движением и рециклом загрузки2006 год, кандидат технических наук Соловьев, Олег Рудольфович
Совершенствование шаровых барабанных мельниц двухстадийного цикла измельчения2010 год, кандидат технических наук Трухачев, Сергей Сергеевич
Помольный комплекс для измельчения кремнеземистых материалов2002 год, кандидат технических наук Шаталов, Алексей Вячеславович
Введение диссертации (часть автореферата) на тему «Разработка математических моделей для автоматизированного проектирования шаровых барабанных мельниц»
Актуальность темы.
В современном производстве технологические и конструктивные параметры внедряемого помольного оборудования зачастую нуждаются в значительной корректировке при работе в конкретных условиях предприятия. Это связано с тем, что завод-изготовитель не всегда может учесть все требования заказчика, касающиеся того или иного образца помольного оборудования. Решить эту проблему может комплексный подход к проектированию, основанный на охвате как можно более широкого круга факторов, определяющих работу помольного агрегата [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 приводится анализ результатов математического моделирования ШБМ путем сравнения теоретических результатов проектирования ШБМ с экспериментальными данными работы существующих мельничных агрегатов.
Похожие диссертационные работы по специальности «Машины, агрегаты и процессы (по отраслям)», 05.02.13 шифр ВАК
Выбор кинематических параметров шаровой загрузки вибрационной мельницы для тонкого измельчения горных пород2012 год, кандидат технических наук Шишканов, Кирилл Андреевич
Развитие теории динамических процессов и выбор параметров рабочих органов мельниц для тонкого измельчения горных пород2006 год, доктор технических наук Вержанский, Александр Петрович
Разработка методики оценки энергетической эффективности процесса измельчения в шаровых барабанных мельницах2005 год, кандидат технических наук Ведрицкий, Виталий Владимирович
Трубная шаровая мельница с внутренним рециклом загрузки2005 год, кандидат технических наук Латышев, Сергей Сергеевич
Обоснование параметров барабанной мельницы для тонкого измельчения горных пород с учетом динамики мелющих тел2002 год, кандидат технических наук Балахнина, Евгения Евгеньевна
Заключение диссертации по теме «Машины, агрегаты и процессы (по отраслям)», Стремнев, Александр Юрьевич
ОБЩИЕ ВЫВОДЫ
Результаты диссертационного исследования позволяют сделать следующие выводы:
1. Выявлено два основных подхода к математическому моделированию процесса измельчения: 1) описание на основе закономерностей в локальном объеме аппарата для измельчения; 2) описание с учетом закономерностей во всем объеме аппарата.
2. Раскрыты преимущества математического описания процесса измельчения в ШБМ на основе гидродинамической структуры потоков материала, заключающиеся в возможности получения относительно простых по своей структуре теоретических зависимостей для определения основных конструктивных размеров ШБМ, удовлетворяющих точности необходимой в инженерных расчетах.
3. Выделены наиболее существенные характеристики систем для автоматизированного проектирования: максимально возможная ориентация на предметную область, поддержка ЕСКД, ассоциативность между деталями, сборками и чертежами, гибкость и масштабируемость, твердотельное и поверхностное моделирование, простота использования, поддержка интерфейса прикладного программирования.
4. Разработана математическая модель процесса измельчения в ШБМ на основе гидродинамики потоков материала, учитывающая тонкость помола материала до и после измельчения, а также характер неоднородностей потоков внутри ШБМ, обусловленных ее конструктивными и технологическими особенностями.
5. Исследовано влияние факторов неоднородностей потока материала на математическую модель процесса измельчения в ШБМ Наличие застойных зон в объеме измельчения увеличивает время нахождения материала в мельнице. Неоднородности типа застойной зоны и рецикла оказывают сходное влияние на структуру потока измельчаемого материала: застойная зона характеризует долю частиц в потоке, время пребывания которых в мельнице превышает среднее время, а рецикл определяет частицы, переносимые от выходного сечения ШБМ к входному. Увеличение доли байпаса сокращает время нахождения материала в ШБМ, одновременно характеризуя наличие во входном потоке частиц готового продукта.
6. Разработана методика определения произведения константы скорости на время измельчения и числа Пекле как главных характеристик математической модели ШБМ на основе структуры потоков. Найдены критерии применимости математической модели на основе структуры потоков для проектирования ШБМ. Критерии указывают на обоснованность использования модели идеального вытеснения для описания ШБМ.
7. На основе математической модели получена возможность расчета рационального отношения длины ШБМ к диаметру.
8. Разработаны алгоритмы расчета: математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков; основных конструктивных параметров ШБМ (отношения длины барабана к диаметру, количества и длины камер, мелющей загрузки и профиля футеровочных плит); прочностного расчета деталей и узлов ШБМ.
9. Разработан алгоритм реализации САПР ШБМ на основе математической модели структуры потоков материала, позволяющий с учетом исходных данных (производительности мельницы, исходного размера кусков материала, остатка на контрольном сите на выходе из мельницы, характеристики измельчаемого материала и загрузки мелющих тел) дать проектное решение для ШБМ с необходимой технической документацией.
Ю.Предложена методика построения винтовых поверхностей для автоматизированного проектирования деталей машиностроения. Методика реализована в программных модулях разработанной САПР П1БМ для электронных моделей наклонной волнистой футеровки и трубошнека.
11.Впервые создана САПР, реализующая алгоритмы расчета математической модели процесса измельчения в ШБМ на основе структуры гидродинамики потоков и расчета конструктивных и технологических параметров ШБМ.
12.Для результатов автоматизированного проектирования ШБМ с использованием математической модели структуры потоков установлена адекватность реальным помольным агрегатам.
Список литературы диссертационного исследования кандидат технических наук Стремнев, Александр Юрьевич, 2004 год
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. Графические элементы чертежа ШБМ выходной документации САПР.в
Обратите внимание, представленные выше научные тексты размещены для ознакомления и получены посредством распознавания оригинальных текстов диссертаций (OCR). В связи с чем, в них могут содержаться ошибки, связанные с несовершенством алгоритмов распознавания. В PDF файлах диссертаций и авторефератов, которые мы доставляем, подобных ошибок нет.