Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







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





Методика расчёта основана на поэтапном определении эмиссии отработавших газов (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):

FunctionConc ( )

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 в зависимости от расстояний.









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


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