Использование макросов

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

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

«Саратовский государственный технический университет

имени Гагарина Ю.А.»

 

 

 

 

Самостоятельная работа

по дисциплине «Моделирование перевозочных процессов»

на тему: «Использование макросов»

Вариант 15

 

 

 

 

 

Выполнил:  студент гр. ОПТ – 41

Чирков И.Е.

Проверила: Муравьева Н.А.

 

 

 

 

 

 

 

 

 

Саратов

2013

Задача 1.

Рассчитать потребное количество автобусов трех марок для четырех автобусных маршрутов, если коэффициент использования вместимости γвм=0,85, коэффициент использования сменности  =3.

Показатели маршрутов:

Название показателя

Условное обозначение

Название маршрута

Маршрут 1

Маршрут 2

Маршрут 3

Маршрут 4

Среднее количество пассажирова за час

Qчас

700

890

750

1050

Время рейса

tр

0,45

0,6

0,85

1

Коэффициент неравномерности

kн

1,4

1,6

1,8

2



 

Название показателя

Марка автобуса

ПАЗ

Газель

ЛиАЗ

Вместимость

55

13

65


 

Аналитическое решение:

Потребное число автобусов на маршруте


A =

Часовая производительность одного автобуса на маршруте


Uчас = 

 

Решение задачи.

  1. Занесем данные в рабочий лист.
  2. Занесем дополнительные данные.

 

  1. Запустим редактор Visual Basic For Application  (Комбинацией клавиш Alt + F11).

 

  1. В редакторе выберем команду Insert – Module.

 

  1. В появившемся окне редактора напечатаем текст функции для расчета потребности в автобусах.

 

 

 

  1. Закроем редактор Visual Basic и вернемся в Excel. В ячейку B24 занесем формулу =ПотребностьВАвтобусах(D$5;D$7;D$6;$B22;$D$10;$D$11).


 

 

 

 

 

 

 

Задача 2.

Найти грузооборот Р, если Q=100 т, средняя длина ездки с грузом  lег=25 км, γст =0,5; γд =0,4. Выполнить расчеты для γст =0,5;0,6;0,9;0,8  и  γд=0,4;0,5; 0,7;0,8 .

 

Аналитическое решение:

Для решения задачи используем  формулы:

           .     

                    Решение в Excel

  1. Заполняем исходные данные на рабочем листе Excel. Затем, в ячейку C8 заносим формулу  =(C6*$C$7*($C$3/(C5*$C$7)*$C$4)) и распространяем в диапазоне C8:F8.
  2. Таким образом мы посчитаем грузооборот P.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 3.

Вычислить время оборота t об  на городском автобусном  маршруте,  если Lм=30км, nпр=11, tпо=20с, tко=6 мин, υт=22 км/ч. Рассчитать дополнительно t об , если υт=10 км/ч и υт=30 км/ч 

Аналитическое решение:

Для решения задачи используем формулу

  .

Решение в Excel

  1. Занесем исходные данные на рабочий лист.

 

 

  1. Занесем в ячейку  D8  формулу = 2*($D$2/D6+$D$3*$D$4+$D$5*60)/360, и распространим ее в диапазоне E8:F8. Получим искомое время оборота.


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 5.

Найти объем выполненной работы, если P = 420 ткм, средняя длина ездки грузом  lег = 18 км, γст = 0,9; γд =0,6. Выполнить расчеты при Р = 120, 220, 320, 520, 620  ткм   и lег = 8, 9, 10, 19; 20  км.

 

Аналитическое решение:

 

Для решения задачи используются формулы: 

                 

Решение в Excel

  1. Заполняем таблицы с исходными данными на рабочем листе Excel. Затем в ячейку C8  заносим формулу =$C$5*(C3/($C$6*C4)) и распространяем в диапазоне C8:H8, в результате мы рассчитали Q, и нашли объем выполненной работы.


 

 

 

 

 

 

 

 

Задача 6.

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

 

Тарифы                                 Таблица 1    

Марка автобуса

Расстояние перевозки

до 10

от 10 до 30

больше 30

ПАЗ

0,6

0,5

0,4

ГАЗель

0,7

0,6

0,5

Икарус

0,8

0,7

0,6


Определить стоимость билета для следующих пунктов и марок автобусов.

 

Таблица 2

Населенный пункт

Расстояние

Автобус

Петровка

20

ПАЗ

Федоровка

30

Икарус

Чардым

45

ГаЗель

Медведково

9

ПАЗ


 

Решение в Excel

  1. Заполняем таблицы с исходными данными на рабочем листе Excel. Затем в ячейку B9 заносим формулу =ЕСЛИ(B8=$F$3;$C$4;ЕСЛИ(B8=$F$4;$C$4;ЕСЛИ(B8=$F$5;$D$4;ЕСЛИ(B8=$F$6;$B$4;"ошибка")))) и распространяем ее в диапазоне B9:E9, таким образом программа подберет нужный тариф по пунктам для автомобиля ПАЗ.
  2. В ячейку B10 заносим формулу =ЕСЛИ(B8=$F$3;$C$5;ЕСЛИ(B8=$F$4;$C$5;ЕСЛИ(B8=$F$5;$D$5;ЕСЛИ(B8=$F$6;$B$5;"ошибка")))) и распространяем ее в диапазоне B10:E10, таким образом программа подберет нужный тариф по пунктам для автомобиля ГАЗель.
  3. В ячейку B11заносим формулу =ЕСЛИ(B8=$F$3;$C$6;ЕСЛИ(B8=$F$4;$C$6;ЕСЛИ(B8=$F$5;$D$6;ЕСЛИ(B8=$F$6;$B$6;"ошибка")))) и распространяем ее в диапазоне B11:E11, таким образом программа подберет нужный тариф по пунктам для автомобиля Икарус.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 7.

Рассчитать коэффициент использования грузоподъемности для каждой  пары значений qф=20 ;14; 16; 17  и qв= 30; 40; 20.

 

Аналитическое решение:

Для решения задачи используется  формула: 

γ= qф /qв.

 

Решение в Excel:

  1. Заполняем таблицы с исходными данными на рабочем листе Excel.

 

  1. Затем в ячейку C5 заносим формулу  и распространяем в диапазоне C5:F5, тем самым находим коэффициент использования грузоподъемности.

 

 

 

 

 

 

 

 

 

 

 

Задача 8.

Коэффициент использования пробега автомобиля за день 1= 0,8, за день 2 = 0,9, за день 3= 0,68. Пробег автомобиля без груза в день 1=40 км, за день 2=38 км, за день 3=43 км. Нулевой пробег за день1= 10 км, за день2= 8 км,

за день3= 12 км. Рассчитать пробег с грузом.

 

Аналитическое решение:

 

Для решения задачи используется формула

 

 

Решение Excel:

  1. Заполняем таблицы с исходными данными на рабочем листе Excel. Затем в ячейку D6 заносим формулу =D2*(D3+D4) и распространяем в диапазоне D6:F6, тем самым находим – пробег с грузом.


 

 

 

 

 

 

 

Задача 9.

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

 

Название показателя

             Предприятие

1

2

3

Списочное число автобусов Асс

19

22

26

Дни календарные Дк

30

30

30

Коэффициент выпуска автобусов на линию aв

0,85

0,9

0,91

Суточный пробег одного автобуса Lсут, км

544

565

589


 

Аналитическое решение:

Для решения задачи используется формула

 

 

Расчеты требуется выполнить для каждого АТП.

 

Решение в Excel

 

  1. Занесем исходную таблицу на рабочий лист.

 

  1. Занесем в ячейку  D8  формулу =D3*D4*D5*D6, распространим в диапазоне E8:F8.


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 10. 

Суточный пробег с пассажирами Lсут =300 км, средняя длина поездки пассажира lср=3 км ,γвм=0,75. Определить суточную производительность Uq для 2 марок автобусов (Газель- qвм=13, ПАЗ- qвм=35). Выполнить расчеты для  lср=2;3;4,5;6 км.

 

Аналитическое решение:

Для решения задачи используется формула

.                 

Решение в Excel:

  1. Заполняем исходные данные на рабочем листе Excel. Затем, в ячейку C9 заносим формулу =($C$7*$C$6*$C$4)/C5 и распространяем в диапазоне C9:G9.
  2. Таким образом мы посчитали суточную производительность для автомобиля Газель.
  3. В ячейку C10 заносим формулу =($C$8*$C$6*$C$4)/C5 и распространяем в диапазоне C10:G10.

 

  1. Так мы посчитали суточную производительность для автомобиля ПАЗ.


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 11

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

Название показателя

Предприятие

1

2

3

Списочное число автобусов Асс

34

45

32

Дни календарные Дк

30

30

30

Коэффициент выпуска автобусов на линию aв

0,95

0,88

0,90

Суточный пробег одного автобуса Lсут, км

533

499

601




 

 

Аналитическое решение

Для решения задачи используется формула

 

 

Решение в Excel:

1) Заносим табличные данные

2) В ячейке В8 устанавливаем формулу =B6*B5*B4*B3 (рис 1.1)

3) Распространяем формулу в диапазоне В8:D8, тем самым находим Lобщ  –общий пробег для каждого предприятия за месяц. (рис 1.2)

 

 

 

 

Задача 12.

Длина маршрута автобуса Lм =12 км , нулевой пробег  Lн =6 км его техническая скорость VТ =20км/ч, число промежуточных остановок на маршруте nпр =12, время рейса tр =0,78 ч, время на конечной остановке tк=0,08 ч, время в наряде Тн =10 ч. Найти время работы автобуса на маршруте Тм , эксплуатационную скорость Vэ , скорость сообщения Vс  .

 

Аналитическое решение

Для решения задачи используются формулы

 

Тм = Тн - Lн/Vт

Vэ = Lм/tp

Vc = Lм/(tp-tk)

Решение в Excel:

1) Заносим табличные данные

2) Изменяем стиль ячеек конечных  данных (рис 2.1)

3) В ячейке E1 устанавливаем формулу =B7-B2/B3 (рис 2.2)

В ячейке E2 устанавливаем формулу =B1/B5 (рис 2.2)

В ячейке E3 устанавливаем формулу =B1/(B5-B6) (рис 2.2)

 

 


 

Задача 13. 

Коэффициент использования пробега автомобиля за день 1= 0,8, за день 2 = 0,9, за день 3= 0,68. Пробег автомобиля без груза в день 1=40 км, за день 2=38 км, за день 3=43 км. Нулевой пробег за день1= 10 км, за день 2= 8 км, за день 3= 12 км. Рассчитать пробег с грузом.

Аналитическое решение

Для решения задачи используется формула

 

 

Решение в Excel

1) Заполняем таблицы данными

2)В ячейку C6 заносим формулу =C2*(C3+C4) и распространяем в диапазоне C6:E6, тем самым находим Lгр


 

 

 

 

 

 

 

 


 

 

 

 

 

 

 

 

 

Задача 14

Грузовой автомобиль проработал на маршруте 3 дня. Время на маршруте 9 часов, длина нулевого пробега 15 км, коэффициент использования пробега 0,5. Длина груженной ездки 9 км. Определить суммарное количество ездок за 3 дня.

 

Показатель

1 день

2 день

3 день

Техническая скорость Vт (км/ч)

28

19

36

Время простоя под погрузкой и разгрузкой (ч)

0,16

0,25

0,11


 

 

Аналитическое решение:

Для решения данной задачи необходимы следующие формулы:

 

 

 

Решение в Excel:

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

 

 

 

 


В ячейку C15 заносим формулу =$C$3+$C$4/C13, затем нажимаем F2 и Ctrl + Shift + Enter.

Суммарное количество ездок получим с помощью функции СУММ.  В ячейку С18 заносим формулу : =СУММ(C15:E15*C13:E13*$C$5/($C$6+C13:E13*$C$5*C14:E14)), затем нажимаем F2 и Ctrl + Shift + Enter.


 

 

 

Задача 15

На четырех маршрутах осуществляются пассажирские перевозки. Время простоя на промежуточной остановке – 30 сек, на конечной – 10 мин.. Найти Длину маршрута и среднюю техническую скорость.

 

Технико-эксплутационные  параметры

 

Vэ, км/ч

tр ,ч

Lм, км

nпр

tпр, ч

tк, ч

Маршрут 1

19

1,2

-

6

0,008

0,16

Маршрут 2

22

1,1

-

5

0,008

0,16

Маршрут 3

20

0,9

-

7

0,008

0,16

Маршрут 4

21

1

-

5

0,008

0,16


 

Аналитическое решение:

Для решения данной задачи необходимы следующие формулы:

 

 

 

Решение в Excel:

Занесем исходные данные в одну таблицу. Определим длину маршрута, затем среднюю техническую скорость для всех маршрутов с помощью функции «среднее значение» (срзнач). В ячейку D9 заносим формулу=C9*B9,затем нажимаем F2 и Ctrl + Shift + Enter. В ячейку F16 заносим формулу =СРЗНАЧ(D9:D12/(D9:D12/B9:B12-E9:E12*$G$9-$F$9)), затем нажимаем F2 и Ctrl + Shift + Enter

 

 

 

 

 

 

 

Задача 16

 

Автобус ПАЗ вместимостью m=35 человек проработал 5 дней на разных маршрутах. Коэффициент наполняемости gн=0,85. Время простоя на промежуточной остановке tп = 1 мин, на конечной остановке (tк) – 15 мин. Стоимость проезда зависит от коэффициента сменности (hсм). Если он меньше 2, то проезд стоит 8 руб, если больше 2 - 5 рублей. Определить Суммарную выручку за 5 дней работы.

 

Показатели

Дни работы

1

2

3

4

5

Тм

9

10

11

13

14

Vт

19

17

20

18

21

Lм

15

12

14

16

11

hсм

1,2

1,5

2,1

1,8

2,3


 

Аналитическое решение:

 

Для решения данной задачи необходимы следующие формулы:

 

 

 

 

 

Решение в Excel:

Занесем исходные данные в виде двух таблиц.



Производим расчет производительности и стоимости проезда за каждый день:

 

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

 

 

Задача 17

 

Автомобиль грузоподъемностью 10 тонн совершил 3 оборота по кольцевому маршруту. Известны грузооборот и загрузка на каждом пункте. Найти длину перегонов L1, L2, L3.

№ оборота

A-B

B-C

C-A

P (ткм)

1

10

7

6

62

2

8

5

7

54

3

6

10

8

68


Аналитическое решение:

Для решения данной задачи будем использовать формулу определения грузооборота:

 

Решение в Excel:

Занесем исходные данные на рабочий лист.

В ячейку A12 заносим формулу  =МОБР(A5:C7), а в ячейку Е12 =МУМНОЖ(A12:C14;E5:E7),затем после занесения формул, нажимаем F2 и Ctrl + Shift + Enter.

 

 

Задача 18. 

Данные о городском тангенциальном маршруте и показателях работы на нем автобуса «Икарус-280» представлены в таблице. Определить такой показатель качества обслуживания дополнительных рейсов Zдоп, который сделает этот автобус в течение дня, если время рейса сократить на 6 мин.

Показатель

Значения

Lм

9

Vэ

15

Tм

9

tр

0,6


 

 

Аналитическое решение:

Для решения задачи используется формула

.

                 

Решение в Excel:

  1. Заполняем исходные данные на рабочем листе Excel.

 

 

 

 

 

 

 

 

 

 

 

  1. Внесем в ячейку С11 формулу =C5/C6, таким образом получим количество дополнительных рейсов за время рейса 0.6ч


 

 

 

 

 

 

 

 

 

 

 

 

3. Внесем в ячейку С12 формулу =C5/D6, таким образом получим количество дополнительных рейсов за время рейса 0.5ч, что на 6 минут меньше

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 19. 

Автобус выходит из парка в 6ч 17мин и должен возвратиться в 22ч 24мин. Перерыв tпер в течение дня составляет в общей сложности 3ч 05мин. Определить время пребывания автобуса в наряде Tн.

 

Аналитическое решение:

Для решения задачи используется формула

.

 

Решение в Excel:

  1. Заполняем исходные данные на рабочем листе Excel.

 

 

 

 

 

 

  1. Внесем в ячейку С6 формулу =C3-C2-C4, таким образом получим время в наряде Tн.


 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 20. 

На городском диаметрально расположенном маршруте длиной12 км за день перевезено 1800 пассажиров и выполнено 7200 пасс/км. Найти коэффициент сменности за рейс и среднюю длину ездки.

 

Аналитическое решение:

Для решения задачи используется формула

. .

 

Решение в Excel:

  1. Заполняем исходные данные на рабочем листе Excel.


 

 

 

 

 

 

 

  1. Внесем в ячейку B6 формулу =C4/C3, таким образом получим среднюю длину ездки.


 

 

 

 

 

 

 

 

  1. Внесем в ячейку B7 формулу =C2/B6, таким образом получим коэффициент сменности.


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задача 21. 

За день на городском маршруте перевезено 2600 пассажиров и выполнено 8580 пасс/км. Эксплуатационная скорость 15 км/ч. Время рейса 42 мин. Определить среднюю длину ездки и коэффициент сменности.

 

 

 

Аналитическое решение:

Для решения задачи используется формула

  

 

 

 

 

 

Решение в Excel:

  1. Заполняем исходные данные на рабочем листе Excel.
Использование макросов