Размещено на http://www.allbest.ru/

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

экология программирование вредный вещество атмосфера

Введение

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

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

В настоящее время математическая экология в своих исследованиях широко применяет компьютерное моделирование.

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

Для этого необходимо:

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

- Выбрать оптимальные алгоритмы решения задачи.

- Разработать компьютерную модель.

Объектом исследования является разработка математической модели для расчёта выброса вредных веществ предприятием.

Предмет исследования - возможности среды программирования Delphi7 для реализации алгоритмов решения экологических задач на ПК.

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

Уровень исследования -теоретико - эмпирическим.

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

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

Глава 1. Компьютер

1.1 Методические основы расчетов вредных веществ

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

- по точным (произвольным) значениям метеопараметров,

- по интервалам изменения параметров ветра;

- значениям метеопараметров, измеренным на стационарных постах или метеостанции.

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

Измерения на метеостанции проводятся на высоте флюгера (около 12 метров), а на постах ЦГМС - на высоте 2 м над уровнем земли. Поэтому данные с метеостанции наиболее репрезентативны для расчетов рассеивания, в то время как на измерения на постах оказывает влияние прилегающая городская застройка и локальная турбулентность (местный ветер). Для расчетов могут использоваться данные о количестве выбросов любых загрязняющих веществ (например, CO, NOx, SO2), зафиксированных системами непрерывного контроля и учета выбросов. При этом информация, поступающая на вход системы, предварительно собирается от газоанализаторов и расходомеров и обрабатывается в АСУ производственных агрегатов в ходе технологического процесса на соответствующую дату. В случае отсутствия нужной информации на анализируемую дату расчет выбросов проводится по значениям соответствующих ПДВ на основе исходной инвентаризации в базе данных. Основой модели расчета приземных концентраций является «Методика расчета концентраций в атмосферном воздухе вредных веществ, содержащихся в выбросах предприятий» (ОНД-86), позволяющая учитывать текущие метеорологические параметры, влияющие на рассеивание вредных веществ в атмосфере. Имеется также возможность учета в данной модели эффектов самоочищения атмосферы и вымывания примесей осадками. Проведение расчетов с учетом данных эффектов дает более тесную сходимость результатов с измеренными концентрациями на постах контроля атмосферы по сравнению со стандартной ОНД-86, что говорит о необходимости проведения дополнительных научных исследований при оценке качества атмосферы для территории.

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

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

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

Для построения прогнозных концентраций и метеопараметров в системе использован метод «Гусеница»-SSA, для приближения гистограммы логарифмически нормальным распределением - метод наименьших квадратов для нелинейной задачи. Система позволяет формировать различные выходные формы в формате Microsoft Excel и выводить графическую информацию на принтер с заданием соответствующих параметров печати. Важным информационным звеном системы мониторинга и прогноза загрязнения атмосферы является геоинформационная подсистема (ГИС) на основе программного обеспечения ArcGIS от мирового лидера ESRI (США). Она обеспечивает ввод, обработку, интерпретацию и отображение пространственно-координированных данных для их эффективного анализа и решения задач моделирования экологической ситуации. Специфической особенностью ГИС является тесная интеграция модулей, обеспечивающих ведение геоинформационной базы данных, с модулями математического моделирования загрязнения атмосферы. Используемая математическая модель получает исходные данные из базы данных ГИС, а результаты ее работы заносятся обратно в эту базу в виде соответствующих картографических и фактографических информационных слоев.

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

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

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

Среднесуточная ПДК - устанавливается для предупреждения общетоксического, канцерогенного, мутагенного и другого влияния вещества на организм человека.

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

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

Большое влияние на рассеивание загрязняющих веществ в атмосфере оказывает распределение температуры по вертикали - стратификация атмосферы.

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

1) чем выше труба, тем больше сечение дымового факела в точке прикосновения его к земле и во всех дальнейших точках;

2) чем ниже труба, тем ближе наблюдательная точка к осевой линии факела, где концентрация относительно выше;

3) чем выше труба, тем больше скорость ветра и, следовательно, интенсивнее процессы перемешивания выброса с атмосферным воздухом. Высокая труба не только снижает концентрацию загрязнителей в воздухе, но и удаляет начало зоны задымления. Точка касания дымового факела земли, то есть начало зоны задымления лежит тем дальше, чем выше труба и чем меньше угол раскрытия дымового факела. Поэтому при высокой трубе особенно улучшаются условия в ближайшей к трубе зоне.Зона максимального загрязнения находится в пределах расстояния, равного 10 - 40 - кратной высоте трубы при горячем выбросе и 5 - 20 - кратной высоте трубы при холодных низких промышленных выбросах.

В 1974г. были утверждены «Указания по расчету рассеивания в атмосфере вредных веществ в выбросах предприятий» - СН 369 - 74.

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

1.2 Расчет рассеивания выбросов в атмосфере

Основным документом, регламентирующим расчет рассеивания и определения предельных концентраций примесей промышленных предприятий, является «Методика расчета концентраций в атмосферном воздухе вредных веществ, содержащихся в выбросах предприятий. ОНД-86.» В основу методики положено условие, при котором суммарная концентрация каждого вредного вещества не должна превышать максимально разовую ПДК данного вредного вещества в атмосферном воздухе, то есть:

С? = (Ст+Сф) ? ПДК, (3)

где Ст - максимальная концентрация загрязняющего вещества в приземном слое, создаваемая источником выбросов, мг/м3;

Сф - фоновая концентрация одинаковых или однонаправленных вредных веществ, мг/м3.

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

С1 /ПДК1 + С2/ ПДК2 + … Сn /ПДКn/ ? 1, (4)

где С1, С2 ... Сn - концентрации вредных веществ в атмосферном воздухе в одной и той же точке местности, мг/м3;

ПДК1, ПДК2 … ПДКn - максимально разовые ПДК вредных в атмосферном воздухе, мг/м3.

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

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

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

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

С ? 0,3 ПДКр.з., (5)

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

В населенных местах наибольшая допустимая концентрация вредных веществ рассчитывается по формуле:

С ? ПДКн.м., (6)

где ПДКн.м. - предельно допустимая концентрация вредного вещества для населенных мест.

Здесь ПДК - максимально разовые концентрации.

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

1.3 Защита атмосферного воздуха

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

1) технические мероприятия;

2) санитарно-технические мероприятия;

3) планировочные мероприятия.

1.4 Очистка выбросов вредных веществ в атмосферу

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

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

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

На предприятии имеются 658 организованных источников загрязнения атмосферы (ИЗА).

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

- эффективность (степень) очистки воздуха от загрязняющих веществ;

- производительность;

- гидравлическое сопротивление;

- стоимость очистки (в расчете на 1000м3 воздуха).

1.5 Заключение по расчету выброса вредных веществ

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

Глава 2. Разработка компьютерной модели задачи выбросов вредных веществ

2.1 Описание программы

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

Программа реализуется в виде приложения с одной формой Form1. На этой форме установлены компоненты:

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

Основное свойство text, в котором содержится вводимый и выводимый текст. Это свойство можно устанавливать в процессе проектирования или задавать программно. Выравнивание текста невозможно. Перенос строк тоже невозможен. Текст, не помещающийся по длине в окно, просто сдвигается, и пользователь может перемещаться по нему с помощью курсора.

Свойство Autosize в окнах редактирования имеет смысл, отличный от смысла аналогичного свойства меток: автоматически подстраивается под размер текста только высота, но не ширина окна.

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

Имеются также свойства только времени выполнения SelLength, SelStart, Seltext, определяющие соответственно длину выделенного текста, позицию перед первым символом, выделенного текста и сам выделенный текст. Также существуют и другие свойства.

2. label (метка)-этот компонент предназначен для отображения текста, который не изменяется пользователем.

Никакого оформления текста не предусмотрено, кроме цвета метки и текста. Основное свойство-caption, которое определяет текст, отображаемый в нем. Его можно устанавливать в процессе проектирования или задавать и изменять программно во время выполнения приложения.

Фон определяется свойством Color, а цвет надписи - подсвойством Color свойства Font. Если цвет специально не задавать, то цвет фона обычно сливается с цветом контейнера, содержащего метку, так что фон просто не заметен.

Для метки Label цвет и шрифт - единственно доступные элементы оформления надписи.

Размер определяется свойством Autosize. Если это свойство установлено в True, то вертикальный и горизонтальный размеры компонента определяются размером надписи. Если же Autosize равно false, то выравнивание текста внутри компонента определяется свойством Alignment, которое позволяет выравнивать текст по левому краю, правому краю или центру клиентской области метки

3. stringgrid (таблица строк) предназначен для отображения текстовой информации в таблице из строк и столбцов с возможностью перемещаться по строкам и столбцам и осуществлять выбор. Основное свойство cells.

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

Свойства colcount и rowcount определяют соответственно число столбцов и строк, свойства FixedCols и FixedRows - число фиксированных, не прокручиваемых столбцов и строк. Цвет фона фиксированных ячеек определяется свойством FixedColor.

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

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

Важным элементом в свойстве Options является goEditing - возможность редактировать содержимое таблицы.

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

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

Простейшей и наиболее часто используемой кнопкой является кнопка Button, расположенная на странице библиотеки Standart. Реже используется кнопка BitBtn, отличающаяся возможностью отобразить на её поверхности изображение. Большинство свойств, методов и событий у этих видов кнопок одинаковый. Основное с точки зрения внешнего вида свойство кнопки- Caption (надпись). В надписях кнопок можно предусматривать использования клавиш ускоренного доступа, выделяю для этого один из символов надписей свойство default, если его установить в true, определяет, что нажатие пользователем клавиши enter будет эквивалентно щелчку по данной кнопке, даже если она в этот момент не находится в фокусе.

Линия - вычерчивание прямой линии осуществляет метод LinеТо, инструкция вызова которого в общем виде выглядит следующим образом:

Компонент.Canvas.LineTo(x,у). Метод LinеТо вычерчивает прямую линию от текущей позиции карандаша в точку с координатами, указанными при вызове метода.Начальную точку линии можно задать, переместив карандаш в нужную точку графической поверхности. Сделать это можно при помощи метода MoveTo, указав в качестве параметров координаты нового положения карандаша.Вид линии (цвет, толщина и стиль) определяется значениями свойств объекта Реп графической поверхности, на которой вычерчивается линия.

Заключение

Данный курсовой проект является заключительным этапом в изучении учебной дисциплины «Математические методы». В ходе выполнения курсовой работы систематизируются и закрепляются теоретические знания и практические умения, полученные при изучении этой дисциплины.

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

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

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

Список литературы

1. Архангельский А.Я. Delphi 6. М: ЗАО «Издательство БИНОМ», 2002.

2. Компьютерное моделирование. Лабораторный практикум: Учебно-методическое пособие/ Сост. Алтаев А.А., Бундаев В.В. - Улан Удэ, Изд-во ВСГТУ, 2007. - 84 с.

3. Копылов Г.Н., Суханова Н.Н. Математические методы в экологии: Методическое пособие. -- Волгоград: Издательство Вол ГУ, 2002.

4. Красов В.И., Кринберг И.А., Паперный В.Л.. Компьютерные технологии в физике. Часть 1. Компьютерное моделирование физических процессов. - Иркутск, Иркутский государственный университет, 2006г.

5. Культин Н., Основы программирования в Delphi 7. - СПб: БХБ- Петербург,2004.

6. Методические указания для выполнения курсовой работы по дисциплине информационные системы. / Сост. Торопцев Е.Л., Гунько Т.И., Харченко М.А., Мараховский А.С.,. - Изд-во Ставропольского государственного аграрного университета, 2003.

7. Могилев А.В., Пак Н.И., Хеннер Е.К. Информатика. - М.: ACADEMA. 2001.

8. Орлова И.В., Половников В.А. Математические методы и модели: компьютерное моделирование. - М.: Вузовский учебник. 2007.

9. Романов В.П. Интеллектуальные информационные системы. - М.: Экзамен, 2003.

10. Самарский А.А., Михайлов А.П. Математическое моделирование. - М.: ФИЗМАТЛИТ. 2002.

11. Тарасов В.Н. Коннов А.Л., Мельник Е.В. Компьютерное моделирование: лабораторный практикум. - Оренбург: ГОУ ОГУ, 2005. - 128 с.

12. Учебно - практическое пособие/ Авт. - сост. А.В.Солопахо . Тамбов: Тамбовский государственный технический университет, 2001 г. Часть I.

13. Фаронов В.В., Delphi 6. Учебный курс. -М: Издатель Молгачева С.В., 2001.

14. Хомоненко А., Гофман В. И др. Delphi 7. - СПб: БХБ- Петербург,2004.

15. Шикин Е.В., Чхартишвили А.Г. Математические методы и модели в управлении. - М.: Издательство «Дело». 2002.

16. Экология и безопасность жизнедеятельности. Под редакцией Муравьёва Л.А. - М.: Юнити. 2000.

17. Экология. Сборник задач, упражнений и примеров: учеб. пособие для вузов. - М.: Дрофа. 2006.

Приложение

var

frmMain: TfrmMain;

Mno, Mso, Mco, T, Q1, Hu, Du, Tu, Uf, A, F, X : Real; R : Integer;

implementation

{$R *.dfm}

function TfrmMain.V: Real;

begin

Result := (4 * Q1)/(3.14 * Sqr(Du));

Result := RoundTo(Result,-3);

end;

function TfrmMain.deltaT: Real;

begin

Result := T - Tu;

Result := RoundTo(Result,-3);

end;

function TfrmMain.H: Real;

begin

Result := ( ((1.5 * V * 0.2)/Uf) * (2.5+(3.3 * 9.8 * 0.2 * deltaT)/(Tu * Sqr(Uf)) ) ) + Hu;

Result := RoundTo(Result,-3);

end;

function TfrmMain.f_small: Real;

begin

Result := (1000 * Sqr(V) * Du)/(Sqr(H) * deltaT);

Result := RoundTo(Result,-3);

end;

function TfrmMain.m_small: Real;

begin

Result := 1 / (0.67 + 0.1 * Sqrt(f_small + 0.34 * Power(f_small, 1/3)));

Result := RoundTo(Result,-3);

end;

function TfrmMain.Vm: Real;

begin

Result := 0.65 * Power( (Q1 * deltaT)/H , 1/3);

Result := RoundTo(Result,-3);

end;

function TfrmMain.n: Real;

begin

Result := 3 - Sqrt((Vm - 0.3)*(4.36 - Vm));

Result := RoundTo(Result,-3);

end;

function TfrmMain.Cm(M: Real): Real;

begin

Result := (A * M * F * m_small * n) / (Sqr(H) * Power(Q1 * deltaT, 1/3));

Result := RoundTo(Result,-3);

end;

function TfrmMain.d: Real;

begin

if Vm <= 0.5 then

Result := 2.48 * (1 + 2.48 * Power(f, 1/3))

else

if (Vm > 0.5) and (Vm <= 2) then

Result := 4.95 * Vm * (1 + 0.28 * Power(f, 1/3))

else

if Vm > 2 then

Result := 7 * Sqrt(Vm) * (1 + 0.28 * Power(f, 1/3));

Result := RoundTo(Result,-3);

end;

function TfrmMain.Xm: Real;

begin

Result := d * H;

Result := RoundTo(Result,-3);

end;

function TfrmMain.Um: Real;

begin

if (Vm > 0.5) and (Vm <=2) then

Result := Vm

else

if Vm >2 then

Result := Vm * (1 + 0.12 * Power(f_small, 1/3))

else

if Vm <= 0.5 then

Result := 0.5;

end;

procedure TfrmMain.RefreshImgCanvas;

var

i: integer;

begin

Image1.Canvas.Brush.Color := clWhite;

Image1.Canvas.Pen.Color:= clBlack;

Image1.Canvas.Pen.Width:= 1;

Image1.Canvas.FillRect(Image1.ClientRect);

image1.canvas.moveto(30,150);

image1.canvas.lineto(270,150);

image1.canvas.moveto(150,30);

image1.canvas.lineto(150,270);

R:=120;

x:=R*cos(PI/4);

image1.canvas.moveto(150-round(x),150-round(x));

image1.canvas.lineto( 150+round(x),150+round(x));

image1.canvas.moveto(150-round(x),150+round(x));

image1.canvas.lineto( 150+round(x),150-round(x));

for i:=1 to 3 do

begin

R:=round(R/i);

x:=R*cos(PI/4);

image1.canvas.moveto(150+R,150);

image1.canvas.lineto(150+round(x),150-round(x));

image1.canvas.lineto(150,150-R);

image1.canvas.lineto(150-round(x),150-round(x));

image1.canvas.lineto(150-R,150);

image1.canvas.lineto(150-round(x),150+round(x));

image1.canvas.lineto(150,150+R);

image1.canvas.lineto(150+round(x),150+round(x));

image1.canvas.lineto(150+r,150);

end;

R:=120;

x:=R*cos(PI/4);

end;

procedure TfrmMain.sButton2Click(Sender: TObject);

begin

T := StrToFloat(edtT.Text);

Tu := StrToFloat(edtTu.Text);

Uf := StrToFloat(edtUf.Text);

Tu := StrToFloat(edtTu.Text);

Hu := StrToFloat(edtHu.Text);

A := 120;

F := 1;

Q1 := StrToFloat(edtQ1.Text);

Du := StrToFloat(edtDu.Text);

Mno := StrToFloat(edtMno.Text);

Mso := StrToFloat(edtMso2.Text);

Mco := StrToFloat(edtMco.Text);

if ((Cm(Mno)/0.085)+(Cm(Mso)/0.5)+(Cm(Mso)/5)) <= 1 then

Application.MessageBox('Основное условие выполнения норм ПДК не выполняется!', 'Оценка выброса вредных веществ',0)

else

Application.MessageBox('Основное условие выполнения норм ПДК выполняется!', 'Оценка выброса вредных веществ',0)end;

procedure TfrmMain.FormCreate(Sender: TObject);

var

i: integer;

begin

With StringGrid1 do begin

Cells[0,0]:='румб';

Cells[1,0]:='C';

Cells[2,0]:='СВ';

Cells[3,0]:='В';

Cells[4,0]:='ЮВ';

Cells[5,0]:='Ю';

Cells[6,0]:='ЮЗ';

Cells[7,0]:='З';

Cells[8,0]:='СЗ';

Cells[0,1]:='Р%';

Cells[1,1]:='9';

Cells[2,1]:='20';

Cells[3,1]:='13';

Cells[4,1]:='2';

Cells[5,1]:='2';

Cells[6,1]:='11';

Cells[7,1]:='32';

Cells[8,1]:='11';

end;

With StringGrid2 do begin

Cells[0,0]:='румб';

Cells[1,0]:='C';

Cells[2,0]:='СВ';

Cells[3,0]:='В';

Cells[4,0]:='ЮВ';

Cells[5,0]:='Ю';

Cells[6,0]:='ЮЗ';

Cells[7,0]:='З';

Cells[8,0]:='СЗ';

Cells[0,1]:='L,m';

end;

RefreshImgCanvas;

end;

procedure TfrmMain.sButton3Click(Sender: TObject);

var

X0,Y0 : integer;

temp : Real;

begin

With Stringgrid2 do begin

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[1,1]) / 12.5),0);

Cells[1,1] := FloatToStr(Temp);

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[2,1]) / 12.5),0);

Cells[2,1] := FloatToStr(Temp);

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[3,1]) / 12.5),0);

Cells[3,1] := FloatToStr(Temp);

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[4,1]) / 12.5),0);

Cells[4,1] := FloatToStr(Temp);

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[5,1]) / 12.5),0);

Cells[5,1] := FloatToStr(Temp);

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[6,1]) / 12.5),0);

Cells[6,1] := FloatToStr(Temp);

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[7,1]) / 12.5),0);

Cells[7,1] := FloatToStr(Temp);

Temp := RoundTo(Xm * (StrToFloat(Stringgrid1.Cells[8,1]) / 12.5),0);

Cells[8,1] := FloatToStr(Temp);

end;

X0 := 150;

Y0 := 150;

RefreshImgCanvas;

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.Pen.Width := 2;

Image1.Canvas.MoveTo(X0, Y0 - (StrToInt(stringgrid2.Cells[1,1]) div 8));

image1.canvas.LineTo(X0 + (StrToInt(stringgrid2.Cells[2,1]) div 12),

Y0 - (StrToInt(stringgrid2.Cells[2,1]) div 12));

image1.canvas.LineTo(X0 + (StrToInt(stringgrid2.Cells[3,1]) div 8),

Y0);

image1.canvas.LineTo(X0 + (StrToInt(stringgrid2.Cells[4,1]) div 12),

Y0 + (StrToInt(stringgrid2.Cells[4,1]) div 12));

image1.canvas.LineTo(X0,

Y0 + (StrToInt(stringgrid2.Cells[5,1]) div 8));

image1.canvas.LineTo(X0 - (StrToInt(stringgrid2.Cells[6,1]) div 12),

Y0 + (StrToInt(stringgrid2.Cells[6,1]) div 12));

image1.canvas.LineTo(X0 - (StrToInt(stringgrid2.Cells[7,1]) div 8),

Y0);

image1.canvas.LineTo(X0 - (StrToInt(stringgrid2.Cells[8,1]) div 12),

Y0 - (StrToInt(stringgrid2.Cells[8,1]) div 12));

Image1.Canvas.LineTo(X0, Y0 - (StrToInt(stringgrid2.Cells[1,1]) div 8));

Image1.Refresh;

end;

end.

Размещено на Allbest.ru