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

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

2015-09-08

1.01 MB

54 чел.


Поделитесь работой в социальных сетях

Если эта работа Вам не подошла внизу страницы есть список похожих работ. Так же Вы можете воспользоваться кнопкой поиск


Федеральное агентство по образованию

Государственное образовательное учреждение

высшего профессионального образования

Тульский государственный университет

Кафедра: «Автоматизированные станочные системы»

дипломный проект

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

специальность 230104

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

Тема: «Автоматизация проектирования диафрагм

в устройствах измерения расхода жидкостей и газов»

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

                                                                                 (подпись, дата)                                  (фамилия, инициалы)

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

                                                                                 (подпись, дата)                                  (фамилия, инициалы)

Консультанты по разделам:        

специальности                                                                            Троицкий Д,И.                     

                                                                                 (подпись, дата)                                  (фамилия, инициалы)

организационно-экономическому                                               Тарасова Г.М.

                                                                                          (подпись, дата)                            (фамилия, инициалы)

охране труда и окружающей


реды
среды                                                                                      Машинцов Е.А.     

                                                                                 (подпись, дата)                                  (фамилия, инициалы)

Заведующий кафедрой                                                             Иноземцев А.Н.

                                                                                 (подпись, дата)                                  (фамилия, инициалы)

     

Тула, 2015 г.



АННОТАЦИЯ

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

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

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

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

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

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

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

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

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

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

Пояснительная записка (ПЗ) содержит 88 страниц формата А4.

Приложение содержит 20 страниц формата А4.

Презентационная часть проекта содержит 18 слайдов.


Содержание:

[0.1] 1.1. Актуальность

[0.2]
1.2. Постановка задачи

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

[1.1] 2.1. Теоретические основы принципа измерения методом переменного перепада давления

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

[1.2.1] 2.2.1. Границы применения

[1.2.2] 2.2.2. Геометрические размеры стандартной диафрагмы

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

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

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

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

[4.1] 5.1. Стандартная диафрагма

[4.1.1] 5.1.1. Расчет диаметра отверстия  

[4.1.2] 5.1.2. Расчет коэффициентов

[4.1.2.1] 5.1.2.1. Коэффициенты истечения

[4.1.2.2] 5.1.2.2. Коэффициент расширения

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

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

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

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

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

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

[5.3] 6.3. Сравнительный анализ

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

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

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

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

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

[8.2.1] 9.2.1. Затраты времени ЭВМ на внедрение и отладку

[8.2.2] 9.2.2. Расчёт себестоимости программного продукта

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

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

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

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

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

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

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

[9.3.2] 10.3.2. Микроклимат воздуха.

[9.3.3] 10.3.3. Производственное освещение

[9.3.4] 10.3.4. Шум.

[9.3.5] 10.3.5. Эргономика организации рабочего места и режима труда

[9.3.6] 10.3.6. Защита от электромагнитных полей, статического электричества, излучений

[9.3.7]
10.3.6. Электробезопасность

[9.3.8] 10.3.7. Пожарная безопасность

[9.4] 10.3.8. Охрана окружающей среды

[9.5] 10.4. Заключение

[10]
Библиографический список:

[11]
Приложение 1

[12]
Приложение 2

[13] Приложение 3


1. Введение

1.1. Актуальность

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

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

  1.  горно-химическая (добыча минерального сырья: апатиты, фосфориты, сера).
  2.  основная химия (получение кислот, щелочей, солей, минеральных удобрений).
  3.  химия органического синтеза (производство углеводородного сырья и полуфабрикатов для получения полимерных материалов).
  4.  химия полимеров (производство смол, пластмасс, синтетического каучука и химических волокон).
  5.  переработка полимерных материалов (изготовление шин, резины, полиэтиленовой пленки).
  6.  производство синтетических красителей и химических веществ.

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

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

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

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

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


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


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

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


1.2. Постановка задачи

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

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

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

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

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

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

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

Техническое задание на разработку САПР

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

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

  •  название системы – «Автоматизация проектирования диафрагм в устройствах измерения расхода жидкостей и газов»
    •  разработчик – Данильченко Н.С., заказчик – НИАП;
    •  плановые сроки начала и окончания работы по созданию системы: 9.02.09 – 20.05.09.

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

  •  назначение системы: автоматизация проектирования стандартных диафрагм и диафрагм с коническим входом с целью получения параметров диафрагм с учетом минимизации длины прямолинейных участков трубопровода, выполнение расчета в соответствии с требованиями ГОСТ 8.586.1-2014 и ГОСТ 8.586.2-2014, автоматизированное оформление конструкторской документации на диафрагму.    
  •  цели создания системы: сокращение времени на разработку проекта, получение наиболее оптимальных результатов (диаметр отверстия диафрагмы).
    1.  Характеристики объекта автоматизации:
  •   перечень документов, содержащих информацию об объекте автоматизации: ГОСТ 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 Гб.


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

2.1. Теоретические основы принципа измерения методом переменного перепада давления

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

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

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

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

Рисунок 2.1 - Изменение давления р и средней скорости v потока

при прохождении через диафрагму

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

,     (2.1)

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

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

    (2.2)

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

,   (2.3)

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

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

     (2.4)

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

   (2.5)

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

2.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Л.

2.2.1. Границы применения

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

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

d  0,0125 м;

0,050 м  D  1 м;

0,1    0,75,

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

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

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

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

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

0,006 м d  0,050 м;

0,0125 м  D  0,1 м;

Значения граничных чисел Re

Таблица 2.1.

0.01

40

20000

0.04

40

40000

0.09

60

50000

0.16

120

50000

0.25

260

50000

2.2.2. Геометрические размеры стандартной диафрагмы1

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

1 - входной торец диафрагмы; 2 - выходной торец диафрагмы

Рисунок 2.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.

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

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

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

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

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

Таблица 2.2.

F

d/J

0.10

0.12

0.14

0.16

0.18

0.20

0.22

0.24

0.26

0.28

0.30

0.32

0.34

0.36

0.38

0.40

0.41

0.42

0.43

0.44

0.45

0.46

0.47

0.48

0.49

0.50

45

45

45

45

45

45

44.8

44.5

44.1

43.6

43.0

42.2

41.6

40.8

40.0

39.1

38.6

38.1

37.5

36.9

36.1

35.4

34.4

33.3

32.2

31.2

12

11.8

11.7

11.6

11.5

11.4

11.2

11.1

10.9

10.8

10.7

10.5

10.4

10.3

10.2

10.0

10.0

9.9

9.8

9.8

9.7

9.6

9.6

9.4

9.3

9.2

  •  угол входа F выбирают в зависимости от относительной площади диафрагмы . Допуск на угол равен ±0,03F.
  •  значение величины F и d/J для промежуточных  необходимо выполнять по методу линейной интерполяции.
  •  общая толщина Е диафрагмы должна находится в пределах e+J≤Е≤0.1D


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

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

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

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

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

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

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

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

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

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

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

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

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

после внедрения ПО

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

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

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

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

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

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


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

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

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

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

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

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

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

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

Свойства:

Таблица 4.1

Смысл

Наименование

Тип

данных

Диапазон

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

b

real

Минимальный массовый расход

qmin

real

максимальный массовый расход

qmax

real

Абсолютное давление среды

p

real

Допустимая потеря давления

pper

real

Плотность среды

r

real

Динамическая вязкость среды

m

real

Температура среды

t

byte

0..255

Показатель адиабаты

k

real

Cреднеарифметическое отклонение профиля шероховатости

Ra

real

постоянные коэффициенты

a0, a1, a2

real

Диаметр трубопровода

D

real

Диаметр отверстия диафрагмы при 20С

d20

byte

0..255

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

dcy

byte

0..255

Максимальное число Рейнольдса

remax

real

Минимальное число Рейнольдса

remin

real

Верхняя граница числа Рейнольдса

rev

real

Нижняя граница числа Рейнольдса

ren

real

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

el

real

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

E

real

Угол входа

F

byte

0..255

Глубина скоса

J

real

Какая среда (газ/жидкость)

gaz

boolean

True, false

Методы:

Таблица 4.2

Смысл

Наименование

Исходные

данные

Результат

Расчет максимального/минимального числа Рейнольдса (станд./кон.)

calcRemaxmin

calcRemaxminkon

qmaxmin:real

real

Расчет нижней и верхней границы числа Рейнольдса (станд./кон.)

calcRe

calcRevn

b:real

beta,betan,betav,

renbl,revbl:real

real

Расчет вспомoгательной величины А

Pасчет вспомoгательной величины B

calcA

calcB

b:real

b:real

real

Pасчет коэффициента истечения С

calcC

b:real

real

Pасчет коэффициента скорости входа Е

calcE

b:real

real

Pасчет коэффициента расширения Ерs

calcEps

b:real

real

Расчет поправочного коэффициента, учитывающего шероховатость внутренней поверхности ИТ

calcK

b:real

real

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

calcAlfa

t:real

real

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

calcd

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

calccondiaf

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

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

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


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

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

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

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

  •  qm min, qm max - минимальный и максимальный массовый расход, ;
  •  Dpв – допустимая потеря давления (верхний предел), ;
  •  p - давление среды, ;
  •  t- температура среды, °С;
  •  для газа дополнительно — k (показатель адиабаты).

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

  •  D - внутренний диаметр трубопровода, м;
  •  вид труб и материал;
  •  состояние поверхности стенки трубопровода и условия эксплуатации.

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

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

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

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

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

Reв  Remax ,  Reн  Remin    (5.1)

;    (5.2)

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

pв0,25p       (5.3)

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

1 = (B1 - A) / A     (5.4)

 2 = (B2 - A) / A     (5.5)

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

где

;                                                  (5.7)

,                                                 (5.8)

где E1, E2 — коэффициенты скорости входа при в и н, соответственно;

C1 — коэффициент истечения при Remax и в;

C2 — коэффициент истечения при Remax и н;

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

Kш1 — поправочный коэффициент Kш при Remax и в 

Kш2 — поправочный коэффициент Kш при Remax и н 

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

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

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

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

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

A = ECKш Kп 2 .                                                     (5.9)

где

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

;                                                     (5.10)

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

d20 =  D / Kcy.                                                         (5.11)

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

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

d = d20 Kcy       (5.12)

Kcy = 1 + t cy (t - 20),                                                      (5.13)

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

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

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

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

 (5.14)

, ,

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

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

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

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

                              (5.15)

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

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

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

                 (5.16)

где А0, А1, А2 - коэффициенты, зависящие от числа Re, рассчитывают по формуле

Аj = [lg(Re)]k.                                           (5.17)

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

Значения коэффициентов Вk

Таблица 5.1.

Коэффициент

Значение коэффициента для расчета

А0

А1

А2

при условии 104 < Re 105

В0

8,87

6,7307

-10,244

В1

-3,7114

-5,5844

5,7094

В2

0,41841

0,732485

0,76477

В3

0

0

0

при условии 105 < Re  3106

В0

27,23

-25,928

1,7622

В1

-11,458

12,426

-3,8765

В2

1,6117

-2,09397

1,05567

В3

-0,07567

0,106143

-0,076764

при условии 3106 < Re  108

В0

16,5416

322,594

-92,029

В1

-6,60709

-132,2

37,935

В2

0,88147

17,795

-5,1885

В3

-0,039226

-0,799765

0,23583

Если в результате расчета, выполненного по формуле (5.16), полученное значение 104  15, то принимают Ramax = 15104D.

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

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

      (5.18)

Если в результате расчета, выполненного по формуле (5.18), получено значение 1040 или число Re < 3106, то принимают Ramin = 0.

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

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

Kш = 1 + 5,223,5( - *),                          (5.19)

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

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

 (5.20)

где Аш, kD, kR – величины, значения которых рассчитывают в соответствии с таблицей 5.2.

Значения величин Аш, kD, kR

Таблица 5.2

Величина

Значение величины для расчета

*

Аш

Rш или Ra

Ramax при Ra > Ramax;

Ramin при Ra < Ramin

kD

0,26954Rш/D

0,26954Ramax/D при Ra > Ramax; 0,26954Ramin/D при Ra < Ramin

kR

5,035/Re

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

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

t = 10-6 [a0 + a1 (t / 1000) + a2 (t / 1000)2],            (5.21)

где a0, a1, a2 — постоянные коэффициенты, определяемые в соответствии с приложением 2.

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

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

Стандартный ряд по ГОСТ 18140-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 °С :    

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

      

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

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

6.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,7105 2D = 1,7105 *(0,1)2 * 0.05=85000,

Reв = 1,7105 2D = 1,7105 *(0,75)2 * 0.05=4781250

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

;  

  

 и проверяем выполнение неравенств Reв  Remax    4781250 374901

                                                                      Reн  Remin,      85000 209945

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

 

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

в  = 0.75 

н = 0.1

  1.  Рассчитываем значения вспомогательных величин B1 и B2 

где E1, E2 — коэффициенты скорости входа при в и н, соответственно;

C1 — коэффициент истечения при Remax и в;

C2 — коэффициент истечения при Remax и н;

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

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

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

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

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

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

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

          

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

 

;

, ,

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

Аj = [lg(Re)]k.                                                     

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

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

 при  

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

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

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

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

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

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

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

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

A = ECKш Kп 2 .

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

1 итерация:

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

- для значения рассчитывают значение вспомогательной величины B по формуле: B = ECKш Kп 2   

В = 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н =85000,

Reв = 1,7105 2D = 1,7105 *(0,18125)2 * 0.05=279238

и проверяем выполнение неравенств Reв  Remax    278239 374901

                                                                      Reн  Remin,      85000 209945

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

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

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

= 25

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

= 0,1

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

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

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

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

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

;  

  

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

                                                                      Reн  Remin,     

Вычисляем отношение   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 [a0 + a1 (t / 1000) + a2 (t / 1000)2],            

где a0, a1, a2 — постоянные коэффициенты, определяемые в соответствии с приложением 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 мм                                                 

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

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

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

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

Верхний предел, βв:       bv= 0,2625

Нижний предел, βн:       bn= 0,1

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

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

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

Коэффициент скорости входа при в:   E1= 1,20948631362953

Коэффициент скорости входа при н:    E2= 1,00005000375031

Коэффициент истечения при Remax и в:    C1= 0,510880915308979

Коэффициент истечения при Remax и н:    C2= 0,600030102848471

Поправочный коэффициент Kш1 при Remax и в:  Kw1= 2,24637376662597

Поправочный коэффициент Kш2 при Remax и н:  Kw2= 1,00066450184988

Коэффициент расширения 1 при в, pв, и p:   eps1= 0,99463078296926

Коэффициент расширения 2 при н, pв, и p:   eps2= 0,996410750916013

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

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

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

Вспомогательная величина, 2:     sigma2= -0,7650466503874

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

Вспомогательная величина, :     sigma= -0,22939747653768

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

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

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

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

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

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

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

Номинальная потеря давления, :   pnom= 0,1
Вспомогательная величина, С:     с= 0б0284705017366871
Вспомогательная величина, β
:    betaalfa= 0,0903539352100

Значение β:        beta= 0,11

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

Нижний предел числа Рейнольдса:     ren= 77,1428571428571

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

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

Отношение :      pnom/p = 0,0142857142857

Отношение:      psr= 0,00869142857142857

Вспомогательный множитель, :   epsilo1= 0,99644309327914

Значение β1:       beta1= 0,119378686296398

Вспомогательный множитель, :   epsilo2= 0,99643287706690

Значение β2:       beta2= 0б119379852088974

Значение-<0,001:             epsilo2-epsilo1= -1,02162122463945E-5

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

Диаметр при 20С:      d20=1,31209494E-5

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

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

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

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

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

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

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


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

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

  •  добро пожаловать!
  •  системные требования;
  •  интерфейс системы;
  •  общие сведения о системе;
  •  приемы работы;
  •  библиотеки;
  •  общие термины и определения;
  •  нормативная документация.

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

Благодарим Вас за приобретение системы «ДИАФ 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 – файлы текстовых документов

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

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

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

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

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

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

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

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

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

- переход на первую запись

- переход на последнюю запись

- перемещение по записям вверх

- перемещение по записям вниз

- добавить запись

- удалить запись

- занести изменения

- отмена

- обновить

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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


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

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

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

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

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

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


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

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

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

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

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

  1.  Амортизацию оборудования ВЦ ().
  2.  Затраты на текущий ремонт оборудования ().
  3.  Амортизацию помещений ().
  4.  Затраты на текущий ремонт помещений ().
  5.  Расходы на электроэнергию и освещение ().
  6.  Расходы на отопление и водоснабжение ().
  7.  Прочие расходы (почта, телефония и т.д.) ().

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

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

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

=14590 руб - стоимость одного компьютера.

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

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

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

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

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

,

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

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

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

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

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

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

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

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

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

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

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

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

,

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

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

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

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

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

                      

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

,

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

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

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

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

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

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

,

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

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

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

9.2.1. Затраты времени ЭВМ на внедрение и отладку

Затраты времени на данной стадии 18 часов.

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

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

Твнедр и отл.= Кобвр = 1,00*18= 18 час, в том числе на внедрение 4 часа (20%).

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Тогда:

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

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

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

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

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

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

Проектирование диафрагмы до внедрения программного продукта составляло 7 дней при средней заработной плате 10000 руб. В год – 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.

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

Профессия

Численность, чел.

Оклад, руб.

Оператор

2

8000

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

1

6000

Итого

3

22000

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

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

,

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

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

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

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

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

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

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

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

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

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

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

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

,

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

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

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

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

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

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

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

                      

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

,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Экономический эффект

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

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

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

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

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

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

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

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

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

руб.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1- вспомогательный стол,

2- стол для ПЭВМ,

3- шкаф,

4-шкаф с документацией,

5-мусорное ведро.

Рисунок 10.1 - Схема размещения оборудования

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

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

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

Таблица 10.1

Параметры микроклимата

Значения параметров

Зимой

Летом

1. Температура, °C

22-24

23-25

2. Скорость воздушных масс, м/с

0,1

0,1-0,2

3. Относительная влажность, %

40-60

40-60

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

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

Расчёт вентиляции

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

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

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

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

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

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

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

,

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

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

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

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

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

Поступление тепла через наружные ограждающие конструкции от солнечной радиации можно определить по формуле

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

S – суммарная площадь окон (одно окно 1,5 х 1,68 м), м2.

Теплопоступления через наружные ограждения вследствие разности температур определяются по формуле

где К – коэффициент теплоотдачи (16,2 кДж/(м2ч0С));

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

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

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

,

где

Qобор – выделение тепла от оборудования;

Qл – поступление тепла от людей;

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

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

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

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

     

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

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

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

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

tу tп – температура уходящего и приточного воздуха, 0С.

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

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

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

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

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

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

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

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

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

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

,

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

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

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

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

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

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

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

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

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

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

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

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

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

ламп.

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

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

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

10.3.4. Шум.

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

Таблица 10.2. Допустимые уровни шума

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

Рабочие места

Уровни звукового давления, дБ, в октавных полосах со среднегеометрическими частотами (Гц)

Уровни звука и эквива-лентные уровни звука (дБа)

63

125

250

500

1000

2000

4000

8000

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

71

61

54

49

45

42

40

38

50

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

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

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

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

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

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

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

Таблица 10.3

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

Источник шума

Уровень шума, производимый одним источником

Количество источников шума

Общий уровень шума

Монитор

17

2

34

Клавиатура

9

2

18

Жёсткий диск

32

2

64

Вентилятор

27

2

54

Принтер

45

1

45

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

L=10·lg(103,4+101,8+106,4+105,4+104,5)=65 дБ

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

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

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

- снижение шума в источнике (в наше время можно приобрести более быстрые и менее шумные комплектующие для ЭВМ. Например, установка вентиляторов Silent);

- правильная планировка оборудования и рациональная организация рабочего места оператора.

Проведем перерасчет шума после применения вентиляторов типа Silent, облицовка стен снизит шум на 10-15дБ:

Таблица 10.4

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

Источник шума

Уровень шума, производимый одним источником

Количество источников шума

Общий уровень шума

Монитор

17

2

34

Клавиатура

9

2

18

Жёсткий диск

32

2

64

Принтер

45

1

45

L=10·lg(103,4+101,8+106,4+104,5)-15=49 дБ

Таким образом уровень шума не превышает допустимый.

10.3.5. Эргономика организации рабочего места и режима труда

Организация рабочего места оператора ПЭВМ

Высота стола с клавиатурой

62 – 88 см над уровнем стола

Высота экрана (над полом)

90 – 128 см

Наклон экрана

от – 15 до + 20° по отношению к нормальному его положению

Расстояние от экрана до края стола

40 – 115 см

Наклон тела назад, обусловленный положением спинки кресла

97 - 121°

Клавиатуру следует делать отдельно он экрана и подвижной. Усилие нажима на клавиши должно лежать в пределах 0,25 – 1,5 Н, а ход клавишей – 1 – 5 мм.

Для качественной и эффективной работы на компьютере следует учитывать размеры знаков, плотность их размещения, контраст и соотношение яркостей символов и фона экрана. При расстоянии от глаз оператора до экрана дисплея 60 – 80 см высота знака должна  быть  не менее 3 мм, а расстояние между знаками 15 – 20 % их высоты. Соотношение яркости фона экрана и символов – от 1 : 2 – 1 : 5 до 1 : 10 – 1 : 15.

Рисунок 10.3 - Схема посадки человека при палочковой структуре, вид сбоку.

Рисунок 10.4 - Схема рабочего места оператора, вид сбоку.

Сведения о регламентированных перерывах, которые необходимо делать при работе на компьютере, в зависимости от продолжительности рабочей смены, видов и категорий трудовой деятельности с ПЭВМ (в соответствии с СанПиН 2.2.2 542-96) представлены в таблице 10.5.

Таблица 10.5

Время регламентированных перерывов при работе на компьютере

Категория работы с ПЭВМ

Уровень нагрузки в смену при видах работы с ПЭВМ

Суммарное время регламентированных перерывов, мин.

Группа А, количество знаков

Группа Б, количество знаков

Группа В, час

При

8-часовой смене

При

12-часовой смене

I

до 20 000

до 15 000

до 2,0

30

70

II

до 40 000

до 30 000

до 4,0

50

90

III

до 60 000

до 40 000

до 6,0

70

120

Примечание: время перерывов дано при соблюдении указанных Санитарных правил и норм. При несоответствии фактических условий труда требованиям Санитарных правил и норм время регламентированных перерывов следует увеличить на 30 %.

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

Эффективность перерывов повышается при их сочетании с производственной гимнастикой.

10.3.6. Защита от электромагнитных полей, статического электричества, излучений

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

К основным видам излучения относятся:

- электростатическое поле монитора, возникающее из-за конструкции ЭЛТ, которая является основным компонентом монитора;

- рентгеновское излучение;

- ближнее ультрафиолетовое излучение люминофора ЭЛТ;

- электромагнитные поля, создаваемые ПЭВМ.

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

Таблица 10.6.

 #G0Временные допустимые уровни ЭМП,

создаваемых ПЭВМ на рабочих местах

Наименование параметров

ВДУ

Напряженность

в диапазоне частот 5 Гц-2 кГц

25 В/м

электрического поля

в диапазоне частот 2 кГц-400 кГц

2,5 В/м

Плотность магнитного

в диапазоне частот 5 Гц-2 кГц

250 нТл

потока

в диапазоне частот 2 кГц-400 кГц

25 нТл

Напряженность электростатического поля

15 кВ/м

Основным источником излучений в данном случае является монитор. Однако в помещении установлены жидкокристаллические мониторы Samsung. Мониторы удовлетворяют требованиям стандарта ТСО`03, регламентирующего взаимодействие ПЭВМ с окружающей средой и направленного на уменьшение вредного влияния излучений до технически возможного уровня. Данный стандарт устанавливает более жесткие требования, нежели СанПиН 2.2.2/2.4.1340-03.

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

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


10.3.6. Электробезопасность

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

с напряжением до 1000 В;

с напряжением выше 1000 В.

Установки с напряжением более 1000 В обслуживаются только специалистами.

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

  1.  электрические травмы (ожоги, металлизация кожи, механические повреждения);

электрические удары.

Последствия воздействия электрического тока по своей тяжести воздействия делятся на:

  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), следовательно параметры заземлителей были выбраны верно.

10.3.7. Пожарная безопасность

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

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

Рассматриваемое в данном проекте рабочее помещение по взрывопожарной и пожарной опасности в соответствии с СНиП 2.09.02-85 «Производственные здания» относится к категории помещений Д.

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

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

  •  ненадежную работу электронных блоков, из которых состоит ПЭВМ, при отклонении реальных условий эксплуатации от заданных;
  •  пробой изоляции;
  •  короткое замыкание;
  •  нарушение правил пожарной безопасности.

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

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

К первичным средствам пожаротушения на рабочем месте с ПК относят следующие виды углекислотных огнетушителей: ручные – ОУ-2А, ОУ-5, ОУ-8 и передвижные – ОУ – 25, ОУ – 80, ОУ – 400. Их используют для тушения загораний электрических установок, работающих под напряжением до 1000 В.

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

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

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

В рассматриваемом случае следует использовать тепловые или дымовые извещатели.

Рисунок 10.5 – схема размещения извещателей

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

В соответствии со СНиП II-2-80 число эвакуационных выходов из зданий, помещений и с каждого этажа зданий определяется расчётом, но должно быть не менее двух. Ширина участков путей эвакуации должна быть не меньше 1м, а дверей на путях эвакуации – не менее 0,8 м.

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

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

Рисунок 10.6 – план эвакуации

10.3.8. Охрана окружающей среды

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

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

Загрязнение - привнесение в какую-либо среду новых не характерных для неё веществ или превышение естественного среднемноголетнего уровня концентрации этих агентов в среде. Непосредственными объектами загрязнения служат атмосфера, вода, почва. Косвенными объектами загрязнения (жертвами загрязнения) оказываются растения, животные, микроорганизмы, человек.

Различают следующие виды загрязнений:

  •  Биологическое — загрязнителем являются не свойственные экосистеме организмы;
  •  Микробиологическое;
  •  Механическое — загрязнение химически инертным мусором, протаптывание тропинок и прочее механическое воздействие на среду;
  •  Химическое — загрязнителем являются вредные химические соединения;
  •  Физическое;
  •  Тепловое — излишний нагрев среды;
  •  Шумовое;
  •  Электромагнитное;
  •  Радиоактивное — превышение естественного радиоактивного фона;

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

10.4. Заключение

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

Организация производственного помещения: размер кабинета составляет 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 Принцип метода измерений и общие требования
    1.  ГОСТ 8.586.2-2014 «ИЗМЕРЕНИЕ РАСХОДА И КОЛИЧЕСТВА ЖИДКОСТЕЙ И ГАЗОВ С ПОМОЩЬЮ СТАНДАРТНЫХ СУЖАЮЩИХ УСТРОЙСТВ» Часть 2 Диафрагмы. Технические требования
      1.  РД 50-411-83 «Методические указания. Расход жидкостей и газов. Методичка выполнения измерений с помощью специальных сужающих устройств»
        1.  СанПиН 2.2.2./2.4.1340-03 "Гигиенические требования к персональным электронно-вычислительным машинам и организации работы"
        2.  ГОСТ 12.01.005-88 «Общие санитарно-гигиенические требования к воздуху санитарной рабочей зоны»
        3.  ГОСТ 12.1.003-83 «Шум. Общие требования безопасности»
        4.  СНиП 2.01.02-85 «Противопожарные нормы проектирования зданий и сооружений»
        5.  СНиП 31-03-2001 «Производственные здания»
        6.  СанПин 2.2.2.542-96 «Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работ»
        7.   СНиП 23-05-95 «Естественное и искусственное освещение»
        8.  Андронов И. В. Измерение расхода жидкостей и газов. — М.: Энергоиздат, 1981. — 88 с
        9.  Кулаков М.В. Технологические измерения и приборы для химических производств. - М.:Машиностроение.-1983.
        10.  Типовые нормы времени на программирование задач для ЭВМ. – М.: Экономика, 2013.
        11.  Методические указания по выполнению КР (ККР) по курсу “Организация и планирование производства” / А. В. Огнянович. – Тула: ТулГУ, 2011. – 20 с.


Приложение 1

Шероховатость внутренней поверхности трубопроводов

Значения эквивалентной шероховатости Rш, среднеарифметического отклонения профиля шероховатости Ra и относительной расширенной неопределенности

Вид труб и материал

Состояние поверхности стенки ИТ и условия эксплуатации

Значения

Rш·103, м

Ra·103, м

Цельнотянутые трубы из латуни, меди, алюминия, пластмассы

Технически гладкая, без отложений

0,03

0,01

100

Стеклянные

Чистая

0,01

0,003

100

Трубы из нержавеющей стали

Новая

0,03

0,01

100

Цельнотянутые стальные:

- холоднотянутые

0,03

0,01

100

- горячетянутые

Новая

0,10

0,03

100

- прокатные

0,10

0,03

100

Цельносварные стальные:

- прямошовные

Новая

0,10

0,03

100

- со спиральным швом

0,10

0,03

100

Стальные трубы

С незначительным налетом ржавчины

0,15

0,045

33

Ржавая

0,25

0,08

20

Покрытая накипью

1,25

0,375

60

Сильно покрытая накипью

2

0,6

100

Битумизированная, новая

0,04

0,0125

20

Битумизированная, бывшая в эксплуатации

0,15

0,045

33

Оцинкованная

0,13

0,04

100

Чугун

Новая, не бывшая в эксплуатации

0,25

0,08

100


Приложение 2

Значения постоянных коэффициентов a0, a1, a2 и границы области применения формулы (5.21)

Марка стали

Значения постоянных коэффициентов

Границы области применения формулы (21)

a0

a1

a2

min

max

35Л

10,260

14,000

0

-40

700

45Л

11,600

0

0

-40

100

20ХМЛ

9,830

18,812

-14,191

-40

600

12Х18Н9ТЛ

16,466

5,360

3,000

-40

700

15К, 20К

10,800

10,000

0

-40

600

22К

9,142

34,340

-43,526

-40

400

16ГС

9,903

20,561

-15,675

-40

600

09Г2С

10,680

12,000

0

-40

500

10

10,800

9,000

-4,200

-200

700

15

11,100

7,900

-3,900

-200

700

20

11,100

7,700

-3,400

-200

700

30,35

10,200

10,400

-5,600

-200

700

40,45

10,821

17,872

-10,986

-40

700

10Г2

9,940

22,667

0

-40

400

38ХА

12,345

5,433

5,360

-40

600

40Х

10,819

15,487

-9,280

-40

700

15ХМ

11,448

12,638

-7,137

-200

700

30ХМ, 30ХМА

10,720

14,667

0

-200

500

12Х1МФ

10,000

9,600

-6,000

-200

700

25X1МФ

10,235

18,640

-13,000

-40

600

25Х2М1Ф

12,020

8,000

0

-40

600

15Х5М

10,100

2,700

0

-200

700

18Х2Н4МА

11,065

11,224

-5,381

-40

600

38ХН3МФА

11,446

9,574

-4,945

-40

700

08X13

9,971

9,095

-4,115

-40

800

12X13

9,557

11,067

-5,000

-40

800

20X13

9,520

11,333

0

-40

600

30X13

9,642

9,600

-4,472

-40

800

110Х14Г14Н4Т

15,220

13,000

0

-40

900

08X18Н10

15,325

11,250

0

-40

500

12X18Н9Т

15,600

8,300

-6,500

-200

700

12Х18Н10Т, 12Х18Н12Т

16,206

6,571

0

-40

900

08Х18Н10Т

15,470

10,500

0

-40

700

08Х22Н6Т

6,400

60,000

0

-40

300

37Х12Н8Г8МФБ

15,800

0

0

-40

100

31Х19Н9МВБТ

16,216

6,400

0

-40

1000

06ХН28МДТ

9,153

30,944

-26,478

-40

600

20Л

11,660

9,000

0

-40

700

25Л

10,750

12,500

0

-40

500

Приложение 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.00734) 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,20000),

(0.04,40,40000),

(0.09,60,50000),

(0.16,120,50000),

(0.25,260,50000)

               );

        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.00734) 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.000001*(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:=170000*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(19000*b/calcRemaxmin(qmax),0.8);

l:=0.0254/D;

m1:=2*l/(1-b);

if D<0.07112 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.000521*power(1000000*b/calcRemaxmin(qmax),0.7)+(0.0188+0.0036*a)*power(b,3.5)*power(1000000/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.41841,0/732485,0.76477),

(0,0,0),

(27.23,-25.928,1.7622),

(-11.458,12.426,-3.8765),

(1.6117,-2.09397,1.05567),

(-0.07567,0.106143,-0.076764),

(16.5416,322.594,-92.029),

(-6.60709,-132.2,37.935),

(0.88147,17.795,-5.185),

(-0.039226,-0.799765,0.23583)

);

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)>10000) and (calcRemaxmin(qmax)<=100000) 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)>100000) and (calcRemaxmin(qmax)<=3000000) 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)>3000000) and (calcRemaxmin(qmax)<=100000000) 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)<=10000 then Ramax:=(0.718866*power(b,-3.887)+0.364)/10000*D;

if (calcRemaxmin(qmax)>10000) and (b<0.65) then Ramax:=(a01*power(b,a11)+a21)/10000*D;

if (calcRemaxmin(qmax)>10000) and (b>=0.65) then Ramax:=(a01*power(0.65,a11)+a21)/10000*D;

if b<0.65 then Ramin:=(7.1592-12.387*b-(2.0118-3.469*b)*log10(calcRemaxmin(qmax))+(0.1382-0.23762*b)*power(log10(calcRemaxmin(qmax)),2))/10000*D;

if b>=0.65 then Ramin:=(-0.892353+0.24308*log10(calcRemaxmin(qmax))-0.0162562*power(log10(calcRemaxmin(qmax)),2))/10000*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.26954*pi*Ra/D-5.035/calcRemaxmin(qmax)*log10(0.26954*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.26954*pi*Ramax/D-5.035/calcRemaxmin(qmax)*log10(0.26954*pi*Ramax/D+3.3333*5.035/calcRemaxmin(qmax)))),-2);

 if Ra<Ramin then

 l2:=power(1.74-2*log10(2*pi*Ramin/D-37.36*log10(0.26954*pi*Ramin/D-5.035/calcRemaxmin(qmax)*log10(0.26954*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.00005 then break

               else

                begin

                g:=g+1;

                 if B<calcA then bn:=b else bv:=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,d1/2,b-dt,d1/2-dw,dt+dd-r,0,true);

   DrawLinDim(b,d1/2,b,-d1/2,dd+ddd,0,true);

   DrawLinDim(b-r,de/2,b-r,-de/2,dd+ddd*2,0, true);

   DrawLinDim(dt,d1/2-dw,dt+l,d1/2-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.

1 Для стандартной диафрагмы условия приведены в соответствии с ГОСТ 8.586.2-2014



 

Другие похожие работы, которые могут вас заинтересовать.
2735. Интеллектуальные технологии проектирования информационных систем. Методика проектирования программных продуктов в условиях наличия прототипа 115.24 KB
  На примере концептуального проектирования автоматизированной информационной системы осуществляющей экспертизу аудио продукции представим общую методику создания проекта информационной системы. Целью создания автоматизированной системы является разработка инструмента для проведения качественной объективной экспертизы аудио продукции в соответствии с ФЗ №436 О защите детей от информации причиняющей вред их здоровью и развитию. В качестве объекта исследования будет выступать аудио продукция. Под деструктивной информацией будем понимать...
7970. Контроль расхода 134.86 KB
  Основной единицей объема жидкости газа принимается кубический метр м3. Основной единицей массы жидкости газа принимается килограмм кг. Количество жидкости газа с равной степенью точности может быть измерено и объемным и массовым методом т. плотность жидкости газа при определенной температуре является величиной постоянной характерной для каждой данной жидкости газа.
9440. Общие сведения о приемо-передающих устройствах систем управления средствами поражения 2.8 MB
  Электрическая копия первичного сообщения ток или напряжение подлежащего передаче называется управляющим сигналом и обозначается при аналитической записи символами или . Название обусловлено тем что этот сигнал в дальнейшем управляет одним или несколькими из параметров высокочастотных колебаний в процессе модуляции. Спектры управляющих сигналов в этой связи лежат в области низких частот и эффективно излучены быть не могут.
597. Классификация горючих жидкостей по температуре вспышки 9.09 KB
  Несгораемые материалы которые при воздействии огня или высокой температуры не воспламеняются не тлеют и не обугливаются. К несгораемым относятся все неорганические строительные материалы: бетон железобетон газобетон металл стекло асбест кирпич природные камни цемент известь. Трудносгораемые материалы которые при воздействии огня или высокой температуры с трудом воспламеняются тлеют или обугливаются и продолжают гореть или тлеть при наличии источника огня. К этой группе относят: смешанные строительные...
5306. Расчет расхода воды, требуемого для прекращения горения газового фонтана 205.56 KB
  Общие закономерности кинетического режима горения. Особенности горения газовых струй. расчет расхода воды требуемого для прекращения горения газового фонтана. Пример расчета основных параметров горения и тушения газового фонтана Введение Увеличивающаяся с каждым годом добыча нефти и газа ежегодный объем которой в настоящее время в стране составляет сотни млрд.
13442. Применение технологии вакуумной сушки поверхности холоднокатаной полосы для очистки от смазочно-охлаждающих жидкостей в условиях стана 2500 ЛПЦ-5 ОАО «ММК» 989.61 KB
  В связи с быстрым развитием автомобильной и пищевой промышленности производства машин и приборов бытового назначения сварных труб и гнутых профилей растут требования к качеству поверхности холоднокатаного листа. Качество холоднокатаного листа по отделке поверхности и разнотолщинности еще не всегда находится на уровне лучших зарубежных образцов. Стандартный соединитель с резьбой NPT под подающий трубопровод; другие резьбовые соединители факультативно. Эмульсия нагревается электронагревателями во входной и промежуточной камерах и...
6341. ЭЛЕМЕНТАРНАЯ КИНЕТИЧЕСКАЯ ТЕОРИЯ ГАЗОВ 18.12 KB
  Если даже предположить что в какойто момент времени скорости всех молекул одинаковы по модулю и различаются только по направлению то соударения между молекулами приведет к изменению их скоростей и нарушению равенства скоростей по модулю. Закон распределения по скоростям теплового движения молекул газа находящегося в состоянии термодинамического равновесия впервые был найден Д. Рассмотрим газ содержащий молекул в единице объема.
2278. ЭЛЕМЕНТАРНАЯ МОЛЕКУЛЯРНО-КИНЕТИЧЕСКАЯ ТЕОРИЯ ГАЗОВ 35.23 KB
  объясняются если принять следующие положения молекулярнокинетической теории строения вещества: 1. Все тела состоят из молекул атомов или ионов. Молекулы атомы из которых состоят тела находятся в непрерывном хаотическом движении которое называется тепловым.
12621. Разработка программного обеспечения для расчета термодинамических свойств газов 531.7 KB
  В настоящее время существует довольно разнообразный набор программного обеспечения для расчёта физико-химических свойств газов. Кроме того такие коммерческие продукты имеют тот недостаток что их достаточно сложно встроить в состав разрабатываемого...
373. ИССЛЕДОВАНИЕ ТОКСИЧЕСКИХ ГАЗОВ И ПАРОВ В ВОЗДУХЕ РАБОЧЕЙ ЗОНЫ 946.59 KB
  Время действия опасных концентраций в ЗХЗ зависит от типа и количества выброшенных вылитых аварийноопасных химических выбросов АХОВ а также метеоусловий в районе аварии скорости ветра температуры приземного слоя степени вертикальной устойчивости и может колебаться от нескольких часов до нескольких суток. В результате аварии образуется: первичное облако это часть АХОВ мгновенно в течение 13 мин переходящее в атмосферу; вторичное облако образовавшееся в результате испарения разлившегося вещества с поверхности. Определение...
© "REFLEADER" http://refleader.ru/
Все права на сайт и размещенные работы
защищены законом об авторском праве.