60#60#l,1800/
60#60#2,Зб00/ 60#б0#3,Зб00/ 60#60#4,3600/ 6О#6О#5,3600/
60#60#б,б00/
60#60#7,120/
6О#6О#8,5/ 60#60#9,15/ 60#60#10,30/ 60#60#11,60/ 60#60#12,б0/
60#60#13,30/
6О#6О#14,ЗО/ 60#б0#15,60/ 60#60#16,б0/ 60#60#17,30/ 60#60#18,10/
60#60#19,15/
60#60#20,30/ 6О#6О#21,5О/ 60#60#22,100/ 6О#6О#23,100/ 6О#6О#24,200/
;было
;60#60#6,3600/
60#60#8,10/ 6О#6О#1О,ЗО/ 60#60#12,б0/ 60#б0#14,30
;60#60#17,60/
6О#6О#18.2,1О/ 60#60#22,60/ 60#б0#24,60#20
***
эта
функция задает количество пассажиров которые
как бы уже
едут
***
в
транспорте,
в
долях,
т.е.
%/100 занятых мест. Зависимость
от
времени
дня.
***
<до
данного момента>,
<%
занятых мест>
***
в
принципе
для
маршруток желательно отдельно сделать
Zanyato FUNCTION AC1,D24
60#60#1,0/
60#б0#2,0/ 6О#6О#3,О/ 60#60#4,0/ 6О#6О#5,О/ 6О#6О#6,.1/
60#60#7,.5/
60#60#8,.8/ 6О#бО#9,.8/ 60#60#10,.7/ 6О#6О#11,.5/ 60#б0#12,.4/
60#б0#13,.6/
6О#бО#14,.6/ 60#60#15,.3/ 60#60#16,.3/ 60#60#17,.5/ 60#60#18,.8/
60#б0#19,.6/
60#60#20,.3/ 60#60#21,.3/ 6О#6О#22,.2/ 6О#6О#23,.1/ 6О#6О#24,.1/
;было
;60#60#6,.5/
6О#6О#8,.5О/ 60#60#10,.30/ 60#б0#12,.20/ 60#60#14,.30
;60#60#17,.20/
60#60#18.2,.50/ 6О#6О#22,.30/ 6О#6О#24,.5
***
функция
-
просто список типов транспорта (для сравнения
в
SCAN)
ListTypes Function P$TranspNeeded,L3
1,Trolleybus/2,Autobus/3,Marshrutka
***
функция
-
просто список меток, соответствующих типам транспорта (чтобы
уехать)
ListLabls
Function
P$TranspNeeded,L3
l,Tr/2,Au/3,Ma
***
функция, возвращающая случайное число:
1,2,3
rnd Function
RNl,d3
.4,1/.8,2/1,3
*************************************************************
Gener Generate FN$Period
ASSIGN TranspNeeded,fn$rnd
;
случайный
тип
транспорта
;Join Passenger
MARK
;
Отметим время появления пассажира
на
остановке, чтобы смотреть уходить
или
подождать еще?
QUEUE OnBusStop
; Это
очередь
- для
статистики
t GATE
SNE
BusStop
;
т.е. пассажир ждет пока
не
приехал какой-
нибудь
транспорт
;
смотрит есть
ли на
остановке нужный
тип
транспорта
SCAN
Е
Transport,Туре,P$TranspNeeded,Type,SelectedTransport,Other
GATE
SNF
FN$ListTypes,Wait
;
т.е. транспорт есть,
но
есть
ли в
нем места?
Go TRANSFER ,FN$ListLabls
;
места есть, поехали
Other TEST
GE
Ml,600,Wait
;
транспорта
нет или
мест
в нем
нет.
Проверяем сколько ждет. Если меньше
10 мин.
180