Многоканальная СМО с неограниченою очередью

@imbaTapac · Регистрация: 20.04.2015

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

Есть задача : В порту имеются причалы для разгрузки судов. Интенсивность потока судов равна λ судов в сутки. Среднее время разгрузки судна составляет s суток . Предполагается , что очередь судов ,ожидающих разгрузки, может быть неограниченной длины.
Входные параметры:
1.Интенсивность поступления заявок λ = 0,6;
2.Среднее время разгрузки судна s = 4 суток;
3.Количество каналов r = 6;
4.Интенсивность обслуживания μ = 1/s = 0,25;
Нагрузка СМО, ρ = ( λ )/μ = 2,4;

Вопрос - как написать это в GPSS WORLD и сделать график?Помогите пожалуйста

@Dukalys · 18.11.2016, 20:07

Вроде так, а зачем в условии задачи тогда это продублировано .... Запутать видимо.

@imbaTapac · 18.11.2016, 20:26 **[ТС]**

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

Вроде так, а зачем в условии задачи тогда это продублировано .... Запутать видимо.

Lam и Mu я буду потом использовать для сравнение аналитической модели и имитационной.
По поводу блока трансфер поставил каждую третью строку , и теперь мне пишет в отчете что 5 и 6 блоки UNSPECIFIED "Обычно это ключевое слово используется, чтобы указать на отсутствие данных в
матрице результатов" ,и я не могу понять это так нужно или нет? =)

@Dukalys · 18.11.2016, 20:38

Это может значить что до них дело не доходило и для исследуемых исходных данных хватает только 4х каналов. Увеличьте время моделирования и интенсивность на входе и увидите что используются все (то есть искусственно создайте режим перенасыщения модели заявками)

@imbaTapac · 18.11.2016, 20:50 **[ТС]**

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

MIT1 TEST L Q$PORT,OUT ; чи є вільне місце в черзі
?
Q$PORT < OUT? что такое OUT
посмотрите значение OUT в результатах моделирования, явно не то что надо.

в конце кода есть
OUT TERMINATE

И еще ,вы говорили ставить DEPART сразу после ENTER но прога ругается на такое,вы бы не могли показать на примере моего когда куда это логичней поставить?

@Dukalys · 18.11.2016, 20:51

Запустите моделирование и скиньте начало отчёта где есть OUT и число

@imbaTapac · 18.11.2016, 20:53 **[ТС]**

Вот

@Dukalys · 18.11.2016, 20:53

Начало отчёта где показано значение OUT

@imbaTapac · 18.11.2016, 20:55 **[ТС]**

Начало

@Dukalys · 18.11.2016, 20:59

Ага, OUT = 26

А зачем вы в модели сравниваете 0 и 26

TEST L Q$PORT,OUT
0 < 26? Да

Добавлено через 1 минуту
У вас нету очереди PORT, записывая Q$PORT вы её создаёте, но от этого в ней не становится больше заявок.

@imbaTapac · 18.11.2016, 21:02 **[ТС]**

MIT1 TEST L Q$OCHER,OUT; чи є вільне місце в черзі
QUEUE OCHER; Занятие порту
я скинул код,потом сразу же изменил ,то есть это отчет для OCHER а не PORT если заменить на PORT - результат тот же

@Dukalys · 18.11.2016, 21:03

Дак а какой смысл в этой проверке то?
очередь < 26?

Что за сакральный смысл в числе 26? Каким образом это оговорено в условии

@imbaTapac · 18.11.2016, 21:04 **[ТС]**

Я по идее должен написать так MIT1 TEST L Q$OCHER,6,OUT; где 6 это номер блока GENERATE (Exponential(1,0,(1/Lam)));

@Dukalys · 18.11.2016, 21:05

У вас очередь в условии задачи НЕ ограничена, зачем вы пытаетесь её ограничить 6. заявками?

@imbaTapac · 18.11.2016, 21:08 **[ТС]**

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

Дак а какой смысл в этой проверке то?
очередь < 26?
Что за сакральный смысл в числе 26? Каким образом это оговорено в условии

Убрать это и после перед каждым каналом ставить TEST F$CAN1 ?

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

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

У вас очередь в условии задачи НЕ ограничена, зачем вы пытаетесь её ограничить 6. заявками?

Да,вы правы,уже голова просто не соображает с этой задачей =)

@Dukalys · 18.11.2016, 21:09

У вас какоето непонимание, либо смысла блока ENTER-LEAVE, либо TRANSFER в режиме ALL.
Откройте книгу Шрайбера и почитайте про эти блоки.

@imbaTapac · 18.11.2016, 21:45 **[ТС]**

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

У вас какоето непонимание, либо смысла блока ENTER-LEAVE, либо TRANSFER в режиме ALL.

С блоком трансфер разобрался а вот с входом и выходом нет

Код

Lam EQU 0.6; інтенсивність потоку замовлень 
Mu EQU 0.25 ; інтенсивність потоку обслуговувань 
Imo VARIABLE N$MIT2/N$MIT1 ; ймовірність обслуговування 
CHMOD EQU 480; час моделювання 
PORT STORAGE 6 ; 6 портов

GENERATE (Exponential(1,0,(1/Lam))); 
QUEUE OCHER; Занятие порту
ENTER PORT,1 ;Початок обслуговування 

TRANSFER ALL,KAN1,KAN6,3; знайти вільний канал 
KAN1 		SEIZE CAN1 ; чи вільний канал 1? 
ASSIGN 1,CAN1 ; записати номер каналу 
RELEASE CAN1; на вихід з черги 
SEIZE CAN2 ; чи вільний канал 2? 
ASSIGN 1,CAN2 ; записати номер каналу 
RELEASE CAN2; на вихід з черги 
SEIZE CAN3 ; чи вільний канал 3? 
ASSIGN 1,CAN3 ; записати номер каналу 
RELEASE CAN3; ; на вихід з черги 
SEIZE CAN4 ; чи вільний канал 4? 
ASSIGN 1,CAN4 ; записати номер каналу 
RELEASE CAN4; на вихід з черги 
SEIZE CAN5;
ASSIGN 1,CAN5;
RELEASE CAN5;

KAN6 	SEIZE CAN6 ; чи вільний канал 6? 
ASSIGN 1,CAN6 ; записати номер каналу 
RELEASE CAN6;

DEPART OCHER; вийти з черги 
ADVANCE (Exponential(1,0,(1/Mu))) ; обслуговування 
LEAVE PORT,1
TERMINATE ;
 
  
GENERATE CHMOD ; реалізувати час моделювання 
TERMINATE 1
START 1;

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

Код
SIMULATE ;
PORT STORAGE 6 ; 6 портов
GENERATE (Exponential(1,0,0.6)) ;Приход корабля
QUEUE OCHER; Занятие порту
ENTER PORT,1 ;Початок обслуговування
DEPART OCHER ;Звільнення черги
ADVANCE (EXPONENTIAL(1,0,4)); Обслуживание
LEAVE PORT,1; Завершение обслуживания
TERMINATE ;Уход корабля
GENERATE 4 ;Время завершения моделирования
TERMINATE 1 ;
START 1 ;Системный счетчик равен 1

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

Статистика будет общая по всему многоканальному устройству, посмотрите если не хватает такой статистики то делайте seize release с выбором нужного устройства как выше.

Собственно говоря,я так и сделал для статистики по всем каналам и теперь везде выдает 0(для каждого канала)

@Dukalys · 18.11.2016, 21:54

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

теперь везде выдает 0(для каждого канала)

Справедливо.

Код

KAN1 		SEIZE CAN1 ; чи вільний канал 1? 
ASSIGN 1,CAN1 ; записати номер каналу 
RELEASE CAN1; на вихід з черги

поскольку занял - освободил происходит мгновенно без задержки.

@imbaTapac · 18.11.2016, 21:56 **[ТС]**

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

поскольку занял - освободил происходит сгновенно без задержки.

я так понял я сделал неправильно? =)

@Dukalys · 18.11.2016, 21:57

Точно. SEIZE-RELEASE

@imbaTapac · 18.11.2016, 22:03 **[ТС]**

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

Точно. SEIZE-RELEASE

А как я сделал тогда я не пойму ?

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 20:38	23
	Это может значить что до них дело не доходило и для исследуемых исходных данных хватает только 4х каналов. Увеличьте время моделирования и интенсивность на входе и увидите что используются все (то есть искусственно создайте режим перенасыщения модели заявками) 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 20:53	27
	Начало отчёта где показано значение OUT 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 20:55 [ТС]	28
	Начало Миниатюры 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 20:59	29
	Ага, OUT = 26 А зачем вы в модели сравниваете 0 и 26 TEST L Q$PORT,OUT 0 < 26? Да Добавлено через 1 минуту У вас нету очереди PORT, записывая Q$PORT вы её создаёте, но от этого в ней не становится больше заявок. 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 21:02 [ТС]	30
	MIT1 TEST L Q$OCHER,OUT; чи є вільне місце в черзі QUEUE OCHER; Занятие порту я скинул код,потом сразу же изменил ,то есть это отчет для OCHER а не PORT если заменить на PORT - результат тот же 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 20:07	21
	Вроде так, а зачем в условии задачи тогда это продублировано .... Запутать видимо. 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 20:26 [ТС]	22
	Сообщение от Dukalys Вроде так, а зачем в условии задачи тогда это продублировано .... Запутать видимо. Lam и Mu я буду потом использовать для сравнение аналитической модели и имитационной. По поводу блока трансфер поставил каждую третью строку , и теперь мне пишет в отчете что 5 и 6 блоки UNSPECIFIED "Обычно это ключевое слово используется, чтобы указать на отсутствие данных в матрице результатов" ,и я не могу понять это так нужно или нет? =) 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 20:50 [ТС]	24
	Сообщение от Dukalys MIT1 TEST L Q$PORT,OUT ; чи є вільне місце в черзі ? Q$PORT < OUT? что такое OUT посмотрите значение OUT в результатах моделирования, явно не то что надо. в конце кода есть OUT TERMINATE И еще ,вы говорили ставить DEPART сразу после ENTER но прога ругается на такое,вы бы не могли показать на примере моего когда куда это логичней поставить? 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 20:51	25
	Запустите моделирование и скиньте начало отчёта где есть OUT и число 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 20:53 [ТС]	26
	Вот Миниатюры 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 21:03	31
	Дак а какой смысл в этой проверке то? очередь < 26? Что за сакральный смысл в числе 26? Каким образом это оговорено в условии 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 21:04 [ТС]	32
	Я по идее должен написать так MIT1 TEST L Q$OCHER,6,OUT; где 6 это номер блока GENERATE (Exponential(1,0,(1/Lam))); 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 21:05	33
	У вас очередь в условии задачи НЕ ограничена, зачем вы пытаетесь её ограничить 6. заявками? 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 21:08 [ТС]	34
	Сообщение от Dukalys Дак а какой смысл в этой проверке то? очередь < 26? Что за сакральный смысл в числе 26? Каким образом это оговорено в условии Убрать это и после перед каждым каналом ставить TEST F$CAN1 ? Добавлено через 1 минуту Сообщение от Dukalys У вас очередь в условии задачи НЕ ограничена, зачем вы пытаетесь её ограничить 6. заявками? Да,вы правы,уже голова просто не соображает с этой задачей =) 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 21:09	35
	У вас какоето непонимание, либо смысла блока ENTER-LEAVE, либо TRANSFER в режиме ALL. Откройте книгу Шрайбера и почитайте про эти блоки. 0

	18.11.2016, 22:03

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 21:45 [ТС]	36
	Сообщение от Dukalys У вас какоето непонимание, либо смысла блока ENTER-LEAVE, либо TRANSFER в режиме ALL. С блоком трансфер разобрался а вот с входом и выходом нет Код Lam EQU 0.6; інтенсивність потоку замовлень Mu EQU 0.25 ; інтенсивність потоку обслуговувань Imo VARIABLE N$MIT2/N$MIT1 ; ймовірність обслуговування CHMOD EQU 480; час моделювання PORT STORAGE 6 ; 6 портов GENERATE (Exponential(1,0,(1/Lam))); QUEUE OCHER; Занятие порту ENTER PORT,1 ;Початок обслуговування TRANSFER ALL,KAN1,KAN6,3; знайти вільний канал KAN1 SEIZE CAN1 ; чи вільний канал 1? ASSIGN 1,CAN1 ; записати номер каналу RELEASE CAN1; на вихід з черги SEIZE CAN2 ; чи вільний канал 2? ASSIGN 1,CAN2 ; записати номер каналу RELEASE CAN2; на вихід з черги SEIZE CAN3 ; чи вільний канал 3? ASSIGN 1,CAN3 ; записати номер каналу RELEASE CAN3; ; на вихід з черги SEIZE CAN4 ; чи вільний канал 4? ASSIGN 1,CAN4 ; записати номер каналу RELEASE CAN4; на вихід з черги SEIZE CAN5; ASSIGN 1,CAN5; RELEASE CAN5; KAN6 SEIZE CAN6 ; чи вільний канал 6? ASSIGN 1,CAN6 ; записати номер каналу RELEASE CAN6; DEPART OCHER; вийти з черги ADVANCE (Exponential(1,0,(1/Mu))) ; обслуговування LEAVE PORT,1 TERMINATE ; GENERATE CHMOD ; реалізувати час моделювання TERMINATE 1 START 1; Сообщение от imbaTapac Код SIMULATE ; PORT STORAGE 6 ; 6 портов GENERATE (Exponential(1,0,0.6)) ;Приход корабля QUEUE OCHER; Занятие порту ENTER PORT,1 ;Початок обслуговування DEPART OCHER ;Звільнення черги ADVANCE (EXPONENTIAL(1,0,4)); Обслуживание LEAVE PORT,1; Завершение обслуживания TERMINATE ;Уход корабля GENERATE 4 ;Время завершения моделирования TERMINATE 1 ; START 1 ;Системный счетчик равен 1 Сообщение от Dukalys Статистика будет общая по всему многоканальному устройству, посмотрите если не хватает такой статистики то делайте seize release с выбором нужного устройства как выше. Собственно говоря,я так и сделал для статистики по всем каналам и теперь везде выдает 0(для каждого канала) 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 21:54	37
	Сообщение от imbaTapac теперь везде выдает 0(для каждого канала) Справедливо. Код KAN1 SEIZE CAN1 ; чи вільний канал 1? ASSIGN 1,CAN1 ; записати номер каналу RELEASE CAN1; на вихід з черги поскольку занял - освободил происходит мгновенно без задержки. 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 21:56 [ТС]	38
	Сообщение от Dukalys поскольку занял - освободил происходит сгновенно без задержки. я так понял я сделал неправильно? =) 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	18.11.2016, 21:57	39
	Точно. SEIZE-RELEASE 0

@imbaTapac 1 / 1 / 1 Регистрация: 20.04.2015 Сообщений: 52
	18.11.2016, 22:03 [ТС]	40
	Сообщение от Dukalys Точно. SEIZE-RELEASE А как я сделал тогда я не пойму ? 0