Форум программистов, компьютерный форум, киберфорум
GPSS
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 09.05.2019
Сообщений: 2
1

Как модернизировать данный GPSS код, чтоб на выходе получилось 1 млн деталей?

09.05.2019, 14:58. Показов 796. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
А то написать написал, а как модернизировать - не понимаю))

Код
;сборка детали 1-2
	GENERATE 6,2                    	;Деталь 1-2;
	ADVANCE 8,2	               ;Сб.1-1
	QUEUE Det12	               ;поступление детали 1-2
	TERMINATE		              ;выход

;сборка детали 1-3 и 1-4
	GENERATE 10,4	                 ;Деталь 1-3;
	QUEUE Det13	                ;поступление детали 1-3
	TERMINATE	               	;выход

	GENERATE 12,5	                      ;Деталь 1-4
	TEST NE 0,Q$Det13	                 ;проверка наличия детали 1-3
	DEPART Det13	                 ;берем деталь 1-3
	ADVANCE 6,2	                     ;Сб.2-1
	QUEUE Det134	                      ;поступление детали 1-3 и 1-4
	TERMINATE		                  ;выход

;сборка детали 3-1 до 3-4
	GENERATE 5	                  ;Деталь 3-1
	TEST NE 0,Q$Det32	                  ;проверка наличия детали 3-2
	DEPART Det32	                    ;берем деталь 3-2
	TEST NE 0,Q$Det33	                          ; проверка наличия детали 3-3
	DEPART Det33	                 ;берем деталь 3-3
	TEST NE 0,Q$Det34	               ;проверка наличия детали 3-4
	DEPART Det34	                  ;берем деталь 3-4
	ADVANCE 7,3	                    ;Сб.3-1
	QUEUE Det31234	                                ;получаем сборку 3-1,3-2,3-3,3-4
	TERMINATE		                      ;выход
	
	GENERATE 8,2	                      ;Деталь 3-2
	QUEUE Det32	                   ;поступление детали 3-2
	TERMINATE		                 ;
	
	GENERATE 9,4	                       ;Деталь 3-3
	QUEUE Det33	              ;поступление детали 3-3
	TERMINATE		                ;выход
	
	GENERATE 5,1	        ;Деталь 3-4
	QUEUE Det34	             ;поступление детали 3-4
	TERMINATE		                     ;выход

;сборка детали 3-5 и 3-6
	GENERATE 4,2	          ;Деталь 3-5
	QUEUE Det35	            ;поступление детали 3-5
	TERMINATE	                          	;выход

	GENERATE 8,3	                  ;Деталь 3-6
	TEST NE 0,Q$Det35	                       ;проверка наличия детали 3-5
	DEPART Det35	                 ;берем деталь 3-5
	ADVANCE 9,3	               ;Сб.3-2
	QUEUE Det356	                ;получаем сборку 3-5,3-6
	TERMINATE	                                      	;выход

	GENERATE 11,4	                     ;Деталь 3-8
	TEST NE 0,Q$Det31234	               ;Проверка наличия сборки 3-1,3-2,3-3,3-4
	DEPART Det31234	                  ;Берем сборку 3-1,3-2,3-3,3-4
	TEST NE 0,Q$Det356	                       ;Проверка наличия сборки 3-5,3-6
	DEPART Det356	                      ;Берем сборку 3-5,3-6
	ADVANCE 12,3	                         ;Сб.3
	QUEUE Det31234568	                            ;получаем сборку 3-1,3-2,3-3,3-4,3-5,3-6,3-8
	TERMINATE		                            ;выход

;сборка детали 2-1 и 2-2	
	GENERATE 7,3	                          ;Деталь 2-1
	QUEUE Det21	                 ;поступление детали 2-1
	TERMINATE	                                  	;выход

	GENERATE 11,5                           	;Деталь 2-2
	TEST NE 0,Q$Det21	                 ;проверка наличия детали 2-1
	DEPART Det21	                 ;берем деталь 2-1
	ADVANCE 6,2	               ;Сб.2-1
	QUEUE Det212	                       ;получаем сборку 2-1,2-2
	TERMINATE	                   	;выход

	GENERATE 8,3	               ;Деталь 2-3
	QUEUE Det23	                     ;поступление детали 2-3
	TERMINATE		             ;выход
	GENERATE 6,3                	;Деталь 2-4
	QUEUE Det24	                ;поступление детали 2-4
	TERMINATE		                 ;выход
	GENERATE 8,3	                    ;Деталь 2-5
	TEST NE 0,Q$Det212                     	;Проверка наличия сборки 2-1 и 2-2
	DEPART Det212                  	;Берем сборку 2-1 и 2-2
	TEST NE 0,Q$Det23	                 ;Проверка наличия детали 2-3
	DEPART Det23	                  ;Берем деталь 2-3
	TEST NE 0,Q$Det24	                ;Проверка наличия детали 2-4
	DEPART Det24	                 ;Берем деталь 2-4
	ADVANCE 13,4                          	;Сб.2
	QUEUE Det212345	                             ;поступление сборки 2-1,2-2,2-3,2-4,2-5
	TERMINATE		                    ;выход


	GENERATE 8,3	            ;Деталь 4-1
	QUEUE Det41	                ;поступление детали 4-1
	TERMINATE	                	;выход
	GENERATE 7,3	              ;Деталь 4-2
	QUEUE Det42	                 ;поступление детали 4-2
	TERMINATE		                 ;выход
	GENERATE 10,3                    	;Деталь 4-3
	TEST NE 0,Q$Det41	                      ;Проверка наличия детали 4-1
	DEPART Det41	                                ;Берем деталь 4-1
	TEST NE 0,Q$Det42	                   ;Проверка наличия детали 4-2
	DEPART Det42	                     ;Берем деталь 4-2
	ADVANCE 13,4	                      ;Сб.4
	QUEUE Det4123	                 ;поступление детали 4-3	
	TERMINATE		                      ;выход
	GENERATE 9,4	                     ;Деталь 0-1
	QUEUE Det01	                    ;поступление детали 0-1
	TERMINATE	                   	;выход


;сборка изделия	
	GENERATE 7                       ;ПП
	TEST NE 0,Q$Det12	                  ;Проверка наличия детали 1-2
	DEPART Det12	                   ;Берем деталь 1-2

	TEST NE 0,Q$Det134                                   	;Проверка наличия детали 1-3 и 1-4
	DEPART Det134                                	;Берем деталь 1-3 и 1-4
            
	TEST NE 0,Q$Det212345	                ;Проверка наличия сборки 2-1,2-2,2-3,2-4,2-5
	DEPART Det212345	                         ;Берем сборку 2-1,2-2,2-3,2-4,2-5

	TEST NE 0,Q$Det31234568	;Проверка наличия сборки 3-1,3-2,3-3,3-4,3-5,3-6,3-8
	DEPART Det31234568	                     ;Берем сборку 3-1,3-2,3-3,3-4,3-5,3-6,3-8

	TEST NE 0,Q$Det4123	         ;Проверка наличия сборки 4-1,4-2,4-3
	DEPART Det4123	                 ;Берем сборку 4-1,4-2,4-3

	TEST NE 0,Q$Det01	                     ;Проверка наличия детали 0-1
	DEPART Det01	                        ;Берем деталь 0-1

	TERMINATE		               ;выход изделия

;сегмент таймера
	GENERATE 72000	                   ;20 часов в день =72000 сек
	TERMINATE 1	                    ;завершение
	START 1		                    ;моделируем 1 сутки

Спасибо тем, кто поможет)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.05.2019, 14:58
Ответы с готовыми решениями:

Модернизировать данный код под вызов в интервале 1 мс
ребят помогите пожалуйста можно как нибудь улучшить данный код, стоит под таймером, таймер...

Как модернизировать счетчик, чтоб он показывал и за сегодня, и хосты?
Вот храню в файле количество посещений за сегодня. Как модернизировать счетчик, чтоб он показывал...

как сделать сортировку чтоб получилось полное совпадение
Добрый день! Подскажите, пожалуйста! Есть огромная таблица со множеством строк и столбцов, в ней...

Что нужно сделать, чтоб данный код работал с поздним связыванием Excel?
Мне нужно перевести приложение на позднее связывание с EXCEL'ем, так как планируется его...

0
09.05.2019, 14:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2019, 14:58
Помогаю со студенческими работами здесь

В Англії проживає 50 млн. чоловік, у Франції 70 млн. чоловік, у Німеччині - 44 млн. чоловік,
В Англії проживає 50 млн. чоловік, у Франції 70 млн. чоловік, у Німеччині - 44 млн. чоловік, у...

Модернизировать код
Здравствуйте,форумчане.Задание таково:Структура елемента масиву атестаційні картки групи: прізвище,...

Модернизировать код
Добрый день Подскажите как переделать код. Что бы Он был более меньшего размера. for i2 := 0 to...

Модернизировать код
Есть код, он читает один файл, и сразу записывает его двоичной код в блокнот: #include <sstream>...

Прописка в автозагрузке (модернизировать код)
Есть код. proc SetAutorun pushad jmp ..DoAutorun StrCorrectFormat du '/c REG ADD...

Модернизировать код использую apply
Добрый день. Помогите изменить код Код вычисляет среднее арифметическое отрицательных чисел...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru