Магазин с 2 продавцами

@ArturKing · Регистрация: 14.12.2014

Author24 — интернет-сервис помощи студентам

Пожалуйста помогите доработать код программы!
Задача: в магазине 2 кассы, время между приходами людей в магазин от 1 до 5 мин, время обработки клиента кассиром от 2 до 8 мин
код:

Код

***Курсач Немцева Артура***
***Моделирование работы магазина***
tabl_prod QTABLE Ocher_prod,0,2,32
    GENERATE 9.5,0.8
TRANSFER BOTH,kassa1,kassa2 

kassa1 QUEUE Ocher_kassa1
       SEIZE Kassir1
       DEPART Ocher_kassa1
       ADVANCE 5,3
       RELEASE Kassir1

kassa2 QUEUE Ocher_kassa2
       SEIZE Kassir2
       DEPART Ocher_kassa2
       ADVANCE 5,3
       RELEASE Kassir2

TERMINATE 1
START 100

Если 1 касса занята идут ко второй.
Как прописать логику если обе кассы заняты чтобы вставали в очередь с меньшим количеством людей?

Добавлено через 1 минуту
GENERATE 3,2

@Dukalys · 15.12.2014, 16:37

Сообщение от ArturKing

Как прописать логику если обе кассы заняты чтобы вставали в очередь с меньшим количеством людей?

Код

TEST E ((F$kassa1'E'0)'OR'(F$kassa2)'E'0),1,INA4e  ; если правда, что касса1 свободна или касса2 свободна, то через BOTH , иначе ...
TRANSFER BOTH,kassa1,kassa2 
...
kassa1
...
kassa2
...
ina4e тут должно выбираться устройство с минимальной очередью например
TEST L   (Q$kassa1),(Q$kassa2),kassa2  ; если очередь к кассе1 меньше чем к кассе2 то в кассу1
transfer ,kassa1

@ArturKing · 15.12.2014, 17:25 **[ТС]**

Test - это логическое "если"
Если обе очереди заняты переходит на 8 строку
дальше сравниваются длины очереди
А если очереди одинаковой длины? "LE" вместо "L"
"transfer"? блок с вероятностями?

Код

***Курсач Немцева Артура***
***Моделирование работы магазина***
tabl_prod QTABLE Ocher_prod,0,2,32
    GENERATE 3,2
TEST E ((F$kassa1'E'0)'OR'(F$kassa2)'E'0),1,INA4e 
TRANSFER BOTH,kassa1,kassa2

kassa1 QUEUE Ocher_kassa1
       SEIZE Kassir1
       DEPART Ocher_kassa1
       ADVANCE 5,3
       RELEASE Kassir1

kassa2 QUEUE Ocher_kassa2
       SEIZE Kassir2
       DEPART Ocher_kassa2
       ADVANCE 5,3
       RELEASE Kassir2

ina4e
TEST L   (Q$kassa1),(Q$kassa2),kassa2
transfer ,kassa1
TERMINATE 1
START 100

Добавлено через 5 минут
Не работает((

Добавлено через 17 минут
Сделал так:

Код

***Курсач Немцева Артура***
***Моделирование работы магазина***
tabl_prod QTABLE Ocher_prod,0,2,32
    GENERATE 3,2
TEST E ((F$kassa1'E'0)'OR'(F$kassa2)'E'0),1,INA4e 
TRANSFER BOTH,kassa1,kassa2

kassa1 QUEUE Ocher_kassa1
       SEIZE Kassir1
       DEPART Ocher_kassa1
       ADVANCE 5,3
       RELEASE Kassir1

kassa2 QUEUE Ocher_kassa2
       SEIZE Kassir2
       DEPART Ocher_kassa2
       ADVANCE 5,3
       RELEASE Kassir2

ina4e TEST LE   (Q$kassa1),(Q$kassa2),kassa2
transfer ,kassa1
TERMINATE 1
START 100

Всёравно ругаится

@ArturKing · 15.12.2014, 17:29 **[ТС]**

@ArturKing · 15.12.2014, 21:26 **[ТС]**

Исправил несколько ошибок, но всё равно не запускается

Код

***Курсач Немцева Артура***
***Моделирование работы магазина***
tabl_prod QTABLE Ocher_prod,0,2,32
GENERATE 3,2
TEST E ((Q$Ocher_kassa1'E'0)'OR'(Q$Ocher_kassa2'E'0)),1,INA4e 
TRANSFER BOTH,kassa1,kassa2

kassa1 QUEUE Ocher_kassa1
       SEIZE Kassir1
       DEPART Ocher_kassa1
       ADVANCE 5,3
       RELEASE Kassir1

kassa2 QUEUE Ocher_kassa2
       SEIZE Kassir2
       DEPART Ocher_kassa2
       ADVANCE 5,3
       RELEASE Kassir2

ina4e TEST LE   (Q$Ocher_kassa1),(Q$Ocher_kassa2),kassa2
transfer ,kassa1
TERMINATE 1
START 100

Добавлено через 1 час 37 минут
Ура! Запустилась! 2 дня сней мучаюсь
Большое спасибо!

Код

***Курсач Немцева Артура***
***Моделирование работы магазина***
tabl_prod QTABLE Ocher_prod,0,2,32
GENERATE 3,2
TEST E ((Q$Ocher_kassa1'E'0)'OR'(Q$Ocher_kassa2'E'0)),1,INA4e 
TRANSFER BOTH,kassa1,kassa2

kassa1 QUEUE Ocher_kassa1
SEIZE Kassir1
DEPART Ocher_kassa1
ADVANCE 5,3
RELEASE Kassir1

kassa2 QUEUE Ocher_kassa2
SEIZE Kassir2
DEPART Ocher_kassa2
ADVANCE 5,3
RELEASE Kassir2

TERMINATE 1

ina4e TEST LE (Q$Ocher_kassa1),(Q$Ocher_kassa2),kassa2
transfer ,kassa1
START 100

Остоётся узнать правильно ли она работает!?

@Dukalys · 15.12.2014, 21:38

В первом тесте надо проверять свойство F это свойство показывает занято ли устройство, а вы очередь проверяете.
А тест по иначе правильно сделан, там ищем меньший размер очереди.

Кликните здесь для просмотра всего текста

Оформляйте код пжлста с помощью тэгов кода.

@ArturKing 0 / 0 / 0 Регистрация: 14.12.2014 Сообщений: 4
		1
	Магазин с 2 продавцами 15.12.2014, 16:16. Показов 1264. Ответов 5 Метки нет (Все метки) Пожалуйста помогите доработать код программы! Задача: в магазине 2 кассы, время между приходами людей в магазин от 1 до 5 мин, время обработки клиента кассиром от 2 до 8 мин код: Код *Курсач Немцева Артура* *Моделирование работы магазина* tabl_prod QTABLE Ocher_prod,0,2,32 GENERATE 9.5,0.8 TRANSFER BOTH,kassa1,kassa2 kassa1 QUEUE Ocher_kassa1 SEIZE Kassir1 DEPART Ocher_kassa1 ADVANCE 5,3 RELEASE Kassir1 kassa2 QUEUE Ocher_kassa2 SEIZE Kassir2 DEPART Ocher_kassa2 ADVANCE 5,3 RELEASE Kassir2 TERMINATE 1 START 100 Если 1 касса занята идут ко второй. Как прописать логику если обе кассы заняты чтобы вставали в очередь с меньшим количеством людей? Добавлено через 1 минуту GENERATE 3,2 0

@ArturKing 0 / 0 / 0 Регистрация: 14.12.2014 Сообщений: 4
	15.12.2014, 17:29 [ТС]	4
	0

@Dukalys 1816 / 1030 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	15.12.2014, 21:38	6
	В первом тесте надо проверять свойство F это свойство показывает занято ли устройство, а вы очередь проверяете. А тест по иначе правильно сделан, там ищем меньший размер очереди. Кликните здесь для просмотра всего текста Оформляйте код пжлста с помощью тэгов кода. 0