Версия 2, книга 6 (Система программного обеспечения на языке GPSS)

Возможно не удалось распознать кодировку файла

Ъ——————————————————————————————————————— ———————————————————————————ї

і СИСТЕМА ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ і

і ДЛЯ ИМИТАЦИОННОГО МОДЕЛИРОВАНИЯ і

і НА ЯЗЫКЕ g p s s і

і ( СПО gpss/pc ) і

і Версия 2 і

і Книга 6 і

і ОПИСАНИЕ КОНТРОЛЬНОГО ПРИМЕРА і

А——————————————————————————————————————— ———————————————————————————Щ

29. ОПИСАНИЕ КОНТРОЛЬНОГО ПРИМЕРА

В файле acme.gps на дистрибутивном носителе 2 содержится ис-

ходный текст контрольного примера. Контрольный пример проверяет ра-

боту ряда операторов gpss/pc и демонстрирует мультипликационные

возможности системы gpss/pc. Моделируется фукнционирование автомо-

бильной окрасочной мастерской . Функциональной направленностью мо-

дели является определение узких мест в работе мастерской, при раз-

личных режимах функционирования последней.

Контрольный пример может быть продемотстрирован в полном объ-

еме, при наличии в комплекте ПЭВМ пользователя цветного , либо мо-

нохроматического графического дисплея с адаптером ega. При исполь-

зовании для прогона контрольного примера ПЭВМ, имеющихся монохрома-

тических , либо цветной дисплей с адаптерами, отличными от ega ,

возможна замена изображений перемещающихся по экрану дисплея дина-

мических объектов модели на буквы латинского алфавита. Последнее не

влияет на результаты моделирования, но ухудшает качество восприя-

тия.

Приведем два варианта запуска контрольного примера , с ис-

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

ванием устройства с жестким диском.

При использовании устройства (дисковода) для гибких дисков

необходимо выполнить следующие действия.

На две рабочие дискеты копируется содержимое дистрибутивных

носителей симтемы gpss/pc. Это делается следующим образом. В актив-

ный дисковод (для примера А) устанавливается дискета с копией сис-

темной программы diskcopy.com и вводится команда

a:>diskcopy

Программа diskcopy выдает запрос на замену дискеты на устрой-

стве А на дискету, содержащую информацию для копирования и нажатия

любой клавиши. Поскольку другие дисководы в команде не заданы , бу-

дет задействован активный дисковод А , как для оригинала так и для

диска-копии. diskcopy показывает, сколько секторов и дорожек приме-

няется для записи на исходном диске, а затем форматирует диск-копию

в соответствии с форматом оригинала. В зависимости от об'ема дос-

тупной для буферизации копирования оперативной памяти Вы должны по-

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

щую) копию. При этом всякий раз на экране Вы будете получать подс-

казку - какой именно диск (из двух) нужно вставить в данный момент.

По завершении операции копирования diskcopy предложит Вам скопиро-

вать еще один диск. Если Вы хотите продолжить копирование, ответьте

y и повторите описанную выше процедуру. В противном случае введите

символ n.

Подготовив, таким образом, копии дистрибутивных носителей по-

метьте их номерами 1 и 2, в соответствии с оригиналами. В дальней-

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

телей, которые для краткости будем называть дистрибутивными носите-

лями 1 и 2.

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

с материалом разд.25 и 26, содержащим информацию о составе дистри-

бутивных носителей и об условиях применения системы gpss/pc. Кроме

того, необходимо выполнить все рекомендации разд.26 (Условия приме-

неня системы gpss/pc). Далее, файл posacme.gps, расположенный на

первом дистрибутивном носителе, необходимо переименовать или скопи-

ровать в файл position.gps. Кроме того, необходимо в стороке файла

settings.gps с номером #43, установить значение 1 (режим collision

prevention mode).

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

трибутивный носитель 1 на активный дисковод (А) и выдать команду

a>gpsspc

После запуска системы нужно установить на активный дисковод

второй дистрибутивный носитель, вместо первого и выдать команду

@acme.gps

запускающую контрольный пример.

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

диска необходимо скопировать содержимое дистрибутивных носителей в

каталог (подкаталог) с именем gpss на магнитный носитель ПЭВМ (имя

каталога - условное, определяется пользователем). Это делается с

помощью следующей цепочки команд:

c:md gpss - создание каталога gpss на устройстве c;

c:cd gpss - объявление каталога gpss текущим;

c:\gpss>copy a:*.* - копирование содержимого дистрибутивного

носителей, предварительно устанавливаемых на устройстве a:;

c:\gpss>copy a:*.*

После этого необходимо выполнить все требования, описанные

для случая использования устройств с гибкими магнитными дисками.

Контрольный пример запускается с жесткого диска командой

c:\gpss>gpsspc@acme.gps

gpss/pc сначала считает программу модели в рабочий буфер, за-

тем перейдет в окно позиций (positions window) и начнет процесс мо-

делирования.

На рис.15. представлен общий вид картинки, получаемой на эк-

ране дисплея. В программе acme paint shop моделируются следующие

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

шивается последним роботом, после чего этот автомобиль продается по-

купателям, которые появляются справа. Оба робота имеют восстанови-

тельный период, в течение которого они не работают. Все действия

управляются временными интервалами, которые могут быть изменены в

ходе моделирования. Также можно взаимодействовать с автомобилями,

роботами, покупателями, используя компоненты меню или средства руч-

ного моделирования. В четырех микроокнах, постоянно отображается:

текущий счет мастерской (cast), текущее количество автомобилей, об-

служенных первым (primed) и последним (painted) роботами и время

моделирования (clock).

Рассмотрим программу, реализующую модель

; gpss/pc program file acme.gps. (v 2, # 37349) 11-15-1989 22:06:53

100 ;*********use posacme.gps for the position.gps file.*********

102 ;

104 ;

106 ; time definitions

108 ;

110 ;

112 ;

114 move_time equ 4

116 body_interarrivals equ 60

118 primer_time equ 15

120 painter_time equ 22

122 cust_interarrivals equ 60

124 primer_reset_time equ 40

126 painter_reset_time equ 18

128 ;

130 ;

132 ; color definitions

134 ;

136 ;

138 blue equ 1

140 green equ 2

142 cyan equ 3

144 red equ 4

146 magenta equ 5

148 brown equ 6

150 white equ 7

152 gray equ 8

154 light_blue equ 9

156 light_green equ 10

158 light_cyan equ 11

160 light_red equ 12

162 light_magenta equ 13

164 yellow equ 14

166 bright_white equ 15

167 invisible equ 100

168 ;

170 ;

172 ; shape definitions

174 ;

176 ;

178 customer equ 7

180 robot_1 equ 8

182 robot_2 equ 9

184 car_body_right equ 1

192 car_body_down equ 4