Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







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





Методика расчёта основана на поэтапном определении эмиссии отработавших газов (q), концентрации загрязнения воздуха (C) этими газами на различном удалении от дороги:

, (1)

где - концентрация вредных веществ, г/м3;

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

- угол, составляемый направлением ветра и трассой дороги ( =45°);

- мощность эмиссии, г/с×м

, (2)

где - расход топлива для i -го типа машины, л/км (табл. 2);

- интенсивность потока, авт/ч (табл. 2);

- содержание добавки свинца в топливе (для легковых и малых грузовых карбюраторных 0,37 г/кг, для грузовых автобусов карбюраторных 0,17 г/кг).

Таблица 1

Стандартное отклонение гауссовского рассеивания

для расстояний от кромки проезжей части

Расстояние, м sigma
   
   
   
   
   
   

Таблица 2

Интенсивность потока N и расход топлива G для каждого типа машины

Тип машины N, авт/ч G, л/км
легковые   0,11
малые грузовые карбюраторные   0,16
грузовые карбюраторные   0,33
автобусы карбюраторные   0,37

Порядок решения задачи:

1. Ввод исходных данных в ячейки электронной таблицы.

2. Расчёт формул (1) и (2).

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

Упражнение 1. Ввод исходных данных.

· Создайте новую рабочую книгу нажатием кнопки Создать на панели инструментов Стандартная.

· Сохраните её на диске как «Расчёт уровня загрязнения» командой Файл | Сохранить.

· Переименуйте текущий лист командой Формат | Лист | Переименовать (или двойным щелчком мыши на ярлычке рабочего листа).

· Заполните ячейки электронной таблицы исходными данными как показано на рис. 1.

Рис. 1 Исходные данные

Упражнение 2. Форматирование таблицы.

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

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

· Для выравнивания данных в ячейке А1 необходимо предварительно выделить эту ячейку, затем командой Формат | Ячейки вызвать диалоговое окно и перейти на вкладку Выравнивание. Задать параметры выравнивания по горизонтали – по центру, по вертикали – по высоте.

· Изменение ориентации при выравнивании содержимого ячейки I1 задаётся либо установкой значения счётчика градусов (от -90° до 90°), либо установкой в нужное положение стрелки Надпись (рис. 2);

· Для объединения ячеек F2:F7 выделите нужный диапазон и выполните команду Формат | Ячейки. В открывшемся диалоговом окне на вкладке Выравнивание установите флажок объединение ячеек в группе Отображение.

Рис.2 Форматирование ячейки I1

Используя пункты 1¸4, отформатируйте оставшиеся ячейки.

· Установите внешние границы таблицы командой Формат | Ячейки, на вкладке Граница задайте тип линии, а затем границы - внешние (рис. 3). Установите разделители между ячейками, выбрав тип линии и режим установки разделителей .

Рис. 3 Форматирование ячейки

После форматирования таблица исходных данных имеет вид (рис. 4).

Рис. 4 Отформатированная таблица

Упражнение 3. Расчёт мощности эмиссии (q) и концентрации загрязнения воздуха (С).

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

· Для перевода угла из градусов в радианы:

· Активизируйте ячейку F2 таблицы.

· Щёлкните по кнопке Вставка функции слева от строки формул (или сочетание клавиш < Shift >+< F3 >).

· В диалоговом окне первого шага Мастера функций (рис. 5) выберите категорию Математические, в списке Имя функции функцию РАДИАНЫ().

Рис. 5 Мастер функций: первый шаг.

· В диалоговом окне Аргументы функции в поле Число введите 45 (рис. 6).

Рис. 6 Ввод аргументов функции РАДИАНЫ()

· Для вычисления составляющей :

· В ячейку G2 таблицы введите формулу =С2*D2*E$2 (рис. 7).

· Используя маркер заполнения, внесите эту же формулу в ячейку G3.

· В ячейку G4 таблицы введите формулу =С4*D4*E$4.

· Используя маркер заполнения, внесите эту же формулу в ячейку G5.

· Вычислите сумму полученных значений в диапазоне G2:G5 с помощью функции АВТОСУММА() (рис. 8).

Рис. 7 Ввод формулы в ячейку G2 с использованием абсолютной ссылки

· Для расчёта мощности эмиссии (q) в ячейку H2 введите формулу
=1Е-07*0,4944*G6 (рис. 9).

При расчётах многократное использование формулы (1) приводит к необходимости создания пользовательской функции с помощью Visual Basic. Visual Basic for Applications (VBA) - объектно-ориентированный язык программирования, специально разработанный для записи макросов в приложениях. Макрос - именованная последовательность команд (операторов VBA), которую пользователь может записать и затем вызвать для исполнения.

Рис. 8 Использование функции АВТОСУММА()

Рис. 9 Расчёт мощности эмиссии (q)

6. Для расчёта концентрации (С) создайте пользовательскую функцию

· Нажмите кнопку Редактор Visual Basic на панели инструментов Стандартная.

· В главном меню появившегося окна редактора выберите пункт
Вставка | Модуль.

· В поле листа-модуля введите следующий текст функции (рис. 10):

Function Conc ()

Conc = 0.4714*

End function

  • Для сохранения функции нажмите клавишу F2.

В появившемся окне Просмотр объектов в поле Методы выберите функцию Conc (рис. 11).

Рис. 10 Лист-модуль с функцией для расчёта формулы (1).

· Щёлчком правой кнопкой мыши вызовите контекстное меню, в котором выберите пункт Свойства (рис. 12).

· В поле Описание диалогового окна (рис. 13) введите следующий текст: «Вычисляет концентрацию вредных веществ». Затем нажмите кнопку < Ok>.

· Закройте окно редактора VB (сочетанием клавиш < Alt >+< F4 >).

o Используя пользовательскую функцию, выполните расчёт формулы (1).

18. Активизируйте ячейку I2, в которую будет помещён результат расчёта концентрации С для случая удаления от кромки проезжей части на 10 м.

Рис. 11 Окно Просмотр объектов

Рис. 12 Контекстное меню

Рис. 13 Окно Свойства функции Conc

19. Щёлкните на кнопке Вставка функции слева от строки формул (или сочетание клавиш < Shift >+< F3 >).

В диалоговом окне первого шага Мастерафункцийв поле категорий установите Определенные пользователем, в списке Имя функции - Conc и щёлкните < Ok>.

В диалоговом окне Аргументы функции в полях укажите адреса ячеек H2, B2, F2 соответственно.

Аналогично заполняются ячейки I3:I7 в зависимости от расстояний.







ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала...

Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам...

Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все...

Что вызывает тренды на фондовых и товарных рынках Объяснение теории грузового поезда Первые 17 лет моих рыночных исследований сводились к попыткам вычис­лить, когда этот...





Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2024 zdamsam.ru Размещенные материалы защищены законодательством РФ.