Модель автобусной остановки.

[saper666]

Здравствуйте! Помогите решить задачу или составить алгоритм ее решения в VBA Excel. Уже 3 неделю сижу голову ломаю.

Задача:
По расписанию автобус должен приходить на остановку каждые 30 мин. Ориентировочно точность прибытия можно оценить величиной +-7 мин.
Приход пассажиров на автобусную остановку описывается моделью простейшего потока с интенсивностью 24 человека в час.
Автобус вместимостью 50 человек в момент своего прибытия везет 35+-15 пассажиров. Выходят на остановке 5+-2 пассажира, а входят в автобус столько ожидающих, сколько возможно. Для высадки пассажира требуется 4+-3 сек, а для посадки 8+-4 сек. Ожидающие посадки не входят в автобус до тех пор, по не выйдут все желающие, посадка осуществляется в порядке очереди.
Пассажиры, которым не удалось сесть в автобус, делятся на две категории:
• «нетерпеливые» (уходят с остановки и больше не возвращаются);
• «терпеливые» (ждут следующего автобуса).
Любой пассажир, приходящий на остановку с вероятностью 0,5, относится к «терпеливым». Но после каждой неудачной попытки сесть в автобус вероятность его «терпения» уменьшается вдвое. Соответственно увеличивается вероятность его превращения в «нетерпеливого» и ухода с остановки при невозможности сесть в следующий автобус.
Построить модель, имитирующую события на автобусной остановке, и определить распределение числа необслуженных пассажиров на один автобус.
Моделирование провести для 100 прибытий автобусов.

[EducatedFool]

И что, за 3 недели - ни одной мысли?
Где ваши наработки?

[saper666]

Все наработки пока что на бумаге. Перепечатаю и выложу.

[saper666]

Вот что-то нарешал, только не пойму верно ли? Задачу перефразировал немного, препод разрешил:Постановка задачи.

По расписанию автобус должен приходить каждые 30 мин. Ориентировочно точность прибытия можно оценить величиной ±7 мин.
Приход пассажиров на автобусную остановку описывается моделью простейшего потока. Среднее время прибытия равно 2,5 мин.
Автобус вместимостью 50 человек в момент своего прибытия везет 35±15 пассажиров. Выходят на остановке 5±2 пассажира, а входят в автобус столько ожидающих, сколько возможно. Ожидающие посадки не входят в автобус до тех пор, пока не выйдут все желающие, посадка осуществляется в порядке очереди.
Пассажиры, которым не удалось сесть в автобус, делятся на две категории:
- «нетерпеливые» (уходят сразу, с вероятностью 0,5)
- «терпеливые» (ждут следующего автобуса, с вероятностью 0,5)
«Терпеливые» пассажиры, во время приезда следующего автобуса, входят в него вне вновь образовавшейся очереди.
Построить модель, имитирующую события на автобусной остановке, и определить распределение числа необслуженных пассажиров на один автобус.
Моделирование провести для 100 прибытий автобусов.

Листинг программы.

Private Sub Model()
Randomize
Columns(1).ClearContents: Columns(2).ClearContents 'очищаем первые 2 столбца
'моделирование прихода автобуса
t = Rnd() * (37 - 23) + 23       'прибытие автобуса
k = Round(Rnd() * (50 - 20) + 20, 0)   'везет с собой пассажиров
v = Round(Rnd() * (7 - 3) + 3, 0)      'выходят на остановке
g = k - v                           'остается в автобусе
u = 50 - g - x                     'сколько еще вместится - те, кто уже пропустил 1 авт.
'моделирование потока пассажиров
r = 0: y = 0
Do While ts <= t  'пусть приходят до приезда автобуса
z = Rnd(1)
ts = r - 2.5 * Log(z) 'абс.время прибытия пассажиров описывается
'показательным законом распределения, 2.5мин - ср.время прибытия
r = ts
y = y + 1
Cells(y, 1) = ts  'записываем времена в 1 столбец раб.листа
w = Rnd(1) 'СЧ которое хар-ет терпеливых и нетерпеливых
Cells(y, 2) = w 'записываем СЧ в столбец 2 раб.листа
Loop
d = Application.WorksheetFunction.Count(Columns(1)) - 1 'считаем пришедших
'анализ событий происходящих на остановке
If u >= d Then    'если колво свободных мест больше колва пришедших
a = 0             'то заходят все
Else              'иначе
a = d - u          'считаем тех, кому не хватит места
For i = u + 1 To d   'для тех, кто не зайдет
If Cells(i, 2) <= 0.5 Then x = x + 1 'если вероятность не более 0.5, то терпеливый
f = a - x     'все остальные уйдут сразу
Next i
End If
Cells(7, 8) = f 'запишем необслуженных
End Sub

Private Sub CommandButton2_Click()
End   'выход
End Sub

Private Sub CommandButton3_Click()
For i = 1 To Val(Textbox3.text)   'для 100 реализаций
Call Model
f = f + Cells(7, 8) 'считаем всех необслуженных
Next i
TextBox2.Value = f / Val(Textbox3.text)
End Sub

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

[IgorGO]

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

[ИринаСергеевна]

а что за значения в 9 столбце?

[IgorGO]

это пассажиры, которые пришли на остановку пока происходила выгрузка-загрузка (этот процесс тоже растянут по времени)