Автоматизация проектирования диафрагм в устройствах измерения расхода жидкостей и газов

Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования Тульский государственный университет Кафедра: «Автоматизированные станочные системы»

дипломный проект Выпускная квалификационная работа дипломированного специалиста специальность 230 104

«Системы автоматизированного проектирования»

Тема: «Автоматизация проектирования диафрагм в устройствах измерения расхода жидкостей и газов»

Студент группы Данильченко Н.С.

Тула, 2015 г.

Аннотация Тема: «Автоматизация проектирования диафрагм в устройствах измерения расхода жидкостей и газов»

Разработала: Данильченко Н.С.

Руководитель: к.т.н. доц. Троицкий Д.И.

Год защиты: 2015.

Название объекта проектирования: диафрагма.

Данная подсистема предназначена для проектирования стандартных диафрагм и диафрагм с коническим входом. Она выполняет следующие функции:

— расчет параметров диафрагмы;

— формирование комплекта конструкторской документации на диафрагму.

Подсистема основана на программных продуктах КОМПАС-3D и Microsoft Office Word. В результате работы программы рассчитываются параметры диафрагмы, оформляется конструкторская документация и отчет о полученных результатах.

Основные проектные решения: автоматический расчёт параметров диафрагмы, автоматическое оформление конструкторской документации, автоматическое формирование отчета по расчету.

• Введение
• 1. Описание объекта проектирования
• 1.1 Теоретические основы принципа измерения методом переменного перепада давления
• 1.2 Общие сведения о диафрагмах
• 1.2.1 Границы применения
• 1.2.2 Геометрические размеры стандартной диафрагмы
• 1.2.3 Геометрические размеры диафрагмы с коническим входом
• 2. Анализ процесса проектирования диафрагмы
• 3. Структурная модель автоматизированной системы проектирования диафрагм
• 4. Математическая модель
• 4.1 Стандартная диафрагма
• 4.1.1 Расчет диаметра отверстия
• 4.1.2 Расчет коэффициентов
• 4.2 Диафрагма с коническим входом
• 5. Результат работы модуля
• 5.1 Ручной расчет параметров диафрагмы
• 5.2 Результаты автоматизированного расчета
• 5.3 Сравнительный анализ
• 6. Инструкция для пользователя
• 7. Практическая реализация результатов работы
• 8. Раздел организационно-экономический
• 8.1 Основа расчета эффективности изделий, создаваемых с использованием САПР
• 8.2 Расчет себестоимости программного продукта
• 8.2.1 Затраты времени ЭВМ на внедрение и отладку
• 8.2.2 Расчёт себестоимости программного продукта
• 8.2.3 Обоснование цены прикладной программы
• 8.3 Расчёт экономического эффекта от внедрения программного продукта
• 9. Раздел по охране труда и окружающей среды
• 9.1 Описание объекта проектирования
• 9.2 Анализ вредных и опасных производственных факторов
• 9.3 Мероприятия по устранению и уменьшению действия опасных и вредных производственных факторов
• 9.3.1 Производственное помещение и размещение оборудования
• 9.3.2 Микроклимат воздуха
• 9.3.3 Производственное освещение
• 9.3.4 Шум
• 9.3.5 Эргономика организации рабочего места и режима труда
• 9.3.6 Защита от электромагнитных полей, статического электричества, излучений
• 9.3.7 Электробезопасность
• 9.3.8 Пожарная безопасность
• 9.3.9 Охрана окружающей среды
• Заключение
• Библиографический список
• Приложение 1
• Приложение 2
• Приложение 3

Введение

Актуальность Химическая промышленность — отрасль тяжелой индустрии. Она определяет развитие НТП, расширяет сырьевую базу промышленности, строительства, является необходимым условием интенсификации сельского хозяйства (производство минеральных удобрений), удовлетворяет спрос населения на продукцию народного потребления.

Химическая промышленность состоит из следующих отраслей:

1) горно-химическая (добыча минерального сырья: апатиты, фосфориты, сера).

2) основная химия (получение кислот, щелочей, солей, минеральных удобрений).

3) химия органического синтеза (производство углеводородного сырья и полуфабрикатов для получения полимерных материалов).

4) химия полимеров (производство смол, пластмасс, синтетического каучука и химических волокон).

5) переработка полимерных материалов (изготовление шин, резины, полиэтиленовой пленки).

6) производство синтетических красителей и химических веществ.

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

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

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

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

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

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

Рисунок 1.1 — Факельная установка в цехе по производству аммиака

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

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

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

Поэтому было принято решение автоматизировать процесс проектирования сужающего устройства типа «диафрагма».

Автоматизация включает разработку средств информационной поддержи следующих процессов:

— проектирования СУ (стандартная диафрагма, диафрагма с коническим входом) для измерения расхода при заданном режиме;

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

Результаты работы:

— рассчитанные диаметр СУ при рабочей температуре среды и диапазон перепада давления;

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

Техническое задание на разработку САПР Техническое задание согласно ГОСТ 34.602−89. Информационная технология. Автоматизированные системы. Техническое задание на создание автоматизированной системы.

1. Общие сведения:

— название системы — «Автоматизация проектирования диафрагм в устройствах измерения расхода жидкостей и газов»

— разработчик — Данильченко Н. С., заказчик — НИАП;

— плановые сроки начала и окончания работы по созданию системы: 9.02.09 — 20.05.09.

2. Назначение и цели создания системы:

— назначение системы: автоматизация проектирования стандартных диафрагм и диафрагм с коническим входом с целью получения параметров диафрагм с учетом минимизации длины прямолинейных участков трубопровода, выполнение расчета в соответствии с требованиями ГОСТ 8.586.1−2014 и ГОСТ 8.586.2−2014, автоматизированное оформление конструкторской документации на диафрагму.

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

3. Характеристики объекта автоматизации:

— перечень документов, содержащих информацию об объекте автоматизации: ГОСТ 8.586.2−2014 «Измерение расхода и количества жидкостей и газов с помощью стандартных сужающих устройств» Часть 2 Диафрагмы. Технические требования; РД 50−411−83 «Методические указания. Расход жидкостей и газов. Методичка выполнения измерений с помощью специальных сужающих устройств»;

— сведения об условиях эксплуатации объекта автоматизации и характеристиках окружающей среды: используется фланцевый способ отбора давления, тип диафрагмы — ДКС, однофазная и однородная среда (газ, пар, жидкость); число Рейнольдса от до (в зависимости от метода отбора давления возможны дополнительные ограничения по числу Рейнольдса); трубопроводы круглого сечения с внутренним диаметром 50…1000 мм (для стандартной диафрагмы), 12,5.100 мм (для диафрагмы с коническим входом); стационарный или медленно меняющийся поток; скорость потока в отверстии диафрагмы не превышает скорости звука.

4. Требования к системе

4.1 Требования к системе в целом

4.1.1 Требования к структуре и функционированию системы

4.1.1.1 Перечень подсистем, их назначение и основные характеристики В состав системы должны входить следующие подсистемы:

— подсистема расчета: получение геометрических размеров диафрагмы;

— подсистема оформления КД: разработка рабочего чертежа с указанием технических требований, простановкой размеров.

4.1.1.2 Требования к режимам функционирования системы Для системы определены следующий режим функционирования:

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

— серверное программное обеспечение и технические средства сервера обеспечивают возможность круглосуточного функционирования, с перерывами на обслуживание;

— исправно работает оборудование, составляющее комплекс технических средств;

— исправно функционирует системное, базовое и прикладное программное обеспечение системы.

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

4.1.2 Требования к численности и квалификации персонала системы Для эксплуатации системы определены следующие роли:

— системный администратор:

— пользователь.

Основными обязанностями системного администратора являются:

— установка, модернизация, настройка и мониторинг работоспособности системного и базового программного обеспечения;

— установка, настройка и мониторинг прикладного программного обеспечения.

Основными обязанностями пользователя являются:

— эксплуатация системы в рабочих целях;

— пользователи системы должны иметь опыт работы с персональным компьютером на базе операционных систем Microsoft Windows, с пакетом прикладных программ Microsoft Office, системой твердотельного моделирования КОМПАС 3D на уровне квалифицированного пользователя.

Рекомендуемая численность для эксплуатации системы:

— администратор — 1 штатная единица;

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

Штатный состав персонала, эксплуатирующего систему, должен формироваться на основании нормативных документов Российской Федерации и Трудового кодекса.

4.1.3 Требования к надежности Система должна сохранять работоспособность и обеспечивать восстановление своих функций при возникновении следующих внештатных ситуаций:

— при сбоях в системе электроснабжения аппаратной части, приводящих к перезагрузке операционной системы (ОС), восстановление программы должно происходить после перезапуска ОС и запуска исполняемого файла системы;

— при ошибках в работе аппаратных средств (кроме носителей данных и программ) восстановление функции системы возлагается на ОС;

— при ошибках, связанных с программным обеспечением (ОС и драйверы устройств), восстановление работоспособности возлагается на ОС.

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

4.1.4 Требования к эргономике и технической эстетике Взаимодействие пользователей с прикладным программным обеспечением, входящим в состав системы должно осуществляться посредством визуального графического интерфейса (GUI). Интерфейс системы должен быть понятным и удобным, не должен быть перегружен графическими элементами и должен обеспечивать быстрое отображение экранных форм. Навигационные элементы должны быть выполнены в удобной для пользователя форме. Средства редактирования информации должны удовлетворять принятым соглашениям в части использования функциональных клавиш, режимов работы, поиска, использования оконной системы. Ввод-вывод данных системы, прием управляющих команд и отображение результатов их исполнения должны выполняться в интерактивном режиме. Интерфейс должен соответствовать современным эргономическим требованиям и обеспечивать удобный доступ к основным функциям и операциям системы.

Интерфейс должен быть рассчитан на преимущественное использование манипулятора типа «мышь», то есть управление системой должно осуществляться с помощью набора экранных меню, кнопок, значков и т. п. элементов. Клавиатурный режим ввода должен использоваться главным образом при заполнении и/или редактировании текстовых и числовых полей экранных форм.

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

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

Экранные формы должны проектироваться с учетом требований унификации:

— все экранные формы пользовательского интерфейса должны быть выполнены в едином графическом дизайне, с одинаковым расположением основных элементов управления и навигации;

— для обозначения сходных операций должны использоваться сходные графические значки, кнопки и другие управляющие (навигационные) элементы. Термины, используемые для обозначения типовых операций (добавление информационной сущности, редактирование поля данных), а также последовательности действий пользователя при их выполнении, должны быть унифицированы;

— внешнее поведение сходных элементов интерфейса (реакция на наведение указателя «мыши», переключение фокуса, нажатие кнопки) должны реализовываться одинаково для однотипных элементов.

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

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

4.1.6 Требования к защите от влияния внешних воздействий Защита от влияния внешних воздействий должна обеспечиваться средствами программно технического комплекса Заказчика.

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

4.2 Требования к функциям (задачам), выполняемым системой Задачи подсистемы расчета:

— проверка по условиям прохождения: по числу Рейнольдса, по вспомогательным коэффициентам;

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

Задачи подсистемы оформления КД:

— разработка рабочего чертежа (вид, разрез) с указанием технических требований, простановкой размеров.

4.3 Требования к видам обеспечения

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

4.3.2 Требования к информационному обеспечению системы Состав, структура и способы организации данных в системе должны быть определены на этапе технического проектирования.

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

4.3.4 Требования к программному обеспечению системы При проектировании и разработке системы возможно использование любого программного обеспечения. Базовой программной платформой должна являться операционная система MS Windows.

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

Требования к техническим характеристикам ПК пользователя:

— процессор — Intel Pentium IV 2 ГГц;

— объем оперативной памяти — 512 Мб;

— дисковая подсистема — 40 Гб.

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

1.1 Теоретические основы принципа измерения методом переменного перепада давления Измерение расхода методом переменного перепада давления в сужающем устройстве основано на зависимости перепада давления, установленным в трубопроводе неподвижным сужающим устройством, от расхода жидкости. Принцип измерения по методу переменного перепада давления основан на принципе неразрывности установившегося движения жидкости и уравнения Бернулли для жидкости Еп+Ек=const (Еп — потенциальная энергия (давление) жидкости, Ек — кинетическая (скоростная) энергия). Согласно принципу неразрывности потока, протекающей в трубопроводе жидкости, он во всех сечениях одинаков, следовательно, в один и тот же момент времени протекают одинаковые количества. Если на каком-то участке сечение сужается, то в этом месте скорость потока должна возрасти.

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

В состав расходомера входят: преобразователь расхода, создающий перепад давления; дифференциальный манометр, измеряющий этот перепад и соединительные трубки между преобразователем и дифманометром.

На рисунке 2 через А-А обозначено сечение, от которого начинается сужение струи и, следовательно, постепенное возрастание средней скорости Va потока. Максимальное значение Vb эта скорость достигает в месте наибольшего сжатия струи в сечении В-В, которое расположено после диафрагмы на расстоянии, зависящем от отношения d/D и примерно равным 0.5, где D-диаметр трубы.

Рисунок 2. — Изменение давления р и средней скорости v потока при прохождении через диафрагму Возрастание средней скорости от Va до Vb, а следовательно, и соответствующей кинетической энергии происходит за счет уменьшения начального давления Pa до давления Pb. После сечения В-В струя постепенно расширяется и в сечении С-С вновь достигает стенок трубы. При этом скорость потока будет уменьшаться, а давление возрастать. Если измеряемое вещество жидкость, плотность которой практически не зависит от давления, то в сечении С-С скорость Vc станет равной начальной скорости Va, но давление Pc будет меньше начального Pa вследствие потери энергии при прохождении жидкости через сужающее устройство. Основная часть этой потери давления происходит в мертвых зонах за диафрагмой. Струя, текущая с большой скоростью, увлекает с собой прилегающие частицы из этих зон и создает некоторое падение давления в них, что вызывает частичное движение жидкости вдоль стенок от сечения С-С к сечению В-В. В результате в мертвых зонах возникает сильное вихреобразование и происходит потеря потенциальной энергии. Остаточная потеря давления (Pa — Pc) у диафрагм составляет от 40 до 90% от перепада давления (Pa — Pb), возрастая с уменьшением относительного диаметра диафрагмы. Потеря же давления от трения и ударов в самой диафрагме составляет не более 2% от (Pa — Pb).

Закон сохранения энергии

(2.1)

где v — скорость потока, — плотность среды.

и уравнение неразрывности струи

(2.2)

для жидкостей, у которых примут вид:

(2.3)

где QМ — массовый расход (кг/с), Qо — объемный расход (/с); - поправочные множители на неравномерность распределения скорости в сечениях А-А и В-В; о — коэффициент сопротивления на участке от А-А и В-В, отнесенный к скорости — площадь струн в сечениях А-А и В-В.

Т. к. площадь горла струи трудно измерить, то ее можно заменить на площадь отверстия диафрагмы, с помощью коэффициента сужения струи м

(2.4)

Тогда получаем:

(2.5)

Эти средства измерительной техники (СИТ) нашли широкое применение в промышленной практике. Это объясняется простотой их конструкции, а главное — возможностью безпроливной градуировки (поверки, калибровки).

1.2 Общие сведения о диафрагмах

Диафрагма — тип стандартного сужающего устройства, выполненного в виде тонкого диска с отверстием, имеющим со стороны входа потока острую прямоугольную кромку.

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

Стандартные диафрагмы имеют весьма широкую область применения. ГОСТ 8.586−2014 допускает использовать их при следующих условиях:

— однофазная и однородная среда (газ, пар, жидкость);

— число Рейнольдса от до (в зависимости от метода отбора давления возможны дополнительные ограничения по числу Рейнольдса);

— трубопроводы круглого сечения с внутренним диаметром 50…1000 мм;

— стационарный или медленно меняющийся поток;

— скорость потока в отверстии диафрагмы не превышает скорости звука.

Диафрагмы с коническим входом расширяют область применения:

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

Существенным фактором является то, что на физические свойства собственно среды (электропроводность, плотность, вязкость и т. д.) ограничений не накладывается, ограничиваются лишь гидродинамические параметры потока.

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

Однако, наряду с преимуществами, стандартные диафрагмы обладают и весьма серьезными недостатками, которые ограничивают их применение и заставляют искать альтернативные методы и средства измерения расхода. К таким недостаткам относятся:

— застойные зоны и скопление осадков;

— необходимость остановки трубопровода для монтажа/демонтажа диафрагмы;

— ограничения по диаметру и форме сечения трубопровода;

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

Применяются следующие марки стали для изготовления диафрагм: 35Л, 45Л, 20ХМЛ, 12Х18Н9ТЛ, 15К, 20К, 22К, 16ГС, 09Г2С, 10, 15, 20, 30, 35, 40,45, 10Г2, 38ХА, 40Х, 15ХМ, 30ХМ, 30ХМА, 12Х1МФ, 25X1МФ, 25Х2М1Ф, 15Х5М, 18Х2Н4МА, 38ХН3МФА, 08X13, 12X13, 20X13, 30X13, 110Х14Г14Н4Т, 08X18Н10, 12X18Н9Т, 12Х18Н10Т, 12Х18Н12Т, 08Х18Н10Т, 08Х22Н6Т, 37Х12Н8Г8МФБ, 31Х19Н9МВБТ, 06ХН28МДТ, 20Л, 25Л.

1.2.1 Границы применения

Диафрагмы применяют при следующих условиях:

Для стандартной диафрагмы:

d 0,0125 м;

0,050 м D 1 м;

0,1 0,75,

где d — диаметр отверстия сужающего устройства при рабочей температуре среды, м;

D — внутренний диаметр измерительного трубопровода при рабочей температуре среды, м;

— относительный диаметр отверстия сужающего устройства.

Значение числа Re должно быть более 5000 и 1,710⁵²D.

Для диафрагмы с коническим входом:

0,006 м d 0,050 м;

0,0125 м D 0,1 м;

Таблица 2.1. Значения граничных чисел Re

1.2.2 Геометрические размеры стандартной диафрагмы Для стандартной диафрагмы условия приведены в соответствии с ГОСТ 8.586.2−2014

Поперечное сечение в осевой плоскости стандартной диафрагмы приведено на рисунке 3. Обозначения элементов и геометрических параметров диафрагмы приведены на рисунке 3.:

Рисунок 2.2 — Стандартная диафрагма: 1 — входной торец диафрагмы; 2 — выходной торец диафрагмы

— длина е цилиндрической части отверстия диафрагмы должна находиться в пределах от 0,005D до 0,02D;

— разность между значениями е при ее измерении в любой точке контура отверстия не должна превышать 0,001D;

— толщина Е_д диафрагмы должна быть в пределах от е до 0,05D. Если 50 мм D 64 мм, то толщина Е_д может достигать 3,2 мм. В этом случае не рекомендуется применение диафрагм с > 0,36;

— если D 200 мм, то разность между значениями Е_д, измеренными в любой точке диска диафрагмы, не должна превышать 0,001D. Если D < 200 мм, разность между значениями Е_д, измеренными в любой точке диска диафрагмы, не должна быть более 0,2 мм;

— если толщина Е_д превышает длину е, то отверстие диафрагмы должно иметь скос со стороны выходного торца;

— угол наклона образующей конуса к оси отверстия диафрагмы должен быть в пределах 45° 15°;

— диаметр d должен быть не менее 12,5 мм. Относительный диаметр должен находиться в пределах от 0,10 до 0,75.

1.2.3 Геометрические размеры диафрагмы с коническим входом

Диафрагмы с коническим входом относятся к специальным сужающим устройствам (ССУ) для трубопроводов с внутренним диаметром менее 100 мм.

Рисунок 2.3 — Диафрагма с коническим входом

Форма и основные геометрические характеристики диафрагмы с коническим входом представлены на рис. 3.3:

— длина цилиндрической части е составляет 0,021d независимо от значения. Допуск на размер на более ±0,04 мм.

— глубина скоса определяется в зависимости от и может быть определена по таблице 2.2.

Таблица 2.2.

— угол входа F выбирают в зависимости от относительной площади диафрагмы. Допуск на угол равен ±0,03 °F.

— значение величины F и d/J для промежуточных необходимо выполнять по методу линейной интерполяции.

— общая толщина Е диафрагмы должна находится в пределах e+J?Е?0.1D

информационный диафрагма расход

2. Анализ процесса проектирования диафрагмы

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

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

Для лучшего представления была составлена общая схема процесса проектирования диафрагм, используемого на предприятии, при помощи методологии IDEF0 в соответствии со стандартом Integration Definition for Function Modeling (IDEF0), изданным National Institute of Standards and Technology 21.12.1993:

Функциональная схема процесса проектирования диафрагм представлена на рисунке 2.2.

Рисунок 2.1. — Общая схема процесса проектирования диафрагмы

Рисунок 2.2. — Функциональная схема процесса проектирования диафрагм после декомпозиции

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

— гидравлические параметры среды: давление, расход, температура;

— параметры трубопровода: диаметр, материал;

— материал диафрагмы.

По заданным условиям производится расчет параметров диафрагмы. В качестве управления выступает ГОСТы, в которых указаны технические требования, предъявляемые к стандартным диафрагмам, и методика расчета для диафрагмы с коническим входом. Весь расчет проделывает инженер-конструктор. При этом в случае невозможности выбора какой-либо диафрагмы при заданных условиях, изменяют какие-либо параметры (наибольший расход, материал диафрагмы, верхний предел перепада давления). В случае если при заданных и измененных исходных данных проектирование невозможно, принимается решение об установке иного вида СУ или расходомера. Если же при заданных параметров расчет возможен, то находят параметры диафрагмы, затем оформляют конструкторскую документацию, составляют отчет о рассчитанных параметрах. Следует заметить, что для стандартной диафрагмы основные размеры определены ГОСТом, для диафрагмы с коническим входом все размеры определяются в зависимости от найденного диаметра отверстия. Для оформления КД используется графический редактор AutoCAD, для составления отчета — текстовый редактор Microsoft Word.

Теперь рассмотрим, как будет происходить процесс проектирования после внедрения ПО.

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

Рисунок 2.3. — Общая схема проектирования диафрагмы после внедрения ПО

Рисунок 2.4. — Функциональная схема процесса проектирования диафрагм после внедрения ПО

Процесс проектирования происходит следующим образом: по исходным данным осуществляется расчет параметров стандартной диафрагмы, либо диафрагмы с коническим входом (блок А01), исполнитель — ПО, управление — ГОСТ, методика расчета; по полученным данным идет составление документации о произведенных расчетах (блок А03); по найденным параметрам диафрагмы оформляется КД (блок А02).

Рассмотрим алгоритм расчета параметров диафрагм. Для более удобного представления используем IDEF3.

Рисунок 2.5. — диаграмма IDEF3 процесса расчета

Рисунок 2.6 — диаграмма IDEF3 процесса расчета стандартной диафрагмы

Рисунок 2.6 — диаграмма IDEF3 процесса расчета диафрагмы с коническим входом

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

Рисунок 3.1 — Структурная модель системы

Пользователь взаимодействует с интерфейсом автоматизированной системы, подавая на вход исходные данные. Далее идет взаимодействие с основными модулями системы.

1. Модуль СУБД.

Модуль предназначен для работы с библиотеками сред, материалов. Позволяет редактировать уже имеющиеся записи, заносить новые данные.

2. Модуль математического расчета.

Cодержит объект — Tdiaf. В данном модуле реализуется математическая модель проекта.

Свойства и методы Tdiaf.

Свойства:

Таблица 4.1

Методы:

Таблица 4.2

На выходе имеем параметры диафрагмы.

3. Модуль формирования комплекта конструкторской документации. Модуль позволяет сформировать 2D-чертеж диафрагмы с помощью программы Kompas-3D.

4. Модуль оформления отчета.

Данный модуль выводит в Word входные и рассчитанные данные, что позволяет создавать удобные для просмотра, хранения и печати отчеты. Вывод данных в Word происходит при помощи COM технологий. На выходе модуль имеет программный код выводы данных в Word.

4. Математическая модель

Расчет диаметра отверстия диафрагмы может быть выполнен по следующим исходным данным:

1) наименование среды,

2) параметры среды:

— qm min, qm max — минимальный и максимальный массовый расход, ;

— pв — допустимая потеря давления (верхний предел), ;

— p — давление среды, ;

— tтемпература среды, С;

— для газа дополнительно — (показатель адиабаты).

3) параметры трубопровода:

— D — внутренний диаметр трубопровода, м;

— вид труб и материал;

— состояние поверхности стенки трубопровода и условия эксплуатации.

4) материал диафрагмы.

4.1 Стандартная диафрагма

4.1.1 Расчет диаметра отверстия

Условия прохождения:

— проверка прохождения по числу Рейнольдса:

Re_в Re_max, Re_н Re_min (5.1)

; (5.2)

— для газа проверяют выполнение неравенства:

p_в0,25p (5.3)

— по вспомогательным величинам:

₁ = (B₁ — A) / A (5.4)

₂ = (B₂ — A) / A (5.5)

= |(B — A) / A| < 5 · 10^-5. (5.6)

где

; (5.7)

(5.8)

где E₁, E₂ — коэффициенты скорости входа при _в и _н, соответственно;

C₁ — коэффициент истечения при Re_max и _в;

C₂ — коэффициент истечения при Re_max и _н;

K_п1, K_п2 — поправочный коэффициент (для диафрагм = 1)

K_ш1 — поправочный коэффициент K_ш при Re_max и _в

K_ш2 — поправочный коэффициент K_ш при Re_max и _н

₁ — коэффициент расширения при _в, p_в, и p (для жидкости не учитывается);

₂ — коэффициент расширения при _н, p_в, и p (для жидкости не учитывается).

Если величины ₁ и ₂ имеют одинаковый знак, то расчет прекращают, так как в диапазоне допускаемых значений (относительный диаметр отверстия диафрагмы) не существует значения, удовлетворяющего исходным данным.

Если величины ₁ и ₂ имеют разные знаки, то расчет продолжают.

Для определения диаметра диафрагмы используют следующее уравнение (решение уравнения может быть выполнено любым итерационным способом):

A = ECK_ш K_п ². (5.9)

где, А — вспомогательная величина, рассчитываемая по формуле

; (5.10)

Используя значение, найденное из (4.9), вычисляют диаметр отверстия диафрагмы при температуре 20 по формуле

d₂₀ = D / K_cy. (5.11)

Примечание — При расчете внутреннего диаметра отверстия диафрагмы дополнительно проверяют, что d₂₀ находится в диапазоне допустимых значений. Если данное условие выполняется, то значение d₂₀ считается найденным.

Диаметр отверстия диафрагмы при рабочей температуре среды

d = d₂₀ K_cy (5.12)

K_cy = 1 + _t cy (t — 20), (5.13)

где _tcy — температурный коэффициент линейного расширения материала диафрагмы.

4.1.2 Расчет коэффициентов

Коэффициенты истечения

Коэффициент истечения определяют по уравнению:

(5.14)

,

Значения L₁ и принимают равными:

— L₁ = = - для фланцевого способа отбора давления.

Коэффициент расширения

Коэффициент расширения рассчитывают по формуле:

(5.15)

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

Если значение среднеарифметического отклонения профиля шероховатости Ra (по приложению 1) не более Ra_max и не менее значения Ra_min, то поправочный коэффициент K_ш принимают равным единице.

Значение Ra_max рассчитывают по формуле

(5.16)

где А₀, А₁, А₂ — коэффициенты, зависящие от числа Re, рассчитывают по формуле

А_j = [lg (Re)]^k. (5.17)

где B_k — постоянные коэффициенты, значения которых приведены в таблице 5.1.

Таблица 5.1. Значения коэффициентов В_k

Если в результате расчета, выполненного по формуле (5.16), полученное значение 10⁴ 15, то принимают Ra_max = 1510^_4D.

Значение 10⁴ округляют до двух значащих цифр.

Значение Ra_min рассчитывают по формуле

(5.18)

Если в результате расчета, выполненного по формуле (5.18), получено значение 10⁴0 или число Re < 310⁶, то принимают Ra_min = 0.

Значения 10⁴ округляют до трех цифр после запятой.

Если значение среднеарифметического отклонения профиля шероховатости Ra определенного по формуле (5.18), то поправочный коэффициент K_ш рассчитывают по формуле

K_ш = 1 + 5,22^3,5(- *), (5.19)

где и * - коэффициенты трения, рассчитанные при действительном числе Re и значениях эквивалентной шероховатости трубопровода, равных ее действительному значению R_ш и условному — соответственно.

Значения и * рассчитывают по формуле

(5.20)

где А_ш, k_D, k_R — величины, значения которых рассчитывают в соответствии с таблицей 5.2.

Таблица 5.2 Значения величин А_ш, k_D, k_R

Температурный коэффициент линейного расширения материала

Значения температурного коэффициента линейного расширения материала СУ и ИТ могут быть рассчитаны в зависимости от температуры по формуле:

_t = 10^-6 [a₀ + a₁ (t / 1000) + a₂ (t / 1000)²], (5.21)

где a₀, a₁, a₂ — постоянные коэффициенты, определяемые в соответствии с приложением 2.

4.2 Диафрагма с коническим входом

Выбирается верхний предел измерений по заданному наибольшему измеряемому расходу, так, чтобы стандартное значение, взятое из стандартного ряда (ГОСТ 18 140−84), было ближайшее к q_{m max} и не менее его. Определяют предельный номинальный перепад давления из стандартного ряда по ГОСТ 18 140–84 (чем больше перепад, тем меньше относительная площадь отверстия диафрагмы).

Стандартный ряд по ГОСТ 18 140–84: 1; 1.25; 1.6; 2.0; 2.5; 3.2; 4.0; 5.0; 6.3; 8.0

Условия прохождения, если среда газ:

(5.23)

(5.24)

где — поправочные множители при

Отношение перепада давлений к абсолютному давлению на входе диафрагмы должно быть для остальных сужающих устройств

(5.25)

Условия прохождения, если среда жидкость:

(5.26)

Если плотность измеряемой среды, то

.

Если плотность измеряемой среды, то .

Вспомогательная величина с:

для газа: (5.27)

для жидкости: (5.28)

Методика расчета.

Находим допустимое значение :

(5.29)

В зависимости в от вб находим приближенное значение в

(5.30)

(5.31)

Проверяем условия прохождения по числу Рейнольдса по формулам (5.1) и (5.2).

Если значения и лежат вне области постоянства (п. 5.1.) при принятых параметрах расходомера измерение данным методом невозможно. В этом случае желательно изменить или изменить диаметр трубопровода.

Наибольший перепад давления .

Вычисляем отношение и проверяем условия 5.25 и 5.26.

Далее для жидкости вычисляем значения параметров.

Для газа подсчитываем отношение по следующей зависимости:

(5.32)

где — средний расход

Определяем поправочный множитель, учитывая ранее найденные приближенные значения в и

(5.33)

вычисляем вспомогательную величину

: (5.34)

По условиям 5.30 или 5.31 находим .

По формуле 5.33 находим при и .

Проверяем условие -<0,001. если выполняется, то значения и считают окончательными. В противном случае определяют величину по формуле 5.29, а по ней величину и соответствующее ей значение, которое и является окончательным.

Расчет параметров диафрагмы.

Диаметр отверстия сужающего устройства при t=20 °С :

Диаметр отверстия сужающего устройства при рабочей температуре:

5. Результат работы модуля

Данный раздел дипломного проектирования отражает корректность работы САПР. Здесь мы производим ручной расчет и сверяем его с расчетом САПР. Все расчеты произведены по формулам пункта 5.

5.1 Ручной расчет параметров диафрагмы

Исходные данные:

1. Наименование среды: азот

2. Максимальный массовый расход среды: 25

3. Минимальный массовый расход среды: 14

4. Допустимая потеря давления: 0,1

5. Давление среды: 7

6. Температура среды: 30 єС

7. Плотность при температуре 20 єС: 1,25

8. Вязкость при температуре 20 єС: 1,6981

9. Показатель адиабаты: 1,4

10. Материал диафрагмы: сталь 20

11. Диаметр трубопровода: 50 мм

12. Вид труб: стальные

13. Состояние стенки трубопровода: бутимизированная, новая

Стандартная диафрагма

1. Проверяем условия:

— по давлению: p_в0,25p: 0,11,75 проходит

— определяем значения верхней границы Re_в и нижней границы Re_н диапазона допускаемых значений Re в соответствии с п. 2.2.1.:

Re_н = 1,710^{5 2}D = 1,710⁵ *(0,1)² * 0.05=85 000,

Re_в = 1,710^{5 2}D = 1,710⁵ *(0,75)² * 0.05=4 781 250

— рассчитываем значения верхней границы Re_max и нижней границы Re_min рабочего диапазона значений Re:

;

и проверяем выполнение неравенств Re_в Re_max 4 781 250 374 901

Re_н Re_min, 85 000 209 945

2. Рассчитываем вспомогательную величину А:

3. Определяем значения верхней границы _в и нижней границы _н диапазона допускаемых значений в соответствии с п. 2.2.1.:

_в = 0.75

_н = 0.1

4. Рассчитываем значения вспомогательных величин B₁ и B₂

где E₁, E₂ — коэффициенты скорости входа при _в и _н, соответственно;

C₁ — коэффициент истечения при Re_max и _в;

C₂ — коэффициент истечения при Re_max и _н;

K_п1 — поправочный коэффициент K_п (для диафрагм = 1);

K_п2 — поправочный коэффициент K_п (для диафрагм = 1);

K_ш1 — поправочный коэффициент K_ш при Re_max и _в;

K_ш2 — поправочный коэффициент K_ш при Re_max и _н;

₁ — коэффициент расширения при _в, p_в, и p;

₂ — коэффициент расширения при _н, p_в, и p.

а) коэффициент скорости входа:

б) коэффициент истечения:

;

в) поправочный коэффициент Кш

А_j = [lg (Re)]^k.

где B_k — постоянные коэффициенты, значения которых приведены в таблице 5.1.

Рассчитаем Кш1 при и _в = 0.75

при

Значения величин А_ш, k_D, k_R определяются по таблице 5.2

Рассчитаем Кш2 при и _н = 0.1

г) коэффициент расширения:

В1=1,21*0,511*2,06*1*0,75*0,75*0,995=0,71

В2=1,5*0,61*1,0009*1*0,1*0,1*0,996=0,006

5. Рассчитывают значения вспомогательных величин ₁ и ₂:

Величины ₁ и ₂ имеют разные знаки, то расчет продолжают.

6. Относительно неизвестной величины решают следующее уравнение:

A = ECK_ш K_п ² .

Решение уравнения может быть выполнено любым итерационным методом. При применении метода бисекции решение уравнения выполняют в следующей последовательности:

1 итерация:

— рассчитываем значение по формуле:

— для значения рассчитывают значение вспомогательной величины B по формуле:

B = ECK_ш K_п ²

В = 0,12;

— проверяют выполнение неравенства:

= |(B — A) / A| < 5 · 10^-5

д=3,74>5 · 10^-5

Если неравенство не выполняется, то рассчитывают новое значение по формуле, в которой, если выполняется неравенство B < A, принимают _н =, рассчитанное на первом шаге итерации, в другом случае принимают _в = .

0,12>0,026, след. _в = 0,425.

2 итерация:

В = 0,042;

д=0,633>5 · 10^-5

0,042>0,026, след. _в = 0,2625.

3 итерация:

В = 0,0196;

д=-0,23<5 · 10^-5

Выбор значений осуществляют до выполнения неравенства.

Для найденного значения определяют верхнее (Re_в) и нижнее (Re_н) значения допускаемого диапазона значений чисел Re и проверяют неравенства:

— определяем значения верхней границы Re_в и нижней границы Re_н диапазона допускаемых значений Re в соответствии с п. 2.2.1.:

Re_н =85 000,

Re_в = 1,710^{5 2}D = 1,710⁵ *(0,18 125)² * 0.05=279 238

и проверяем выполнение неравенств Re_в Re_max 278 239 374 901

Re_н Re_min, 85 000 209 945

Расчет диаметра отверстия диафрагмы при заданных исходных данных невозможен.

Диафрагма с коническим входом.

Выбирается верхний предел измерений по заданному наибольшему измеряемому расходу

= 25

Определяют номинальную потерю давления

= 0,1

Определим вспомогательную величину с:

Находим допустимое значение :

В зависимости в от вб находим приближенное значение в

— определяем значения верхней границы Re_в и нижней границы Re_н диапазона допускаемых значений Re в соответствии с п. 2.2.1.:

— рассчитываем значения верхней границы Re_max и нижней границы Re_min рабочего диапазона значений Re:

;

и проверяем выполнение неравенств

Re_в Re_max

Re_н Re_min,

Вычисляем отношение 0.1/7=0.014<0,5

Подсчитываем отношение по следующей зависимости:

(5.32)

где — средний расход

Определяем поправочный множитель, учитывая ранее найденные приближенные значения в и

Находим вспомогательную величину :

В зависимости в от вб находим приближенное значение в

Определяем поправочный множитель, учитывая ранее найденные приближенные значения в1 и

Находим вспомогательную величину :

В зависимости в от вб находим приближенное значение в

Проверяем условие -<0,001 0,996−0,996=0<0,001

Принимаем относительный диаметр отверстия диафрагмы: в=в2 = 0,12

Рассчитываем параметры диафрагмы:

Значения температурного коэффициента линейного расширения материала СУ и ИТ могут быть рассчитаны в зависимости от температуры по формуле:

_t = 10^-6 [a₀ + a₁ (t / 1000) + a₂ (t / 1000)²],

где a₀, a₁, a₂ — постоянные коэффициенты, определяемые в соответствии с приложением 2.

Для стали 20:

Рассчитаем значение температурного коэффициента линейного расширения материала при 20С:

Диаметр отверстия сужающего устройства при t=20 °С :

Рассчитаем значение температурного коэффициента линейного расширения материала при рабочей температуре 30С:

Диаметр отверстия сужающего устройства при рабочей температуре:

Длина цилиндрической части: е = 0,021d = 0,021*17=0,357?0,4.

Глубина скоса J и угол входа определяется в зависимости от по таблице 2.2.

При = 0,12:

d/J = 11,8 J=17/11,8=1,4 мм;

F=45.

Общая толщина Е диафрагмы Е= e+J?Е?0.1D 1,8?Е?5 примем Е=2 мм

5.2 Результаты автоматизированного расчета

Стандартная диафрагма

Максимальное значение числа Рейнольдса: remax= 374 901,226292669

Минимальное значение числа Рейнольдса: remin= 209 944,686723895

Верхний предел, вв:

bv= 0,2625

Нижний предел, вн:

bn= 0,1

Верхний предел числа Рейнольдса:

rev= 4 781 250

Нижний предел числа Рейнольдса:

ren= 85 000

Вспомогательная величина, А:

A= 0,254 647 908 947 033

Коэффициент скорости входа при _в:

E1= 1,20 948 631 362 953

Коэффициент скорости входа при _н:

E2= 1,5 000 375 031

Коэффициент истечения при Re_max и _в:

C1= 0,510 880 915 308 979

Коэффициент истечения при Re_max и _н:

C2= 0,600 030 102 848 471

Поправочный коэффициент K_ш1 при Re_max и _в: Kw1= 2,24 637

Поправочный коэффициент K_ш2 при Re_max и _н: Kw2= 1,664

Коэффициент расширения ₁ при _в, p_в, и p: eps1= 0,99 463 078 296 926

Коэффициент расширения ₂ при _н, p_в, и p:

eps2= 0,99 641 075

Вспомогательная величина, В1:

B1=0,780 044 197 916 558

Вспомогательная величина, В2:

B2= 0,59 830 379 178 931

Вспомогательная величина, ₁:

sigma1= 29,632 264 020 625

Вспомогательная величина, ₂:

sigma2= -0,7 650 466 503 874

Вспомогательная величина, В:

Be= 0,196 232 321 228 986

Вспомогательная величина, :

sigma= -0,22 939 747 653 768

Относительный диаметр отверстия диафрагмы:

b= 0,18 125

Максимальное значение числа Рейнольдса, remax:

374 901,226292669

Минимальное значение числа Рейнольдса, remin:

209 944,686723895

Верхний предел числа Рейнольдса:

rev= 279 538

Нижний предел числа Рейнольдса:

ren= 85 000

Диафрагма с коническим входом

Верхний предел измерений, :

qnom= 25

Номинальная потеря давления, :

pnom= 0,1Вспомогательная величина, С:

с= 0б284 705 017 366 871Вспомогательная величина, в:

betaalfa= 0,903 539 352 100

Значение в:

beta= 0,11

Верхний предел числа Рейнольдса:

rev= 50 000

Нижний предел числа Рейнольдса:

ren= 77,1 428 571 428 571

Максимальное значение числа Рейнольдса: remax = 37 490,12262926

Минимальное значение числа Рейнольдса: remin = 20 994,4686723895

Отношение :

pnom/p = 0,142 857 142 857

Отношение:

psr= 0,869 142 857 142 857

Вспомогательный множитель,: epsilo1= 0,99 644 309 327 914

Значение в1:

beta1= 0,119 378 686 296 398

Вспомогательный множитель,: epsilo2= 0,99 643 287 706 690

Значение в2:

beta2= 0б119 379 852 088 974

Значение-<0,001:

epsilo2-epsilo1= -1,216 212 246 3945E-5

Относительный диаметр отверстия диафрагмы:

b = 0,12

Диаметр при 20С:

d20=1,3 120 9494E-5

Диаметр отверстияпри рабочей температуре: d = 17

Длина цилиндрической части, e:

el= 0,4

Толщина диафрагмы, Е:

Е= 1,8

Глубина скоса, J:

J= 1,4

Угол входа, F:

F= 45

5.3 Сравнительный анализ

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

6. Инструкция для пользователя

Инструкция по работе с программой содержит следующие разделы:

— добро пожаловать!

— системные требования;

— интерфейс системы;

— общие сведения о системе;

— приемы работы;

— библиотеки;

— общие термины и определения;

— нормативная документация.

Раздел «Добро пожаловать».

Благодарим Вас за приобретение системы «ДИАФ 2015» и надеемся, что она будет верным и надежным помощником в вашей повседневной работе и позволит значительно расширить круг задач, решаемых на вашем предприятии при помощи САПР.

Основной задачей системы является сокращение времени на проектирование стандартных диафрагм и диафрагм с коническим входом. Это станет возможным благодаря автоматизации расчета диаметра отверстия и автоматического создания рабочего чертежа.

Требования к аппаратным средствам для работы с программным модулем:

Минимально допустимые уровни ОС:

— Windows 2000 SP2,

— Windows XP SP1.

Минимально возможная конфигурация компьютера для установки и запуска системы:

— процессор — Intel Pentium IV 2 ГГц;

— объем оперативной памяти — 512 Мб;

— свободное пространство на жестком диске не менее 10 Мб;

— манипулятор «мышь» .

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

Требования к аппаратным средствам для работы с системой трехмерного моделирования КОМПАС 3D:

КОМПАС-3D V9 SP1 предназначен для использования на персональных компьютерах типа IBM PC, работающих под управлением русскоязычной (локализованной) либо корректно русифицированной 32- или 64-разрядной версии операционных систем MS Windows 2000/XP/Vista.

Минимально допустимые уровни ОС:

— Windows 2000 SP2,

— Windows XP SP1,

— Windows Vista.

Замечание. Специфика работы КОМПАС-3D V9 SP1 на ПК под управлением Microsoft Windows Vista описана ниже, в разделе Особенности работы КОМПАС-3D V9 на ПК под управлением Microsoft Windows Vista.

Минимально возможная конфигурация компьютера для установки и запуска системы:

— процессор Pentium III с тактовой частотой 800 МГц;

— оперативная память 512 Мб;

— графический адаптер SVGA с видеопамятью 32 Мб;

— привод DVD-ROM;

— свободное пространство на жестком диске не менее 100 Мб;

— манипулятор «мышь» .

Раздел «Интерфейс системы».

ДИАФ 2015 — однооконная система, содержащая главное меню и рабочую область.

При работе на экране отображается главное меню, которое содержит основные операции при работе с системой.

«Файл»:

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

Команда «Выход» осуществляет завершение работы программы.

«Операции»:

Команда «Выполнить расчет» осуществляет расчет параметров диафрагмы

Команда «Создать КД» осуществляет оформление рабочего чертежа на диафрагмы.

Данные операции можно выполнить из рабочей области с помощью соответствующих кнопок.

«БД»:

«Материал диафрагм» содержит список материалов для изготовления диафрагмы.

«Среды» содержит список газов и жидкостей и соответствующие им плотность и вязкостью

«Материал трубопровода» содержит список видов труб и материал трубопровода, состояний стенки трубопровода и условия эксплуатации, значений эквивалентной шероховатости среднеарифметического отклонения профиля шероховатости и относительной расширенной неопределенности.

«Справка» содержит инструкцию для пользователя по работе с программой «Содержание» и информацию о программе «О программе».

Рабочая область представляет собой поле для ввода исходных данных и поле для отображения результатов расчета.

Раздел «Общие сведения о системе».

Для разработки системы использовалась среда программирования Delphi.

Для создания рабочего чертежа используется система твердотельного моделирования КОМПАС-3D

Типы используемых фалов:

-*.cdw — файлы чертежей

Для создания отчета о результатах — Microsoft Word

Типы используемых файлов:

-*.doc — файлы текстовых документов

Раздел «Приемы работы».

Ввод исходных данных осуществляется с клавиатуры в соответствующие области. Некоторые данные выбираются из выпадающих списков (наименование среды, материалы). Расчет, сохранение отчета и оформление КД осуществляется последовательно: только после произведения расчета можно создать отчет, КД.

Раздел «Библиотеки».

Для расчета параметров диафрагмы необходимо знать материал изготовления, материал трубопровода, наименование среды (газ, жидкость).

Библиотека «Материал диафрагм» содержит список материалов для изготовления диафрагмы.

Библиотека «Среды» содержит список газов и жидкостей и соответствующие им плотность и вязкостью

Библиотека «Материал трубопровода» содержит список видов труб и материал трубопровода, состояний стенки трубопровода и условия эксплуатации, значений эквивалентной шероховатости среднеарифметического отклонения профиля шероховатости и относительной расширенной неопределенности.

Возможен просмотр, редактирование библиотек, занесение новых данных.

Навигацию по таблице можно осуществлять при помощи соответствующих кнопок.

Таблица 6.1

Раздел «Общие термины и определения».

Далее приведены термины и определения объектов проектирования, величин используемых при расчете и др. Термины с соответствующими определениями указаны в соответствии с ГОСТ 15 528.

Сужающие устройства

Диафрагма: Тип стандартного сужающего устройства, выполненного в виде тонкого диска с отверстием, имеющим со стороны входа потока острую прямоугольную кромку.

Отверстие стандартного сужающего устройства: Круглое отверстие сужающего устройства, соосное трубопроводу при установке сужающего устройства в трубопровод.

Диаметр отверстия сужающего устройства: Диаметр части отверстия сужающего устройства, имеющей минимальную площадь поперечного сечения.

Относительный диаметр отверстия сужающего устройства: Отношение диаметра отверстия сужающего устройства к внутреннему диаметру измерительного трубопровода перед сужающим устройством.

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

Давление среды: Абсолютное давление среды, измеренное до сужающего устройства в месте расположения отверстия для отбора давления. (p, Па)

Перепад давления на сужающем устройстве: Разность между значениями статического давления среды до и после сужающего устройства с учетом разности высоты положения отверстий для отбора давления до и после сужающего устройства. (Дp, Па)

Параметры потока и среды

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

Рабочие условия: Давление и температура среды, при которых выполняют измерение ее расхода и (или) количества.

Массовый расход среды: Масса среды, протекающей через отверстие сужающего устройства в единицу времени. (q_m, кг/с)

Число Рейнольдса: Отношение силы инерции к силе вязкости потока. (Re)

Показатель адиабаты (изоэнтропии) газа: Отношение относительного изменения давления к соответствующему относительному изменению плотности газа в процессе изменения его состояния без теплообмена с окружающей средой. ()

Коэффициент истечения: Отношение действительного значения расхода жидкости к его теоретическому значению. (C)

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

Измерительный трубопровод

Измерительный трубопровод: Участок трубопровода, границы и геометрические характеристики которого, а также размещение на нем сужающего устройства, местных сопротивлений, средств измерений нормируются настоящим стандартом ГОСТ 8.586.2 — ГОСТ 8.586.5.

Среднеарифметическое отклонение профиля шероховатости: Среднеарифметическое из абсолютных значений отклонения профиля от средней линии в пределах базовой длины. (Ra, м)

Эквивалентная шероховатость: Шероховатость, равная равномерной песочной шероховатости, по значению которой вычисляют такой же коэффициент гидравлического сопротивления, как и для фактической шероховатости. (R_ш, м)

Местное сопротивление: Трубопроводная арматура или другой элемент трубопровода, изменяющий кинематическую структуру потока (задвижка, кран, колено, диффузор и т. д.).

Раздел «Нормативная документация».

Все расчеты программа выполняет в соответствии с ГОСТ 8.586.½−2014 и РД 50−411−83.

Рисунок 7.1 — Инструкция пользователю

Рисунок 7.2 — Инструкция пользователю

7. Практическая реализация результатов работы

Рисунок 8.1 — Основное окно работы с программой

Рисунок 8.2 — Заполнение исходных данных из раскрывающихся списков

Рисунок 8.3 — Библиотека материалов для изготовления диафрагм

Рисунок 8.4 — Библиотека сред

Рисунок 8.5 — Библиотека материалов трубопроводов и состояний стенки трубопровода

Рисунок 8.6 — форма для заполнения основной надписи

Рисунок 8.7 — Отчет о полученных результатах

Рисунок 8.8 — Рабочий чертеж

8. Раздел организационно-экономический

8.1 Основа расчета эффективности изделий, создаваемых с использованием САПР

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

В зависимости от степени новизны создаваемой САПР, возможны два варианта:

— создание принципиально новой САПР для объектов, ранее не выпускаемых и не используемых в промышленности;

— создание САПР, заменяющей соответствующий процесс ручного проектирования.

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

8.2 Расчет себестоимости программного продукта

Стоимость 1 машинного часа определяется по формуле:

где Э — эксплуатационные годовые затраты (руб.),

Т_ф — количество часов, отработанных всеми машинами в год (час).

Эксплуатационные годовые затраты включают в себя:

Амортизацию оборудования ВЦ ().

Затраты на текущий ремонт оборудования ().

Амортизацию помещений ().

Затраты на текущий ремонт помещений ().

Расходы на электроэнергию и освещение ().

Расходы на отопление и водоснабжение ().

Прочие расходы (почта, телефония и т. д.) ().

Стоимость основного оборудования определяется по формуле:

Где =1,1 — коэффициент, учитывающий транспортировку и монтаж оборудования;

=1 шт — количество компьютеров;

=14 590 руб — стоимость одного компьютера.

Стоимость вспомогательного оборудования определяется по формуле как 10% от стоимости основного оборудования:

Тогда общая стоимость оборудования по формуле будет равна:

Амортизация оборудования составляет 25% и 15% от стоимости основного и вспомогательного оборудования соответственно:

Затраты на текущий ремонт оборудования составляют 5% от общей стоимости оборудования:

Стоимость помещения определяется по формуле следующим образом:

где = 12 м² — площадь помещения (м²);

= 2000 руб — стоимость аренды за 1 м² площади помещения в год.

Амортизация помещения составляет 2,8% от его стоимости:

Затраты на текущий ремонт помещения рассчитываются как 1,6% от его стоимости:

Расходы на электроэнергию складываются из расхода на освещение и расходов на производственное потребление электроэнергии :

где — площадь помещения (12м²);

— усредненный расход энергии, необходимый для освещения 1 м² площади помещения в год (50кВт/ м²);

— мощность одного компьютера (); - количество единиц оборудования (1шт);

— коэффициент, учитывающий потери в сети (1,05);

— коэффициент загрузки оборудования (0,9);

— стоимость 1кВт*ч энергии (3,12 руб);

Ф — фонд времени работы оборудования, рассчитывается по формуле:

где — затраты времени на разработку (90 дней);

— коэффициент сменности (для односменного режима работы равен 1);

— продолжительность рабочего дня (8 ч.);

— коэффициент, учитывающий потери времени на ремонт оборудования (0,05).

Рассчитываем затраты на электроэнергию:

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

где — плата за отопление 1 м² помещения в месяц (16,83 руб.);

— площадь помещения (12 м²);

— плата за водоснабжение на 1 человека в месяц (73,19 руб.);

— количество рабочих мест в помещении (1 шт).

Прочие расходы составляют 10% от суммы расходов по предыдущим пунктам. Таким образом, эксплуатационные годовые затраты составляют:

Количество часов, отработанных всеми машинами в год равно:

Где — количество единиц оборудования (шт.);

— фонд времени работы оборудования (час.).

Таким образом, стоимость одного машинного часа:

8.2.1 Затраты времени ЭВМ на внедрение и отладку Затраты времени на данной стадии 18 часов.

Коэффициент для определения времени работы ЭВМ при отладке и внедрении программ комплексов задач равен К_об = 1,00.

Время работы ЭВМ при отладке и внедрении проекта составит:

Т_{внедр и отл.}= К_об*Н_вр = 1,00*18= 18 час,

в том числе на внедрение 4 часа (20%).

8.2.2 Расчёт себестоимости программного продукта Себестоимость программного продукта определяем по формуле:

где T_дн — затраты времени на разработку (90 дней по техническому заданию на разработку автоматизированной системы);

— среднемесячная заработная плата с начислениями (ЕСН) (руб.) — примем З_мес = 9000 руб. (из сравнения зарплат работников IT сферы на рынке труда Тульской области без стажа работы);

n_дн. — количество рабочих дней в месяце (22 дня);

— затраты машинного времени на отладку и внедрение (час.);

— стоимость машинного часа (руб.).

8.2.3 Обоснование цены прикладной программы

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

где — себестоимость программного продукта (руб.);

r — коэффициент рентабельности (в долях) — принимаем r = 0,3;

k_НДС — коэффициент, учитывающий НДС (0,18);

Данный программный продукт предполагает внедрение его на следующих объектах: предприятия или институты, выполняющие проектные работы для различных производств; примем число объектов n равное 20 и определим цену одной копии программы по формуле:

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

Тогда:

8.3 Расчёт экономического эффекта от внедрения программного продукта

Экономический эффект от внедрения программного продукта образовывается за счёт следующих факторов:

1) сокращение времени, затрачиваемого на решение задачи;

2) экономия затрат на решение той же самой задачи за счёт резкого сокращения трудоемкости решения этой задачи;

3) количество проектов, разрабатываемых за год с использованием САПР, превышает количество проектов при ручном проектировании за счет снижения трудоемкости разработки одного проекта.

1. Сокращение времени на решение задачи.

Проектирование диафрагмы до внедрения программного продукта составляло 7 дней при средней заработной плате 10 000 руб. В год — 36 проектов. После внедрения ПО срок проектирования сократился на 5 дней и составил 2 дня. В год — 125 проектов.

2. Экономия затрат на решение той же самой задачи за счёт резкого сокращения трудоемкости решения этой задачи

Затраты на ручное проектирование определяется по формуле:

где — трудоёмкость, дни (всего на проектирование диафрагмы затрачивается — 7 дней);

— средний месячный оклад работников (с учётом отчислений на социальные нужды в размере 26%), руб.

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

Затраты на автоматизированном проектировании определяется по формуле:

где — трудоёмкость, дни (2 дня).

— средний месячный оклад инженера (с учётом отчисления на социальные нужды в размере 26%), руб

Получаем, что

3. Количество проектов, разрабатываемых за год с использованием САПР, превышает количество проектов при ручном проектировании за счет снижения трудоемкости разработки одного проекта.

Стоимость реализованных проектов рассчитывается по формуле:

Где Ц_ПР — цена проекта, руб.;

N — количество реализуемых проектов в год, шт.

При ручном моделировании в год выполняется 36 проектов. Цена одного проекта — 20 000 руб. (по данным с предприятия):

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

где З_з — затраты на зарплату работников (с учетом отчислений на социальные нужды в размере 26%), руб.;

— затраты на отопление и водоснабжение, руб.;

З_э.осв — затраты на электроэнергию и освещение, руб.;

— затраты на текущий ремонт помещений, руб.;

З_рто — затраты на ремонт и техническое обслуживание оборудования, руб.;

— амортизация оборудования, руб.;

— амортизация помещения, руб;

— прочие затраты

36 — количество проектов в год.

1. Затраты на зарплату работников (с учетом отчислений на социальные нужды в размере 26%), руб.

где О_{мес i} — месячный оклад работника i-й квалификации, руб.;

Ч_i — численность работников i-й квалификации, чел.;

12 — число месяцев в году;

К_сс — коэффициент, учитывающий начисления на заработную плату (отчисления на социальные нужды), равный 1,26.

Таблица 8.1 — Таблица штатного расписания подразделения

З_з = 12*1,26*(2*8000 + 6000) = 332 640 руб.

2. Затраты на отопление, водоснабжение рассчитываются исходя из стоимости отопления рублей на м² в месяц, а водоснабжения из расчета рублей за человека в месяц, т. е.:

где — плата за отопление 1 м² помещения в месяц (16,83 руб.);

— площадь помещения (16 м²);

— плата за водоснабжение на 1 человека в месяц (72,19 руб.);

— количество рабочих мест в помещении (3 шт).

3. Расходы на электроэнергию складываются из расхода на освещение и расходов на производственное потребление электроэнергии :

где — площадь помещения (16м²);

— усредненный расход энергии, необходимый для освещения 1 м² площади помещения в год (50кВт/ м²);

— мощность одного компьютера (); - количество единиц оборудования (2 шт);

— коэффициент, учитывающий потери в сети (1,05);

— коэффициент загрузки оборудования (0,9);

— стоимость 1кВт*ч энергии (3,12 руб);

Ф — годовой фонд времени работы оборудования, рассчитывается по формуле:

где — число дней в году (365 дней);

— число выходных дней в году (104 дня);

— число праздничных дней в году (11 дней);

— коэффициент сменности (для односменного режима работы равен 1);

— продолжительность рабочего дня (8 ч.);

— коэффициент, учитывающий потери времени на ремонт оборудования (0,05).

Рассчитываем затраты на электроэнергию:

4. Стоимость помещения определяется по формуле следующим образом:

где = 16 м² — площадь помещения (м²);

= 2500 руб — стоимость аренды за 1 м² площади помещения в год.

Затраты на текущий ремонт и амортизацию помещения составят:

5. Затраты на текущий ремонт оборудования и амортизацию оборудования.

Стоимость основного оборудования определяется по формуле:

где =1,1 — коэффициент, учитывающий транспортировку и монтаж оборудования;

— количество компьютеров (2 шт);

— стоимость одного компьютера (17 500 руб.);

— количество принтеров (1 шт);

— стоимость принтера (2990 руб.).

Стоимость вспомогательного оборудования определяется по формуле как 10% от стоимости основного оборудования:

Тогда общая стоимость оборудования по формуле будет равна:

Амортизация оборудования составляет 25% и 15% от стоимости основного и вспомогательного оборудования соответственно:

Затраты на текущий ремонт оборудования составляют 5% от общей стоимости оборудования:

Таким образом, цена проекта с учетом прочих расходов получится:

При автоматизированном проектировании в год выполняется 125 проектов. Цена одного проекта — 10 000 руб. (по данным с предприятия):

Экономический эффект Эффект получим с учетом прибыли на один проект.

где И_г1, И_г2 — годовые затраты до и после внедрения графической подсистемы САПР, соответственно, руб.;

С_ПР1, С_ПР2 — годовой результат (стоимость реализованных проектов) до и после внедрения подсистемы, соответственно, руб.

Годовые издержки определяются по формуле:

где З — затраты на проектирования (ручного/автоматизированного), руб.;

N — число проектов, шт.

Годовые затраты до внедрения ПО:

Годовые затраты после внедрения ПО:

Тогда получим эффект:

руб.

9. Раздел по охране труда и окружающей среды

9.1 Описание объекта проектирования

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

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

В рамках дипломного проекта разрабатывается программное обеспечение по автоматизации проектирования диафрагм.

9.2 Анализ вредных и опасных производственных факторов

В настоящее время компьютерная техника широко применяется во всех областях деятельности человека. Работа конструкторов производится при помощи компьютеров.

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

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

9.3 Мероприятия по устранению и уменьшению действия опасных и вредных производственных факторов

9.3.1 Производственное помещение и размещение оборудования

Необходимо, чтобы планировка рабочего места удовлетворяла требованиям эргономичности, экономии энергии и времени работающего, рационального использования производственных помещений и удобства обслуживания ЭВМ. В соответствии с СанПиН 2.2.2./2.4.1340−03 «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы» (далее по тексту 2.2.2./2.4.1340−03) площадь на одно рабочее место в помещениях, оборудованных ПЭВМ, должна быть не менее 6 м², а объем не менее 20 м³.

В кабинете находятся два стола, четыре стула, шкаф для хранения вспомогательного оборудования и необходимой документации. Размер кабинета составляет 7×5×3 м. В кабинете работают два человека, еще два стола предназначены для размещения вспомогательного оборудования. Таким образом, площадь на одного человека:

S=(7*5)/2=17,5 м².

Объем на человека:

V=(7*5*3)/2=52,5 м³.

Полученные площадь и объем помещения соответствуют санитарным нормам. Размещение оборудования показано на рисунке 9.1.

Рисунок 9.1 — Схема размещения оборудования: 1- вспомогательный стол, 2- стол для ПЭВМ, 3- шкаф, 4-шкаф с документацией, 5-мусорное ведро.

9.3.2 Микроклимат воздуха

В процессе автоматизированного труда в помещении с ПК рабочий находится под влиянием определенных метеорологических условий, или микроклимата. К основным нормируемым показателям микроклимата воздуха рабочей зоны относятся температура (t, °С), относительная влажность (, %), скорость движения воздуха (V, м/с). Существенное влияние на параметры микроклимата и состояние человеческого организма оказывает также интенсивность теплового излучения (I, Вт/м²) различных нагретых поверхностей, температура которых превышает температуру в помещении.

Согласно ГОСТ 12.1.005−88 «ССБТ. Общие санитарно-гигиенические требования к воздуху рабочей среды» работа, проводимая оператором за ПЭВМ относится к легким категориям работ Iа, характеризующейся сидячим видом работы с незначительным физическим напряжением (энергозатраты 120 ккал/ч). Оператором является взрослый человек, поэтому в соответствии с действующими нормами СанПиН для нормальной работы в помещении поддерживаются следующие допустимые макроклиматические параметры. Параметры микроклимата в производственном помещении приведены в таблице 9.1.

Таблица 9.1

В помещении ежедневно проводится влажная уборка (в начале рабочего дня), а также сквозное проветривание в обеденный перерыв.

Для поддержания необходимых температуры и влажности рабочее помещение оборудовано системой отопления и кондиционером.

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

Для этого необходимо рассчитать теплоизбытки в помещении с персональным компьютером. Рассмотрим определение отдельных составляющих теплоизбытков.

Выделение тепла от оборудования, потребляющего электроэнергию, можно определить по формуле

где ₁ — коэффициент использования установочной мощности (₁=0,95);

₂ — коэффициент одновременности работы (₂=1);

N — суммарная установочная мощность оборудования, кВт.

Выделение тепла от людей приближенно можно определить по формуле

где n — количество людей, одновременно работающих в машинном зале;

q — количество тепла, выделяемое одним человеком (q=545 кДж/ч).

Поступление тепла от электрического освещения рассчитывается по формуле:

где N — суммарная установочная мощность светильников, кВт;

к₁к₂ — коэффициенты, учитывающие способ установки светильников и особенности светильников (для встроенных в подвесной потолок светильников с люминесцентными лампами к₁=0,25…0,45 и к₂=1,3).

Поступление тепла через наружные ограждающие конструкции от солнечной радиации можно определить по формуле где q` - удельные теплопоступления от солнечной радиации, кДж/(м²ч), определяемый в зависимости от ориентации окон по отношению к сторонам света и типа окон и рам (300 кДж/(м²ч));

S — суммарная площадь окон (одно окно 1,5×1,68 м), м².

Теплопоступления через наружные ограждения вследствие разности температур определяются по формуле где К — коэффициент теплоотдачи (16,2 кДж/(м²ч⁰С));

F — суммарная площадь ограждающих конструкций (наружных стен), м² — составляет 5×3 м;

t_н t_в — температура наружного и внутреннего воздуха (температуру воздуха, удаляемого из помещения, определяют по формуле t_в = t_рз +Дt (Н-2), где t_рз — температура в рабочей зоне, Дt = 0,5. 1,5⁰С. А температура приточного воздуха берётся в среднем на 5 — 8⁰ С ниже температуры воздуха в рабочей зоне, Н — расстояние от пола до центра вытяжных проемов, Н=2,5 м.

Теперь теплоизбытки в помещении можно определить по формуле:

где Q_обор — выделение тепла от оборудования;

Q_л — поступление тепла от людей;

Q_осв — выделение тепла от электрического освещения;

Q_рад — поступление тепла от солнечной радиации;

Q_огр.к. — теплопоступления через наружные ограждающие конструкции.

Расход воздуха для проветривания определяется из условия ассимиляции теплоизбытков:

где L — объем приточного воздуха, м³/ч;

Q — избыточные тепловыделения, кДж/ч;

с — теплоемкость воздуха (1,005 кДж/кг ⁰С)

— плотность приточного воздуха (1,205 кг/м³);

t_у t_п — температура уходящего и приточного воздуха, ⁰С.

Полученный воздухообмен может обеспечить настенный кондиционер мощностью 600.

Кратность воздухообмена составляет раз

9.3.3 Производственное освещение

В кабинете выполняются работы за дисплеями ПЭВМ, работа с документами. Эти работы можно отнести к работам высокой зрительной точности. Примем подразряд зрительных работ — г, разряд зрительной работы — 3. Величина освещенности на поверхности стола в зоне размещения документов для выполнения таких работ, согласно СанПин 2.2.2.542−96, «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работ» (далее по тексту СанПин 2.2.2.542−96) должна быть 300−500 лк.

Расчет освещения

Для освещения помещения, в котором работает оператор, используется смешанное освещение, т. е. сочетание естественного и искусственного освещения.

Естественное освещение — осуществляется через окна.

Искусственное освещение — используется при недостаточном естественном освещении и осуществляется с помощью системы общего освещения. Для помещения, где находится рабочее место оператора, используется система общего освещения.

Нормами для данных работ установлена необходимая освещённость рабочего места Е_Н=300 лк в соответствии с СНиП 23−05−95 «Естественное и искусственное освещение».

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

где Е_н — нормированная минимальная освещенность, равная 300 лк;

S — площадь освещаемого помещения, равная 35 м²;

z — коэффициент минимальной освещенности, равный 1,1;

k — коэффициент запаса, равный 1,5;

— коэффициент использования светового потока ламп, зависящий от коэффициента отражения потолка =70% и стен =50%, высоты подвеса светильников и показателя помещения i.

Показатель помещения рассчитывается по формуле:

где, А и В — два характерных размера помещения, 5 м и 7 м;

Н_р — высота светильников над рабочей поверхностью, 2,25 м.

По таблице потока определяем коэффициент использования светового потока ламп =55.

Определяем световой поток лампы:

В качестве источников света выберем люминесцентные лампы типа ЛДЦ-80 с величиной светового потока 3740 лм.

Следовательно, для получения светового потока F_общ=31 500лм необходимо N ламп, число которых можно определить по формуле:

Подставим значения, полученные выше:

ламп.

Итак, для обеспечения нормальных условий работы оператора ПК, в соответствии с нормативными требованиями, необходимо установить 4 светильника ЛДЦ-80 с 2 лампами мощностью 80Вт.

Светильники с люминесцентными лампами размещаются рядами, параллельно стене с окнами, схема размещения светильников представлена на рисунке. Колпаки светильников выбираем из светорассеивающего материала с коэффициентом пропускания не менее 0,7.

Рисунок 9.2 — План размещения светильников в помещении.

9.3.4 Шум

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

Таблица 9.2. Допустимые уровни шума (фрагмент таблицы из ГОСТ 12.003−83 «Шум. Общие требования безопасности» (далее по тексту ГОСТ 12.003−83)).

Расчёт уровня шума

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

Уровень интенсивности звука определяют по формуле:

Искомый уровень интенсивности (дБ) при одновременной работе всех источников шума

где L_i — уровень интенсивности i-го источника шума;

n — количество источников шума.

В таблице представлены возможные источники шума, действующие на оператора ПЭВМ, и соответственно уровни шума (дБ), производимые ими:

Таблица 9.3 Уровни интенсивности источников шума, действующих на оператора ПЭВМ

В итоге искомый уровень интенсивности всех источников шума будет равен:

L_?=10· lg (10^3,4+10^1,8+10^6,4+10^5,4+10^4,5)=65 дБ

А ГОСТ 12.1.003−83 устанавливает допустимое значение для уровня шума, равное 50 дБ. Получаем, что расчётное значение интенсивности уровня шума превышает нормативное.

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

— облицовка стен и потолков звукопоглощающими материалами;

— снижение шума в источнике (в наше время можно приобрести более быстрые и менее шумные комплектующие для ЭВМ. Например, установка вентиляторов Silent);

— правильная планировка оборудования и рациональная организация рабочего места оператора.

Проведем перерасчет шума после применения вентиляторов типа Silent, облицовка стен снизит шум на 10−15дБ:

Таблица 9.4 Уровни интенсивности источников шума, действующих на оператора ПЭВМ

L_?=10· lg (10^3,4+10^1,8+10^6,4+10^4,5)-15=49 дБ

Таким образом уровень шума не превышает допустимый.

9.3.5 Эргономика организации рабочего места и режима труда

Таблица 9.5 Организация рабочего места оператора ПЭВМ

Клавиатуру следует делать отдельно он экрана и подвижной. Усилие нажима на клавиши должно лежать в пределах 0,25 — 1,5 Н, а ход клавишей — 1 — 5 мм.

Для качественной и эффективной работы на компьютере следует учитывать размеры знаков, плотность их размещения, контраст и соотношение яркостей символов и фона экрана. При расстоянии от глаз оператора до экрана дисплея 60 — 80 см высота знака должна быть не менее 3 мм, а расстояние между знаками 15 — 20% их высоты. Соотношение яркости фона экрана и символов — от 1: 2 — 1: 5 до 1: 10 — 1: 15.

Рисунок 9.3 — Схема посадки человека при палочковой структуре, вид сбоку.

Рисунок 9.4 — Схема рабочего места оператора, вид сбоку Сведения о регламентированных перерывах, которые необходимо делать при работе на компьютере, в зависимости от продолжительности рабочей смены, видов и категорий трудовой деятельности с ПЭВМ (в соответствии с СанПиН 2.2.2 542−96) представлены в таблице 9.6.

Таблица 9.6 Время регламентированных перерывов при работе на компьютере

Примечание: время перерывов дано при соблюдении указанных Санитарных правил и норм. При несоответствии фактических условий труда требованиям Санитарных правил и норм время регламентированных перерывов следует увеличить на 30%.

Работа с программным обеспечением, разработанным в данном дипломном проекте, относится к категории работ группы Б (работа по вводу информации и считыванию её с экрана ПЭВМ).

Эффективность перерывов повышается при их сочетании с производственной гимнастикой.

9.3.6 Защита от электромагнитных полей, статического электричества, излучений

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

К основным видам излучения относятся:

— электростатическое поле монитора, возникающее из-за конструкции ЭЛТ, которая является основным компонентом монитора;

— рентгеновское излучение;

— ближнее ультрафиолетовое излучение люминофора ЭЛТ;

— электромагнитные поля, создаваемые ПЭВМ.

Гигиенические требования к персональным электронно-вычислительным машинам и организации работы. СанПиН 2.2.2/2.4.1340−03 (далее СанПиН 2.2.2/2.4.1340−03) предъявляет следующие требования к уровням ЭМП, создаваемым ПЭВМ на рабочем месте, приведенные в таблице 9.6.

Таблица 9.6. Временные допустимые уровни ЭМП, создаваемых ПЭВМ на рабочих местах

Основным источником излучений в данном случае является монитор. Однако в помещении установлены жидкокристаллические мониторы Samsung. Мониторы удовлетворяют требованиям стандарта ТСО`03, регламентирующего взаимодействие ПЭВМ с окружающей средой и направленного на уменьшение вредного влияния излучений до технически возможного уровня. Данный стандарт устанавливает более жесткие требования, нежели СанПиН 2.2.2/2.4.1340−03.

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

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

9.3.6 Электробезопасность Электроустановки и электрооборудование условно разделяют на 2 группы:

с напряжением до 1000 В;

с напряжением выше 1000 В.

Установки с напряжением более 1000 В обслуживаются только специалистами.

Действие электрического тока на организм человека своеобразно и носит всесторонний характер. Проходя через тело человека электричество оказывает термическое, электролитическое и биологическое воздействие на различные жизненно важные органы человека (мозг, сердце, легкие). Существуют следующие воздействия:

1. электрические травмы (ожоги, металлизация кожи, механические повреждения);

2. электрические удары.

Последствия воздействия электрического тока по своей тяжести воздействия делятся на:

судорожное сокращение мышц без потери сознания;

судорожное сокращение мышц с потерей сознания;

потеря сознания и нарушение сердечной деятельности и дыхания;

клиническая смерть (отсутствие дыхания и кровообращения от 4−5 до 8−10 минут).

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

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

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

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

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

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

Защитное заземление — это преднамеренное электрическое соединение с землей или ее эквивалентом металлических нетоковедущих частей, которые могут оказаться под напряжением. Под защитным заземлением понимают совокупность заземлителя и заземляющих проводников. Различают искусственные и естественные заземлители. В качестве естественных заземлителей используют стальные трубопроводы, металлические оболочки кабелей, железобетонные фундаменты и т. д. Искусственные же выполняются из горизонтальных или вертикальных проводников.

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

Согласно «Правилам устройства электроустановок», в электроустановках напряжением до 1000 В и мощностью менее 100 кВА сопротивление заземлительного устройства должно быть не более 10 Ом.

Для организации группового искусственного заземлителя будем применять металлические трубы длиной 3 м и диаметром 0,03 м. При этом используем заглубленное размещение заземлителя на глубину 0,8 м.

Определим сопротивление вертикального электрода:

где — удельное электрическое сопротивление грунта, равное 150 (для Тулы: 2 климатическая зона, тип грунта — суглинок, размещение — вертикальное);

l — длина электрода, равная 3 м;

d — диаметр электрода, равный 0,03 м;

t — расстояние от поверхности грунта до центра электрода, равное 2,3 м.

.

Число вертикальных электродов определим из формулы:

где — количество вертикальных электродов;

— коэффициент использования вертикальных электродов;

R_доп — допустимое сопротивление группового искусственного заземлителя, равное 10 Ом (выбирается по ПУЭ, W_трансф100кВА).

.

Из расчета соотношения расстояния между электродами (а=6м) к их длине (l=3м), равного a/l=2 и размещения электродов по контуру здания выбираем из таблицы коэффициентов использования вертикальных электродов n=6 и =0,73.

Тогда длина горизонтального проводника связи, соединяющего вертикальные электроды равна:

Определим сопротивление горизонтального проводника связи:

где — удельное электрическое сопротивление грунта, равное 300 (для Тулы: 2 климатическая зона, тип грунта — суглинок, размещение — горизонтальное).

.

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

где — коэффициент использования горизонтальных электродов.

Из расчета соотношения расстояния между электродами (а=6м) к их длине (l=3м), равного a/l=2 и размещения электродов по контуру здания выбираем из таблицы коэффициентов использования горизонтальных электродов =0,48.

Критерий правильности расчета заключается в соблюдении неравенства:

.

Как видим, условие выполняется (7,566 < 10), следовательно параметры заземлителей были выбраны верно.

9.3.7 Пожарная безопасность

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

Для выбора мер пожаротушения определяют категорию здания по взрывоопасности и по степени огнестойкости.

Рассматриваемое в данном проекте рабочее помещение по взрывопожарной и пожарной опасности в соответствии с СНиП 2.09.02−85 «Производственные здания» относится к категории помещений Д.

Учитывая высокую стоимость электронного оборудования, а также категорию их пожарной опасности, все здания, в которых предусмотрено размещение ПЭВМ, должны быть 1 или II степени огнестойкости (здания с несущими и ограждающими конструкциями из железобетона с применением плиточных негорючих материалов).

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

· ненадежную работу электронных блоков, из которых состоит ПЭВМ, при отклонении реальных условий эксплуатации от заданных;

· пробой изоляции;

· короткое замыкание;

· нарушение правил пожарной безопасности.

Средства пожаротушения подразделяют на первичные, стационарные и передвижные (пожарные автомобили).

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

К первичным средствам пожаротушения на рабочем месте с ПК относят следующие виды углекислотных огнетушителей: ручные — ОУ-2А, ОУ-5, ОУ-8 и передвижные — ОУ — 25, ОУ — 80, ОУ — 400. Их используют для тушения загораний электрических установок, работающих под напряжением до 1000 В.

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

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

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

В рассматриваемом случае следует использовать тепловые или дымовые извещатели.

Рисунок 9.5 — схема размещения извещателей

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

В соответствии со СНиП II-2−80 число эвакуационных выходов из зданий, помещений и с каждого этажа зданий определяется расчётом, но должно быть не менее двух. Ширина участков путей эвакуации должна быть не меньше 1 м, а дверей на путях эвакуации — не менее 0,8 м.

План пожарной эвакуации рассматриваемого здания предоставлен на рисунке ниже. Стрелками указаны пути эвакуации. Крестиком помечена комната, где оператор ПЭВМ использует разработанный программный продукт.

Рисунок 10.6 — план эвакуации

Должен проводиться противопожарный инструктаж всех сотрудников в момент принятия их на работу. Проведение противопожарных инструктажей должно фиксироваться в специальном журнале.

9.3.8 Охрана окружающей среды

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

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

Загрязнение — привнесение в какую-либо среду новых не характерных для неё веществ или превышение естественного среднемноголетнего уровня концентрации этих агентов в среде. Непосредственными объектами загрязнения служат атмосфера, вода, почва. Косвенными объектами загрязнения (жертвами загрязнения) оказываются растения, животные, микроорганизмы, человек.

Различают следующие виды загрязнений:

§ Биологическое — загрязнителем являются не свойственные экосистеме организмы;

§ Микробиологическое;

§ Механическое — загрязнение химически инертным мусором, протаптывание тропинок и прочее механическое воздействие на среду;

§ Химическое — загрязнителем являются вредные химические соединения;

§ Физическое;

§ Тепловое — излишний нагрев среды;

§ Шумовое;

§ Электромагнитное;

§ Радиоактивное — превышение естественного радиоактивного фона;

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

Заключение

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

Организация производственного помещения: размер кабинета составляет 7×5×3 м, объем и площадь помещения соответствует санитарным нормам.

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

Освещение: для обеспечения нормальных условий работы оператора ПК, в соответствии с нормативными требованиями, необходимо установить 8 светильников ЛДЦ-80 с лампами мощностью 80Вт.

Шум: расчет уровня шума показал, что достаточно применение звукопоглощающей облицовки стен и вентиляторов типа SILENT для снижения уровня шума до допустимого.

Эргономика организации рабочего места и режима труда: приведены схемы посадки человека за рабочим местом, регламенты перерывов при работе на ЭВМ.

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

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

Пожарная безопасность: в качестве первичных средств пожаротушения применяем следующие виды углекислотных огнетушителей: ручные — ОУ-2А, ОУ-5, ОУ-8 и передвижные — ОУ — 25, ОУ — 80, ОУ — 400. Приведены схема размещения извещателей и план эвакуации.

Библиографический список:

1. ГОСТ 8.586.1—2014 «Измерение расхода и количества жидкостей и газов с помощью стандартных сужающих устройств» Часть 1 Принцип метода измерений и общие требования

2. ГОСТ 8.586.2−2014 «Измерение расхода и количества жидкостей и газов с помощью стандартных сужающих устройств» Часть 2 Диафрагмы. Технические требования

3. РД 50−411−83 «Методические указания. Расход жидкостей и газов. Методичка выполнения измерений с помощью специальных сужающих устройств»

4. СанПиН 2.2.2./2.4.1340−03 «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы»

5. ГОСТ 12.01.005−88 «Общие санитарно-гигиенические требования к воздуху санитарной рабочей зоны»

6. ГОСТ 12.1.003−83 «Шум. Общие требования безопасности»

7. СНиП 2.01.02−85 «Противопожарные нормы проектирования зданий и сооружений»

8. СНиП 31−03−2001 «Производственные здания»

9. СанПин 2.2.2.542−96 «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работ»

10. СНиП 23−05−95 «Естественное и искусственное освещение»

11. Андронов И. В. Измерение расхода жидкостей и газов. — М.: Энергоиздат, 1981. — 88 с

12. Кулаков М. В. Технологические измерения и приборы для химических производств. — М.:Машиностроение.-1983.

13. Типовые нормы времени на программирование задач для ЭВМ. — М.: Экономика, 2013.

14. Методические указания по выполнению КР (ККР) по курсу «Организация и планирование производства» / А. В. Огнянович. — Тула: ТулГУ, 2011. — 20с.

Приложение 1

Шероховатость внутренней поверхности трубопроводов

Значения эквивалентной шероховатости R_ш, среднеарифметического отклонения профиля шероховатости Ra и относительной расширенной неопределенности

Приложение 2

Значения постоянных коэффициентов a₀, a₁, a₂ и границы области применения формулы (5.21)

Приложение 3

Текст программы

main

unit main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, calc, unit_db, redactor_db, Menus, strutils, ufuncs,

LDefin2D, ksConstTLB, ksAuto, ksTLB, ComObj, OleCtrls;

procedure dbquery (s: string);

type

TForm1 = class (TForm)

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

LabeledEdit3: TLabeledEdit;

LabeledEdit4: TLabeledEdit;

LabeledEdit5: TLabeledEdit;

LabeledEdit6: TLabeledEdit;

ComboBox1: TComboBox;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

Label1: TLabel;

Label2: TLabel;

LabeledEdit7: TLabeledEdit;

Button1: TButton;

ComboBox4: TComboBox;

Label4: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

GroupBox4: TGroupBox;

Memo1: TMemo;

Label3: TLabel;

GroupBox5: TGroupBox;

N14: TMenuItem;

Button2: TButton;

GroupBox3: TGroupBox;

Label8: TLabel;

ComboBox5: TComboBox;

Button3: TButton;

Button4: TButton;

SaveDialog1: TSaveDialog;

procedure ComboBox1Change (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure ComboBox2Change (Sender: TObject);

procedure ComboBox4Change (Sender: TObject);

procedure ComboBox3Change (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

dm: Tdm;

diaf: Tdiaf;

diaf_p: t_diafragma;

Kompas: KompasObject;

doc: ksDocument2D;

doc_pars: t_list;

//red: TForm2;

implementation

{$R *.dfm}

procedure TForm1. Button4Click (Sender: TObject);

begin

if Kompas = nil then

begin

Kompas := KompasObject (CreateOleObject ('Kompas.Application.5'));

if Kompas <> nil then

Kompas.Visible := true;

end;

with doc_pars do

begin

developer:=ed_developer.Text;

material:=ed_material.Text;

org:=ed_org.Text;

code:=edit3.text;

name:='Диафграгма коническая';

format:=4;

direction:=false;

end;

with diaf_p do

begin

d:=diaf.dcy;

dm:=diaf.d;

f:=diaf.F;

j:=diaf.J;

e:=diaf.el;

em:=diaf.E;

kon:=true;

end;

WorkDocument (doc_pars, diaf);

end;

procedure TForm1. ComboBox1Change (Sender: TObject);

begin

dbquery ('select * from stuff where name='+#39+ComboBox1.Text+#39);

diaf.r:=dm.Query1.FieldByName ('R').AsFloat;

diaf.m:=dm.Query1.FieldByName ('M').AsFloat;

end;

procedure TForm1. ComboBox2Change (Sender: TObject);

var i: word;

s: string;

begin

dbquery ('select sostoyanie from it where vid=(select id from vid where vid. vid='+#39+ComboBox2.Text+#39+')');

ComboBox3.Clear;

with dm do

repeat

with Query2 do

begin

Close;

SQL.Text:='select sost from sostoyanie where id='+Query1.FieldByName ('sostoyanie').AsString;

ExecSQL;

open;

Query1.Next;

first;

i:=0;

repeat

ComboBox3.Items.Add (FieldByName ('sost').AsString);

inc (i);

next;

until eof or (i>100);

end;

until Query1. Eof or (i>100);

end;

procedure TForm1. ComboBox3Change (Sender: TObject);

begin

dbquery ('select * from IT where vid=(select id from vid where vid='+#39+ComboBox2.Text+#39+

')and sostoyanie=(select id from sostoyanie where sost='+#39+ComboBox3.Text+#39')');

diaf.Ra:=dm.Query1.FieldByName ('Ra*1000, м').AsFloat;

end;

procedure TForm1. ComboBox4Change (Sender: TObject);

begin

dbquery ('select * from steels where steel='+#39+ComboBox4.Text+#39);

diaf.a0:=dm.Query1.FieldByName ('a0').AsFloat;

diaf.a1:=dm.Query1.FieldByName ('a1').AsFloat;

diaf.a2:=dm.Query1.FieldByName ('a2').AsFloat;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

dm:= Tdm. create (nil);

diaf:= Tdiaf. Create;

with dm do

begin

zapolnit_from_db (tbl1,ComboBox1,'Name');

zapolnit_from_db (tbl2,ComboBox4,'Steel');

zapolnit_from_db (tbl4,ComboBox2,'Vid');

end;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

with diaf do

begin

try

qmin:=StrToFloat (LabeledEdit1.Text);

qmax:=StrToFloat (LabeledEdit2.Text);

pper:=StrToFloat (LabeledEdit3.Text);

p:=StrToFloat (LabeledEdit4.Text);

t:=StrToFloat (LabeledEdit5.Text);

D:=StrTofloat (LabeledEdit6.Text);

k:=StrToFloat (LabeledEdit7.Text)

except

ShowMessage ('проверьте правильность ввода данных');

end;

calcd;

Memo1.Lines.Clear;

Memo1.Lines.Add (FloatToStr (dcy));

end;

end;

procedure TForm1. N11Click (Sender: TObject);

begin

form2.openeditor ('2');

Form2.Caption:='Материалы';

end;

procedure TForm1. N12Click (Sender: TObject);

begin

form2.openeditor ('1');

Form2.Caption:='Среды';

end;

procedure TForm1. N13Click (Sender: TObject);

begin

form2.openeditor ('3');

Form2.Caption:='Вид труб и состояние ИТ';

end;

procedure dbquery (s: string);

begin

with dm do begin

with Query1 do

begin

Close;

SQL.Text:=s;

ExecSQL;

open;

first;

end;

end;

end;

end.

calc

unit calc;

interface

uses Math, dialogs;

type

Tdiaf = class

b, qmin, qmax, p, pper, r, m, t, k, Ra, d20, dcy, a0, a1,a2,D, qnom, pnom: real;

gaz:boolean;

el, E, F, J: real;

{b-относительный диаметр отверстия СУ

qmin, qmax-массовый расход мин и макс, Remax, Remin-число Рейнольдса, Ra-среднеарифм. отклонение профиля шероховатости,

p-давление реды, per-перепад давления на СУ, r-плотность среды, m-вязкость среды,

k-показатель адиабаты, t-температура среды, D-диаметр тркбопровода

a0,a1,a2-постоянные коэффициенты

d20-диаметр при 20 градусах, dcy-диаметр су при рабочей температуре

el-длина цилиндрической части, E-толщина, F-угол входа, J-глубина скоса}

constructor create;

function calcRemaxmin (qmaxmin:real):real;//расчет максимального/минимального числа рейнольдса

function calcRe (b:real):real;//расчет нижней и верхней границы числа рейнольдса

function calcA: real;//расчет вспомoгательной величины А

function calcC: real;//расчет коэффициента истечения С

function calcE: real;//расчет коэффициента скорости входа Е

function calcEps: real;//расчет коэффициента расширения Ерs

function calcK: real;//поправочный коэффициент, учитывающий шероховатость внутренней поверхности ИТ

function calcB (b:real):real;//расчет вспомoгательной величины B

function calcAlfa (t:real):real;//температурный коэффициент линейного расширения материала

function calcBeta (c, pper, epsilo: real):real; // расчет значения относительного диаметра

function calcEpsilo (beta, psr: real):real; //расчет поправочного множителя

function calcRevn (beta, betan, betav, renbl, revbl: real):real;// расчет границ числа рейнольдса для кон диаф

procedure calcd;//расчет внутреннего диаметра диафрагмы

procedure calccondiaf;//расчет с кон входом иафрагмы

end;

implementation

constructor Tdiaf. create;

var i: byte;

const mas: array [0.9] of real=

(1,1.25,1.6,2.0,2.5,3.2,4.0,5.0,6.3,8.0);

begin

while qmax<=mas[i] do

begin

qnom:=mas[i]*10;

inc (i);

end;

while pper<=mas[i] do

begin

pnom:=mas[i]*10;

inc (i);

end;

end;

//расчет с кон входом диафрагмы

function Tdiaf. calcRevn (beta, betan, betav, renbl, revbl: real):real;

begin

calcRevn:=(revbl-renbl)*beta/(betav-betan)+(betav*renbl-betan*revbl)/(betav-betan);

end;

function Tdiaf. calcBeta (c, pper, epsilo: real):real;

var betaalfa: real;

begin

BetaAlfa:=c/epsilo*sqrt (pper);

if (betaalfa>=0.734) and (betaalfa<=0.07) then

calcBeta:=1.3658*betaalfa-0.5679*sqr (betaalfa);

if (betaalfa>=0.07) and (betaalfa<=0.2081) then

calcBeta:=1.3658*betaalfa-0.2912*sqr (betaalfa)-2.2345*power (betaalfa, 3);

end;

function Tdiaf. calcEpsilo (beta, psr: real):real;

begin

calcEpsilo:=0.25+0.75*power ((power (1-psr, 2/k)*k/(k-1)* (1-(power (1-psr,(k-1)/k))

/psr*(1-sqr (beta))/(1-sqr (beta)*power (1-psr, 2/k)))), 0.5)

end;

procedure Tdiaf. calccondiaf;

var c, psr, remax, remin, rev, ren, betaalfa, beta, beta1, beta2,beta3,epsilo1,epsilo2,epsilo3:real;

cl, ka, kb, kg, fo: real;

i:byte;

sovpalo, nesovpalo: boolean;

const mas: array [0.4,0.2] of real=

(

(0.01,40,20 000),

(0.04,40,40 000),

(0.09,60,50 000),

(0.16,120,50 000),

(0.25,260,50 000)

);

mas1:array[0.25,0.2] of real=

(

(0.1,45,12),(0.12,45,11.8),(0.14,45,11.7),(0.16,45,11.6),(0.18,45,11.5),

(0.2,45,11.4),(0.22,44.8,11.2),(0.24,44.5,11.1),(0.26,44.1,10.9),

(0.28,43.6,10.8),(0.3,43,10.7),(0.32,42.2,10.3),(0.34,41.6,10.4),

(0.36,40.8,10.3),(0.38,40,10.2),(0.4,39.1,10),(0.41,38.6,10),(0.42,38.1,9.9),

(0.43,37.5,9.8),(0.44,36.9,9.8),(0.45,36.1,9.7),(0.46,35.4,9.6),

(0.47,34.4,9.6),(0.48,33.3,9.4),(0.49,32.2,9.3),(0.5,31.2,9.2)

);

begin

c:=4*qnom/sqr (D)*sqrt (2*r)*pi;

betaalfa:=c/sqrt (pnom);

if (betaalfa>=0.734) and (betaalfa<=0.07) then

Beta:=1.3658*betaalfa-0.5679*sqr (betaalfa);

if (betaalfa>=0.07) and (betaalfa<=0.2081) then

Beta:=1.3658*betaalfa-0.2912*sqr (betaalfa)-2.2345*power (betaalfa, 3);

beta:=trunc (beta*100)/100;

//вычисление верхней и нижней границы

sovpalo:=false;

nesovpalo:=false;

repeat

inc (i);

if beta=mas[i, 0] then sovpalo:=true

else nesovpalo:=true;

until sovpalo;

if sovpalo then

begin

rev:=mas[i, 1];

ren:=mas[i, 2];

end;

if nesovpalo then

begin

rev:= calcRevn (beta, mas[i, 0], mas[i+1,0], mas[i, 2], mas[i+1,2]);

ren:=calcRevn (beta, mas[i, 0], mas[i+1,0], mas[i, 1], mas[i+1,1]);

end;

// Remax:=calcRemaxmin (qmax);

Remin:=calcRemaxmin (qmin);

if not ((remax<=rev) and (remin>=ren)) then

begin

ShowMessage ('Расчет при заданных исходных данных невозможен');

exit;

end

else

if gaz then

begin

if not (pnom/p<0.5) then

begin

ShowMessage ('Расчет при заданных исходных данных невозможен');

exit;

end

else

psr:=pnom*sqr ((qmax+qmin)/2)/p/sqr (qnom);

epsilo1:=calcEpsilo (beta, psr);

beta1:=calcBeta (c, pnom, epsilo1);

epsilo2:=calcEpsilo (beta1,psr);

beta2:=calcBeta (c, pnom, epsilo2);

if epsilo2-epsilo1<=0.001 then

b:=beta2

else

epsilo3:=calcEpsilo (beta2,psr);

beta3:=calcBeta (c, pnom, epsilo3);

b:=trunc (beta3*100)/100;

end

else

if r<=1000 then fo:=2.068*exp (-r/500)-0.259

else fo:=0.02;

ka:=2*(1-fo*k/(k-1))*fo-(1-sqr (beta))*sqr (pper/p-fo);

kb:=4*fo*(fo*k/(k-1)-1)+2*(1-sqr (beta)*(1-fo)*(pper/p-Fo));

kg:=2*fo*(1-fo*k/(k-1))-(1-sqr (beta))*sqr (1-fo);

cl:=2*ka/(sqrt (sqr (kb)-4*ka*kg)-kb);

if not (pper/p<=1-cl) then

begin

ShowMessage ('kjdsnfksdjn');

exit;

end

else b:=beta;

d20:=D*sqrt (b)/calcAlfa (20);

dcy:=round (d20*calcAlfa (t));

el:=0.021*dcy;

i:=0;

while b=mas1[i, 0] do

begin

J:=dcy/mas[i, 2];

F:=mas[i, 1];

inc (i);

end;

E:=el+J;

end;

//расчет стандартной диафрагмы

function Tdiaf. calcAlfa (t:real):real;

begin

calcAlfa:=0.1*(a0+a1*((t+273)/1000)+a2*sqr (((t+273)/1000)))

end;

function Tdiaf. calcRemaxmin (qmaxmin:real):real;

begin

calcRemaxmin:=4*qmaxmin/pi*D*m;

end;

function Tdiaf. calcRe (b:real):real;

begin

calcRe:=170 000*sqr (b)*D;

end;

function Tdiaf. calcA:real;

begin

calcA:=calcRemaxmin (qmax)*m/D*sqrt (2*p*pper);

end;

function Tdiaf. calcC:real;

var m1, m2,a, l: real;

begin

a:=power (19 000*b/calcRemaxmin (qmax), 0.8);

l:=0.0254/D;

m1:=2*l/(1-b);

if D<0.7 112 then m2:=0.011*(0.75-b)*(2.8-D/0.0254)

else m2:=0;

calcC:=0.5961+0.026*sqr (b)-0.216*sqr (b)+0.521*power (1 000 000*b/calcRemaxmin (qmax), 0.7)+(0.0188+0.0036*a)*power (b, 3.5)*power (1 000 000/calcRemaxmin (qmax), 0.3)+

(0.043+0.08*exp (-10*l)-0.123*exp (-7*l))*(1−0.11*a)*power (b, 4)/(1-power (b, 4))-0.031*(m1−0.8*power (m1,1.1))*power (b, 1.3)+m2;

end;

function Tdiaf. calcE:real;

begin

calcE:=1/sqrt (1-power (b, 4));

end;

function Tdiaf. calceps:real;

begin

calceps:=1-(0.351+0.256*power (b, 4)+0.93*power (b, 8))*(1-power (1-pper/p, 1/k));

end;

function Tdiaf. calcK:real;

const mat: array [0.11,0.2] of real =

(

(8.87,6.7307,-10.244),

(-3.7114,-5.5844,5.7094),

(0.41 841,0/732 485,0.76 477),

(0,0,0),

(27.23,-25.928,1.7622),

(-11.458,12.426,-3.8765),

(1.6117,-2.9 397,1.5 567),

(-0.7 567,0.106 143,-0.76 764),

(16.5416,322.594,-92.029),

(-6.60 709,-132.2,37.935),

(0.88 147,17.795,-5.185),

(-0.39 226,-0.799 765,0.23 583)

);

var a01, a11,a21,Ramax, Ramin, l1, l2:real;i:byte;

begin

a01:=0;

a11:=0;

a21:=0;

for I:=0 to 11 do

begin

if (calcRemaxmin (qmax)>10 000) and (calcRemaxmin (qmax)<=100 000) then

begin

a01:=a01+mat[i, 0]*power (log10(calcRemaxmin (qmax)), i);

a11:=a11+mat[i, 1]*power (log10(calcRemaxmin (qmax)), i);

a21:=a21+mat[i, 2]*power (log10(calcRemaxmin (qmax)), i);

if i=3 then break;

end;

if (calcRemaxmin (qmax)>100 000) and (calcRemaxmin (qmax)<=3 000 000) then

begin

a01:=a01+mat[i+4,0]*power (log10(calcRemaxmin (qmax)), i);

a11:=a11+mat[i+4,1]*power (log10(calcRemaxmin (qmax)), i);

a21:=a21+mat[i+4,2]*power (log10(calcRemaxmin (qmax)), i);

if i+4=7 then break;

end;

if (calcRemaxmin (qmax)>3 000 000) and (calcRemaxmin (qmax)<=100 000 000) then

begin

a01:=a01+mat[i+8,0]*power (log10(calcRemaxmin (qmax)), i);

a11:=a11+mat[i+8,1]*power (log10(calcRemaxmin (qmax,)), i);

a21:=a21+mat[i+8,2]*power (log10(calcRemaxmin (qmax)), i);

if i+8=11 then break;

end;

end;

if calcRemaxmin (qmax)<=10 000 then Ramax:=(0.718 866*power (b,-3.887)+0.364)/10 000*D;

if (calcRemaxmin (qmax)>10 000) and (b<0.65) then Ramax:=(a01*power (b, a11)+a21)/10 000*D;

if (calcRemaxmin (qmax)>10 000) and (b>=0.65) then Ramax:=(a01*power (0.65,a11)+a21)/10 000*D;

if b<0.65 then Ramin:=(7.1592−12.387*b-(2.0118−3.469*b)*log10(calcRemaxmin (qmax))+(0.1382−0.23 762*b)*power (log10(calcRemaxmin (qmax)), 2))/10 000*D;

if b>=0.65 then Ramin:=(-0.892 353+0.24 308*log10(calcRemaxmin (qmax))-0.162 562*power (log10(calcRemaxmin (qmax)), 2))/10 000*D;

if (Ra<=Ramax) and (Ra>=Ramin) then calcK:=1

else

begin

l1:=power (1.74−2*log10(2*pi*Ra/D-37.36*log10(0.26 954*pi*Ra/D-5.035/calcRemaxmin (qmax)*log10(0.26 954*pi*Ra/D+3.3333*5.035/calcRemaxmin (qmax)))),-2);

if Ra>Ramax then

l2:=power (1.74−2*log10(2*pi*Ramax/D-37.36*log10(0.26 954*pi*Ramax/D-5.035/calcRemaxmin (qmax)*log10(0.26 954*pi*Ramax/D+3.3333*5.035/calcRemaxmin (qmax)))),-2);

if Ra

l2:=power (1.74−2*log10(2*pi*Ramin/D-37.36*log10(0.26 954*pi*Ramin/D-5.035/calcRemaxmin (qmax)*log10(0.26 954*pi*Ra/D+3.3333*5.035/calcRemaxmin (qmax)))),-2);

calcK:=1+5.22*power (b, 3.5)*(l1-l2);

end;

end;

function Tdiaf. calcB (b:real):real;

begin

if gaz then

calcB:=calcE*calcC*calcK*sqr (b)*calcEps

else

calcB:=calcE*calcC*calcK*sqr (b);

end;

procedure Tdiaf. calcd;

var Remax, Remin, Rev, Ren, B, B1,B2,sigma, sigma1, sigma2,bv, bn: real; g: byte;

begin

bv:=0.75;

bn:=0.1;

g:=0;

Remax:=calcRemaxmin (qmax);

Remin:=calcRemaxmin (qmin);

Ren:=calcRe (0.1);

Rev:=calcRe (0.75);

if not ((Rev>=Remax) and (Ren<=Remin)) then

showmessage ('Расчет при заданных исходных данных невозможен')

else

begin

B1:=calcB (0.75);

B2:=calcB (0.1);

sigma1:=(B1-calcA)-calcA;

sigma2:=(B2-calcA)-calcA;

end;

if ((sigma1>0) and (sigma2>0)) or ((sigma1<0) and (sigma2<0)) then

showmessage ('Расчет при заданных исходных данных невозможен')

else

begin

repeat

begin

b:=(bv+bn)/2;

B:=calcB (b);

sigma:=(B-calcA)/calcA;

if sigma<0.5 then break

else

begin

g:=g+1;

if B

end;

end;

until g>255;

end;

if not ((5000<=Remin) and (calcRe (b)>=Remax)) then

showmessage ('Расчет при заданных исходных данных невозможен')

else begin

d20:=b*D/(1+calcAlfa (20)*(t-20));

dcy:=d20*(1+calcAlfa (t)*(t-20));

end;

end;

end.

db

unit unit_db;

interface

uses

SysUtils, Classes, DB, DBTables, forms, StdCtrls;

type

Tdm = class (TDataModule)

ds1: TDataSource;

tbl1: TTable;

db_gen: TDatabase;

ses: TSession;

ds2: TDataSource;

tbl2: TTable;

ds3: TDataSource;

tbl3: TTable;

tbl4: TTable;

tbl5: TTable;

ds4: TDataSource;

ds5: TDataSource;

vidmat: TQuery;

it: TQuery;

sostit: TQuery;

itId: TAutoIncField;

itR1000: TFloatField;

itRa1000: TFloatField;

vidmatId: TAutoIncField;

vidmatVid: TStringField;

sostitId: TAutoIncField;

sostitSost: TStringField;

itvvid: TStringField;

itvsost: TStringField;

Query1: TQuery;

itVid: TIntegerField;

itSostoyanie: TIntegerField;

Query2: TQuery;

procedure DataModuleCreate (Sender: TObject);

procedure DataModuleDestroy (Sender: TObject);

procedure activatedb;

procedure deactivatedb;

procedure create_tables;

procedure zapolnit_from_db (tbl:Ttable; ComboBox: TComboBox;stolbec:string);

procedure redactor_db (tbl:Ttable);

private

{ Private declarations }

public

{ Public declarations }

end;

const

DBAlias = 'nata';

implementation

uses DateUtils;

{$R *.dfm}

procedure Tdm. DataModuleCreate (Sender: TObject);

var dir: shortstring;

begin

WITH ses DO

BEGIN

dir:=ExtractFilePath (Application.ExeName)+'db';

NetFiledir:= dir;

PrivateDir:= dir;

Active := True;

IF (IsAlias (DBAlias)) THEN deletealias (dbalias);

ConfigMode := [cfmPersistent];

AddStandardAlias (DBAlias, dir,'PARADOX');

SaveConfigFile;

END;

create_tables;

activatedb;

with vidmat do begin Prepare; Open; end;

with sostit do begin Prepare; Open; end;

with it do begin Prepare; Open; end;

end;

procedure tdm. activatedb;

begin

ses.Active:=true;

db_gen.AliasName:= DBAlias;

db_gen.Connected := True;

tbl1.Active:=true;

tbl2.Active:=true;

tbl3.Active:=true;

tbl4.Active:=true;

tbl5.Active:=true;

end;

procedure tdm. deactivatedb;

begin

ses.Active:=false;

db_gen.Connected := false;

tbl1.Active:=false;

tbl2.Active:=false;

tbl3.Active:=false;

tbl4.Active:=false;

tbl5.Active:=false;

end;

procedure Tdm. DataModuleDestroy (Sender: TObject);

begin

deactivatedb;

WITH db_gen DO

IF Connected THEN

BEGIN

CloseDataSets;

Connected:=FALSE

END;

WITH ses DO

IF Active THEN

Close

end;

procedure tdm. create_tables;

begin

if not tbl1. Exists then

tbl1.CreateTable;

end;

procedure Tdm. zapolnit_from_db (tbl:Ttable; ComboBox: TComboBox;stolbec:string);

begin

tbl.FindFirst;

ComboBox.Clear;

repeat

ComboBox.Items.Add (tbl.FieldByName (stolbec).AsString);

tbl.Next;

until tbl. Eof;

end;

end.

Redactor_db

unit redactor_db;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, unit_db;

type

TForm2 = class (TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure openeditor (table: string);

procedure DBNavigator1Enter (Sender: TObject;table: string);

private

{ Private declarations }

public

{ Public declarations }

end;

arr= array of string;

p_arr= ^arr;

var

Form2: TForm2;

CONST

mas1:array [0.2] of string=('Вещество','Плотность','Вязкость');

mas2:array [0.3] of string=('Сталь','a0','a1','a2');

mas3:array [0.3] of string=('Вид труб и материал','Состояние поверхности стенки ИТ и условия эксплуатации',

'Эквивалентная шероховатость Rш*1000, м',

'Среднеарифметическое отклонение профиля шероховатости Ra*1000, м');

implementation

uses main;

{$R *.dfm}

procedure copyarray (_from: array of string; var _to: arr);

var i: byte;

begin

setlength (_to, length (_from));

for I := 0 to length (_from) — 1 do

_to[i]: =_from[i];

end;

procedure tform2. openeditor (table: string);

var i: byte;

title: arr;

begin

if table='1' then

begin

dbgrid1.DataSource:=dm.ds1;

dbNAVIGATOR1.DataSource:=dm.ds1;

copyarray (mas1,title);

end

else

begin

if table='2' then begin

dbgrid1.DataSource:=dm.ds2;

dbNAVIGATOR1.DataSource:=dm.ds2;

copyarray (mas2,title);

end

else

begin

dbgrid1.DataSource:=dm.ds3;

dbNAVIGATOR1.DataSource:=dm.ds3;

copyarray (mas3,title);

end;

end;

for I := 0 to length (title) — 1 do

DBGrid1.Columns[i+1]. Title. Caption:=title[i];

DBGrid1.Columns[0].Visible:=false;

show;

end;

procedure TForm2. DBNavigator1Enter (Sender: TObject;table: string);

begin

if table='1' then dbNAVIGATOR1. DataSource:=dm.ds1;

if table='2' then dbNAVIGATOR1. DataSource:=dm.ds2;

if table='3' then dbNAVIGATOR1. DataSource:=dm.ds3;

end;

end.

unfuncs

unit ufuncs;

interface

uses Windows, SysUtils, LDefin2D, ksConstTLB, ksAuto, ksTLB, Forms, dialogs;

type

ss = shortstring;

t_list = record

direction: boolean;

format: byte;

tab: boolean;

developer: ss;

org: ss;

material: ss;

code: ss;

name: ss;

use: boolean;

end;

t_diafragma = record

num: integer;

d: extended;

dm: extended;

f: extended;

j: extended;

e: extended;

em: extended;

kon: boolean;

end;

procedure WorkDocument (params: t_list; diaf: t_diafragma);

procedure WorkStamp (params: t_list; diaf: t_diafragma);

procedure insert2stamp (stamp: ksStamp; itemparam: ksTextItemParam; text: ss; num: byte);

procedure make_diafragma (diaf: t_diafragma);

procedure make_wheel (diaf: t_diafragma);

procedure make_int (diaf: t_diafragma);

procedure DrawLinDim (_x1,_y1,_x2,_y2,_xd,_yd: extended; zd: boolean = false);

procedure DrawRadDimt (_x,_y,_r: extended; _ang: word);

implementation

uses main;

procedure WorkDocument (params: t_list; diaf: t_diafragma);

var

buf: string;

docPar: ksDocumentParam;

docPar1: ksDocumentParam;

shPar: ksSheetPar;

stPar: ksStandartSheet;

par: ksViewParam;

number: Integer;

shPar1: ksSheetPar;

stPar1: ksStandartSheet;

direct: SmallInt;

begin

doc := ksDocument2D (kompas.Document2D);

docPar := ksDocumentParam (kompas.GetParamStruct (ko_DocumentParam));

docPar1 := ksDocumentParam (kompas.GetParamStruct (ko_DocumentParam));

if ((docPar <> nil) And (docPar1 <> nil)) then begin

// docPar. fileName := 'c:2.cdw';

docPar.comment := 'create document';

docPar.author := 'user';

docPar.regime := 0;

docPar.type_ := lt_DocSheetStandart;

shPar := ksSheetPar (docPar.GetLayoutParam ());

if (shPar <> nil) then begin

shPar.shtType := 1;

shPar.layoutName := '';

stPar := ksStandartSheet (shPar.GetSheetParam ());

if (stPar <> nil) then begin

stPar.format := params. format;

stPar.multiply := 1;

stPar.direct := params. direction;

end;

end;

// и с системным штампом 1

doc.ksCreateDocument (docPar);

par := ksViewParam (kompas.GetParamStruct (ko_ViewParam));

if (par <> nil) then begin

number := 2;

with par do

begin

Init;

x := 0;

y := 0;

scale_ := 0.5;

Angle := 0;

Color := RGB (10, 20, 10);

state := stACTIVE;

name := 'user view';

end;

// вид с номером 2, масштабом 1, под углом 0

// координаты вида 0,0

doc.ksCreateSheetView (par, number);

// создадим слой с номером 5

doc.ksLayer (5);

make_diafragma (diaf);

WorkStamp (params, diaf);

end;

end;

end;

procedure WorkStamp (params: t_list; diaf: t_diafragma);

var

stamp: ksStamp;

itemParam: ksTextItemParam;

begin

stamp := ksStamp (doc.GetStamp);

if (stamp <> nil) then begin

if (stamp.ksOpenStamp <> 0) then

begin

insert2stamp (stamp, itemparam, params. developer, 110);

insert2stamp (stamp, itemparam, params. material, 3);

insert2stamp (stamp, itemparam, params.org, 9);

insert2stamp (stamp, itemparam, params.name, 1);

insert2stamp (stamp, itemparam, params. code, 2);

insert2stamp (stamp, itemparam, datetostr (now), 130);

// insert2stamp (stamp, itemparam, floattostrf (diaf.m, fffixed, 5,2), 5);

stamp.ksCloseStamp;

end;

end;

end;

procedure insert2stamp (stamp: ksStamp; itemparam: ksTextItemParam; text: ss; num: byte);

var itemFont: ksTextItemFont;

begin

stamp.ksColumnNumber (num);

itemParam := ksTextItemParam (kompas.GetParamStruct (ko_TextItemParam));

if (itemParam <> nil) then

begin

itemParam.Init;

itemFont := ksTextItemFont (itemParam.GetItemFont);

if (itemFont <> nil) then

begin

itemFont.SetBitVectorValue (NEW_LINE, true);

itemParam.s := text;

doc.ksTextLine (itemParam);

end;

end;

end;

procedure make_diafragma (diaf: t_diafragma);

var dt: extended;

c1,c2,c3,c4,c5,c6, g: reference;

const dd = 20;

ddd =15;

begin

with diaf do

begin

g := doc. ksNewGroup (0);

// рисуем кольцо

doc.ksContour (1);

make_wheel (diaf);

c1 := doc. ksEndObj;

doc.ksAddObjGroup (g, c1);

// нарисовали, теперь зальем штриховкой

doc.ksHatch (0, 45, 2, 0, 0, 0);

make_wheel (diaf);

c1:=doc.ksEndObj;

doc.ksAddObjGroup (g, c1);

// внешнее кольцо готово

// линии кольца

c3:=doc.ksLineSeg (0,dt, 0,0, 1);

doc.ksAddObjGroup (g, c3);

// осевые

c4:=doc.ksLineSeg (-5,0, e+5,0, 3);

doc.ksAddObjGroup (g, c4);

c4:=doc.ksLineSeg (-5,dt, j+5,dt, 3);

doc.ksAddObjGroup (g, c4);

//размеры

dt:=(b/2-l)/2;

DrawLinDim (b-r, di/2,b-r,-di/2,dd, 0, true);

DrawLinDim (b-dt, d½, b-dt, d½-dw, dt+dd-r, 0, true);

DrawLinDim (b, d½, b,-d½, dd+ddd, 0, true);

DrawLinDim (b-r, de/2,b-r,-de/2,dd+ddd*2,0, true);

DrawLinDim (dt, d½-dw, dt+l, d½-dw, 0,-dd);

DrawLinDim (0,de/2-r, b, de/2-r, 0, dd);

DrawRadDimt (r, de/2-r, r,160);

DrawRadDimt (r, di/2+r, r,210);

doc.ksEndGroup;

doc.ksMoveObj (g, 170, 350);

end;

end;

procedure make_wheel (diaf: t_diafragma);

begin

with diaf do

begin

d:=d/2;

dm:=dm/2;

doc.ksLineSeg (0, d+j/cos (f), 0, dm, 1);

doc.ksLineSeg (0, dm, em, dm, 1);

if diaf. kon then

doc.ksLineSeg (em, dm, em, d*2, 1)

else

doc.ksLineSeg (em, dm, em, 0, 1);

if diaf. kon then

begin

doc.ksLineSeg (em, d*2, j+e, d*2, 1);

doc.ksLineSeg (j+e, d*2, j+e, d, 1);

doc.ksLineSeg (j+e, d, j, d, 1);

end

else

begin

end;

doc.ksLineSeg (j, d, 0, d+j/cos (f), 1);

end;

end;

procedure make_int (diaf: t_diafragma);

begin

with diaf do

begin

end;

end;

procedure DrawLinDim (_x1,_y1,_x2,_y2,_xd,_yd: extended; zd: boolean = false);

var

param: ksLDimParam;

dPar: ksDimDrawingParam;

sPar: ksLDimSourceParam;

tPar: ksDimTextParam;

str: ksChar255;

arrText: ksDynamicArray;

obj: Reference;

begin

param := ksLDimParam (kompas.GetParamStruct (ko_LDimParam));

if param = nil then

Exit;

dPar := ksDimDrawingParam (param.GetDPar);

sPar := ksLDimSourceParam (param.GetSPar);

tPar := ksDimTextParam (param.GetTPar);

if ((dPar = nil) Or (sPar = nil) Or (tPar = nil)) then

Exit;

dPar.Init;

dPar.textBase := 0;

dPar.pt1 := 1;

dPar.pt2 := 1;

dPar.ang := -30;

dPar.lenght := 20;

sPar.Init;

sPar.x1 := _x1;

sPar.y1 := _y1;

sPar.x2 := _x2;

sPar.y2 := _y2;

sPar.dx := _xd;

sPar.dy := _yd;

sPar.basePoint := 1;

tPar.Init (False);

tPar.SetBitFlagValue (_AUTONOMINAL, true);

if zd then

tPar.sign := 1

else tpar. sign:=0;

str := ksChar255(kompas.GetParamStruct (ko_Char255));

arrText := ksDynamicArray (tPar.GetTextArr);

if ((str = nil) Or (arrText = nil)) then

Exit;

obj := doc. ksLinDimension (param);

end;

procedure DrawRadDimt (_x,_y,_r: extended; _ang: word);

var

cir, obj: Reference;

aDim: ksRDimParam;

textLine: ksTextLineParam;

textItem: ksTextItemParam;

tPar: ksDimTextParam;

arr, arr1: ksDynamicArray;

sPar: ksRDimSourceParam;

dPar: ksRDimDrawingParam;

begin

aDim := ksRDimParam (kompas.GetParamStruct (ko_RDimParam));

textLine := ksTextLineParam (kompas.GetParamStruct (ko_TextLineParam));

textItem := ksTextItemParam (kompas.GetParamStruct (ko_TextItemParam));

if ((aDim = nil) Or (textLine = nil) Or (textItem = nil)) then

Exit;

textLine.Init;

textItem.Init;

tPar := ksDimTextParam (aDim.GetTPar);

arr := ksDynamicArray (textLine.GetTextItemArr);

sPar := ksRDimSourceParam (aDim.GetSPar);

dPar := ksRDimDrawingParam (aDim.GetDPar);

if ((tPar = nil) {Or (font = nil)} Or (sPar = nil) Or (dPar = nil)) then

Exit;

tPar.Init (true);

tPar.SetBitFlagValue (_AUTONOMINAL, true);

tPar.sign := 3;

arr.ksAddArrayItem (-1, textItem);

arr1 := ksDynamicArray (tPar.GetTextArr);

if (arr1 = nil) then

Exit;

arr1.ksAddArrayItem (-1, textLine);

sPar.Init;

sPar.xc := _x;

sPar.yc := _y;

sPar.rad := _r;

dPar.Init;

dpar.textPos:=1;

dpar.ang:=_ang;

dpar.pt1:=1;

obj:=doc.ksRadDimension (aDim);

end;

end.