Дипломы, курсовые, рефераты, контрольные...
Срочная помощь в учёбе

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

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

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

Содержание

  • ГЛАВА 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). Разработанная САПР и результаты ее функционирования (техническая документация, результаты расчетов, численные методики) используются при чтении лекций, проведении лабораторных работ и практических занятий по дисциплинам специализации 171 603 на кафедре механического оборудования БелГТУ им. В. Г. Шухова (Приложение 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. , А.А. Методы интеллектуализации САПР. Обеспечение творч. форм деятельности в САПР силовых конструкций: учебник / А. А. Добряков. М. Наука (С.-Петербургское отд-ние), 1992. -286 с.
  39. , В.Г. Цемент. Электрооборудование, автоматизация, хранение, транспортирование: справ, пособие / В.Г. Дуда- сокр. пер. с англ. Р. Д. Айтмуратова- Под ред. Б. Э. Юдовича, И. А. Прозорова. М.: Стройиздат, 1987. — 372 с.
  40. , Г. Г. Математическое моделирование явлений на поверхности / Г. Г. Еленин, М. Г. Слинько. М.: Знание, 1988. — 32 с.
  41. Закономерности измельчения в шаровых мельницах: сборник докл. междунар. конгресса по обогащению полезных ископаемых. Л.: Гос. пуб. библ., 1968. — 6 с.
  42. , B.C. Инженерные методы решения задач теплопроводности / B.C. Зарубин. — М.: Энергоатомиздат, 1983. — 326 с.
  43. , С.Ф. Технологические комплексы для производства цемента: уч. пос. для студ. спец. 171 600 / С. Ф. Зеленков. — Белгород, БелГТАСМ. 2000. — 86 с.
  44. Измельчение цементного клинкера: тр. / ин-т. Гос. ВНИИ цемент, пром-сти- науч. ред. В. 3. Пироцкий. — М.: НИИцемент, 1980. — 142 с.
  45. , А.П. Машины и оборудование для заводов по производству керамики и огнеупоров: учебник для вузов / А. П. Ильевич. — М.: Высш. школа, 1979. 344 с.
  46. , В.В. Анализ и синтез химико-технологических систем: учебник для вузов /В.В. Кафаров, В. П. Мешалкин — М.: Химия, 1991.-432 с.
  47. , В.В. Исследование характера движения материала в трубных мельницах / В. В. Кафаров, М. А. Вердиян // Цемент. — 1974. -№ 11.- С. 16 -18- № 12. — С. 16 — 18.
  48. , В.В. Математическое моделирование основных процессов химических производств: учеб. пособие для химико-технологических специальностей вузов / В. В. Кафаров, М. Б. Глебов. М.: Высшая школа, 1991. — 400 с.
  49. , В.В. Математические модели структуры потока материала в мельницах / В. В. Кафаров, М. А. Вердиян // Цемент. — 1977.-№ 5. С. 9- 11- -№ 6. — С. 12−13.
  50. , В.В. Моделирование химических процессов / В. В. Кафаров. — М.: Знание, 1968. 350 с.
  51. Кафаров, В. В Определение оптимального числа и соотношения длин камер трубных мельниц / В. В. Кафаров, М. А. Вердиян // Цемент. 1975. — № 8. — С. 9 — 11.
  52. , В.В. Основы кибернетического подхода к изучению процессов измельчения цементных материалов / В. В. Кафаров, М. А. Вердиян // Цемент. 1976. — № 4. — С. 4 — 5.
  53. , В.В. Системный анализ процессов химической технологии. Процессы измельчения и смешения сыпучих материалов / В. В. Кафаров, И. Н. Дорохов, С. Ю. Арутюнов. М.: Наука, 1985. — 440 с.
  54. , В.М. Основы современной экономики: учебник / В. М. Козырев. — М.: Финансы и статистика, 2003. 528 с.
  55. , B.C. Производство цемента: учеб. для проф.-техн. учеб. заведений и подготовки рабочих на производстве / B.C. Колокольников, Т. А. Осокина. М.: Высш. шк., 1974. — 245 с.
  56. , И.В. Технический прогресс в цементной промышленности: учеб. пособие / Кравченко И. В. М.: Б. м., 1979.- 183 с.
  57. Краткий справочник технолога цементного завода / под ред. И. В. Кравченко, Т. Г. Мешик. М.: Стройиздат, 1974. — 303 с.
  58. , Г. С. Интенсификация работы мельниц / Г. С. Крыхтин- отв. ред. В.В. Кармазин- Гос. н.-и. и проект.-конструкт. ин-т гидрометаллургии цв. металлов. Новосибирск: Наука. Сиб. изд. фирма, 1993.-239 с.
  59. , Л.А. Среднеходовые и тихоходные мельницы / Л. А. Летин, К. Ф. Роддатис. М.: Энергоиздат, 1981. — 359 с.
  60. , А. Цикл дробления и измельчения: моделирование, оптимизация, проектирование / А. Линч. М.: Недра, 1981. — 456с.
  61. А.С. Мельницы тонкого и сверхтонкого помола твердых топлив / А. С. Лышевский, В. Ф. Мыльнев, А. С. Мозжухин. М.: НИИинформтяжмаш, 1974. — 46 с.
  62. , В.И. Математическое моделирование экономики: учебно-практич. пособие для вузов / В. И. Малыхин. — М.: УРАО, 1998.-160 с.
  63. , Н.Г. Нечеткие модели для экспертных систем в САПР / Н. Г. Малышев, Л. С. Берштейн, А. В. Боженюк. М.: Энергоатомиздат, 1991. — 134 с.
  64. Математическое и программное обеспечение технических систем: сб. / АН СССР, Сибирское отд-ние- отв. ред. С. В. Елисеев, А. А. Засядко. Новосибирск: Наука, Сиб. отд-ние, 1989. — 224 с.
  65. Математическое обеспечение САПР систем вентиляции: учеб. пособие. Белгород: Изд-во БелГТАСМ, 1998. — 77 с.
  66. Математическое описание и алгоритмы расчета мельниц цементной промышленности: приложение к временным методическим указаниям. М: НИИЦемент, 1978, — 94 с.
  67. Мельницы углеразмольные шаровые барабанные: каталог / Главниипроект при Госплане СССР, Электростальский завод тяжелого машиностроения. — М.: ЦБНТИ, 1958. 6 с.
  68. Мельницы углеразмольные шаровые барабанные: каталог / Сызраньский завод тяжелого машиностроения. Куйбышев: ЦНТИ, 1977.- 19 с.
  69. , В.Г. Математическое обеспечение САПР технологической подготовки производства: учеб. пособие / В. Г. Митрофанов. — М.: Машиностроение, 1991. — 52 с.
  70. , В.А. Теория эквивалентных преобразований алгоритмов в САПР СБИС / В. А. Мищенко, А. А. Прихожий. — Минск: НАВУКАI ТЭХН1КА, 1991.-262 с.
  71. Моделирование и оптимизация: сб. науч. тр. Киев: ИК, 1991.-84 с.
  72. Моделирование и оптимизация сложных динамических процессов: сб. ст. / АН СССР, ВЦ- отв. ред. Ю. Н. Павловский. М.: ВЦ АН СССР, 1990.-79 с.
  73. Моделирование и оптимизация сложных систем: межвуз. сб. науч. тр. / М-во транспорта РФ, Волжск, гос. акад. водного транспорта- Ред. совет: Федосенко Ю. С. (отв. ред.) и др.- Вып. 275. — Нижний Новгород- ВГАВТ, 1998. 178 с.
  74. Моделирование, оптимизация и декомпозиция сложных динамических процессов: сб. ст. / Рос. АН, ВЦ- Отв. ред.: Ю. Н. Павловский. М.: ВЦ РАН, 1993. — 100 с.
  75. , В.В. Исследование предельной неравновесной модели массообмена / В. В. Моденова // Вычислительные методы и программирование: сб. работ- ред. В. Н. Пасконова. М: Изд-во Московского университета, 1983. — С. 169 — 173.
  76. , В.В. Численное исследование диффузионной модели противоточного массообмена / В. В. Моденова, М. С. Сафонов // Вычислительные методы и программирование: сб. работ- ред. В. Н. Пасконова. М: Изд-во Московского университета, 1983. — С. 157 -169.
  77. , О.Я. САПР: методология, технология, организация / О. Я. Мусаев. М.: ВНТИЦЕНТР, 1989. — 86 с.
  78. , О.А. Механическое оборудование цементных заводов: учеб. для техн. / О. А. Несвижский, В. Г. Банит. М.: Машиностроение, 1967. — 307 с.
  79. , О.А. Справочник механика цементного завода / О. А. Несвижский, Ю. И. Дешко. М.: Стройиздат, 1977. — 336.
  80. , Н.П. Моделирование и интенсификация энергетического воздействия мелющей загрузки в цементных мельницах: автореф. дис.. канд. техн. наук: 05.17.11- 05.02.16 / Несмеянов Н. П. М., 1994 — 17 с.
  81. , Е. В. Закономерности и интенсификация процесса сухого измельчения цементного сырья в барабанных шаровых мельницах: автореф. дис.. техн. наук: 05.17.11 / Николаев Е. В. — М., 1993.-20 с.
  82. Оборудование для производства строительных материалов и изделий / под ред. В. А. Баумана. — М.: «Машиностроение», 1977. — 396 с. — (Строительные машины: справочник: в 2 ч. / под ред. В.А. Баумана- ч. 2)
  83. Оптимальное планирование цементной промышленности / под ред. Н. П. Лебединского. М.: Стройиздат, 1978. — 182 с.
  84. , А.Р. Математическое моделирование процессов тепломассопереноса и температурных деформаций в строительных материалах при фазовых переходах / А. Р. Павлов. М.: Наука: С.Петербург. отделение, 2001. — 176 с.
  85. , Н.А. Обоснование опорного угла подшипника шаровой мельницы / Н. А. Пелипенко, А. И. Полунин // Математическое моделирование в технологии строительных материалов: сб. научн. тр. Белгород: изд-во БТИСМ, 1992. — С. 132−135.
  86. Повышение эффективности производства строительных материалов: тр. / под ред. М. С. Беляевой, И. Б. Будановой, И. М. Гиндиной. — М.: Стройиздат, 1983. — 248 с.
  87. , Т.В. Применение методов компьютерного моделирования для определения оптимальных конструктивно-технологических параметров многотрубных мельниц: дис. канд. техн. наук: 05.13.16 / Подставкина Т. В. Белгород, 1997. — 232 с.
  88. , С. Г. Принципы системного анализа в задачах интенсификации процессов измельчения в цементной промышленности: автореф. дис.. д-ра* техн. наук: 05.13.10, 05.17.11 / Привалихин С.Г.- Междунар. акад. систем, исслед. М., 2001.-32 с.
  89. , В.Ф. Математическое моделирование переработки информации оператором человеко-машинных систем / В. Ф. Присняков, JI.M. Приснякова. М.: Наука, 1990. — 244 с.
  90. Проблемы обработки информации в интегральной автоматизации производства: сб. н. тр. / АН СССР, Ленинградский ин-т информатики и автоматизации- отв. ред. В. М. Пономарев. — Л.: Наука, Ленинградское отд-ние, 1990. — 255 с.
  91. , Г. В. Теория систем автоматизированного проектирования: интеллектуальные САПР на базе вычислительных комплексов и сетей / Г. В. Римский. Минск: Наука и техника, 1994. — 632 с.
  92. Россоловский, A. AutoCAD 2000: Настольная книга пользователя / А. Россоловский. М.: Нолидж, 2001. — 928 с.
  93. , Бр. Использование Visual Basic 6: Специальное издание / Бр. Сайлер, Дж. Споттс- пер. с англ. — М.- СПб.- К.: Издательский дом «Вильяме», 1999. 832 с.
  94. САПР и графика: журн. по автоматиз. проектированию, компьютерн. анализу, техн. подготовке производства и технического документооборота / учредитель ООО «КомпьютерПресс». 2002 — 2004.
  95. САПР. Системы автоматизированного проектирования: уч. пос. для техн. вузов: в 9 кн. / под ред. И. П. Норенкова — Минск: Вышэйш. шк., 1987.
  96. , В.И. Современные цементные заводы (Процессы, оборудование и проектные решения) / В. И. Сатарин. М.: Стройиздат, 1967. — 195 с.
  97. , В.И. Цементная промышленность за рубежом / В. И. Сатарин, М. Б. Френкель. М.: Госстройиздат, 1963. — 294 с.
  98. , И.В. Экономика предприятия: учеб. пособие / И. В. Сергеев. — М.: Финансы и статистика, 2000. — 304 с.
  99. Системы автоматизированного проектирования объектов строительства: респ. межвед. науч.-техн. сб. — Киев: Буд1вельник, 1991.-85 с.
  100. Справочник по проектированию цементных заводов / под ред. С. И. Данюшевского. Л.: Стройиздат, 1969. — 239 с.
  101. Справочник по производству цемента / под ред. И. И. Холина. — М.: Госстройиздат, 1963. 851 с.
  102. , А.Ю. Системность научного знания и его воплощение в научных понятиях (на примере технических наук) / А. Ю. Стремнев // Молодежь Белгородской области: сб. по материалам областного конкурса научных молодежных работ. — Белгород, 2003.-С. 76−87.
  103. , Ю.Ю. Математическое и компьютерное моделирование: Ввод, курс: учеб. пособие для студентов естеств.мат. специальностей / Ю. Ю. Тарасевич. М.: Едиториал УРСС, 2002.-141 с.
  104. , В.П. Математическое моделирование технических систем / В. П. Тарасик. Минск.: «ДИЗАЙН ПРО», 1997. — 630 с.
  105. Теория и практика создания САПР РЭА. М.: Научн. совет по компл. пробл. «Кибернетика», 1988. — 92 с.
  106. , И. М. Исследование и организация циклических режимов для интенсификации работы цементных мельниц: дис.. канд. техн. наук: 05.02.13 / Тынников И. М. Белгород, 1999. — 179 с.
  107. Управление, моделирование и оптимизация технологических процессов производства цемента: тр. — Белгород: изд-во БТИСМ, 1976.-Вып. 35.-88 с.
  108. , Г. С. Тонкое измельчение строительных материалов / Г. С. Ходаков. — М.: Стройиздат, 1972. — 236 с.
  109. , З.М. Теоретические основы химической технологии: учеб. пособие для хим.-техн. спец. вузов / З. М. Царева, Е. И. Орлова. — Киев: Вища шк., 1986 270 с.
  110. , Н.В. Экспертные компоненты САПР / Н. В. Чичварин. -М.: Машиностроение, 1991. 240 с.
  111. , P.P. Шаровые мельницы замкнутого цикла измельчения с повышенной продольной скоростью материала: дис.. канд. техн. наук: 05.02.13 / Шарапов P.P. Белгород, 1995. — 200 с.
  112. , А.В. Помольный комплекс для измельчения кремнеземистых материалов: дис.. канд. техн. наук: 05.02.13 / Шаталов А. В. Белгород, 2002. -230 с.
  113. , К.А. Оптимизация работы шаровых барабанных мельниц с учетом разрушения частиц измельчаемого материала: дис.. канд. техн. наук: 05.02.13 / Юдин К. А. Белгород, 1999. — 180 с.
  114. , А.В. Мельницы самоизмельчения в СССР и за рубежом / А. В. Ягупов. М.: НИИинформтяжмаш, 1975. — 50 с.
  115. , В.П. Совершенствование методик определения измельчаемости в мельницах периодического действия / В. П. Яшин, Г. В. Зверева, А. А. Ященко // Гипроцемент: труды- ред. Ю. Лурье. М.: Госстройиздат, 1984. — Вып. 16. — С. 60 — 69.
  116. 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.
  117. 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.
  118. Bond, F.C. Mathematics of crushing and grinding / F.C. Bond // Symposium of Mineral Dressing, Institute of Mining & Metallurgy. — London, 1952.
  119. Bye G.C. Portland cement: composition, production, properties / G.C. Bye. Pergamon Press, 1983. — 149 p.
  120. 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.
  121. 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.
  122. 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.
  123. 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.
  124. 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.
  125. Gore M. Elements of systems analysis / M. Gore, J.W. Stubbe. -Dubuque.: Wm.C. Brown Publishers, 1988.-616 p.
  126. 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.
  127. 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.
  128. Kett I. Engineered concrete: mix design and text methods / I. Kett. -London: CRC Press, 1999. 167 p.
  129. 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.
  130. 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.
  131. 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.
  132. Liu J. Modeling of interparticle breakage / J. Liu, K. Schonert // International journal of mineral processing. — 1996. V44−5. — pp. 101 -117.
  133. 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.
  134. Neter J. Applied linear statistical models regressions, analysis of varians, and experimental design / J. Neter, W. Wasserman, M.H. Kutner.- 1990.- 1181 p.
  135. 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.
  136. Regourd, M. Cracking and grindability of clinker / M. Regourd, H. Hornain // Ciments Beton Platre Chaux. 1980. — V727.
  137. 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.
  138. 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.
  139. 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.
  140. Viswanathan K. Computer based models for grinding and industrial case studies / K. Viswanatan // Aufbereitungs Technik. 1986. — V27. -pp. 560−572.
  141. Viswanathan K. Computer simulation and optimisation of ball mills circuits / K. Viswanatan, K.C. Narang // World Cement. 1988. -VIO.-pp. 143−148.
  142. 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.
  143. 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.
  144. 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.
  145. Алгоритм расчета параметра kt для модели идеального вытеснения. Алгоритм расчета параметра kt для модели идеального смешения.
  146. Алгоритм расчета параметра kt для модели идеального вытеснения.
  147. Алгоритм расчета параметра kt для модели идеального смешения.
  148. В представленном алгоритме используются следующие обозначения: Исходные данные:
  149. Алгоритм расчета числа Пекле.
  150. Алгоритм расчета числа Пекле.
  151. В представленном алгоритме используются следующие обозначения: Исходные данные: kt произведение константы скорости измельчения на время измельчения для выбранной модели-
  152. Свых /Свх — отношение долей крупного класса в выходном и входном потоках-h Ре шаг расчета числа Пекле.1. Расчетные параметры:
  153. Ре рабочее значения величины Ре.
  154. Алгоритм расчета отношения L / D шаровой мельницы.
  155. Алгоритм расчета отношения L / D шаровой мельницы.
  156. В представленном алгоритме используются следующие обозначения:1. Исходные данные:1. Ре число Пекле-h LD шаг расчета L / D-tochn точность расчета.1. Расчетные параметры:1./ D рабочее значения величины L / D.
  157. Алгоритм определение количества и соотношения длин камер.
  158. В представленном алгоритме используются следующие обозначения: Исходные данные: L м — общая длина мельницы-
  159. СВЬ1Х /Свх отношение долей неразмолотого материала на выходе и входе в мельницу.1. Расчетные параметры:
  160. N камер рабочее значение количества камер мельницы- 1 кам (О), 1 кам (1), 1 кам (2) — длины 1,2, 3 камер соответственно.
  161. Алгоритм проверки вхождения результатов расчета модели в областьдопустимых значений.
  162. Алгоритм проверки вхождения результатов расчета модели в областьдопустимых значений.
  163. В представленном алгоритме используются следующие обозначения: Исходные данные: kt произведение константы скорости измельчения на время измельчения для выбранной модели-
  164. С вых — отношение долей крупного класса в выходном и входном потоках-
  165. Алгоритм определения ассортимента загрузки и массы мелющих тел.
  166. Алгоритм определения ассортимента загрузки и массы мелющих тел.
  167. 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Сконец
  168. 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]
  169. 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]
  170. S rasch = 0.257ifiD m2 L m (Pl (0) + Pl (l) + Pl (2))/3 3 3 ±+1. Pov (O) Pov (l) Pov (2)
  171. 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
  172. 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
  173. 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]
  174. 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)
  175. Pl (3) = PI tabli + 2., Pl (4) = PI tabl[i + 3], Pov (3) = Pov tabl[i + 2], Pov (4) = Pov tabl[i + 3]
  176. S rasch =—flfi (l)D m2l кам (1), И3> + Р'(4"2 2 +1. Pov (3) Pov (4)
  177. В приведенном выше алгоритме используются следующие обозначения:1. Исходные данные:
  178. Dm, Lm диаметр в свету и длина мельницы (камеры помола) соответственно-
  179. N камер, 1 кам (0), 1 кам (1), 1 кам (2) — количество камер мельницы, а также их длины-fi — коэффициент заполнения первой камеры мельницы-d куск средний диаметр кусков материала на входе-
  180. DshtablM. табличные значения (массив) диаметров мелющих тел (шаров), в соответствии с алгоритмом предполагается убывающий порядок значений в массиве-
  181. PI tablM., Pov tabl[M] — табличные значения (массивы) насыпной плотности и средней удельной поверхности мелющих тел-
  182. PI cyl насыпная плотность цильпебса.1. Расчетные параметры: dsh оптимальный максимальный размер мелющих тел (шаров) в первой камере мельницы-
  183. Р1(0), Р1(1), Р1(2), Р1(3), Р1(4) рабочие значения насыпной плотности мелющих тел в трехкомпонентной загрузке первой камеры и двухкомпонентной загрузке второй камеры мельницы-
  184. Pov (0), Pov (l), Pov (2), Pov (3), Pov (4) рабочие значения среднейудельной поверхности мелющих тел в трехкомпонентной загрузке первой камеры и двухкомпонентной загрузке второй камеры мельницы-
  185. Алгоритм расчета профиля волнистой футеровки.
  186. АО, ВО значения радиусов расположения геометрических центров впадин и выступов профиля футеровки первой камеры мельницы-
  187. Алгоритм прочностного расчета деталей и узлов шаровой барабанноймельницы.
  188. Алгоритм прочностного расчета деталей и узлов шаровой барабанноймельницы.178 ?tol = tol + h tol1. Dнар = RBH + tol1. GK =7ipgLm (R 2 -RBH2)1. GKp =0,3GK1. GCHT=0,14GKp
  189. 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
  190. В представленном алгоритме используются следующие обозначения: Исходные данные:
  191. D m, L м диаметр в свету и длина мельницы соответственно- hmin, h2 — минимальная толщина и высота профиля волны футеровки первой камеры мельницы-
  192. N камер количество камер мельницы-
  193. N? — мощность привода мельницы-
  194. Q — равнодействующая веса вращающихся частей и центробежной силы вращающейся загрузки-1Ц длина опорной поверхности цапфы-1опор длина мельницы между точками опор-
  195. М изг максимальный изгибающий момент корпуса мельницы-
  196. М? — приведенный момент по изгибу и кручению корпуса мельницы-
  197. Wconp момент сопротивления сечения корпуса мельницы-Dболт — рабочий диаметр болта крепления крышки и корпуса (по стержню) — Dболт вп ~~ рабочий диаметр болта крепления крышки и корпуса по впадине резьбы-
  198. Рокр — окружное усилие на болты-
  199. Мц — изгибающий момент в поперечном сечении цапфы-
  200. Wu момент сопротивления сечения цапфы-d ц внут диаметр внутренней поверхности цапфы.
  201. Листинг модуля Modulel. bas .
  202. Листинг модуля Modulel. bas
  203. 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
  204. 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
  205. Public tdr As Integer Public pi As Double
  206. 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
  207. Public Type MyPoint3D x As Double у As Double z As Double End Type
  208. Public Type Kam nk As Double 10 As Double 11 As Double 12 As Double End Type
  209. Листинги программных модулей пользовательского интерфейса главнойформы» САПР.
  210. Check4.Enabled = True. Check6.Enabled = True. Check9.Enabled = True
  211. Text2.EnabIed = False .Text4.Enabled = False .Text7.Enabled = False
  212. VScroll2.Enabled = False. VScroll4.Enabled = False. VScroll7.Enabled = False
  213. VScroll2.Min = 0. VScroll2. Max = 1000
  214. VScroll2.Value = 1000. VScroll2. Max / 10 .Text2.Text = 1 —, VScroll2. Value / 1000
  215. VScroll4.Min = 0. VScroll4. Max = 1000
  216. VScroll4. Value = 1000.VScrolW.Max / 10 .Text4.Text = 1 —, VScroll4. Value / 1000
  217. VScroll7.Min = 0, VScroll7. Max = 1000
  218. VScroll7. Value = 1000. VScroll7. Max / 10 .Text7.Text = 1 —, VScroll7. Value / 10 001. End With1. End Sub
  219. Private Sub Check4Click () With Forml1. (.Check4. Value = 1) Then1. VScroll2. Enabled = True1. ne 1 (6).BorderColor = &H80000008
  220. Shape4.BorderColor = &H80000008 Else1. VScroll2. Enabled = False1. ne 1 (6).BorderColor = &H80000009
  221. Shape4 .BorderColor = &H800000091. End If1. End With1. End Sub
  222. Private Sub VScroll2Change () Forml. Text2.Text= 1 Forml. VScroll2.Value /1000 End Sub
  223. Private Sub VScroll4Change ()
  224. Forml.Text4.Text = 1 Forml. VScroll4.Value / 10 001. End Sub
  225. Private Sub VScroll7Change () Forml. Text7.Text = 1 Forml. VScroll7.Value / 1000 End Sub1. Private Sub cmdParClick ()
  226. Form3. Visible = True End Sub
  227. Private Sub cmdCalkClick () Dim a As Variant
  228. Forml.lblProc.Caption = «Расчет.» calkdraw = False dalshe = False a = firstsubO1. End Sub
  229. Private Sub cmdCalkDrawClick () Dim a As Variant
  230. Forml.lblProc.Caption = «Подготовка к построению.» calkdraw = True dalshe = False a = firstsub ()1. End Sub
  231. Private Sub ViewDrawClick ()1. Form4. Show1. End Sub
  232. Листинги программных модулей пользовательского интерфейса «формы» настройки дополнительных параметров.
  233. Листинги программных модулей пользовательского интерфейса «формы» настройки дополнительных параметров.1. Private Sub FormLoad ()
  234. With Form3 .Text 1. Text = fi .Text2.Text = mu .Text3.Text = gamma .Text4.Text = qu End With1. End Sub
  235. 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.“, „САПР шаровой барабанной мельницы“)
  236. Forml.RichTextBoxl.Text = „Расчет прерван“ Exit Sub End Ifgamma = CDbl (.Text3.Text)1. (gamma > 4900 Or gamma < 4300) Thenmsg = MsgBox („HacbinHaa плотность мелющих тел должна быть в пределах 4300 кг/мЛ3 4900 кг/мл3.“,
  237. САПР шаровой барабанной мельницы»)
  238. 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 т/кВт*ч.“, ,
  239. САПР шаровой барабанной мельницы»)
  240. Form l.RichTextBoxl.Text = «Расчет прерван"1. Exit Sub1. End If1. End With
  241. Form3 .Visible = False Unload Form31. End Sub
  242. Листинги программных модулей пользовательского интерфейса «формы"выбора состава документации.
  243. Листинги программных модулей пользовательского интерфейса «формы"выбора состава документации.1. Private Sub FormLoad ()
  244. Form2.Check7.Enabled = False Form2. Check7.Value = 0 Form2. Check8.Enabled = False Form2. Check8.Value = 0 Case 2
  245. Form2.Check8.Enabled = False Form2. Check8.Value = 0 Case 31. End Select1. End Sub
  246. Private Sub cmdListdrawClick () Dim tr As Integertr = 0
  247. Form2.Checkl.Value = 0 Thenchl = False1. Elsechl = True tr = tr + 290 End If
  248. Form2.Check2. Value = 0 Thench2 = False1. Elsech2 = Truetr = tr + 80 + 55 + 40 + 20 End If
  249. Form2.Check3.Value = 0 Then ch3 = False1. Elsech3 = True tr = tr + 65 End If
  250. Form2.Check4.Value = 0 Thench4 False1. Elsech4 = True tr = tr + 55 End If
  251. Form2.Check5.Value = 0 Thench5 = False1. Elsech5 = True tr = tr + 60 End If
  252. Form2.Check6.Value = 0 Thench6 = False1. Elsech6 = True tr = tr+ 120 End If
  253. Form2.Check7.Value = 0 Thench7 = False1. Elsech7 = True tr = tr + 40 End If
  254. Form2.Check8. Value = 0 Thench8 = False1. Elsech8 = True tr = tr + 30 End If
  255. Form2.Check9.Value = 0 Thench9 = False1. Elsech9 = True tr = tr + 25 End Iftdr = tr
  256. Form2 .Visible = False Unload Form2dalshe 1 True
  257. Form 1. Refresh Call Forml. first sub1. End Sub
  258. Листинги программных модулей пользовательского интерфейса «формы"просмотра документации.
  259. Листинги программных модулей пользовательского интерфейса «формы"просмотра документации.
  260. Private Sub FormLoad () Filel. FileName = «*.dwg» Filel. Path = App. Path & «Log» End Sub
  261. Private Sub CommandlClick ()1. Dim msg As Integer
  262. Dim Acadapp As AcadApplication1. Dim curfile As Stringcurfile = Filel. FileName1. On Error GoTo myclose
  263. FileCopy App. Path & ««LogV & curfile, App. Path & ««V & curfile Kill App. Path & ««/»» & curfile
  264. Set Acadapp = AcadApplication
  265. Листинги программных модулей расчетного блока САПР.
  266. Листинги программных модулей расчетного блока САПР.1. Function firstsub ()
  267. Dim npr As Double Dim i As Integer1. Dim msg As Integer
  268. Dim beta As Double Dim lambda As Double Dim R As Double
  269. Dim F As Double Dim m As Double
  270. Dim P As Double Dim S As Double1. Dim I d As Double
  271. Dim D m As Double Dim Lm As Double1. Dim krr As Double1. Dim Pr As Double
  272. Dim 1кам (3) As Double Dim fiz (3) As Double Dim dsh (3) As Double Dim dkusk As Double1. Dim msh (6) As Double
  273. Dim tolshkorp As Double Dim mz As Double Dim duHap As Double Dim dueнут As Double Dim 1ц As Double DimD болт As Double
  274. 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
  275. RichTextBox l. Text = «Расчет прерван» Exit Function End If
  276. Pr = CDbl (Form 1 .Text9.Text) If (Pr < 0) Thenmsg = MsgBox (««Пpoизвoдитeльнocть должна быть больше 0»», «САПР шаровой барабанной мельницы») .RichTextBox 1 .Text = «Расчет прерван» Exit Function End If
  277. F = CDbl (.Textl l. Text) If (F 90) Thenmsg = MsgBox (««OcraTOK на сите должен быть в пределах 1% 90%.»»,, «САПР шаровой барабанной мельницы»)
  278. RichTextBox 1. Text = «Расчет прерван» Exit Function End If
  279. RichTextBox 1 .Text = .RichTextBoxl.Text & «ИСХОДНЫЕ ДАННЫЕ» & Chr (10) & ««--------------»» & Chr (10)
  280. RichTextBoxI .Text = .RichTextBoxI .Text & «производительность = «» & .Text9.Text & «» т/ч»» & Chr (IO) .RichTextBoxl.Text = .RichTextBoxl.Text & «средний размер кусков исходного материала = «» & .Textl3.Text & «» м» & Chr (10)
  281. RichTextBox 1 .Text = .RichTextBoxl.Text & «остаток на сите 008 в исходном материале = 100»» & «» %»» & Chr (10)
  282. RichTextBoxl.Text = .RichTextBoxl.Text & «остаток на сите 008 в готовом продукте = «» & .Textl l. Text & «» %»» & Chr (10)
  283. RichTextBoxl.Text = .RichTextBoxl.Text & «ПАРАМЕТРЫ МОДЕЛИ» & Chr (10) & ««------»» &1. Chr (10)
  284. RichTextBoxl.Text = .RichTextBoxl.Text & «модель вытеснения» & Chr (10)1. (.Check4. Value = 1) Then beta = CDbl (.Text2 .Text)
  285. Form l.RichTextBoxl.Text = .RichTextBoxl.Text & «с застойной зоной (доля= «» & beta & ««)»» & Chr (10) Elsebeta = 0 End If1. (.Check6. Value = 1) Then lambda = 1 CDbl (.Text4.Text)
  286. Form l.RichTextBoxl.Text = .RichTextBoxl.Text & «с байпасом (доля= «» & lambda & ««)»» & Chr (10) Elselambda = 1 End If1. (.Check9. Value = 1) Then R = CDbl (.Text7.Text)
  287. Forml .RichTextBoxl.Text = .RichTextBoxl.Text & «с рециклом (доля= «» & R & ««)»» & Chr (10) Else1. R = 0 End Ifm = F/1001. Вызов расчета kt
  288. S = vit (beta, lambda, R, m)
  289. Вызов проверки модели на применимость1. (proverka (m, S) = False) Thenmsg = MsgBox (««HeT решений: требуется корректировка параметров модели»,, «САПР шаровой барабанной мельницы»)
  290. RichTextBoxl.Text = «Расчет прерван» Exit Function End If
  291. Вызов расчета числа Пекле Р = PeRRkt (m, S)
  292. RichTextBoxl.Text = .RichTextBoxl.Text & Chr (10) & «РАСЧЕТНЫЕ ПАРАМЕТРЫ ШБМ» & Chr (10) & ««— ------------» & Chr (10)
  293. Вызов расчета отношения длины мельницы к диаметру ld = Fix (ldPe (P) * 100) /100
  294. RichTextBoxl.Text = .RichTextBoxl.Text & «отношение длины к диаметру = «» & ld & Chr (10)кгг = -1.5 *m*m + 4*m + 0.5
  295. 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
  296. RichTextBoxl.Text = .RichTextBoxl.Text & «длина ШБМ = «» & Lm & «» м» & Chr (10)
  297. Вызов расчета количества и соотношения длин камер
  298. Ыкамер ¦= kamery (m, Lm).nk 1кам (0) = kamery (m, Lm).l0 1кам (1) = kamery (m, Lm).ll 1кам (2) = kamery (m, Lm).l2
  299. RichTextBoxl.Text = .RichTextBoxl.Text & «число камер = н & NKaMep & Chr (10)
  300. Select Case Ыкамер Case 1 Case 2
  301. RichTextBoxl.Text = .RichTextBoxl.Text & «длина первой камеры = «» & 1кам (0) & Chr (10) .RichTextBoxl.Text = .RichTextBoxl.Text & «длина второй камеры = «» & 1кам (1) & Chr (10) & Chr (10) Case 3
  302. RichTextBoxl.Text = .RichTextBoxl.Text & «загрузка:» & Chr (10) & «одна камера: шары, «» & ««m= «» & msh (0) + msh (l) + msh (2) & «» т» & Chr (10) & Chr (10) Case 2
  303. RichTextBoxl.Text = .RichTextBoxl.Text & «загрузка:» & Chr (10) & «первая камера: шары, «» & ««m= «» & msh (0) + msh (l) + msh (2) & «» т» & Chr (10) & «вторая камера: цильпебс, «» & ««m= «» & msh (5) & «» т» & Chr (10) Case 3
  304. RichTextBox 1 .Text = .RichTextBox 1 .Text & Chr (10) & «футеровка:» & Chr (10)1. Select Case Ыкамер Case 1
  305. RichTextBoxl.Text = .RichTextBoxl.Text & «третья камера:» & Chr (10) & «прямая броня» & Chr (10) & «минимальная толщина = «» & Int (1000 ¦ h min) / 1000 & «» м» & Chr (10) End Select
  306. Вызов прочностного расчетаtolsh korp = prochrasch (0.5 * D m, h2, h min, Lm, mz * 1000).tolsh1. (tolsh коф = 0) Then
  307. RichTextBoxl.Text = .RichTextBoxl.Text & Chr (10) & «толщина стенок барабана = «» & tolshkorp & «» м» & Chr (10)
  308. RichTextBoxl.Text = .RichTextBoxl.Text & «длина опорной поверхности цапфы = «» & Fix (1000 * 1ц) / 1000 & «» м» & Chr (10)
  309. RichTextBoxl.Text = .RichTextBoxl.Text & «диаметр опорной поверхности цапфы = «» & Fix (1000 * с! цнар) / 1000 & «» м» & Chr (10)
  310. RichTextBoxl.Text = .RichTextBoxl.Text & «толщина стенок опорной поверхности цапфы = «» & Fix (1000 * 0.5 * (с1цнар с1цвнут)) / 1000 & «» м» & Chr (10)
  311. RichTextBoxl.Text = .RichTextBoxl.Text & Chr (10) & «мощность привода = «» & Fix (0.001 * npr) & «» кВт» & Chr (10)
  312. End If.lblProc.Caption = «««» ElselblProc. Caption = ««««msg = MsgBoxC’PacneT завершен», «САПР шаровой барабанной мельницы») End If1. End With1. End Function
  313. Function vit (beta As Double, lambda As Double, R As Double, m As Double) As Double
  314. Function proverka (m As Double, S As Double) As Boolean
  315. Dim a As Double Dim mmax As Double Dim mmin As Double
  316. Function PeRRkt (RR As Double, kt As Double) As Double
  317. Dim a As Double Dim Pe As Double Dim Temp As Double1. Pe = 0.1a = Sqr (l + 4 * kt * (I / Pe))
  318. Temp = (4 * a * Exp (0.5 * Pe)) / ((1 + а) л 2 * Exp (0.5 * a ¦ Pe) (1 — а) л 2 * Exp (-0.5 * a * Pe))
  319. Do While ((Temp RR) > 0.1 * RR) Pe = Pe + 0.1a = Sqr (l + 4 * kt * (1 / Pe))
  320. 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
  321. Function ldPe (Pe As Double) As Double
  322. Dim Id As Double Dim Temp As Double
  323. Temp = 6.6 * Exp (0.0065 * Exp (0.99 «Id))
  324. Do While (Abs (Temp Pe) > 0.01 «Pe) Id = Id + 0.001
  325. Temp = 6.6 «Exp (0.0065 «Exp (0.99 «Id)) LoopldPe = Id End Function
  326. Private Function kamery (m As Double, Lm As Double) As Kam
  327. 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
  328. 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
  329. Dshtabl (0) = 100 Pltabl (O) = 4560 Povtabl (O) = 76 930 Dshtabl (l) = 90 Pltabl (l) = 4590 Povtabl (l) = 82 550 Dshtabl (2) = 80 Pltabl (2) = 4620 Povtabl (2) = 94 870 Dshtabl (3) = 70 Pltabl (3) = 4640 Povtabl (3) = 96 250
  330. Dshtabl (4) = 60 Pltabl (4) = 4660 Povtabl (4) = 122 840 Dshtabl (5) = 50 Pltabl (5) = 4708 Povtabl (5) = 154 050 Dshtabl (6) = 40 PItabl (6) = 4760 Povtabl (6) = 192 500 Dshtabl (7) = 30 Pltabl (7) = 4850 Povtabl (7) = 254 520 Dshtabl (8) = 20
  331. 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
  332. P1(0) = Pltabl (i 1) Pl (l) = Pltabl (i) Pl (2) = Pltabl (i + 1)
  333. Pov (0) = Povtabl (i -1) Pov (l) = Povtabl (i) Pov (2) = PovtabI (i +1)
  334. 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)
  335. Pl (l) = Pltabl (i) Pl (2) = Pltabl (i + 1) Pov (0) = Povtabl (i -1) Pov (l) = Povtabl (i) Pov (2) = Povtabl (i + 1)
  336. 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)
  337. P1(0) = Pltabl (6) Pl (l) = Pltabl (7) Pov (0) = Povtabl (6) Pov (l) = Povtabl (7)
  338. 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)
  339. Elself (i = 5) Then P1(0) = Pltabl (4)
  340. Pl (l) = Pltabl (5) Pl (2) = Pltabl (5) Pov (O) = Povtabl (4) Pov (l) = Povtabl (5) Pov (2) = Povtabl (5)
  341. 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)
  342. P1(0) = Pltabl (6) Pl (l) = Pltabl (7) Pov (0) = Povtabl (6) Pov (l) = Povtabl (7)
  343. 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
  344. 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)
  345. 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)
  346. PI (0) = Pltabl (i + 2) Pl (l) = Pltabl (i + 3) Pov (0) = PovtabI (i + 2) Pov (l) = Povtabl (i + 3)
  347. Private Function profil (qu As Double, Dm As Double) As prof
  348. Dim gamma4 As Double Dim gamma42 As Double Dim betta As Double
  349. AO = (rl + r2) ¦ Sin (betta) / Sin (0.5 ¦ gamma4)
  350. 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)
  351. AO2 = (rl2 + r22) ¦ Sin (betta2) / Sin (0.5 * gamma42)
  352. Private Function prochrasch (Rm As Double, h2 As Double, h min, Lm As Double, mz) As Rasch
  353. Dim Мц As Double Dim Wu As Double
  354. Dim d6bn (23) As Double Dim d6(23) As Double Dim О болт As Double Dim d6onibn As Double
  355. Dim P srez As Double Dim Б болт As Double Dim г болт As Double Dim i As Integer
  356. Dim Р изг As Double Dim Рзат As Double Dim сигмаболт As Double Dim тауболт As Double
  357. Dim dцaпфывнyт As Double Dim О болт фут As Double Dim О болт шн As Double1. Dim msg As Integerkolper = Ыкамер 1с1цапфы = Rm
  358. Rb = Rm + 0.5 * h2 + h mintol = 0.0011. Dotol = tol+ 0.001 RHap = Rb + tol G1 =9.81 *mz
  359. G2 = 9.81 * 7800 • pi * Lm * (RHap л 2 Rb л 2) G3 = 0.3 • G2
  360. G4 = 0.04 * 9.81 * 7800 «kolper «Rb л 2
  361. G4sht = pi * 7800 * Lm * 9.81 * (0.08 * Rb 0.0016)1. G5 = 0.14 * G3
  362. Оболт = d6(i) * 0.001 dбoлтвп = d6Bn (i) * 0.001
  363. Psrez = qu + Мкрут / (Янар + 1.4 * 0болт) Б болт = pi * 0.25 * d6oflTBn л 2 г болт = Fix (-952.38 * 0болт + 105.71)1.op While (Psrez / (0.4 * гболт * Бболт) > 96 000 000)1. Do
  364. Ризг = 1.5 * qu * 1цапфы / (2 * 0.75 * гболт * 2* (Янар + 1.4 * Оболт))
  365. Рзат = 0.4 ¦ Б болт * 320 000 000сигмаболт = (0.2 * Р изг + Рзат) / Бболттауболт = 0.1 * 1.2 * Р зат * О болт / (0.2 * dбoлтвп л 3)1. (i > 22) Then1. Exit Do End If
  366. Листинги программных модулей блока графических построений.
  367. Листинги программных модулей блока графических построений.
  368. 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
  369. 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
  370. Dim start t As Double Dim endt As Double
  371. FileCopy App. Path & ««/shablon.dwg»», App. Path & ««/Log/shablon.dwg»» Kill App. Path & ««/Log/*.*»»
  372. 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
  373. Function fpostroenielista () As Double
  374. Set Acadapp = New AcadApplication
  375. Acadapp.Documents.Open (App.Path & ««/shablon.dwg»»)
  376. Acadapp.ActiveDocumentSaveAs (App.Path & ««/Log/chertegl.dwg»»)
  377. Set newText = Acadapp.ActiveDocument.TextStyles.Add (««MYSTYLE»») newText. Height = 5newText. fontFile = App. Path & ««/tob.shx»»
  378. Set newText l = Acadapp.ActiveDocument.TextStyles.Add (««DIMTSTYLE»») newTextl. Height = 5newText l. fontFile = App. Path & ««/Wwcade.shx»» found = False
  379. For Each entry In Acadapp.ActiveDocument.Linetypes
  380. StrComp (entry.Name, ««DASHDOT»», 1) = 0 Then found = True Exit For End If Next
  381. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load ««DASHDOT»», ««acad.lin»»
  382. For Each entry In Acadapp.ActiveDocument.Linetypes
  383. StrComp (entry.Name, ««DASHED»», 1) = 0 Then found = True Exit For End If Next
  384. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load ««DASHED»», ««acad.lin»»
  385. Acadapp.ActiveDocument.Layers.Add (««ldashed»»).Linetype = ««DASHED»» Acadapp.ActiveDocument.Layers.Add (««ldashdot»»).Linetype = ««DASHDOT»»
  386. 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
  387. Dim pattemName As String Dim patternName2 As String Dim pattemName3 As String Dim PatternType As Long Dim bAssociativity As Boolean
  388. 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
  389. Dim patternName As String Dim patternName2 As String Dim patternName3 As String Dim PatternType As Long Dim bAssociativity As Boolean
  390. Dim Acadapp As AcadApplication Dim sset sbor As AcadSelectionSet
  391. Dim newText As AcadTextStyle Dim newText l As AcadTextStyle
  392. Dim Acadapp As AcadApplication Dim sset sbor As AcadSelectionSet
  393. Dim newText As AcadTextStyle Dim newTextl As AcadTextStyle
  394. Dim Acadapp As AcadApplication Dim sset sbor As AcadSelectionSet
  395. Dim pattemName As String Dim pattemName3 As String Dim PattemType As Long Dim bAssociativity As Boolean
  396. Dim newText As AcadTextStyle Dim newText l As AcadTextStyle
  397. Dim ssetsbor As AcadSelectionSet Dim Acadapp As AcadApplication Dim entry As AcadLineType1. Dim textObj As AcadText
  398. Dim patternName As String Dim PatternType As Long Dim bAssociativity As Boolean
  399. Dim lineObjgab As AcadLine Dim lplit0 As Double Dim nplit0 As Integer1. Dim 1plit1 As Double
  400. Dim Acadapp As AcadApplication Dim entry As AcadLineType
  401. Dim Pointmasshtab (2) As Double Dim textObj As AcadText
  402. Dim patternName As String Dim Pattern Type As Long Dim bAssociativity As Boolean
  403. 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
  404. Dim hatchObj51 As AcadHatch Dim hatchObj52 As AcadHatch Dim hatchObj61 As AcadHatch Dim hatchObj62 As AcadHatch
  405. 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
  406. Dim lineHatch As AcadLine Dim lineHatch2 As AcadLine
  407. Dim Acadapp As AcadApplication
  408. Dim DimPointAngularObj As AcadDim3PointAngular Dim dimObj As AcadDimAligned Dim DimRad As AcadDimRadial Dim DimDiam As AcadDimDiametric
  409. 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
  410. Dim startPoint (0 To 2) As Double Dim endPoint As Variant Dim vspcoord As Variant
  411. Dim arcObj As AcadArc Dim arcObjl As AcadArc
  412. 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
  413. 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
  414. 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)
  415. Dim ssetsbor As AcadSelectionSet Dim ssobjssbor (0 To 1) As AcadEntity1. Dim blockObj As AcadBlock
  416. Dim blockRefObj As AcadBlockReference
  417. Dim insPoint sheroh As Variant
  418. Dim basePointsheroh (0 To 2) As Double
  419. Dim lineObj sheroh l As AcadLine Dim lineObjsheroh2 As AcadLine Dim textObjsheroh As AcadText
  420. Dim explodedObjects As Variant
  421. 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
  422. 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
  423. As AcadDimAligned 2 As AcadDimAligned 3 As AcadDimAligned 4 As AcadDimAligned5 As AcadDimAligned
  424. As AcadDimAligned 7 As AcadDimAligned 8 As AcadDimAligned 9 As AcadDimAligned
  425. As AcadDimAligned 11 As AcadDimAligned12 As AcadDimAligned13 As AcadDimAligned21 As AcadDimAligned22 As AcadDimAligned
  426. Dim Pointsborl (0 To 2) As Double Dim Pointsbor2(0 To 2) As Double Dim Pointsbor3(0 To 2) As Double
  427. Dim shnek sbor As Acad3DSolid
  428. 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)
  429. Dim ssetsbor As AcadSelectionSet Dim ssobjssbor (0 To 1) As AcadEntity1. Dim blockObj As AcadBlock
  430. Dim blockRefObj As AcadBlockReference
  431. Dim insPoint sheroh As Variant
  432. Dim basePointsheroh (0 To 2) As Double
  433. Dim lineObjsherohl As AcadLine Dim lineObjsheroh2 As AcadLine Dim textObjsheroh As AcadText
  434. Dim explodedObjects As Variant
  435. 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
  436. Dim Pointsborl (0 To 2) As Double Dim Pointsbor2(0 To 2) As Double Dim Pointsbor3(0 To 2) As Double
  437. Dim expr As Double Dim 1 verh As Double
  438. 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)
  439. Dim ssetsbor As AcadSelectionSet Dim ssobjssbor (0 To 1) As AcadEntity1. Dim blockObj As AcadBlock
  440. Dim blockRefObj As AcadBlockReference
  441. Dim insPoint sheroh As Variant
  442. Dim basePointsheroh (0 To 2) As Double
  443. Dim lineObj sheroh l As AcadLine Dim lineObjsheroh2 As AcadLine Dim textObjsheroh As AcadText
  444. Dim explodedObjects As Variant
  445. 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
  446. Dim Pointsborl (0 To 2) As Double Dim Pointsbor2(0 To 2) As Double Dim Pointsbor3(0 To 2) As Double
  447. Dim expr As Double Dim 1 verh As Double
  448. Function fpostroenielista23() As Double
  449. Set Acadapp = New AcadApplication Acadapp.Documents.Open (App.Path & ««/shablon.dwg»») Acadapp. ActiveDocumentSaveAs (App.Path & ««/Log/cherteg23.dwg»»)
  450. Set newText = Acadapp.ActiveDocument.TextStyles.Add (««MYSTYLE»») newText. Height = 5newTextfontFile = App. Path & ««/tob.shx»»
  451. Set newText l = Acadapp.ActiveDocument.TextStyles.Add (««DIMTSTYLE»») newText 1. Height = 5newText J. fontFile = App. Path & ««/Wwcade.shx»» found = False
  452. For Each entry In Acadapp.ActiveDocument.Linetypes
  453. StrComp (entry.Name, ««DASHDOT»», 1) = 0 Then found = True Exit For End If Next
  454. Not (found) Then Acadapp. ActiveDocument.Linetypes.Load ««DASHDOT»», ««acad.lin»»
  455. For Each entry In Acadapp.ActiveDocument.Linetypes
  456. StrComp (entry.Name, ««DASHED»», 1) = 0 Then found = True Exit For End If Next
  457. Not (found) Then Acadapp. ActiveDocument.Linetypes.Load ««DASHED»», ««acad.lin»» Acadapp.ActiveDocument.Layers.Add (««ldashed»»).Linetype = ««DASHED»»
  458. Dim DimPointAngularObj As AcadDim3PointAngular Dim dimObj As AcadDimAligned Dim DimRad As AcadDimRadial
  459. 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
  460. Dim startPoint (0 To 2) As Double Dim endPoint As Variant
  461. Dim circleObj As AcadCircle
  462. Dim R As Double Dim rl As Double
  463. Dim vsp Point l As Variant Dim vspPoint2 As Variant Dim vspPoint3 As Variant Dim vspPoint4 As Variant Dim vspPoint5 As Variant
  464. Dim vspfil As Double Dim vspfi2 As Double Dim vspfi3 As Double
  465. 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
  466. 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
  467. Dim sset sbor As AcadSelectionSet
  468. Dim outerLoopl (0 To 7) As AcadEntity Dim outerLoop2(0 To 7) As AcadEntity Dim outerLoop3(0 To 7) As AcadEntity
  469. Dim line0bj031 As AcadLine Dim line0bj0311 As AcadLine Dim line0bj026 As AcadLine Dim line0bj0261 As AcadLine
  470. Dim lineObj251 As AcadLine Dim line0bj301 As AcadLine Dim lineObj252 As AcadLine Dim line0bj302 As AcadLine Dim lineObj253 As AcadLine Dim line0bj303 As AcadLine
  471. 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
  472. Dim startPoint (0 To 2) As Double Dim endPoint As Variant
  473. Dim vspPointl As Variant Dim vspPoint2 As Variant Dim vspPoint3 As Variant Dim vspPoint4 As Variant Dim vspPoint5 As Variant
  474. Dim vspfi2 As Double Dim vspfi3 As Double
  475. Dim arcObjrl As AcadArc Dim arcObjrl 1 As AcadArc Dim arcObjr2 As AcadArc Dim arcObjr3 As AcadArc Dim arcObjr31 As AcadArc
  476. Function fpostroenielista2() As Double
  477. Set Acadapp = New AcadApplication Acadapp.Documents.Open (App.Path & ««/shabIon.dwg»») Acadapp.ActiveDocument.SaveAs (App.Path & ««/Log/cherteg2.dwg»»)
  478. Set newText = Acadapp.ActiveDocument.TextStyles.Add (««MYSTYLE»») newText. Height = 5newText-fontFile = App. Path & ««/tob.shx»»
  479. Set newText l = Acadapp.ActiveDocument.TextStyles.Add (««DIMTSTYLE»») ne wText 1. Height = 5newTextl. fontFile = App. Path & ««/Wwcade.shx»» found = False
  480. For Each entry In Acadapp.ActiveDocument.Linetypes
  481. StrComp (entry.Name, ««DASHDOT»», 1) = 0 Then found = True Exit For End If Next
  482. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load ««DASHDOT»», ««acad
  483. For Each entry In Acadapp.ActiveDocument.Linetypes
  484. StrComp (entry.Name, ««DASHED»», 1) = 0 Then found = True Exit For End If Next
  485. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load ««DASHED»», ««acad. Acadapp.ActiveDocument.Layers.Add (««Idashed»»).Linetype = ««DASHED»» End Function
  486. 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
  487. 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
  488. Dim lineObjlg As AcadLine Dim lineObj2g As AcadLine Dim lineObj3g As AcadLine Dim lineObj4g As AcadLine Dim lineObj5g As AcadLine Dim lineObj6g As AcadLine
  489. Dim line0bjlg0 As AcadLine Dim line0bj2g0 As AcadLine Dim line0bj3g0 As AcadLine Dim line0bj4g0 As AcadLine Dim line0bj5g0 As AcadLine Dim line0bj60 As AcadLine
  490. 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
  491. Dim lineObjlkrshn As AcadLine Dim lineObj2krshn As AcadLine Dim lineObj3krshn As AcadLine Dim lineObj4krshn As AcadLine
  492. 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
  493. Dim 1болтафутеровки As Double Dim 1шпилъкишнека As Double1. Dim d6(0 To 22) As Double
  494. Dim mvyssh15(0 To 22) As Double Dim m vys sh l 6(0 To 22) As Double
  495. Dim mvysgayki15(0 To 22) As Double Dim mvysgayki16(0 To 22) As Double
  496. Dim vyssh16 As Double Dim vysgayki16 As Double
  497. Dim vyssh15 As Double Dim vysgayki15 As Double1. Dim i As Integer
  498. Dim plosh large As Double Dim fi As Double Dim kl As Double Dim k2 As Doubleкрепежи
  499. Function drawingmodeling (mstb As Double, xstart As Double, y start As Double, zstart As Double, fi As
  500. Double, RBHHTa2 As Double, Rnpoe2 As Double, RBHHTal As Double, Rnpoel As Double, 1pliti As
  501. Double, gamma As Double, tolshmin As Double, Rm As Double)
  502. Dim hPoint221 As Variant Dim hPoint222 As Variant Dim hPoint223 As Variant Dim hPoint224 As Variant
  503. Dim DimRadl As AcadDimRadial Dim DimRad2 As AcadDimRadial Dim DimRad3 As AcadDimRadial Dim DimRad4 As AcadDimRadial
  504. 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
  505. Function fpostroenielista345(fhame As String) As Double
  506. Открытие чертежа Set Acadapp = New AcadApplication Acadapp.Documents.Open (App.Path & ««/shablon.dwg»») Acadapp.ActiveDocument.SaveAs (App.Path & ««/Log/»» & fhame)
  507. Set newText = Acadapp.ActiveDocument.TextStyles.Add (««MYSTYLE»») newText. Height = 5newText. fontFile = App. Path & ««/tob.shx»»
  508. Set newTextl = Acadapp.ActiveDocument.TextStyles.Add (««DIMTSTYLE»») newText l. Height = 5newText l. fontFile = App. Path & ««/Wwcade.shx»» found = False
  509. For Each entry In Acadapp.ActiveDocument.Linetypes
  510. StrComp (entry.Name, ««DASHDOT»», 1) = 0 Then found = True Exit For End If Next
  511. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load ««DASHDOT»», ««acad.lin»»
  512. For Each entry In Acadapp.ActiveDocument.Linetypes
  513. StrComp (entry.Name, ««DASHED»», 1) = 0 Then found = True Exit For End If Next
  514. Not (found) Then Acadapp.ActiveDocument.Linetypes.Load ««DASHED»», ««acad.lin»»
  515. Dim preferences As AcadPreferences
  516. Dim Acadapp As AcadApplication Dim DimPointAngularObj As AcadDim3PointAngular Dim dimObj As AcadDimAligned Dim DimRad As AcadDimRadial
  517. Dim startPoint (0 To 2) As Double Dim endPoint (0 To 2) As Double
  518. Dim centerPoint (0 To 2) As Double Dim radius As Double Dim startAngle As Double Dim endAngle As Double
  519. Dim ssetObj As AcadSelectionSet Dim i As Integer
  520. 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
  521. Dim var DlMTAD As Variant Dim var D1MTIH As Variant
  522. 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
  523. Dim preferences As AcadPreferences
  524. Dim newText As AcadTextStyle
  525. Dim Acadapp As AcadApplication
  526. Dim DimPointAngularObj As AcadDim3PointAngular
  527. Dim dimObj As AcadDimAligned
  528. Dim DimRad As AcadDimRadial
  529. Dim lineObj As AcadLine Dim lineObj l As AcadLine Dim arcObj As AcadArc Dim arcObjl As AcadArc
  530. Dim centerPoint (0 To 2) As Double Dim radius As Double Dim startAngle As Double Dim endAngle As Double1. Dim i As Integer
  531. Dim polarPnt As Variant Dim polarPnt3 As Variant
  532. Dim l dashed As AcadLayer Dim l dashdot As AcadLayer
  533. Dim varDIMTAD As Variant Dim var DIMTIH As Variant Dim Pointmasshtab (2) As Double Dim textObj As AcadText1. Открытие чертежа
  534. Set Acadapp = New AcadApplication
  535. Acadapp.Documents.Open (App.Path & ««/Log/cherteg5.dwg»»)varDIMTAD = Acadapp.ActiveDocument.GetVariable (««DIMTAD»») varDIMTIH = Acadapp.ActiveDocument.GetVariable (««DIMTIH»»)
  536. Pointmasshtab (O) = 415 12: Pointmasshtab (l) = 5 + 25: Pointmasshtab (2) = 0:
  537. 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
  538. Графические элементы чертежа ШБМ выходной документации САПР. в
Заполнить форму текущей работой

Заказал и сдал!