Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Мат моделирование (Лисов) / Моделирование систем на GPSS / GPSSLAB2
.TXTЊЋ‘ЉЋ‚‘Љ€‰ ѓЋ‘“„Ђђ‘’‚…ЌЌ›‰ €Ќ‘’€’“’ ќ‹…Љ’ђЋЌЌЋ‰ ’…•Ќ€Љ€
Љ дҐ¤а Ёд®а¬ вЁЄЁ Ё ЏЋ ‚‘
„ЁбжЁЇ«Ё "‚лзЁб«ЁвҐ«млҐ бЁбвҐ¬л Ё бҐвЁ"
“’‚…ђ†„Ђћ
‡ ў. Є 䥤ன €ЏЋ‚‘
¤.в.., Їа®дҐбб®а
_____________ ‚.”.ЂЌњѓ€Ќ
_____________ 1994 Ј.
ЊЋ„…‹€ђЋ‚ЂЌ€… ‘€‘’…Њ ЌЂ GPSS
‹ Ў®а в®а п а Ў®в 2
ђ §p Ў®в «: Їа®д. ЉЋ‘’€Ќ Ђ.….
Ћд®p¬Ё« : Ё¦. †ЂђЉЋ‚Ђ ’.‚.
Њ®бЄў - 1994
- 2 -
–…‹њ ђЂЃЋ’›
–Ґ«м а Ў®вл - ᮧ¤ ЁҐ Ё Ёбб«Ґ¤®ў ЁҐ Ё¬Ёв жЁ®ле ¬®¤Ґ«Ґ©
Ёд®а¬ жЁ®®-ўлзЁб«ЁвҐ«мле бЁб⥬ Ё бҐвҐ© п§лЄҐ GPSS ў
бЁб⥬Ґ GPSS/PC.
ЂЇЇ а вга - ЇҐаб® «мл© Є®¬ЇмовҐа вЁЇ IBM PC AT/286 б®
бв ¤ авл¬ Ў®а®¬ ўҐиЁе гбва®©бвў.
Џа®Ја ¬¬ п б। - ®ЇҐа жЁ® п бЁб⥬ MS-DOS Ё Їа®Ја ¬¬лҐ
¬®¤г«Ё бЁбвҐ¬л ¬®¤Ґ«Ёа®ў Ёп GPSS/PC дЁа¬л Minuteman Software,
в Є¦Ґ Ў®а ⥪бв®ўле д ©«®ў, ᮤҐа¦ йЁе ЇаЁ¬Ґал ®ЇЁб Ёп ¬®¤Ґ«Ґ©
п§лЄҐ GPSS Ё ®ЇЁб ЁҐ п§лЄ Ё бЁб⥬л GPSS/PC.
–Ґ«Ґб®®Ўа §®бвм ўлЇ®«ҐЁп а Ў®вл
‘।Ё а бЇа®бва Ґле ў бв®п饥 ўаҐ¬п бЁб⥬ Ё¬Ёв жЁ®®Ј®
¬®¤Ґ«Ёа®ў Ёп GPSS - ®¤ Ё§ ЁЎ®«ҐҐ Ї®Їг«пале. ќв бЁб⥬
®б®ў в Є §лў Ґ¬®¬ ва § Єв®¬ бЇ®б®ЎҐ Ё¬Ёв жЁЁ, ЇаЁ
Є®в®а®¬ ¤Ё ¬ЁзҐбЄЁҐ ®ЎмҐЄвл ў б®бв ўҐ ¬®¤Ґ«Ёа㥬®© бЁб⥬л
а бб¬ ваЁў овбп Є Є ва § Євл, ®Ў« ¤ ойЁҐ Ў®а®¬ Ї а ¬Ґва®ў
( ваЁЎгв®ў). ЏаЁ н⮬ ¬®¤Ґ«Ёа㥬 п бЁб⥬ ва ЄвгҐвбпў вҐа¬Ё е
⥮ਨ ¬ бб®ў®Ј® ®Ўб«г¦Ёў Ёп, в.Ґ. Є Є ҐЄ®в®а п ‘ЊЋ. €§ўҐбв®,
зв® ў вҐа¬Ё е ‘ЊЋ ¤®бв в®з® ¤ҐЄў в® ¬®Јгв Ўлвм ЇаҐ¤бв ў«Ґл
а §®®Ўа §лҐ бЁбвҐ¬л ®Ўа Ў®вЄЁ ¤ ле Ё, ў з бв®бвЁ,
ўлзЁб«ЁвҐ«млҐ бЁбвҐ¬л Ё бҐвЁ. Џ®н⮬㠧 ЁҐ ®б®ў GPSS Ё 㬥ЁҐ
ЇаЁ¬Ґпвм GPSS пў«повбп бгйҐб⢥묨 бЇҐЄв ¬Ё Їа®дҐббЁ® «м®©
Ї®¤Ј®в®ўЄЁ Ёбб«Ґ¤®ў ⥫Ґ© Ё а §а Ў®взЁЄ®ў ўлзЁб«ЁвҐ«мле бЁб⥬ Ё
бҐвҐ©.
ЋЇЁб ЁҐ ¤ ®© « Ў®а в®а®© а Ў®вл ᮤҐа¦Ёв б«Ґ¤гойЁҐ
а §¤Ґ«л:
1. ’ॡ®ў Ёп Є ®д®а¬«ҐЁо ®взҐв .
2. ‡ ¤ Ёп ᮧ¤ ЁҐ Ё Ёбб«Ґ¤®ў ЁҐ ¬®¤Ґ«Ґ© ўлзЁб«ЁвҐ«мле
бЁб⥬ Ё бҐвҐ©.
3. ‘ЇЁб®Є «ЁвҐа вгал.
4. ЏаЁ«®¦ҐЁҐ: Ќ Ў®а ЇаЁ¬Ґа®ў ®ЇЁб Ё© ¬®¤Ґ«Ґ© GPSS. ќвЁ
ЇаЁ¬Ґал ¬®Јгв ЁбЇ®«м§®ў вмбп бв㤥⠬Ё ¤«п гпбҐЁп ®б®ЎҐ®б⥩
ЇаЁ¬ҐҐЁп п§лЄ®ўле Є®бвагЄжЁ© GPSS ЇаЁ а §а Ў®вЄҐ б®Ўб⢥ле
GPSS-¬®¤Ґ«Ґ©.
ЏаҐ¤Ї®« Ј Ґвбп, зв® ЇҐаҐ¤ ўлЇ®«ҐЁҐ¬ ¤ ®© « Ў®а в®а®©
а Ў®вл ўлЇ®«Ґ « Ў®а в®а п а Ў®в 1 "Њ®¤Ґ«Ёа®ў ЁҐ GPSS".
ЏаЁ Ґ®Ўе®¤Ё¬®бвЁ бв㤥⠬ б«Ґ¤гҐв ®Ўа й вмбп Є бў®¤ЄҐ ®б®ўле
®ЇҐа в®а®ў п§лЄ GPSS, ЇаЁўҐ¤Ґ®© ў §ў ®© « Ў®а в®а®© а Ў®вҐ.
1. ’ђ…ЃЋ‚ЂЌ€џ Љ Ћ”ЋђЊ‹…Ќ€ћ Ћ’—…’Ђ
ЋвзҐв ® ўлЇ®«ҐЁЁ ¤ ®© а Ў®вл ў бЁб⥬Ґ GPSS/PC ¤®«¦Ґ
ᮤҐа¦ вм:
1. Ќ §ў ЁҐ а Ў®вл.
2. ЋЇЁб ЁҐ § ¤ зЁ ¬®¤Ґ«Ёа®ў Ёп (⥪бв § ¤ Ёп, бвагЄвга п
б奬 ¬®¤Ґ«Ёа㥬®© бЁб⥬л, ®ЇЁб ЁҐ Ёд®а¬ жЁ®ле Ї®в®Є®ў Ё Ёе
е а ЄвҐаЁбвЁЄ).
3. ’Ґ®аҐвЁзҐбЄЁ© ¬ вҐаЁ « Ї® ў аЁ вг § ¤ Ёп.
4. ЋЇЁб ЁҐ «Ј®аЁв¬ ¬®¤Ґ«Ёа®ў Ёп Ё ЇаЁЁ¬ Ґ¬ле ў Ґ¬
¤®Їг饨©.
5. Џ®¤а®Ў® Їа®Є®¬¬ҐвЁа®ў л© вҐЄбв GPSS-¬®¤Ґ«Ё.
6. ‘д®а¬ вЁа®ў л© «ЁбвЁЈ १г«мв в®ў ¬®¤Ґ«Ёа®ў Ёп (¤«п
Є ¦¤®© Ё§ ўлЇ®«Ґле ¬®¤Ґ«Ґ© Ё Є ¦¤®Ј® ०Ё¬ ¬®¤Ґ«Ёа®ў Ёп).
7. ’ Ў«Ёжг Ё«Ё бў®¤Єг ®б®ўле १г«мв в®ў Ё§ «ЁбвЁЈ , б
ЁвҐаЇаҐв жЁҐ© б¬лб« Є ¦¤®Ј® १г«мв в (¤«п Є ¦¤®© ўлЇ®«Ґ®©
¬®¤Ґ«Ё Ё«Ё ०Ё¬ ¬®¤Ґ«Ёа®ў Ёп).
8. ‚лў®¤л Ё ®жҐЄ १г«мв в®ў ¬®¤Ґ«Ёа®ў Ёп.
ђ §¤Ґ«л 1 - 5 ®взҐв ¤®«¦л Ўлвм Ї®¤Ј®в®ў«Ґл ¤® з «
ўлЇ®«ҐЁп « Ў®а в®а®© а Ў®вл ў д®а¬Ґ Є®бЇҐЄв .
2. ‡Ђ„ЂЌ€џ ЌЂ ‘Ћ‡„ЂЌ€… € €‘‘‹…„Ћ‚ЂЌ€… ЊЋ„…‹…‰
€Ќ”ЋђЊЂ–€ЋЌЌЋ-‚›—€‘‹€’…‹њЌ›• ‘€‘’…Њ € ‘…’…‰
ЌЂ GPSS
ЏаҐ¤« Ј Ґ¬лҐ Ё¦Ґ § ¤ Ёп ¬®¤Ґ«Ёа®ў ЁҐ б®бв ў«Ґл Ї®
¬ вҐаЁ « ¬ Ёбб«Ґ¤®ў Ё© ॠ«мле бЁб⥬ ®Ўа Ў®вЄЁ ¤ ле, в Є¦Ґ
ў १г«мв ⥠гЇа®йҐЁп ў аЁ в®ў Єгаб®ўле а Ў®в Ё§ г祡®Ј®
Ї®б®ЎЁп [5].
ЏаЁ а §а Ў®вЄҐ GPSS-¬®¤Ґ«Ё ¬®¦® ®Ўа й вмбп Є ЇаЁ¬Ґа ¬ ў
«ЁвҐа вгॠ[1 - 6], Ґ § Ўлў п ЇаЁ н⮬ ®Ў ®в«ЁзЁЁ п§лЄ GPSS ў
бЁб⥬Ґ GPSS/PC ®в ўҐабЁ© п§лЄ GPSS ў гЄ § ®© «ЁвҐа вгаҐ. Ќ®
ЁЎ®«ҐҐ ўЁ¬ вҐ«м® б«Ґ¤гҐв Ё§гз вм ЇаЁ¬Ґал ⥪бв®ў GPSS-¬®¤Ґ«Ґ©
ў ЏаЁ«®¦ҐЁЁЄ Є ¤ ®¬г ®ЇЁб Ёо. ќвЁ ЇаЁ¬Ґал § Ё¬бвў®ў л Ё§
бЁб⥬л GPSS/PC Ё ®ва ¦ о⠢ᥠᯥЄвл п§лЄ GPSS, Ґ®Ўе®¤Ё¬лҐ ЇаЁ
ᮧ¤ ЁЁ б®Ўб⢥ле GPSS-¬®¤Ґ«Ґ© ў бЁб⥬Ґ GPSS/PC.
Ља®¬Ґ в®Ј®, бв㤥⠬®¦Ґв ®Ўа й вмбп Є д ©« ¬ б ®ЇЁб ЁҐ¬ в®©
ўҐабЁЁ п§лЄ GPSS, Є®в®а п ॠ«Ё§®ў ў бЁб⥬Ґ GPSS/PC. ќвЁ
д ©«л (б Ё¬Ґ ¬Ё gpss0.doc - gpss9.doc) 室пвбп ў аеЁў®¬ д ©«Ґ
gpssdoc.arj. ‚ н⮬ ¦Ґ д ©«Ґ, Єа®¬Ґ в®Ј®, ᮤҐа¦ вбп ¤ў д ©«
¬Ґв®¤ЁзҐбЄЁе ®ЇЁб Ё© Ї® GPSS-¬®¤Ґ«Ёа®ў Ёо ЇаЁ¬ҐЁвҐ«м® Є
бЁб⥬Ґ GPSS/360 (д ©«л gpssv1.doc Ё gpssv2.doc). Џ®звЁ ўҐбм
¬ вҐаЁ « ¬Ґв®¤ЁзҐбЄЁе ®ЇЁб Ё© бЇа ўҐ¤«Ёў Ё ¤«п бЁб⥬л GPSS/PC.
‚ аЁ вл § ¤ Ё©
----------------
1. ‚ ўлзЁб«ЁвҐ«мл© жҐва зҐаҐ§ б«гз ©лҐ ЁвҐаў «л ўаҐ¬ҐЁ,
а бЇаҐ¤Ґ«ҐлҐ нЄбЇ®ҐжЁ «м® б® б।Ё¬ § 票Ґ¬ 10 ¬Ё,
Ї®бвгЇ ов § ¤ Ёп ®Ўа Ў®вЄг ќ‚Њ. ЋЎа Ў®вЄ § Ё¬ Ґв
б«гз ©®Ґ ўаҐ¬п, а ў®¬Ґа® а бЇаҐ¤Ґ«Ґ®Ґ ў ¤Ё Ї §®Ґ 4-8 ¬Ё.
ђҐ§г«мв вл, § ЇЁб лҐ ¤ЁбЄ, а бЇҐз влў овбп ў н⮬ ¦Ґ
жҐвॠ¤агЈ®© ќ‚Њ § б«гз ©®Ґ ўаҐ¬п б нЄбЇ®ҐжЁ «мл¬
§ Є®®¬ (б।ҐҐ а ў® 9 ¬Ё). €бб«Ґ¤®ў вм GPSS-¬®¤Ґ«Ё
е а ЄвҐаЁбвЁЄЁ ўбҐ© бЁбвҐ¬л ®Ўа Ў®вЄЁ ў вҐзҐЁҐ 24 з б. Ё
ўлпўЁвм ў Ґ© "г§ЄЁҐ" ¬Ґбв . ‘зЁв вм, зв® ®ЎҐ ќ‚Њ Ґ ¬Ґи ов
¤агЈ ¤агЈг ЇаЁ ¤®бвгЇҐ Є ®ЎйҐ¬г ¤ЁбЄг.
2. ќ‚Њ ®Ўа Ў влў Ґв § ¤ Ёп, Ї®бвгЇ ойЁҐ зҐаҐ§ б«гз ©лҐ ЁвҐаў «л
ўаҐ¬ҐЁ (нЄбЇ®ҐжЁ «мл© § Є®, б® б।Ё¬ § 票Ґ¬ 10 ¬Ё).
‘®Ўб⢥® ®Ўа Ў®вЄ § Ё¬ Ґв б«гз ©®Ґ ўаҐ¬п, а ў®¬Ґа®
а бЇаҐ¤Ґ«Ґ®Ґ ў ¤Ё Ї §®Ґ 4 - 8 ¬Ё. — бвм § ¤ Ё© (70 % ®в
®ЎйҐЈ® зЁб« ) вॡгов а бЇҐз вЄЁ १г«мв в®ў нв®© ¦Ґ ќ‚Њ.
ЏҐз вм § Ё¬ Ґв б«гз ©®Ґ ўаҐ¬п (нЄбЇ®ҐжЁ «мл© § Є®, б®
б।Ё¬ § 票Ґ¬ 9 ¬Ё). €бб«Ґ¤®ў вм ¬®¤Ґ«Ё е а ЄвҐаЁбвЁЄЁ
бЁбвҐ¬л ў вҐзҐЁҐ 24 з б.
3. ђ §а Ў®в вм GPSS-¬®¤Ґ«м ¬ аЄҐа®© Є®«м楢®© ‹‚‘ б в६п
бв жЁп¬Ё. ЂЇЇ а вга Є ¦¤®© бв жЁЁ ®ЎҐбЇҐзЁў Ґв ЇҐаҐ¤ зг
¤ ле ў Є®«мж® б з бв®в®© 1.25 Њ ЎЁв/б. ЏҐаҐ¤ ў Ґ¬лҐ Є ¤ал
Ё¬Ґов дЁЄбЁа®ў го ¤«Ёг 256 Ў ©в. Њ аЄҐа - ®¤®Ў ©в®ў п
Ї®б«Ґ¤®ў ⥫м®бвм ЎЁв®ў. € ¬ аЄҐа, Ё Є ¤а ЇаЁ Їа®е®¦¤ҐЁЁ
Є ¦¤®© бв жЁЁ § ¤Ґа¦Ёў овбп ўаҐ¬п, а ў®Ґ 4 ЎЁв ¬. Љ ¦¤л©
Є ¤а Ё«Ё ¬ аЄҐа ЇҐаҐ¬Ґй Ґвбп ў Є®«мжҐ (б।Ґ ЇҐаҐ¤ зЁ) б®
бЄ®а®бвмо, а ў®© 200000 Є¬/б, ¤«Ё Є ЎҐ«п ¬Ґ¦¤г бв жЁп¬Ё
б®бв ў«пҐв 100 ¬. Љ ¦¤ п бв жЁп ЈҐҐаЁагҐв б«гз ©л© ўе®¤®©
Їг бб®®ўбЄЁ© Ї®в®Є Є ¤а®ў б ®¤®© Ё в®© ¦Ґ ЁвҐбЁў®бвмо Ђ
Є ¤а/б, ЇаЁзҐ¬ Є ¦¤л© ЈҐҐаЁагҐ¬л© Є ¤а б а ў®© ўҐа®пв®бвмо
¤аҐбгҐвбп «оЎ®© ¤агЈ®© бв жЁЁ ў Є®«мжҐ. ЏҐаҐ¤ л© ў Є®«мж®
Є ¤а ЇаЁЁ¬ Ґвбп бв жЁҐ©- ¤аҐб ⮬ " «Ґвг" (ЎҐ§ ЎгдҐаЁ§ жЁЁ),
г¤ «пҐвбп Ё§ Є®«мж бв жЁҐ©-Ёбв®зЁЄ®¬ Ї®б«Ґ Ї®«®Ј® Їа®ЎҐЈ
Є®«мж . ‘в жЁп, § еў вЁўи п ¬ аЄҐа, Ї®бл« Ґв Ё§ бў®Ґ© ўл室®©
®зҐаҐ¤Ё ў Є®«мж® ўбҐ Ё¬ҐойЁҐбп Є ¤ал, Ё в®«мЄ® Ї®б«Ґ нв®Ј®
®вЇгбЄ Ґвбп ¬ аЄҐа. ЋжҐЁвм б।ҐҐ ўаҐ¬п ва бЇ®авЁа®ўЄЁ Є ¤а
б ¬®¬Ґв ЈҐҐа жЁЁ (ўЄ«озҐЁп ў ўл室го ®зҐаҐ¤м) ¤® ¬®¬Ґв
ҐЈ® ЇаЁҐ¬ ЇаЁ § 票пе ЁвҐабЁў®бвЁ Ђ, а ўле 1, 2 Ё 4
Є ¤а/б. ‚ Є ¦¤®¬ Ё§ ваҐе ®Їлв®ў ®Ўа Ў®в вм Ї® 300 Є ¤а®ў.
4. ‚ ¬г«мвЁЇа®жҐбб®а®© бЁб⥬Ґ ЁбЇ®«м§гҐвбп ®Ўй п ¬ ЈЁбва «м ў
०Ё¬Ґ Ї®в Єв®ў®Ј® а §¤Ґ«ҐЁп ўаҐ¬ҐЁ. ‚ᥠЇа®жҐбб®ал Ґ Ё¬Ґов
«®Є «м®© Ї ¬пвЁ Ё ®Ўа й овбп Є ®ЎйҐ© Ї ¬пвЁ Ї® Ґ¤Ё®©
¬ ЈЁбва «Ё в Є, зв® ў Є ¦¤®¬ ⠪⥠¤®бвгЇ Є Ї ¬пвЁ ў®§¬®¦Ґ
в®«мЄ® ¤«п ®¤®Ј® Їа®жҐбб®а . ЏаҐ¤Ї®« Ј Ґвбп, зв® «оЎ®©
Їа®жҐбб®а «Ёим б ®ЇаҐ¤Ґ«Ґ®© ўҐа®пв®бвмо ђ ¬®¦Ґв ®Ўа вЁвмбп ў
Є ¦¤®¬ ⠪⥠᢮Ґ© а Ў®вл Є ®ЎйҐ© Ї ¬пвЁ. ЋжҐЁвм
GPSS-¬®¤Ґ«Ё ®в®бЁвҐ«мго Їа®Ё§ў®¤ЁвҐ«м®бвм ®¤®Ј® Їа®жҐбб®а ,
ўбҐ© бЁбвҐ¬л Ё Є®нддЁжЁҐв § Јаг§ЄЁ ®ЎйҐ© ¬ ЈЁбва «Ё ЇаЁ ђ =
0.25 Ё Ё§¬ҐҐЁЁ зЁб« Їа®жҐбб®а®ў ®в 1 ¤® 8, § 1000 ®Ўа 饨©
Є ®ЎйҐ© Ї ¬пвЁ. Ќ §ў лҐ е а ЄвҐаЁбвЁЄЁ ЇаҐ¤бв ўЁвм
Ја дЁзҐбЄЁ. Ѓ®«ҐҐ Ї®¤а®Ў®Ґ ®ЇЁб ЁҐ ¬®¤Ґ«Ёа㥬®© бЁб⥬л
ЇаЁўҐ¤Ґ® ў [11].
5. ‘Ёб⥬ ЇҐаҐ¤ Ґв Ї ЄҐвл ¤ ле Ё§ ЇгЄв Ђ ў ЇгЄв ‘ зҐаҐ§
ва §Ёвл© ЇгЄв ‚. ‚ ЇгЄв Ђ Ї ЄҐвл Ї®бвгЇ ов Ё§ўҐ зҐаҐ§
Є ¦¤лҐ (5 - 15) ¬б, §¤Ґбм ®Ё ЎгдҐаЁ§говбп ў Є®ЇЁвҐ«Ґ
(®зҐаҐ¤Ё FIFO) Ё § ⥬ ЇҐаҐ¤ овбп ў ЇгЄв ‚ Ї® «ЁЁЁ Ђ‚1 § (20
- 24) ¬б Ё«Ё Ї® «ЁЁЁ Ђ‚2 § (15 - 25) ¬б. ‚ ЇгЄвҐ ‚ Ї ЄҐвл
⮦Ґ ЎгдҐаЁ§говбп ў Є®ЇЁвҐ«Ґ Ё ¤ «ҐҐ ЇҐаҐ¤ овбп ў ЇгЄв ‘ Ї®
«ЁЁЁ ‚‘1 § (12 - 18) ¬б. …б«Ё зЁб«® Ї ЄҐв®ў ў Є®ЇЁвҐ«Ґ
ЇгЄв ‚ ЇаҐўлбЁв Ї®а®Ј®ў®Ґ § 票Ґ 15, в® ўў®¤Ёвбп ў ¤Ґ©бвўЁҐ
ҐйҐ ®¤ «ЁЁп ‚‘2 б в®© ¦Ґ Їа®ЇгбЄ®© бЇ®б®Ў®бвмо, Є Є
Ё г ‚‘1. ‘¬®¤Ґ«Ёа®ў вм Їа®е®¦¤ҐЁҐ 1000 Ї ЄҐв®ў, ®жҐЁвм
ўҐа®пв®бвм ЁбЇ®«м§®ў Ёп «ЁЁЁ ‚‘2.
6. –Ґва «м п Ў § ¤ ле (–Ѓ„) ўлЇ®«пҐв § Їа®бл ®в г¤ «Ґле
ЂђЊ®ў, Ї®¤Є«оз ойЁебп Є –Ѓ„ б Ї®¬®ймо ¬®¤Ґ¬®ў зҐаҐ§
Є®¬¬гвЁа㥬го ⥫Ґд®го бҐвм. –Ѓ„ Ё¬ҐҐв в®«мЄ® ®¤Ё ¬®¤Ґ¬.
‘Є®а®бвм ЇҐаҐ¤ зЁ ¤ ле ў ⥫Ґд®®© бҐвЁ - 2400 ЎЁв/б. Ќ
гбв ®ў«ҐЁҐ ᮥ¤ЁҐЁп б –Ѓ„ «оЎ®© ЂђЊ § ва зЁў Ґв (30 - 100)
б, Ё, Ґб«Ё –Ѓ„ бў®Ў®¤ , ЇҐаҐ¤ Ґв § Їа®б Ё§ (100 - 200) Ў ©в Ё
¦¤Ґв ®вўҐв ®в –Ѓ„. –Ѓ„ , Ї®«гзЁў § Їа®б, ®Ўа Ў влў Ґв ҐЈ® §
(20 - 40)б Ё ў®§ўа й Ґв ЂђЊг ®вўҐв Ё§ (500 - 1000) Ў ©в, Ї®б«Ґ
祣® а §алў Ґв ᮥ¤ЁҐЁҐ Ё бв ®ўЁвбп бў®Ў®¤®© ¤«п
гбв ®ў«ҐЁп ®ў®Ј® ᮥ¤ЁҐЁп б ⥬ ¦Ґ Ё«Ё ¤агЈЁ¬ ЂђЊ®¬.
Љ ¦¤л© ЂђЊ д®а¬ЁагҐв ®зҐаҐ¤®© § Їа®б § (300 - 600) б, Ї®б«Ґ
祣® ¤Ґ« Ґв Ґ®Ја ЁзҐ®Ґ зЁб«® Ї®Їлв®Є гбв ®ў«ҐЁп
ᮥ¤ЁҐЁп б –Ѓ„. ЋжҐЁвм GPSS-¬®¤Ґ«Ё б।ҐҐ ўаҐ¬п ®¦Ё¤ Ёп
ЂђЊ®¬ ®вўҐв § Їа®б ЇаЁ зЁб«Ґ ЂђЊ®ў 2, 5 Ё 8. ‚ Є ¦¤®¬ ®ЇлвҐ
®Ўа Ў®в вм Ї® 500 § Їа®б®ў Є –Ѓ„. „ вм ४®¬Ґ¤ жЁЁ Ї®
б®ўҐаиҐбвў®ў Ёо бЁб⥬л.
7. ђ §а Ў®в вм Ё Ёбб«Ґ¤®ў вм GPSS-¬®¤Ґ«м ¬®Ј®вҐа¬Ё «м®©
ўлзЁб«ЁвҐ«м®© бЁб⥬л, б®бв®п饩 Ё§ жҐва «м®© Ї®¤бЁб⥬л
Ё Ў®а вҐа¬Ё «®ў. ‚ жҐва «мго Ї®¤бЁб⥬㠢室пв Їа®жҐбб®а
Ё ¤ў ўҐиЁе гбва®©бвў . ‚бп бЁб⥬ дгЄжЁ®ЁагҐв ў
ᮮ⢥вбвўЁЁ б ¤®Їг饨ﬨ, ЇаЁпвл¬Ё ¤«п «®ЈЁз®© бЁб⥬л
ЇаЁ Ёбб«Ґ¤®ў ЁЁ ҐҐ «ЁвЁзҐбЄ®© ¬®¤Ґ«Ё. Џ а ¬Ґвал бЁб⥬л
¤®«¦л Ўлвм ўлЎа л в ЄЁ¬Ё ¦Ґ, Є Є Ё ¤«п «ЁвЁзҐбЄ®© ¬®¤Ґ«Ё
(¤«п бў®ҐЈ® ў аЁ в ). ‘®Ї®бв ўЁвм १г«мв вл Ё¬Ёв жЁ®®Ј® Ё
«ЁвЁзҐбЄ®Ј® ¬®¤Ґ«Ёа®ў Ёп.
8. ‘Ёб⥬ ЇҐаҐ¤ зЁ ¤ ле ᮤҐа¦Ёв 2 Є « (®б®ў®© Ё १Ґаўл©)
Ё ®ЎйЁ© ўе®¤®© Є®ЇЁвҐ«м (®зҐаҐ¤м FIFO), ў Є®в®ал© Ї®¬Ґй овбп
б®®ЎйҐЁп, Ї®бвгЇ ойЁҐ Ё§ўҐ зҐаҐ§ (5 - 13)б Ё ®бв ойЁҐбп §¤Ґбм
¤® ®Є®з Ёп Ёе ЇҐаҐ¤ зЁ. €§ Є®ЇЁвҐ«п б®®ЎйҐЁп ЇҐаҐ¤ овбп Ї®
®б®ў®¬г Є «г § (4 - 10)б. ‚ ®б®ў®¬ Є «Ґ б«гз овбп бЎ®Ё
зҐаҐ§ (165 - 235)б. …б«Ё бЎ®© Їа®Ёб室Ёв ў® ўаҐ¬п ЇҐаҐ¤ зЁ
б®®ЎйҐЁп, в® § 2 б ўЄ«оз Ґвбп १Ґаўл© Є « Ё ЇҐаҐ¤ Ґв
ЇаҐаў ®Ґ б®®ЎйҐЁҐ б б ¬®Ј® з « , § Ё¬ - Ё ¤агЈЁҐ
б®®ЎйҐЁп, Ї®Є ў®ббв ў«Ёў Ґвбп ®б®ў®© Є « (§ (16 -
30)б). Џ®б«Ґ ў®ббв ®ў«ҐЁп १Ґаўл© Є « ®вЄ«оз Ґвбп
(ЇҐаҐ¤ ў 楫ЁЄ®¬ ®зҐаҐ¤®Ґ б®®ЎйҐЁҐ), ®б®ў®© Є «
Їа®¤®«¦ Ґв ЇҐаҐ¤ ў вм Ё¬ҐойЁҐбп ў Є®ЇЁвҐ«Ґ б®®ЎйҐЁп.
‘зЁв Ґвбп, з⮠१Ґаўл© Є « Ґ Ё¬ҐҐв бЎ®Ґў. ЋжҐЁвм
GPSS-¬®¤Ґ«Ё § 5 з б®ў а Ў®вл § Јаг§Єг Є ¦¤®Ј® Ё§ Є «®ў,
з бв®вг бЎ®Ґў ®б®ў®Ј® Є « , зЁб«® ЇаҐаў ле б®®ЎйҐЁ© Ё
б।ҐҐ ўаҐ¬п ЇаҐЎлў Ёп б®®ЎйҐЁп ў бЁб⥬Ґ.
9. ‘Ёб⥬ ЇҐаҐ¤ зЁ ®бгйҐбвў«пҐв ®Ў¬Ґ Ї ЄҐв ¬Ё ¤ ле ¬Ґ¦¤г
бв жЁп¬Ё Ђ Ё ‚ Ї® §Ґ¬®¬г ¤гЇ«ҐЄб®¬г Є «г. Џ ЄҐвл
Ї®бвгЇ ов ®ЎҐ бв жЁЁ ®в Ў®Ґв®ў зҐаҐ§ (7 - 13) ¬б,
ЇҐаҐ¤ з Ї ЄҐв § Ё¬ Ґв (5 - 10)¬б. Љ ¦¤ п Ё§ бв жЁ© Ё¬ҐҐв
ўе®¤®© ЎгдҐа (®зҐаҐ¤м FIFO), Є®в®ал© ¬®¦Ґв еа Ёвм 2 Ї ЄҐв
(ўЄ«оз п Ё ЇҐаҐ¤ ў Ґ¬л©). ‚ б«гз Ґ ЇаЁе®¤ Ї ЄҐв ў ¬®¬Ґв
§ пв®бвЁ ЎгдҐа бв жЁЁ ЇаҐ¤®бв ў«пҐвбп ўл室 бЇгвЁЄ®ўл©
Ї®«г¤гЇ«ҐЄбл© Є «, ўаҐ¬п ЇҐаҐ¤ зЁ Ї ЄҐвҐ ў Ґ¬ - (8 - 15)
¬б. …б«Ё бЇгвЁЄ®ўл© Є « § пв ¤агЈ®© бв жЁҐ©, в® Ї ЄҐв
Ї®«гз Ґв ®вЄ § Ё ®вўҐаЈ Ґвбп (вҐапҐвбп). ЏаЁҐ¬ Ї ЄҐв®ў ®в
¤агЈ®© бв жЁЁ пў® Ґ ¬®¤Ґ«ЁагҐвбп. €бб«Ґ¤®ў вм GPSS-¬®¤Ґ«Ё
е а ЄвҐаЁбвЁЄЁ бЁбвҐ¬л § 1 ¬Ё а Ў®вл - з бв®в㠢맮ў®ў
бЇгвЁЄ®ў®Ј® Є « , ҐЈ® § Јаг§Єг, зЁб«® ®вўҐаЈгвле Ї ЄҐв®ў.
10. ‚ «®Є «м®© бҐвЁ ®бгйҐбвў«пҐвбп ®Ў¬Ґ д ©« ¬Ё ¬Ґ¦¤г а Ў®зЁ¬Ё
бв жЁп¬Ё, б ®¤®© бв®а®л, Ё д ©«®ўл¬ бҐаўҐа®¬, б ¤агЈ®©
бв®а®л. ” ©«л ЇҐаҐ¤ овбп Ў«®Є ¬Ё а §¬Ґа®¬ Ї® 1024 Ў ©в,
бЄ®а®бвм ЇҐаҐ¤ зЁ ў бҐвЁ - 10 Њ ЎЁв/б. ‚аҐ¬п § ЇЁбЁ/з⥨п
Ў«®Є ў а Ў®зҐ© бв жЁЁ - (30 - 50) ¬б, ў бҐаўҐаҐ - (10 -
15) ¬б. „«Ё д ©« - (4096 - 20480) Ў ©в. ‚ Є ¦¤л© ¬®¬Ґв
ўаҐ¬ҐЁ бҐаўҐа ®ЎҐбЇҐзЁў Ґв з⥨Ґ Ё«Ё § ЇЁбм Ґ Ў®«ҐҐ ®¤®Ј®
Ў«®Є (б «оЎ®© бв жЁЁ).‡ Їа®бл д ©«®ўл© ®Ў¬Ґ ў®§ЁЄ ов ў
Є ¦¤®© бв жЁЁ зҐаҐ§ (90 - 200) ¬б Ї®б«Ґ § ўҐа襨п
ЇаҐ¤л¤г饣® ®Ў¬Ґ . ЋЇаҐ¤Ґ«Ёвм ¬®¤Ґ«Ё § ўЁбЁ¬®бвм § Јаг§ЄЁ
бҐвЁ (баҐ¤л ЇҐаҐ¤ зЁ) Ё бҐаўҐа ®в зЁб« бв жЁ© ЇаЁ ҐЈ®
Ё§¬ҐҐЁЁ ®в 1 ¤® 5 § 4 ¬Ё. а Ў®вл бҐвЁ.
Љ Є®ў нд䥪⠨§¬ҐҐЁп ЁвҐаў « ўаҐ¬ҐЁ ¬Ґ¦¤г § Їа®б ¬Ё
д ©«®ўл© ®Ў¬Ґ ?
11. ’аҐеЇа®жҐбб®а п ўлзЁб«ЁвҐ«м п бЁб⥬ б ®ЎйҐ© Ї ¬пвмо
®Ўа Ў влў Ґв § ¤ Ёп, Ї®бвгЇ ойЁҐ Ё§ўҐ Є®¬ЇЁ«пжЁо ў®
ўе®¤го ®зҐаҐ¤м Є ЇҐаў®¬г Їа®жҐбб®аг зҐаҐ§ (7 - 12)¬Ё. Љ ¦¤®Ґ
§ ¤ ЁҐ ЇаЁ н⮬ ( ў Ёб室®¬ ўЁ¤Ґ) § Ё¬ Ґв ®¤г бва Ёжг
Ї ¬пвЁ. Џ®б«Ґ ва б«пжЁЁ ЇҐаўл¬ Їа®жҐбб®а®¬ ў вҐзҐЁҐ (2 - 6)
¬Ё § ¤ ЁҐ § Ё¬ Ґв 2 бва Ёжл Ї ¬пвЁ Ё бв ®ўЁвбп ў ®зҐаҐ¤м
Є®¬Ї®®ўЄг Є® ўв®а®¬г Їа®жҐбб®аг. Џ®б«Ґ Є®¬Ї®®ўЄЁ ў
вҐзҐЁҐ (1 - 4) ¬Ё ўв®ал¬ Їа®жҐбб®а®¬ § ¤ ЁҐ § Ё¬ Ґв 3
бва Ёжл, Ї®бвгЇ Ґв ў ®зҐаҐ¤м Є ваҐв쥬㠯а®жҐбб®аг Ё
ўлЇ®«пҐвбп Ё¬ § (5 - 7) ¬Ё, Ї®б«Ґ 祣® ®бў®Ў®¦¤ Ґв Ї ¬пвм Ё
бЁб⥬г. ЋЇаҐ¤Ґ«Ёвм ¬®¤Ґ«Ё § Ја㦥®бвм ®ЇҐа вЁў®© Ї ¬пвЁ
Ё Їа®жҐбб®а®ў, в Є¦Ґ е а ЄвҐаЁбвЁЄЁ ®зҐаҐ¤Ґ© Є Їа®жҐбб®а ¬ Ё
б।ҐҐ ўаҐ¬п Їа®е®¦¤ҐЁп § ¤ Ё© зҐаҐ§ бЁб⥬г (§ 50 з
а Ў®вл бЁб⥬л).
`
12. Љ®¬ЇмовҐа ®Ўа Ў влў Ґв § ¤ Ёп ¤ўге Є« бб®ў Ђ Ё ‚, ЇаЁзҐ¬
§ ¤ Ёп Є« бб ‚ Ё¬Ґов Ў®«ҐҐ Ё§ЄЁ© ЇаЁ®аЁвҐв Ё ўлЇ®«повбп
«Ёим ЇаЁ ®вбгвбвўЁЁ § ¤ Ё© Є« бб Ђ. ‡ ¤ Ёп Ї®бвгЇ ов Ё§ўҐ
зҐаҐ§ (15 - 25) ¬Ё (Є« бб Ђ) Ё (10 - 30) ¬Ё (Є« бб ‚) Ё
вॡгов ¤«п ўлЇ®«ҐЁп (15 - 25) ¬Ё Ё (18 -24) ¬Ё ¤«п
Є« бб®ў Ђ Ё ‚ ᮮ⢥вб⢥®.
€бб«Ґ¤®ў вм GPSS-¬®¤Ґ«Ё а Ў®вг Є®¬ЇмовҐа § 80 з Ё ®жҐЁвм
ҐҐ е а ЄвҐаЁбвЁЄЁ. Љ Є Ё§¬Ґпвбп е а ЄвҐаЁбвЁЄЁ, Ґб«Ё § ¤ Ёп
Є« бб ‚ Ўг¤гв Ё¬Ґвм в Є®© ¦Ґ ЇаЁ®аЁвҐв, Є Є Ё ў Є« бᥠЂ ?
13. ‚ Ї®¬ҐйҐЁЁ дЁа¬л Ґбвм 2 а Ў®зЁҐ бв жЁЁ, ЁбЇ®«м§гҐ¬лҐ
б®ваг¤ЁЄ ¬Ё дЁа¬л. ‘®ваг¤ЁЄЁ ЇаЁе®¤пв ў Ї®¬ҐйҐЁҐ ¤«п а Ў®вл
б ЁвҐаў «®¬ (10 - 20) ¬Ё. …б«Ё бў®Ў®¤л ®ЎҐ бв жЁЁ,
в® б®ваг¤ЁЄ § Ё¬ Ґв «оЎго Ё§ Ёе. …б«Ё бў®Ў®¤ в®«мЄ® ®¤
бв жЁп, в® б®ваг¤ЁЄ ҐҐ Ё § Ё¬ Ґв. Ќ Є®Ґж, Ґб«Ё § пвл ®ЎҐ
бв жЁЁ, в® б®ваг¤ЁЄ Ї®ЄЁ¤ Ґв Ї®¬ҐйҐЁҐ ЎҐ§ ®Ўб«г¦Ёў Ёп.
ђ Ў®в § Їг«м⮬ а Ў®зҐ© бв жЁЁ ¤«Ёвбп (25 - 50)
¬Ё. €бб«Ґ¤®ў вм GPSS-¬®¤Ґ«Ё е а ЄвҐаЁбвЁЄЁ
дгЄжЁ®Ёа®ў Ёп бЁб⥬л (§ Ја㦥®бвм бв жЁ©, ўҐа®пв®бвм
г室 б®ваг¤ЁЄ ЎҐ§ ®Ўб«г¦Ёў Ёп) § 50 з б а Ў®вл бЁб⥬л.
Љ Є Ё§¬Ґпвбп нвЁ е а ЄвҐаЁбвЁЄЁ ЇаЁ гбв ®ўЄҐ ҐйҐ ®¤®©
бв жЁЁ ў Ї®¬ҐйҐЁЁ?
14. ‚ ®аЈ Ё§ жЁЁ гбв ®ў«Ґ вҐа¬Ё «, бўп§ л© б жҐва «м®© ќ‚Њ
Ґ¦Ґ¤Ґў® Ї® 8 з. ‘®ваг¤ЁЄЁ Ї®®зҐаҐ¤® ЁбЇ®«м§гов вҐа¬Ё «,
ЇаЁзҐ¬ Їа®жҐбб Ёе ЇаЁе®¤ ў Є®¬ вг б вҐа¬Ё «®¬ -
Їг бб®®ўбЄЁ©, б® б।Ё¬ § 票Ґ¬ 10 б®ваг¤ЁЄ®ў ў ¤Ґм.
Љ ¦¤л© б®ваг¤ЁЄ § ва зЁў Ґв § вҐа¬Ё «®¬ б«гз ©л© ЁвҐаў «
ўаҐ¬ҐЁ (нЄбЇ®ҐжЁ «мл© § Є® б® б।Ё¬ 0.5 з). …б«Ё
вҐа¬Ё « § пв, в® ўбҐ ЇаЁе®¤пйЁҐ б®ваг¤ЁЄЁ ¦¤гв ў Є®¬ вҐ
бў®Ґ© ®зҐаҐ¤Ё. ЋжҐЁвм е а ЄвҐаЁбвЁЄЁ бЁб⥬л (§ 8 з.
а Ў®вл): § Јаг§Єг вҐа¬Ё « , ўаҐ¬п ®¦Ё¤ Ёп ў ®зҐаҐ¤Ё, ®ЎйҐҐ
ўаҐ¬п ЇаҐЎлў Ёп ў вҐа¬Ё «м®© Є®¬ вҐ, б।оо ¤«Ёг
®зҐаҐ¤Ё, б।ҐҐ зЁб«® б®ваг¤ЁЄ®ў ў Є®¬ вҐ.
ђ биЁаЁвм Ё Ёбб«Ґ¤®ў вм ¬®¤Ґ«м, ЇаҐ¤гᬮвॢ ў Ґ© ¤ў
вҐа¬Ё « (ў ®¤®© Ё в®© ¦Ґ Є®¬ вҐ) Ё ®ЇаҐ¤Ґ«Ёвм §ў лҐ
ўлиҐ е а ЄвҐаЁбвЁЄЁ бЁб⥬л. ‘а ўЁвм Ї®«гзҐлҐ १г«мв вл б
«ЁвЁзҐбЄЁ¬Ё а бзҐв ¬Ё, ЇаЁўҐ¤Ґл¬Ё ў [ 7 ] (бва.8).
15. Љ ќ‚Њ Ї®¤Є«озҐл 3 вҐа¬Ё « , б Є®в®але ЁЁжЁЁаговбп ®ЇҐа жЁЁ
Є« бб®ў 1, 2 Ё 3 ᮮ⢥вб⢥® (в.Ґ. вҐа¬Ё «л
бЇҐжЁ «Ё§Ёа®ў л Ї® ®ЇҐа жЁп¬). Љ« бб 1 Ё¬ҐҐв ўлбиЁ©
ЇаЁ®аЁвҐв, Є« бб 3 - Ё§иЁ©. ќ‚Њ Ё¬ҐҐв ᮮ⢥вб⢥® 3
ўе®¤лҐ ®зҐаҐ¤Ё (Ї® ®¤®© ¤«п Є ¦¤®Ј® Ё§ ваҐе Є« бб®ў) Ё
®Ўа й Ґвбп Є Ё¬ Ї® ЇаЁ®аЁвҐвг. …б«Ё ЁвҐаў «Ґ
ўлЇ®«ҐЁп ®ЇҐа жЁЁ Ї®бвгЇЁв § ¤ ЁҐ Ў®«ҐҐ ЇаЁ®аЁвҐв®Ґ, в®
ќ‚Њ Їа®¤®«¦ Ґв ®ЇҐа жЁо ¤® Ї®«®Ј® § ўҐаиҐЁп Ё в®«мЄ® Ї®б«Ґ
нв®Ј® ўлЎЁа Ґв ¤«п ўлЇ®«ҐЁп ЁЎ®«ҐҐ ЇаЁ®аЁвҐв®Ґ § ¤ ЁҐ.
€вҐбЁў®бвЁ § Їа®б®ў ®¤Ё Є®ўл б Є ¦¤®Ј® вҐа¬Ё « . Ђ
Ё¬Ґ®, § Їа®бл Ї®бвгЇ ов зҐаҐ§ нЄбЇ®ҐжЁ «м® а бЇаҐ¤Ґ«ҐлҐ
ЁвҐаў «л б® б।Ё¬ § 票Ґ¬ 160 б. ‹оЎ п ®ЇҐа жЁп
ўлЇ®«пҐвбп ќ‚Њ § б«гз ©®Ґ ўаҐ¬п (нЄбЇ®ҐжЁ «мл© § Є®
б® б।Ё¬ § 票Ґ¬ 30 б). Џ®б«Ґ ўл¤ зЁ § Їа®б ќ‚Њ
вҐа¬Ё «Ґ Ґ¬Ґ¤«Ґ® зЁ Ґв Ј®в®ўЁвмбп ®зҐаҐ¤®© § Їа®б, в.Ґ.
ўл¤ з ®вўҐв Ґ ¬®¤Ґ«ЁагҐвбп. €бб«Ґ¤®ў вм GPSS-¬®¤Ґ«Ё
е а ЄвҐаЁбвЁЄЁ бЁб⥬л - б।ЁҐ ¤«Ёл ®зҐаҐ¤Ґ©, § Ја㦥®бвм
ќ‚Њ. Љ Є Ё§¬Ґпвбп нвЁ е а ЄвҐаЁбвЁЄЁ, Ґб«Ё ЇаЁ®аЁвҐвл Є« бб®ў
®ЇҐа жЁ© Ўг¤гв ®¤Ё Є®ўл?
16. Џа®жҐбб®а ®Ўб«г¦Ёў Ґв § Їа®бл б 3 вҐа¬Ё «®ў Ї® ЄагЈ®ў®¬г
жЁЄ«ЁзҐбЄ®¬г «Ј®аЁв¬г, ЇаҐ¤®бв ў«пп 30 б Є ¦¤®¬г вҐа¬Ё «г ў
®¤®¬ жЁЄ«Ґ. ‡ Їа®бл б Є ¦¤Ј® вҐа¬Ё « Ї®бвгЇ ов зҐаҐ§ (25 -
35) б Ё Ё¬Ґов ¤«Ёг (250 - 350) § Є®ў. Џа®жҐбб®а ўҐ¤Ґв
®Ўа Ў®вЄг б® бЄ®а®бвмо 10 § Є/б. …б«Ё § Єў в 30 б § ¤ ЁҐ б
вҐа¬Ё « Ўг¤Ґв ®Ўа Ў®в ®, в® ®бв ўи пбп з бвм Єў в Ґ
ЁбЇ®«м§гҐвбп. ‚ Їа®вЁў®¬ б«гз Ґ ®бв в®Є § ¤ Ёп Ї®¬Ґй Ґвбп ў
еў®бв ®зҐаҐ¤Ё ¤«п § ўҐаиҐЁп ў ¤агЈ®¬ жЁЄ«Ґ. ЋжҐЁвм ¬®¤Ґ«Ё
§ 5 з а Ў®вл е а ЄвҐаЁбвЁЄЁ бЁб⥬л: § Јаг§Єг Їа®жҐбб®а ,
Ї а ¬Ґвал ўе®¤®© ®зҐаҐ¤Ё, б।ҐҐ ўаҐ¬п ўлЇ®«ҐЁп § ¤ Ё©.
17. ‚ жҐва Є®¬¬гв жЁЁ б®®ЎйҐЁ© (–Љ‘), б®бв®пйЁ© Ё§ Їа®жҐбб®а ,
ўе®¤®Ј® ЎгдҐа (®зҐаҐ¤Ё FIFO) Ё ¤ўге ўл室ле ЎгдҐа®ў ¤ўҐ
ўле®¤лҐ «ЁЁЁ, Ї®бвгЇ ов б®®ЎйҐЁп б ¤ўге ўе®¤ле «ЁЁ© (ў
®ЎйЁ© ўе®¤®© ЎгдҐа). ‘®®ЎйҐЁп б ЇҐаў®© ўе®¤®© «ЁЁЁ, Ї®б«Ґ
®Ўа Ў®вЄЁ ў Їа®жҐбб®аҐ, Ї®¬Ґй овбп ў ЇҐаўл© ўл室®© ЎгдҐа Ё
ЇҐаҐ¤ овбп Ё§ ҐЈ® Ї® ЇҐаў®© ўл室®© «ЁЁЁ. ‘®®ЎйҐЁп б®
ўв®а®© ўе®¤®© «ЁЁЁ ®Ўа Ў влў овбп «®ЈЁз®, ® Ї®¬Ґй овбп
ў® ўв®а®© ўл室®© ЎгдҐа. ’ॡгҐвбп, зв®Ўл ў Є ¦¤®¬ Ё§
ўл室ле ЎгдҐа®ў Ўл«® Ґ Ў®«миҐ 3 б®®ЎйҐЁ©, ЇаЁзҐ¬ Ґб«Ё ®ў®Ґ
б®®ЎйҐЁҐ Ї®бвгЇ Ґв ЇаЁ «ЁзЁЁ 3 б®®ЎйҐЁ© ў ᮮ⢥вбвўго饬
ўл室®¬ ЎгдҐаҐ, в® ®® вҐапҐвбп (Ґ ®Ўа Ў влў Ґвбп
Їа®жҐбб®а®¬). Џ® Є ¦¤®© Ё§ ўе®¤ле «ЁЁ© б®®ЎйҐЁп ЇаЁе®¤пв
зҐаҐ§ (8 - 22) ¬б, ўаҐ¬п ®Ўа Ў®вЄЁ - (6 - 8)¬б б®®ЎйҐЁҐ,
ўаҐ¬п ЇҐаҐ¤ зЁ б®®ЎйҐЁп ў ўл室го «ЁЁо (Ё§ ўл室®Ј®
ЎгдҐа ) - (10 - 20)¬б. €бб«Ґ¤®ў вм ¬®¤Ґ«Ё ў вҐзҐЁҐ 10 б
е а ЄвҐаЁбвЁЄЁ –Љ‘: § Јаг§Єг Їа®жҐбб®а , ўл室ле «ЁЁ© Ё
ўҐа®пв®бвм гвҐаЁ б®®ЎйҐЁ© Ё§-§ ЇҐаҐЇ®«ҐЁп ўл室ле
ЎгдҐа®ў.
18. ђ бЇаҐ¤Ґ«Ґл© Ў Є ¤ ле б®бв®Ёв Ё§ ¤ўге ќ‚Њ, ᮥ¤ЁҐле
¤гЇ«ҐЄбл¬ Є «®¬. ‡ Їа®бл ў Ў Є Ї®бвгЇ ов Ё§ўҐ ЇҐаўго
ќ‚Њ зҐаҐ§ (7 - 13) б. ‘ ўҐа®пв®бвмо 0.5 Ґ®Ўе®¤Ё¬ п
Ёд®а¬ жЁп ¤«п ®вўҐв Ё¬ҐҐвбп ў ЇҐаў®© ¦Ґ ќ‚Њ, Ё ®Ўа Ў®вЄ
§ Їа®б н⮬ Ї®«®бвмо § ўҐаи Ґвбп (®вўҐв Ґ ¬®¤Ґ«ЁагҐвбп).
‚ Їа®вЁў®¬ б«гз Ґ § Їа®б ЇҐаҐбл« Ґвбп (ЎҐ§ ®Ўа Ў®вЄЁ)
ўв®аго ќ‚Њ, Ј¤Ґ Ё ®Ўа Ў влў Ґвбп. ЋЎа Ў®вЄ § Їа®б «оЎ®©
ќ‚Њ § Ё¬ Ґв (2 - 5)б, ўл¤ з ®вўҐв - (16 - 20)б, ЇҐаҐ¤ з
§ Їа®б б ЇҐаў®© ќ‚Њ ўв®аго Ё ўл¤ з १г«мв в б® ўв®а®©
ќ‚Њ ЇҐаўго вॡгов 3б. €бб«Ґ¤®ў вм ¬®¤Ґ«Ё Їа®е®¦¤ҐЁҐ
400 § Їа®б®ў Ё ®жҐЁвм дгЄжЁо а бЇаҐ¤Ґ«ҐЁп ўаҐ¬ҐЁ
®Ўб«г¦Ёў Ёп § Їа®б®ў.
19. ‘ЂЏђ ᮤҐа¦Ёв ќ‚Њ Ё ваЁ вҐа¬Ё « . Љ ¦¤л© Їа®ҐЄвЁа®ўйЁЄ
д®а¬ЁагҐв § ¤ ЁҐ ў ЁвҐа ЄвЁў®¬ ०Ё¬Ґ, ЇаЁзҐ¬ § ¤ ЁҐ
ўў®¤Ёвбп б вҐа¬Ё « Ї®бва®з® § (5 - 15)б бва®Єг.
Џ®«г票Ґ ®вўҐв ўўҐ¤Ґго бва®Єг вॡгҐв 3б а Ў®вл
Їа®жҐбб®а ќ‚Њ. Џ®б«Ґ ўў®¤ 10 бва®Є (Ё Ї®«гзҐЁп ®вўҐв )
§ ¤ ЁҐ зЁ Ґв ўлЇ®«пвмбп Їа®жҐбб®а®¬ ќ‚Њ ў вҐзҐЁҐ (70 -
130)б, § ⥬ ўлў®¤Ёвбп १г«мв в. Ђ «Ё§ १г«мв в
Їа®ҐЄвЁа®ўйЁЄ®¬ § Ё¬ Ґв б«гз ©®Ґ ўаҐ¬п (нЄбЇ®ҐжЁ «мл©
§ Є® б® б।Ё¬ 30б), Ї®б«Ґ 祣® жЁЄ« Ї®ўв®апҐвбп.
€бб«Ґ¤®ў вм ў вҐзҐЁҐ 6з ¬®¤Ґ«Ё а Ў®вг ‘ЂЏђ. ЋжҐЁвм
§ Јаг§Єг ќ‚Њ, б।ҐҐ ўаҐ¬п ўў®¤ Ё ўлЇ®«ҐЁҐ § ¤ Ёп Ё
ўҐа®пв®бвм Їа®бв®п Їа®ҐЄвЁа®ўйЁЄ Ё§-§ § пв®бвЁ ќ‚Њ. “зҐбвм
«ЁзЁҐ ®зҐаҐ¤Ё бва®Є Ё § ¤ Ё© Є Їа®жҐбб®аг ќ‚Њ.
20. Ќ ‚– зҐаҐ§ Є ¦¤лҐ (30 - 100) ¬Ё Ї®бвгЇ ов § ¤ Ёп ¤«Ё®©
(300 - 700) Ў ©в. ‡ ¤ Ёп Їа®е®¤пв Ї®б«Ґ¤®ў вҐ«м® ўў®¤,
®Ўа Ў®вЄг Ё ўлў®¤ (б ЎгдҐаЁ§ жЁҐ© ЇҐаҐ¤ Є ¦¤®© Ё§ нвЁе
®ЇҐа жЁ©). ‘Є®а®бвм ўў®¤ , ®Ўа Ў®вЄЁ Ё ўлў®¤ 100 Ў ©в/¬Ё.
Џ®б«Ґ ўлў®¤ ®Ў аг¦Ёў Ґвбп, зв® 5 % § ¤ Ё© вॡгов
Ї®ўв®а®Ј® Їа®е®¦¤ҐЁп з бвЁ жЁЄ« (®Ўа Ў®вЄ Ё ўлў®¤).
€бб«Ґ¤®ў вм ¬®¤Ґ«Ё ў вҐзҐЁҐ 30з е а ЄвҐаЁбвЁЄЁ а Ў®вл ‚–:
дгЄжЁо а бЇаҐ¤Ґ«ҐЁп ўаҐ¬ҐЁ Їа®е®¦¤ҐЁп § ¤ Ё© зҐаҐ§ ‚– (б
гзҐв®¬ ЇаҐЎлў Ёп ў ваҐе ®зҐаҐ¤пе) Ё § Ја㦥®бвм Їа®жҐбб®а
Ё гбва®©бвў ўў®¤ Ё ўлў®¤ .
21. ‚ ўлзЁб«ЁвҐ«мго бЁб⥬г б ваҐ¬п ќ‚Њ зҐаҐ§ б«гз ©лҐ ЁвҐаў «л
ўаҐ¬ҐЁ (нЄбЇ®ҐжЁ «мл© § Є® б® б।Ё¬ 30б) Ї®бвгЇ ов
§ ¤ Ёп, Є®в®алҐ Ї®Ї ¤ ов б з « ў ®зҐаҐ¤м ®Ўа Ў®вЄг Є
ЇҐаў®© ќ‚Њ (б«гз ©®Ґ ўаҐ¬п, нЄбЇ®ҐжЁ «мл© § Є® б® б।Ё¬
15б). ‡ ⥬ Ї®в®Є § ¤ Ё© а §¤Ґ«пҐвбп, в Є зв® 50 % § ¤ Ё©
Ї®Ї ¤ ов ®Ўа Ў®вЄг ўв®аго ќ‚Њ (ўаҐ¬п ®Ўа Ў®вЄЁ (9 -
19)б), ®бв «млҐ - ваҐвмо ќ‚Њ (ўаҐ¬п ®Ўа Ў®вЄЁ (5 -
10)б). ‘¬®¤Ґ«Ёа®ў вм 4з а Ў®вл бЁб⥬л, ®жҐЁвм § Јаг§Єг
Є ¦¤®© Ё§ ќ‚Њ Ё дгЄжЁо а бЇаҐ¤Ґ«ҐЁп ўаҐ¬ҐЁ Їа®е®¦¤ҐЁп
§ ¤ Ё© зҐаҐ§ бЁб⥬г. ‚ б«гз Ґ бгйҐб⢥®Ј® (Ў®«ҐҐ 40 %)
а §«ЁзЁп § Ја㦥®бвЁ ўбҐе ќ‚Њ ¤ вм ४®¬Ґ¤ жЁЁ Ї® Ё§¬ҐҐЁо
Їа®Ё§ў®¤ЁвҐ«м®бвЁ ЇҐаў®© ќ‚Њ Ё а бЇаҐ¤Ґ«ҐЁо Ї®в®Є § ¤ Ё©
ҐҐ ўл室Ґ.
22. ђ бᬮваЁ¬ Їа®б⥩иго бҐвм ќ‚Њ, ў Є®в®а®© Ё¬Ґовбп ¤ў 㧫 -
¤ўҐ ќ‚Њ, ᮥ¤ЁҐлҐ ¬Ґ¦¤г б®Ў®© Ї®«г¤гЇ«ҐЄбл¬ Є «®¬
ЇҐаҐ¤ зЁ ¤ ле. Љ Є ¦¤®© ќ‚Њ Ї®¤б®Ґ¤ЁҐ® ҐЄ®в®а®Ґ
Є®«ЁзҐбвў® вҐа¬Ё «®ў; Ї®в®Є § Їа®б®ў б вҐа¬Ё «®ў Ўг¤Ґ¬
ЇЇа®ЄбЁ¬Ёа®ў вм Їг бб®®ўбЄЁ¬ Ї®в®Є®¬. Џ®бвгЇЁўиҐҐ § ¤ ЁҐ
«ЁЎ® ўлЇ®«пҐвбп ќ‚Њ 㧫 , ў Є®в®ал© Ї®бвгЇЁ« § Їа®б, «ЁЎ®,
Ї®б«Ґ ЇаҐ¤ў аЁвҐ«м®© ®Ўа Ў®вЄЁ, вॡгҐв ЇаЁў«ҐзҐЁп аҐбгаб®ў
ўв®а®Ј® 㧫 . Ѓг¤Ґ¬ бзЁв вм, зв® вЁЇ § Їа®б б«гз Ґ -
а ў®ўҐа®пв® ўлЎЁа Ґвбп ®¤Ё Ё§ ў®§¬®¦ле ¬ аиагв®ў ¤ўЁ¦ҐЁп
§ Їа®б Ї® бҐвЁ.
…б«Ё ®Ўа Ў®вЄ § Їа®б § ўҐаи Ґвбп ў ⮬ 㧫Ґ, ў Є®в®ал© ®
Ї®бвгЇЁ«, в® в®Ј¤ § Їа®б Ї®ЄЁ¤ Ґв бЁб⥬г - бзЁв Ґвбп, зв®
⥬ б ¬л¬ ®вўҐв Ї®«м§®ў ⥫о бд®а¬Ёа®ў . …б«Ё ¦Ґ вॡгҐвбп
®Ўа 饨Ґ Є ¤агЈ®¬г 㧫г, § Їа®б Їа ў«пҐвбп ў Є « ЇҐаҐ¤ зЁ
¤ ле, Є®в®ал© ®¤®ўаҐ¬Ґ® ¤®ЇгбЄ Ґв ЇҐаҐ¤ зг в®«мЄ® ў ®¤®¬
Їа ў«ҐЁЁ. ‡ Ё¬ Ґв Є « § Їа®б ў вҐзҐЁҐ б«гз ©®Ј®
ЁвҐаў « ўаҐ¬ҐЁ, Ї®б«Ґ 祣® § Їа®б Ї®бвгЇ Ґв ў ¤агЈ®© 㧥«,
Ј¤Ґ бв ®ўЁвбп ў ®Ўйго ®зҐаҐ¤м § Їа®б®ў. „ЁбжЁЇ«Ё ®зҐаҐ¤Ё -
FIFO. ‚аҐ¬п ®Ўа Ў®вЄЁ § Їа®б ў ќ‚Њ Є Є Ї®б«Ґ Ї®бвгЇ«ҐЁп,
в Є Ё Ї®б«Ґ ЇҐаҐ¤ зЁ Ї® Є «г, б«гз ©®Ґ. …б«Ё § Їа®б Ўл«
ЇҐаҐ¤ Ї® Є «г Ё § ўҐаиЁ« бм ҐЈ® ®Ўа Ў®вЄ ў ќ‚Њ ¤агЈ®Ј®
㧫 , в® в®Ј¤ бзЁв Ґвбп, зв® § Їа®б § ўҐаиҐ. ‡ Їа®б ЇаЁ н⮬
Ґ г¤ «пҐвбп Ё§ бЁб⥬л - Ї® Є «г Їа ў«пҐвбп ®вўҐв®Ґ
б®®ЎйҐЁҐ ⮬г 㧫г, Є®в®ал© ЇҐаҐб« « § Їа®б. Џ®б«Ґ ЇаЁҐ¬
®вўҐв®Ј® б®®ЎйҐЁп ¬®¦® бзЁв вм, зв® § Їа®б ®Є®з ⥫м®
§ ўҐаиҐ Ё Ї®ЄЁ¤ Ґв бЁб⥬г, в Є Є Є ўаҐ¬п а Ў®вл ќ‚Њ,
Ї®«г稢襩 ®вўҐв®Ґ б®®ЎйҐЁҐ, Ї® ўл¤ зҐ ҐЈ® нЄа
Ї®«м§®ў вҐ«п ЇаҐҐЎаҐ¦Ё¬® ¬ «® Ї® ба ўҐЁо б® ўаҐ¬ҐҐ¬
ᮤҐа¦ ⥫쮩 ®Ўа Ў®вЄЁ. ‚лЎа вм Їа ў¤®Ї®¤®ЎлҐ § 票п
Ёб室ле ¤ ле, а §а Ў®в вм Ё Ёбб«Ґ¤®ў вм ¬®¤Ґ«м
дгЄжЁ®Ёа®ў Ёп ¤ ®© бҐвЁ.
‹ € ’ … ђ Ђ ’ “ ђ Ђ
1. ЉЁ¤«Ґа …. џ§лЄЁ ¬®¤Ґ«Ёа®ў Ёп. ЏҐаҐў. б Ј«. - Њ.:
ќҐаЈ® ⮬Ё§¤ в, 1985.
2. ѓ®«®ў ®ў Ћ.‚., „гў ®ў ‘.ѓ. ‘¬Ёа®ў ‚.Ќ. Њ®¤Ґ«Ёа®ў ЁҐ б«®¦ле
¤ЁбЄаҐвле бЁб⥬ ќ‚Њ ваҐв쥣® Ї®Є®«ҐЁп ( ЋЇлв ЇаЁ¬ҐҐЁп
GPSS ). - Њ. : ќҐаЈЁп, 1978.
3. а ©ЎҐа ’.„¦. Њ®¤Ґ«Ёа®ў ЁҐ GPSS. ЏҐаҐў. б Ј«. - Њ.:
Њ иЁ®бв஥ЁҐ, 1980.
4. ‚ ᨫ쥢 ‚.€., €ў оЄ Ђ.€., ‘ўЁаЁ¤ҐЄ® ‚.Ђ. Њ®¤Ґ«Ёа®ў ЁҐ
бЁб⥬ Ја ¦¤ бЄ®© ўЁ жЁЁ. - Њ. : ’а бЇ®ав, 1988.
5. ‘®ўҐв®ў Ѓ.џ., џЄ®ў«Ґў ‘.Ђ. Њ®¤Ґ«Ёа®ў ЁҐ бЁб⥬: Љгаб®ў®Ґ
Їа®ҐЄвЁа®ў ЁҐ. - Њ. : ‚лби п иЄ®« , 1988.
6. ‘®ўҐв®ў Ѓ.џ., џЄ®ў«Ґў ‘.Ђ. Њ®¤Ґ«Ёа®ў ЁҐ бЁб⥬: ‹ Ў®а в®ал©
Їа ЄвЁЄг¬. - Њ. : ‚лби п иЄ®« , 1989.
7. Љ®бвЁ Ђ.…. ”®а¬Ёа®ў ЁҐ Ё аҐиҐЁҐ «ЁвЁзҐбЄЁе ¬®¤Ґ«Ґ©
ўлзЁб«ЁвҐ«мле бЁб⥬. - Њ. : Њ€ќ’, 1985.
8. „га ¤Ё Љ.Џ., …д६®ў ‚.„., Љ®«ҐбЁЄ®ў „.Ќ. ЊҐв®¤л «Ё§
нд䥪⨢®бвЁ дгЄжЁ®Ёа®ў Ёп б«®¦ле бЁб⥬. - ‹.: ‹Џ€, 1978.
9. Chisman J.A Introduction to Simulation Modeling Using GPSS/PC.
- Simon & Schuster, 1992.
10. ‘Ёб⥬ ¬®¤Ґ«Ёа®ў Ёп ¤ЁбЄаҐвле Їа®жҐбб®ў (‘Њ„Џ-‚). Џ ЄҐв
ЇаЁЄ« ¤ле Їа®Ја ¬¬. „®Єг¬Ґв жЁп ў ҐбЄ®«мЄЁе з бвпе (⮬ е).
- Љ «ЁЁ: –ҐваЇа®Ја ¬¬бЁб⥬, 1982.
11. Љ®бвЁ Ђ.…. ‘ҐвҐў п ¬®¤Ґ«м ¬г«мвЁ¬ЁЄа®Їа®жҐбб®а®© бЁб⥬л б
®ЎйҐ© ¬ ЈЁбва «мо. //ЂаеЁвҐЄвга , б奬®вҐеЁЄ Ё ¬ ⥬.
®ЎҐбЇҐз. ¬ЁЄа®Їа®ж. бЁб⥬ гЇа ў«ҐЁп. - Њ.: Њ€ќ’, 1986,
б.50-57.
Џђ€‹Ћ†…Ќ€…:
Џђ€Њ…ђ› GPSS-ЊЋ„…‹…‰ „‹џ ђ……Ќ€џ ‚ ‘€‘’…Њ… GPSS/PC
; EXCHANGE.GPS, by Gerard F. Cummings
100 ******************************************
110 * PABX TELEPHONE SYSTEM MODEL *
120 *****************************************
130 SIMULATE
170 XPDIS FUNCTION RN1,C24 ;EXPONENTIAL FUNCTION
0.0,0.0/0.1,.104/.2,.222/.3,.335/.4,.509/.5,.69
.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12
.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5
.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0
180 *
190 SNORM FUNCTION RN1,C25 ;STANDARD NORMAL FUNCTION
0.0,-5/0.00003,-4./.00135,-3.0/.00621,-2.5/.02275,-2./.06681,-1.5
.11507,-1.2/.15866,-1./.21186,-.8/.27425,-.6/.34458,-.4/.42074,-.2
.5,0.0/.57926,.2/.65542,.4/.72575,.6/.78814,.8/.84134,1/.88493,1.2
.93319,1.5/.97725,2/0.99379,2.5/.99865,3/0.99997,4.0/1.0,5.0
200 TRANSIT TABLE M1,20,20,20
210 *******************************************
220 EXTENSIONS STORAGE 200
230 EXTLINES STORAGE 30
240 INTLINES STORAGE 30
250 SIGNALS STORAGE 8
260 OPERATOR STORAGE 1
270 REPORT EXCHANGE.REP ;EXCH TELEPHONE SYSTEM
280 *******************************************
290 * DEFINE VARIABLES *
300 INTERNAL VARIABLE 1260/(1+R$EXTENSIONS)
310 EXTERNAL VARIABLE 2500/(R$EXTENSIONS+S$EXTENSIONS)
330 CALLTIME VARIABLE (FN$SNORM#30)+150
340 *
350 *TABLES FOR NO. OF CALLS IN PROGRESS
360 CALLSINT TABLE S$INTLINES,2,2,20
370 CALLSEXT TABLE S$EXTLINES,2,2,20
380 *******************************************
390 * GENERATE CALLS ORIGINATING INTERNALLY
400 GENERATE V$INTERNAL,FN$XPDIS,20 ;CALLS ORIGINATING INTERNALL
410 ENTER EXTENSIONS ;AN EXTENSION IS INVOLVED
420 QUEUE INSIDE ;QUEUE FOR SIGNAL UNIT
430 ENTER SIGNALS ;GET A SIGNALLING UNIT
440 DEPART INSIDE ;LEAVE THE QUEUE
450 ADVANCE 7,2 ;TIME TO SIGNAL
460 LEAVE SIGNALS ;LEAVE THE SIGNAL UNIT
470 TRANSFER .333,,INTOUT ;33% ARE INTERNAL TO EXTERNAL
480 *
490 INTINT TEST GE R$INTLINES,1,BREAKOFF ;TEST INTERNAL LINE AVAILABLE
500 ENTER INTLINES ;GET AN INTERNAL LINE
510 ADVANCE 4,1 ;CHECK IF ENGAGED ?
515 TRANSFER .15,,BUSY ;SOME EXTENSIONS ENGAGED
520 ALINE ENTER EXTENSIONS ;ANOTHER EXTENSION INVOLVED
530 ADVANCE 6,2 ;TIME TO RING EXTENSION
540 TRANSFER .2,,NOGOOD ;20% NOT ANSWERED
550 ADVANCE V$CALLTIME ;CALL DURATION
560 NOGOOD LEAVE EXTENSIONS ;LEAVE EXTENSION
570 BUSY LEAVE INTLINES ;LEAVE INTERNAL LINE
580 TRANSFER ,BREAKOFF
590 *
600 * MODEL INTERNAL TO EXTERNAL CALLS *
610 INTOUT TEST GE R$EXTLINES,1,BREAKOFF ;IS AN EXTERNAL LINE AVAILABLE
620 ENTER EXTLINES ;GET AN EXTERNAL LINE
630 ADVANCE 4,1 ;TIME TO CHECK IF ENGAGED
640 TRANSFER .200,,NOBODY ;20% ARE ENGAGED
650 ADVANCE 6,2 ;TIME TO ANSWER
660 TRANSFER .200,,NOBODY ;20% DO NOT ANSWER
670 ADVANCE V$CALLTIME ;CALL DURATION
675 TABULATE TRANSIT ;RECORD TRANSIT TIME
680 NOBODY LEAVE EXTLINES ;LEAVE EXTERNAL LINE
690 BREAKOFF LEAVE EXTENSIONS ;FREE THE EXTENSION
700 TERMINATE
710 ****************************************
720 * PROCESS CALLS ORIGINATING EXTERNALLY *
730 GENERATE V$EXTERNAL,FN$XPDIS ;CALLS OF EXTERNAL ORIGIN
740 TEST GE R$EXTLINES,1,NONEFREE ;EXTERNAL LINE AVAILABLE ?
750 ENTER EXTLINES ;GET AN EXTERNAL LINE
760 QUEUE OUTSIDER ;QUEUE FOR OPERATOR
770 ENTER OPERATOR ;GET AN OPERATOR
780 DEPART OUTSIDER ;DEPART THE QUEUE
790 ADVANCE 9,3 ;OPERATOR SERVICE
800 LEAVE OPERATOR ;LEAVE THE OPERATOR
810 ADVANCE 4,1 ;IS IT ENGAGED
815 TRANSFER .15,,ENGAGED ;SOME EXTENSIONS ENGAGED
820 ENTER EXTENSIONS ;GET AN EXTENSION
830 ADVANCE 6,2 ;TIME TO RING EXTENSION
840 TRANSFER .200,,NOPERSON ;20 % NO ANSWER
850 ADVANCE V$CALLTIME ;CALL TIME
855 TABULATE TRANSIT ;RECORD TRANSIT TIME
860 NOPERSON LEAVE EXTENSIONS ;LEAVE EXTENSION
870 ENGAGED LEAVE EXTLINES ;LEAVE EXTERNAL LINE
880 NONEFREE TERMINATE
890 *****************************************
900 GENERATE 3600 ;TRANSACTION EVERY HOUR
910 TERMINATE 1 ;TERMINATE TIMER XACT
920 GENERATE 60 ;ONE XACT EVERY MINUTE
930 TABULATE CALLSINT ;NO. OF INTERNAL CALLS
940 TABULATE CALLSEXT ;NO. OF EXTERNAL CALLS
950 TERMINATE
960 *****************************************
; MANUFACT.GPS, by Gerard F. Cummings
100 *****************************************
110 * *
120 * MANUFACTURING COMPANY *
130 * GPSS/PC SIMULATION *
140 *****************************************
160 * TIME UNIT IS ONE SECOND *
170 XPDIS FUNCTION RN1,C24
0.0,0.0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/
.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12/
.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5/
.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0
180 SIZEORDER FUNCTION RN1,D7 ;ORDER SIZE
.10,6/.35,12/.65,18/.80,24/.92,30/.97,36/1.0,48
190 TRANSIT TABLE M1,100,100,20 ;TRANSIT TIME
200 NUMBER TABLE X1,100,100,20 ;NO. PACKED EACH DAY
210 PTIME VARIABLE 10#P1+120 ;PACKING TIME
215 AMOUNT EQU 1000 ;INITIAL STOCK AMOUNT
220 STOCK STORAGE 4000 ;WAREHOUSE HOLDS 4000 UNITS
240 ****************************************
250 GENERATE 900,FN$XPDIS ;ORDER ARRIVES
260 ASSIGN 1,1,SIZEORDER ;P1 = ORDER SIZE
270 TEST GE S$STOCK,P1,STOCKOUT ;IS STOCK SUFFICIENT?
290 LEAVE STOCK,P1 ;REMOVE P1 FROM STOCK
300 QUEUE PACKING
310 SEIZE MACHINE ;GET A MACHINE
320 DEPART PACKING
330 ADVANCE V$PTIME ;PACKING TIME
340 RELEASE MACHINE ;FREE THE MACHINE
360 SAVEVALUE 1+,P1 ;ACCUMULATE NO. PACKED
370 TABULATE TRANSIT ;RECORD TRANSIT TIME
380 TERMINATE
385 STOCKOUT TERMINATE
390 ****************************************
400 GENERATE 2700,300,1 ;XACT EVERY 40 +/- 5 MINS
410 ENTER STOCK,60 ;MAKE 60, STOCK INCREASED BY 60
420 STOCKAD TERMINATE
430 ****************************************
440 GENERATE 28800 ;XACT EVERY DAY
450 TABULATE NUMBER
460 SAVEVALUE 1,0
470 TERMINATE 1
480 ****************************************
540 GENERATE ,,,1,10 ;INITIAL STOCK XACT
550 ENTER STOCK,AMOUNT ;SET INITIAL STOCK
570 TERMINATE
580 ****************************************
; QCONTROL.GPS, by Gerard F. Cummings
100 ***********************************************
110 * *
120 * QUALITY CONTROL PROGRAM FOR GPSSPC *
130 * *
140 ***********************************************
150 RMULT 93211
160 * Definitions
170 TRANSIT TABLE M1,100,100,20 ;TRANSIT TIME
180 XPDIS FUNCTION RN1,C24 ;EXPONENTIAL FUNCTION
0.0,0.0/0.1,.104/.2,.222/.3,.335/.4,.509/.5,.69
.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12
.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5
.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0
190 *
200 SNORM FUNCTION RN1,C25 ;STANDARD NORMAL FUNCTION
0.0,-5/0.00003,-4./.00135,-3.0/.00621,-2.5/.02275,-2./.06681,-1.5
.11507,-1.2/.15866,-1./.21186,-.8/.27425,-.6/.34458,-.4/.42074,-.2
.5,0.0/.57926,.2/.65542,.4/.72575,.6/.78814,.8/.84134,1/.88493,1.2
.93319,1.5/.97725,2/0.99379,2.5/.99865,3/0.99997,4.0/1.0,5.0
210 THIRD FVARIABLE 24+4#FN$SNORM
230 PROCESS FUNCTION RN1,D7
0,0/.05,10/.18,14/.34,21/.56,32/.85,38/1.0,45
240 **********************************************
250 GENERATE 30,FN$XPDIS
260 ASSIGN 1,FN$PROCESS ;PROCESS TIME IN P1
270 STAGE1 SEIZE MACHINE1
280 ADVANCE P1 ;PROCESS 1
290 RELEASE MACHINE1
300 ADVANCE 2 ;INSPECTION
310 TRANSFER .200,,REWORK1 ;20 % NEED REWORK
320 *********************************************
330 STAGE2 SEIZE MACHINE2
340 ADVANCE 15,6 ;PROCESS 2
350 RELEASE MACHINE2
360 ADVANCE 2 ;INSPECTION
370 TRANSFER .150,,REWORK2 ;15 % NEED REWORK
380 *********************************************
390 STAGE3 SEIZE MACHINE3
400 ADVANCE V$THIRD ;PROCESS 3
410 RELEASE MACHINE3
420 ADVANCE 2 ;INSPECTION 3
430 TRANSFER .050,,REWORK3 ;5 % NEED REWORK
440 TABULATE TRANSIT ;RECORD TRANSIT TIME
450 TERMINATE 1
460 *********************************************
470 REWORK1 TRANSFER .400,,STAGE1
480 TERMINATE
490 REWORK2 TRANSFER .400,,STAGE2
500 TERMINATE
510 REWORK3 TRANSFER .400,,STAGE3
520 TERMINATE
530 REPORT QCON.RPT ;QUALITY CONTROL MODEL
; QTHEORY.GPS, by Gerard F. Cummings
100 *******************************************
110 * *
120 * QUEUEING THEORY VERIFICATION *
130 * *
140 * GPSS/PC PROGRAM *
150 *******************************************
160 SIMULATE
180 * TIME UNIT IS 1/100 OF A SECOND
190 XPDIS FUNCTION RN1,C24 ;EXPONENTIAL FUNCTION
0.0,0.0/0.1,.104/.2,.222/.3,.335/.4,.509/.5,.69
.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12
.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5
.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0
200 *
210 TRANSIT TABLE M1,250,250,20
220 NUMBER TABLE Q$EXPON,0,1,20
230 QCONSTANT QTABLE CONSTANT,200,200,20
240 QEXPON QTABLE EXPON,200,200,20
250 QERLANG QTABLE ERLANG,200,200,20
260 ****************************************
270 GENERATE 500,FN$XPDIS ;INTERARRIVAL 5 SECONDS
280 QUEUE CONSTANT
290 SEIZE FACILITY1
300 ADVANCE 300 ;SERVICE CONSTANT 3 SECS
310 RELEASE FACILITY1
320 DEPART CONSTANT
330 TERMINATE
340 ****************************************
350 GENERATE 500,FN$XPDIS ;INTERARRIVAL TIME 5 SECS
370 QUEUE EXPON
380 SEIZE FACILITY2
390 ADVANCE 300,FN$XPDIS ;SERVICE TIME 3 SECS EXPON
400 RELEASE FACILITY2
410 DEPART EXPON
430 TABULATE TRANSIT
440 TERMINATE
450 ****************************************
460 GENERATE 500,FN$XPDIS ;INTERARRIVAL TIME 5 SECS
470 QUEUE ERLANG
480 SEIZE FACILITY3
490 ADVANCE 150,FN$XPDIS ;ERLANG K=2 SERVICE 3SECS
500 ADVANCE 150,FN$XPDIS
510 RELEASE FACILITY3
520 DEPART ERLANG
530 TERMINATE
540 ****************************************
550 GENERATE 6000,FN$XPDIS ;RANDOM SAMPLE, AVE. 1 PER MINUTE
560 TABULATE NUMBER
570 TERMINATE 1
590 ***************************************
; GPSS/PC program file C:SAMPLE7.GPS. (V 2, # 10000) 04-07-1986 10:58:00
10 *************************************************************************
20 * *
30 * Automobile Arrival Simulation
40 * *
50 *************************************************************************
60 GENERATE 20,10 ;Create next automobile.
70 QUEUE EASTWEST
80 TEST E X$EWLIGHT,F$INTERSECTION ;Block until green, and
82 * the intersection is free
85 SEIZE INTERSECTION
90 DEPART EASTWEST ;End queue time.
100 ADVANCE 10 ;Cross the intersection.
105 RELEASE INTERSECTION
110 TERMINATE 1 ;Customer leaves.
120 *
130 GENERATE 30,10 ;Create next automobile.
140 QUEUE NORTHSOUTH
150 TEST E X$NSLIGHT,GREEN ;Block until green and
152 * the intersection is free
155 SEIZE INTERSECTION
160 DEPART NORTHSOUTH ;End queue time.
170 ADVANCE 10 ;Cross the intersection.
175 RELEASE INTERSECTION
180 TERMINATE 1 ;Customer leaves.
190 *************************************************************************
200 * *
210 * Traffic Light Simulation *
220 * *
230 *************************************************************************
240 GENERATE ,,,1
250 BEGIN SAVEVALUE NSLIGHT,RED ;Turn to red
260 SAVEVALUE EWLIGHT,GREEN ;Turn to red
270 ADVANCE GREENTIME ;Light is green
280 SAVEVALUE NSLIGHT,GREEN
290 SAVEVALUE EWLIGHT,RED
300 ADVANCE REDTIME ;light is red
310 TRANSFER ,BEGIN
320 GREENTIME EQU 200
322 * GREEN must have same value as an idle facility (0) F class SNA.
325 GREEN EQU 0
330 REDTIME EQU 300
340 PLOT Q$EASTWEST,20,0,8000 ;East-West congestion.
345 PLOT Q$NORTHSOUTH,20,0,8000 ;North-South congestion.
350 *
360 * DO START 4000 EW Congestion builds. Try greentime equ 1000. Fine
370 * but NS congestion builds. GREENTIME EQU 400 works for both.
; GPSS/PC program file C:SAMPLE9.GPS. (V 2, # 10000) 04-07-1986 10:58:00
1003 XPDIS FUNCTION RN1,C24 ;
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
1500 TABLE1 QTABLE FACILITY,20,20,20 ;
1600 POOL STORAGE 10
1800 MATRIX1 MATRIX ,5,5
2000 GENERATE 100,FN$XPDIS,
2100 QUEUE FACILITY
2106 ENTER POOL
2108 MSAVEVA MATRIX1,2,2,C1
2200 NXTBLK SEIZE FACILITY ;
2400 ADVANCE 50,FN$XPDIS ;
2500 RELEASE FACILITY ;
2540 LEAVE POOL
2600 DEPART FACILITY
3000 TERMINATE 1 ;
; GPSS/PC Program file B:SCHR2E 04-16-1984 18:43:06
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
110 SIMULATE
120 *
130 * STORAGE CAPACITY DEFINITIONS
140 *
150 NOWON STORAGE 50 ;50 MACHINES MAX
160 *
170 * MODEL SEGMENT 1
180 *
190 CNTRL GENERATE ,,,MACHINES ;Provide 53 machines (3 rented)
200 BACKPLACE ENTER NOWON ;Machine goes into production
210 ADVANCE 157,25 ;Machine is running
220 LEAVE NOWON ;Machine fails
230 ENTER MEN ;Capture repairman
240 ADVANCE 7,3 ;Machine is being repaired
250 LEAVE MEN ;Free the repairman
260 TRANSFER ,BACKPLACE ;Go back to run again when needed
270 *
280 * MODEL SEGMENT 2
290 *
300 GENERATE DURATION ;Timer
310 TERMINATE 1 ;shuts off the run
320 *
330 * Control Cards
340 *
345 *
350 *
360 * Duration is 3 years
340 *
363 DURATION EQU 6240
365 *
367 *
370 MACHINES EQU 53
380 MEN STORAGE 3 ;3 Repair men
390 REPORT SCHR2E1.REP ;3 rented machines, 3 repair men
410 START 1 ;Start the first run
420 *
430 *
440 *
445 CLEAR ;Remove old transactions
450 MACHINES EQU 54
460 MEN STORAGE 3 ;3 Repair men
470 REPORT SCHR2E2.REP ;4 rented machines, 3 repair men
490 START 1 ;Start the second run
500 *
510 *
520 *
525 CLEAR ;Remove old transactions
530 MACHINES EQU 55
540 MEN STORAGE 3 ;3 Repair men
550 REPORT SCHR2E3.REP ;5 rented machines, 3 repair men
570 START 1 ;Start the third run
580 *
590 *
600 *
605 CLEAR ;Remove old transactions
610 MACHINES EQU 53
620 MEN STORAGE 4 ;4 Repair men
630 REPORT SCHR2E4.REP ;3 rented machines, 4 repair men
650 START 1 ;Start the fourth run
660 *
670 *
680 *
685 CLEAR ;Remove old transactions
690 MACHINES EQU 54
700 MEN STORAGE 4 ;4 Repair men
710 REPORT SCHR2E5.REP ;4 rented machines, 4 repair men
730 START 1 ;Start the fifth run
740 *
750 *
760 *
765 CLEAR ;Remove old transactions
770 MACHINES EQU 55
780 MEN STORAGE 4 ;4 Repair men
790 REPORT SCHR2E6.REP ;5 rented machines, 4 repair men
810 START 1 ;Start the sixth run
820 *
830 *
840 *
845 CLEAR ;Remove old transactions
850 MACHINES EQU 53
860 MEN STORAGE 5 ;5 Repair men
870 REPORT SCHR2E7.REP ;3 rented machines, 5 repair men
890 START 1 ;Start the seventh run
900 *
910 *
920 *
925 CLEAR ;Remove old transactions
930 MACHINES EQU 54
940 MEN STORAGE 5 ;5 Repair men
950 REPORT SCHR2E8.REP ;4 rented machines, 5 repair men
970 START 1 ;Start the eighth run
980 *
990 *
1000 *
1005 CLEAR ;Remove old transactions
1010 MACHINES EQU 55
1020 MEN STORAGE 5 ;5 Repair men
1030 REPORT SCHR2E9.REP ;5 rented machines, 5 repair men
1050 START 1 ;Start the ninth run
1060 *
1070 *
1080 *
1100 END
; GPSS/PC Program file B:SCHR2F 04-17-1984 13:47:03
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
110 SIMULATE
120 *
130 * STORAGE CAPACITY DEFINITIONS
140 *
150 TESTERS STORAGE 2 ;2 workers at last station
160 *
170 * MODEL SEGMENT 1
180 *
190 GENERATE 55,20 ;Sets arrive from last station
200 BACKPLACE QUEUE AREA1 ;Enter inspection waiting area
210 ENTER TESTERS ;Capture an inspector
220 DEPART AREA1 ;Leave the waiting area
230 ADVANCE 90,30 ;Set is being inspected
240 LEAVE TESTERS ;Free the inspector
250 TRANSFER .15,,FIX ;To packing or adjust. station
260 TERMINATE ;Set moves on to packing
300 FIX QUEUE AREA2 ;Enter adjustment waiting area
310 SEIZE FIXER ;Capture the adjustor
320 DEPART AREA2 ;Leave the waiting area
330 ADVANCE 300,100 ;Set is being adjusted
340 RELEASE FIXER ;Free the adjuster
350 TRANSFER ,BACKPLACE ;Go back to be inspected
370 *
380 * MODEL SEGMENT 2
390 *
400 GENERATE DURATION ;Timer
410 TERMINATE 1 ;shuts off the run
420 *
430 * Control Cards
440 *
445 *
450 *
460 * Duration is 1 day
540 *
563 DURATION EQU 4800
565 *
567 *
590 REPORT SCHR2F1.REP ;After 1 day
600 START 1 ;Start run for the first day
610 REPORT SCHR2F2.REP ;After 2 days
630 START 1 ;Start run for the second day
650 REPORT SCHR2F3.REP ;After 3 days
660 START 1 ;Start run for the third day
670 REPORT SCHR2F4.REP ;After 4 days
680 START 1 ;Start run for the fourth day
690 REPORT SCHR2F5.REP ;After 5 days
700 START 1 ;Start run for the fifth day
; GPSS/PC Program file SCHR3C.TST 05-28-1984 19:18:50
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
100 *
105 * Non-standard random number sequence initializations for first run
110 *
115 RMULT 511,39,7,663
120 *
125 * Function definitions
130 *
135 IAT1 FUNCTION RN1,C2 ;Category 1 mechanic inter-arrival
0,60/1,781
145 IAT2 FUNCTION RN3,C2 ;Category 2 mechanic inter-arrival
0,120/1,601
155 STYM1 FUNCTION RN2,C2 ;Category 1 mechanic service times
0,210/1,391
165 STYM2 FUNCTION RN4,C2 ;Category 2 mechanic service times
0,70/1,131
175 *
180 * Model segment 1
185 *
190 TAG1 GENERATE FN$IAT1 ;Category 1 mechanics arrive
195 QUEUE LINE ;Enter back of line
200 SEIZE CLERK ;Capture the clerk
205 DEPART LINE ;Leave the line
210 ADVANCE FN$STYM1 ;Use the clerk
215 RELEASE CLERK ;Free the clerk
220 TERMINATE ;Leave the tool crib area
225 *
230 * Model segment 2
235 *
240 TAG2 GENERATE FN$IAT2 ;Category 2 mechanics arrive
245 QUEUE LINE ;Enter back of line
250 SEIZE CLERK ;Capture the clerk
255 DEPART LINE ;Leave the line
260 ADVANCE FN$STYM2 ;Use the clerk
265 RELEASE CLERK ;Free the clerk
270 TERMINATE ;Leave the tool crib area
275 *
280 * Model segment 3
285 *
290 GENERATE 28800 ;Timer shuts off after 8 hours
295 TERMINATE 1 ;Shut off the run
300 *
305 * Control cards
310 *
315 REPORT SCHR3C1.REP ;Run 1
320 START 1 ;start first run
325 RMULT 741,211,483,659 ;Set random sequences for second r
330 CLEAR ;Clear for second run
335 REPORT SCHR3C2.REP ;Run 2
340 START 1 ;Start the second run
345 RMULT 111,157,539,211 ;Set random sequences for third ru
350 CLEAR ;Clear for third run
355 REPORT SCHR3C3.REP ;Run 3
360 START 1 ;Start the third run
; GPSS/PC Program file B:SCHR5B.TST 04-30-1984 08:36:45
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
100 * A Problem in Inventory Control
105 *
110 SIMULATE
115 *
120 * Non-standard Random Number Sequence Initialization(s)
125 *
130 RMULT 11,33
135 *
140 * Function Definition(s)
145 *
150 LTIME FUNCTION RN2,D5 ;Replenishment lead-time dist.
.05,6/.3,7/.6,8/.82,9/1,10
160 SNORM FUNCTION RN1,C25 ;Standard Normal Distribution
0,-5/.00003,-4/.00135,-3/.00621,-2.5/.02275,-2
.06681,-1.5/.11507,-1.2/.15866,-1/.21186,-.8/.27425,-.6
.34458,-.4/.42074,-.2/.5,0/.57926,.2/.65542,.4
.72575,.6/.78814,.8/.84134,1/.88493,1.2/.93319,1.5
.97725,2/.99379,2.5/.99865,3/.99997,4/1,5
190 *
195 * Savevalue Initialization(s)
200 *
205 INITIAL X$ROP,80 ;Reorder point = 80 for 1st run
210 INITIAL X$ROQ,100 ;Reorder quantity=100 for 1st run
215 INITIAL X$STOCK,100 ;Initial Stock on hand = 100 units
220 *
225 * Table Definition(s)
230 *
235 LOSES TABLE P2,0,1,17 ;Table for lost daily sales
240 STOCK TABLE X$STOCK,0,10,12 ;Table for daily stock level
245 *
250 * BVariable Definition(s)
255 *
260 DMND FVARIABLE 2#FN$SNORM+10
265 LOST VARIABLE P1-X$STOCK
270 *
275 * Model Segment 1
280 *
285 GENERATE 1,,,,1 ;Clerk comes each day
290 ASSIGN 1,V$DMND ;Set p1 = day's demand
292 ASSIGN 2,0 ;Assume loses are 0
295 TEST GE X$STOCK,P1,TRUBL ;Can day's demand be met?
300 SAVEVALUE STOCK-,P1 ;Yes, deplete stock by day demand
305 TAB1 TABULATE STOCK ;Record end-of-day stock level
310 TABULATE LOSES ;Record day's lost demand (if any)
315 TERMINATE 1 ;Clerk goes home
320 TRUBL ASSIGN 2,V$LOST ;no, set p2 = day's lost demand
325 SAVEVALUE STOCK,0 ;sold out, set stock= 0
330 TRANSFER ,TAB1 ;Go record day's experience
335 *
340 * Model Segment 2
345 *
350 GENERATE ,,,1 ;Seed inventory control segment
355 WATCH TEST LE X$STOCK,X$ROP ;Is it time to place a
360 * replenishment order?
365 ADVANCE FN$LTIME ;The order is on its way
370 SAVEVALUE STOCK+,X$ROQ ;Order arrives, add Roq to stock
375 TRANSFER ,WATCH ;Go back to watch
; GPSS/PC Program file B:SCHR5C.TST 04-30-1984 09:52:30
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
105 * SIMULATION OF A PRODUCTION SHOP
110 *
115 *LOC OPERATION A,B,C,D,E,F,G COMMENTS
120 SIMULATE
122 *
138 *
139 * FUNCTION DEFINITION(S)
140 *
141 GRUPS FUNCTION P1,D3 ;No. of machine groups each job ty
1,4/2,3/3,5
150 JTYPE FUNCTION RN1,D3 ;Distribution of job-types
.24,1/.68,2/1,3
155 TABNAMES FUNCTION P1,D3 ;Conversion table for table names
1,TAB1/2,TAB2/3,TAB3
160 XPDIS FUNCTION RN1,C24
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
165 *
170 * MATRIX SAVEVALUE DECLARATION(S)/INITIALIZATION(S)
175 *
180 MAT1 MATRIX ,3,5 ;Matrix of visitation sequences
181 INITIAL MX$MAT1(1,1),STORE6
182 INITIAL MX$MAT1(1,2),STORE2
183 INITIAL MX$MAT1(1,3),STORE3
184 INITIAL MX$MAT1(1,4),STORE1
190 INITIAL MX$MAT1(2,1),STORE2
192 INITIAL MX$MAT1(2,2),STORE4
193 INITIAL MX$MAT1(2,3),STORE5
194 INITIAL MX$MAT1(3,1),STORE6
195 INITIAL MX$MAT1(3,2),STORE3
196 INITIAL MX$MAT1(3,3),STORE4
197 INITIAL MX$MAT1(3,4),STORE5
200 INITIAL MX$MAT1(3,5),STORE1
205 *
210 MAT2 MATRIX ,3,5 ;Matrix of mean machining times
211 INITIAL MX$MAT2(1,1),600
212 INITIAL MX$MAT2(1,2),200
213 INITIAL MX$MAT2(1,3),350
214 INITIAL MX$MAT2(1,4),1250
220 INITIAL MX$MAT2(2,1),650
222 INITIAL MX$MAT2(2,2),900
223 INITIAL MX$MAT2(2,3),1050
224 INITIAL MX$MAT2(3,1),250
225 INITIAL MX$MAT2(3,2),300
226 INITIAL MX$MAT2(3,3),500
227 INITIAL MX$MAT2(3,4),2500
230 INITIAL MX$MAT2(3,5),2350
235 *
240 * STORAGE CAPACITY DEFINITION(S)
245 *
250 STORE1 STORAGE 14 ;Provide 14, 5, and 3 machines
252 STORE2 STORAGE 5
254 STORE3 STORAGE 4
255 * groups 1, 2, 3, respectively
260 STORE4 STORAGE 8 ;Provide 8, 16 and 4 machines
262 STORE5 STORAGE 16
263 STORE6 STORAGE 4
269 * groups 4, 5, and 6, respectively
270 *
275 * TABLE DEFINITION(S)
280 *
285 TAB1 TABLE M1,2400,2400,10 ;Shop residence time (type 1 )
290 TAB2 TABLE M1,2400,2400,10 ;Shop residence time (type 2 )
295 TAB3 TABLE M1,2400,2400,10 ;Shop residence time (type 3 )
300 TJOBS TABLE V$COUNTER,10,10,5 ;Total jobs in shop
305 *
310 * VARIABLE DEFINITION(S)
315 *
320 COUNTER VARIABLE W$AAA+W$BBB+W$CCC
325 *
330 * MODEL SEGMENT 1
335 *
340 GENERATE 96,FN$XPDIS ;Jobs enter the shop
345 ASSIGN 1,FN$JTYPE ;Set P1 = job type
350 AAA ASSIGN 2,FN$GRUPS ;Set P2 = no. of groups to visit
355 NEXT ENTER MX$MAT1(P1,P2) ;Capture machine in next group
360 BBB ADVANCE MX$MAT2(P1,P2),FN$XPDIS ;Machining operation proceeds
365 LEAVE MX$MAT1(P1,P2) ;Release this machine
370 ASSIGN 2-,1 ;Update no. of groups yet to visit
375 CCC TEST E P2,0,NEXT ;Job done? If not, go to next grou
380 TABULATE FN$TABNAMES ;Yes, record time spent in shop
385 TERMINATE ;Leave the shop
390 *
395 * MODEL SEGMENT 2
400 *
405 GENERATE 4800 ;Timer arrives at end of each day
410 TABULATE TJOBS ;Record no. of jobs now in the sho
415 TERMINATE 1 ;Decrement termination counter
; GPSS/PC Program file SCHR5D.TST 05-28-1984 17:59:21
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
100 * A GAS STATION PROBLEM
105 *
110 *LOC OPERATION A,B,C,D,E,F,G COMMENTS
115 SIMULATE
120 *
125 * NON-STANDARD RANDOM NUMBER SEQUENCE INITIALIZATION(S)
130 *
135 RMULT 111 ;Set random number sequence for 1s
140 *
145 * FUNCTION DEFINITION(S)
150 *
155 IAT FUNCTION RN1,C7 ;Inter-arrival time distribution
0,0/.25,100/.48,200/.69,300/.81,400/.9,500/1,600
165 STIME FUNCTION RN1,C7 ;Service time distribution
0,100/.06,200/.21,300/.48,400/.77,500/.93,600/1,700
175 *
180 * STORAGE CAPACITY DEFINITION(S)
185 *
190 STORE1 STORAGE 1 ;Configure for 1-attendant case
195 *
200 * DEFINE VARIABLE(S)
205 *
210 NET VARIABLE SC$STORE1-75-30#R$STORE1
215 *
220 * MODEL SEGMENT 1
225 *
230 GENERATE FN$IAT,,,,1 ;Cars approach station
235 GATE LR LOCK ;Station open
240 ASSIGN 1,FN$STIME ;Set P1 = latent service time
245 TEST LE Q1,STORE1,BYBYE ;No. waiting <= no. in service?
250 * if not go bybye
255 GOIN QUEUE 1 ;Yes, get in line
260 ENTER STORE1 ;Capture and attendant
265 DEPART 1 ;Get out of line
270 PRIORITY 2 ;Raise priority to resolve
275 * potential arrival/departure tie
280 ADVANCE P1 ;Servicing proceeds
285 DONE LEAVE STORE1 ;Free the attendant
290 BYBYE TERMINATE ;Leave the station
295 *
300 * MODEL SEGMENT 2
305 *
310 GENERATE 43200 ;Closeup time, owner arrives
315 LOGIC S LOCK ;Set 'not open' signal
320 TEST E N$GOIN,N$DONE ;Wait until last car is serviced
325 SAVEVALUE 1,V$NET ;Record day's net profit
330 TERMINATE 1 ;Go home
; GPSS/PC Program file B:SCHR5E.TST 04-30-1984 20:18:03
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
100 * BUS STOP SIMULATION
105 *
110 * LOC OPERATION A,B,C,D,E,F,G COMMENTS
115 *
120 SIMULATE
125 *
130 * FUNCTION DEFINITION(S)
135 *
140 XPDIS FUNCTION RN1,C24
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
145 ONBUS FUNCTION RN1,C2 ;Distribution of people on arrivin
0,20/1,51
155 OFFN FUNCTION BN1,C2 ;Distribution of people getting of
0,3/1,8
165 *
170 * TABLE DEFINITION(S)
175 *
180 INQUE QTABLE LINE,300,300,7 ;Time spent waiting at bus stop
185 MADTAB TABLE X$MAD,0,1,10 ;People not served per bus
190 *
195 * MODEL SEGMENT 1
200 *
205 GENERATE 150,FN$XPDIS,,,1 ;People arrive at bus stop
210 QUEUE LINE ;Join waiting line
215 GATE LS BUS ;Wait until the bus-gate is open
220 DEPART LINE ;Leave the waiting line
225 TEST L X$NOWON,50,MAD ;Is there room left on the bus?
230 * If not go away mad
235 LOGIC R BUS ;Yes, close the bus-gate on
240 * the next passenger for now
245 GETON ADVANCE 8,4 ;Climb aboard the bus
250 SAVEVALUE NOWON+,1 ;Update the no. now on the bus
255 LOGIC S BUS ;Open the bus-gate for the next pe
260 TERMINATE ;Current person is now aboard
265 MAD SAVEVALUE MAD+,1 ;Update the 'mad' counter
270 TERMINATE ;Go away mad
275 *
280 * MODEL SEGMENT 2
285 *
290 GENERATE 1800 ;Bus approaches every 30 minutes
295 ADVANCE 90,90 ;Any delay here means the bus is l
300 SAVEVALUE NOWON,FN$ONBUS ;Set X$NOWON = no. now on the bus
305 ASSIGN 1,FN$OFFN ;Set P1 = no. who want to get off
310 NEXT ADVANCE 4,3 ;Next person gets off
315 SAVEVALUE NOWON-,1 ;Update the no. on the bus
320 LOOP 1,NEXT ;Loop back to let next off (if any
325 LOGIC S BUS ;Otherwise, open the bus gate
330 TEST E Q$LINE,0 ;Bus waits until the line is empty
335 TEST E W$GETON,0 ;Make sure the last person is not
340 * still getting on
345 TABULATE MADTAB ;Record people not served
350 SAVEVALUE MAD,0 ;zero-out the 'mad-counter'
355 LOGIC R BUS ;Close the bus gate
360 TERMINATE 1 ;The bus departs
; GPSS/PC Program file SCHR6A.TST 05-27-1984 16:56:10
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
105 * OIL TANKER ACCOMODATION AT A PORT
110 *
115 * LOC OPERATION A,B,C,D,E,F,G COMMENTS
120 SIMULATE
125 *
130 * FUNCTION DEFINITION(S)
135 *
140 MEAN FUNCTION P1,L4 ;Mean service time for tanker type
1,18/2,24/3,36/4,21
150 SPRED FUNCTION P1,L4 ;Service time spread for tanker ty
1,2/2,3/3,4/4,3
160 TYPE FUNCTION RN1,D3 ;Distribution of 'other tanker' ty
.25,1/.8,2/1,3
170 XPDIS FUNCTION RN1,C24
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
175 *
180 * STORAGE CAPACITY DEFINITION(S)
185 *
190 BERTH STORAGE 3 ;Provide 3 berths
195 *
200 TAB1 EQU 1
205 TAB2 EQU 2
210 TAB3 EQU 3
215 TAB4 EQU 4
216 TAB1 TABLE M1,20,10,9 ;Port residence time, 'tanker type
218 TAB2 TABLE M1,20,10,9 ;Port residence time, 'tanker type
219 TAB3 TABLE M1,40,10,9 ;Port residence time, 'tanker type
220 TAB4 TABLE MP3,20,10,9 ;Port residence time, proposed tan
222 *
225 * VARIABLE DEFINITION(S)
230 *
235 GOIN BVARIABLE (1-SF$BERTH)#(1-F$TUG)#(1-LS$STORM)
240 GOOUT BVARIABLE (1-F$TUG)#(1-LS$STORM)
245 SPACE VARIABLE 48#N$HERE
250 *
255 * MODEL SEGMENT 1 (STORM GENERATING SEGMENT)
260 *
265 GENERATE ,,,1 ;Seed the storm segment
270 NEXT ADVANCE 48,FN$XPDIS ;Storm is on its way
275 LOGIC S STORM ;Storm arrives, set storm signal
280 ADVANCE 4,2 ;The storm is storming
285 LOGIC R STORM ;Storm is over, turn storm switch
290 TRANSFER ,NEXT ;Go bring on the next storm
295 *
300 * MODEL SEGMENT 2 (INITIALIZATION SEGMENT FOR PROPOSED TANKERS)
305 *
310 GENERATE ,,,5 ;Bring the proposed tankers into t
315 ASSIGN 1,4 ;Code proposed tankers with P1 val
320 HERE ADVANCE V$SPACE ;Space out times of their first po
325 MARK 3 ;Set P3 = arrival time at port
330 TRANSFER ,PORT ;Jump into major model segment
335 *
340 * MODEL SEGMENT 3 (PORT ACTIVITIES, CYCLING OF PROPOSED TANKERS)
345 *
350 GENERATE 11,7 ;'ther tankers' arrive at port
355 ASSIGN 1,FN$TYPE ;Set P1 = tanker-type code
360 PORT TEST E SF$BERTH,0 ;Wait until all ok for movement in
361 TEST E F$TUG,0 ;Wait until all ok for movement in
362 TEST E LS$STORM,0 ;Wait until all ok for movement in
364 TRANSFER SIM,,PORT
365 SEIZE TUG ;Update tug status to 'busy'
370 ENTER BERTH ;Update berth status
375 ADVANCE 1 ;Tanker is being moved into berth
380 RELEASE TUG ;Tug now no longer needed
385 ASSIGN 2,FN$SPRED ;Set P2 = service time spread
390 ADVANCE FN$MEAN,P2 ;Tanker is being loaded
392 TRYLEAVE TEST E F$TUG,0 ;Wait for tug
395 TEST E LS$STORM,0 ;Wait until all is ok fro leaving
399 TRANSFER SIM,,TRYLEAVE
400 SEIZE TUG ;Update tug status to 'busy'
405 ADVANCE 1 ;Tanker is being moved out of bert
410 RELEASE TUG ;Tug is no longer needed
415 LEAVE BERTH ;Berth is now available for other
420 TABULATE P1 ;Record residence time in port
425 TEST NE P1,4,CYCLE ;Seive out the proposed tankers
430 TERMINATE ;'Other tankers' leave
435 CYCLE ADVANCE 240,24 ;Proposed tankers make their round
440 MARK 3 ;Set P3 = time of return to port
445 TRANSFER ,PORT ;Tanker is back at port
450 *
455 * MODEL SEGMENT 4 (TIMER SEGMENT)
460 *
465 GENERATE 8760 ;Timer arrives after 1 year
470 TERMINATE 1 ;Shut off the run
; GPSS/PC Program file SCHR6B 05-27-1984 11:09:46
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
100 * LIBRARY STUDY
105 *
110 * LOC OPERATION A,B,C,D,E,F,G COMMENTS
115 SIMULATE
120 *
125 * EQUIVALENCE DENINITION(S)
130 *
135 SLIP EQU 10
145 * FUNCTION DEFINITION(S)
150 *
155 SNORM FUNCTION RN1,C25 ;Standard normal distribution func
0,-5/.00003,-4/.00135,-3/.00621,-2.5/.02275,-2
.06681,-1.5/.11507,-1.2/.15866,-1/.21186,-.8/.27425,-.6
.34458,-.4/.42074,-.2/.5,0/.57926,.2/.65542,.4
.72575,.6/.78814,.8/.84134,1/.88493,1.2/.93319,1.5
.97725,2/.99379,2.5/.99865,3/.99997,4/1,5
185 XPDIS FUNCTION RN1,C24 ;Exponential Distribution Function
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
190 *
195 * STORAGE CAPACITY DEFINITION(S)
200 *
205 BUSY STORAGE 3 ;Set storage capacity for 3-clerk
210 *
215 * TABLE DEFINITION(S)
220 *
225 DELAY TABLE M1,360,60,26 ;Time spent at checkout dest
230 SLIPS TABLE X$COUNT,1,1,5 ;Number of slips picked up
235 *
240 * VARIABLE DEFINITION(S)
245 *
250 DOUBL BVARIABLE X$COUNT'E'4+W$WAIT'E'0
255 GNORM FVARIABLE (FN$SNORM/5+1)#180#P2
260 *
265 * MODEL SEGMENT 1
270 *
275 GENERATE 120,FN$XPDIS,,,1 ;People arrive at checkout desk
280 WAIT ADVANCE ;Dummy advance block
285 GATE LS SLIP ;Wait until clerk has
290 * opened 'slip-pickup' gate
295 ASSIGN 1,X$CLERK ;Set P1 = clerk I.D. no.
300 SAVEVALUE COUNT+,1 ;Update count of slips clerk now h
305 TEST E BV$DOUBL,1,BYPAS ;Is this clerk done picking up
310 * slips? If not, bypass the next
315 * block
320 LOGIC R SLIP ;Yes, close the 'slip-pickup' gate
325 BYPAS GATE LS P1 ;Wait until clerk has opened
330 * 'checkout-finished' gate
335 LOGIC R P1 ;Close 'checkout-finished' gate
340 TABULATE DELAY ;Record time spent at checkout des
345 TERMINATE 1 ;Leave the checkout desk
350 *
355 * MODEL SEGMENT 2
360 *
365 BLOKA GENERATE ,,,3 ;Provide 3 clerks
370 ASSIGN 1,N$BLOKA ;Set P1 = clerk I.D. no.
375 BLOKB TEST G W$WAIT,0 ;Anyone waiting for slip-pickup?
380 ENTER BUSY ;Yes, enter busy status
385 SAVEVALUE COUNT,0 ;Zero out 'slips picked up' counte
390 SAVEVALUE CLERK,P1 ;Communicate clerk I.D. no. to
395 * people about to be served
400 LOGIC S SLIP ;Open slip-pickup gate
405 BUFFER ;Restart scan to let people throug
410 * the just-opened gate
415 ASSIGN 2,X$COUNT ;Set P2 = no. of slips picked up
420 TABULATE SLIPS ;Record no. of slips picked up
425 ADVANCE 60,30 ;Travel into the stacks
430 ADVANCE V$GNORM ;Locate the books
435 ADVANCE 60,30 ;Return from the stacks
440 BLOKC ADVANCE 120,60 ;Finish checking out next person
445 LOGIC S P1 ;Open 'checkout-finished' gate
450 BUFFER ;Restart scan to let this next
455 * person through the just-opened gate
460 LOOP 2,BLOKC ;Loop back to finish checking out
465 * next person (if any)
470 LEAVE BUSY ;Otherwise, clerk leaves busy stat
475 TRANSFER ,BLOKB ;Go start next service cycle
; GPSS/PC Program file SCHR6C.TST 05-28-1984 18:13:19
10 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
110 * A SPARE PARTS PROBLEM
115 *
120 *LOC OPERATION A,B,C,D,E,F,G COMMENTS
125 SIMULATE
130 *
135 * NON-STANDARD RANDOM NUMBER SEQUENCE INITIALIZATION(S)
140 *
145 RMULT 121,,17 ;Set random sequences for 1st run
150 *
155 * FUNCTION DEFINITION(S)
160 *
165 SNORM FUNCTION RN2,C25 ;Standard normal distribution
0,-5/.00003,-4/.00135,-3/.00621,-2.5/.02275,-2
.06681,-1.5/.11507,-1.2/.15866,-1/.21186,-.8/.27425,-.6
.34458,-.4/.42074,-.2/.5,0/.57926,.2/.65542,.4
.72575,.6/.78814,.8/.84134,1/.88493,1.2/.93319,1.5
.97725,2/.99379,2.5/.99865,3/.99997,4/1,5
195 XPDIS FUNCTION RN3,C24 ;Eponential distribution function
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915/.7,1.2/.75,1.38
.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2
.97,3.5/.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7/.9998,8
200 *
205 * VARIABLE DEFINITION(S)
210 *
215 VAR1 FVARIABLE 700#FN$SNORM+3500
220 FIX FVARIABLE 5#FN$SNORM+80
225 *
230 * MODEL SEGMENT 1
235 *
240 GENERATE ,,,1 ;First worker arrives
245 AGAIN SEIZE MAC ;Turn the machine on
250 ADVANCE V$VAR1 ;Part's lifetime elapses
255 RELEASE MAC ;Turn the machine off
260 ADVANCE 40 ;Remove the failed part
265 SPLIT 1,FETCH ;Send co-worker to fetch a spare
270 SEIZE FIXER ;Capture the repairman
275 ADVANCE V$FIX ;Repair proceeds
280 RELEASE FIXER ;Free the repairman
285 SAVEVALUE 1+,1 ;Update the number of good spares
290 TERMINATE ;Leave, co-worker will carry on
295 FETCH TEST G X1,0 ;Wait (if necessary) for good one
300 SAVEVALUE 1-,1 ;Update the number of good spares
305 ADVANCE 60 ;Install the part
310 TRANSFER ,AGAIN ;Go turn on the machine
315 *
320 * MODEL SEGMENT 2
325 *
330 GENERATE 90,FN$XPDIS,,,1 ;'Other items' arrive at shop
335 ADVANCE ;Dummy advance block
340 SEIZE FIXER ;Capture the repairman
345 ADVANCE 80,40 ;Repair proceeds
350 RELEASE FIXER ;Free the repairman
355 TERMINATE ;'Other item' leaves
360 *
365 * MODEL SEGMENT 3
370 *
375 GENERATE 104000 ;Timer comes after 260 weeks
380 TERMINATE 1 ;Shut off the run
; GPSS/PC Program file SCHR6E.TST 06-17-1984 11:31:10
1 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber
10 *
20 * Random Number Sequence Initialization
30 *
40 RMULT 111 ;Set Random number Sequence
50 *
60 * Function Definitions
70 *
80 IAT FUNCTION RN1,C7 ;Interarrival Time Distribution
0,0/.25,100/.48,200/.69,300/.81,400/.9,500/1,600
90 STIME FUNCTION RN1,C7 ;Service Time Distribution
0,100/.06,200/.21,300/.48,400/.77,500/.93,600/1,700
100 *
110 * Storage Capacity Definitions
120 *
125 STORE1 EQU 1
130 STORE1 STORAGE 1
132 *
135 STORE2 EQU 2
140 STORE2 STORAGE 2
142 *
145 STORE3 EQU 3
150 STORE3 STORAGE 3
160 *
170 * Variable Definitions
180 *
190 NET VARIABLE SC*1-75-30#R*1
200 *
210 * Model Segment 1
220 *
230 GENERATE FN$IAT,,,,1 ;Master Cars Approach
240 GATE LR LOCK ;Stations Open?
250 ASSIGN 1,FN$STIME ;Set p1 = Latent Service Time
260 SPLIT 2,NEXT,2 ;Create 2 copies of Master
270 * ;Serialize in Parameter 2
280 NEXT TEST LE Q*2,S*2,BYBYE ;Each Car Tests Conditions at
290 * ; Station then Stays or goes
300 GOIN QUEUE P2 ;Get in Line
310 ENTER P2 ;Capture Attendant
320 DEPART P2 ;Get out of line
330 PRIORITY 2 ;Raise Priority
340 * ; to Resolve potential tie
350 ADVANCE P1 ;Servicing Proceeds
360 DONE LEAVE P2 ;Free the Attendant
370 BYBYE TERMINATE ;Leave the Station
380 *
390 * Model Segment 2
400 *
410 GENERATE 43200 ;Close. Owner Arrives
420 LOGIC S LOCK ;Set "Not open" Signal
430 TEST E N$GOIN,N$DONE ;Wait 'til last car is
440 * ; Serviced at Station
450 SPLIT 2,AHEAD,1 ;Create 2 Copies of Owner
460 * ; Serialize in Parameter 1
470 AHEAD SAVEVALUE P1,V$NET ;Record Net Profit for Station
480 TERMINATE 1 ;Go Home
; SUPERMRK.GPS, by Gerard F. Cummings
100 ***************************************************
110 * *
120 * SUPERMARKET SIMULATION MODEL IN GPSSPC *
130 * *
140 ***************************************************
150 RMULT 1187
170 * TIME UNIT = 1/10 OF A SECOND
210 XPDIS FUNCTION RN1,C24 ;EXPONENTIAL FUNCTION
0.0,0.0/0.1,.104/.2,.222/.3,.335/.4,.509/.5,.69
0.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12
0.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5
0.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0
220 QTY VARIABLE (RN1@96+5)
230 FINANCE VARIABLE (RN1@3+1)#50+200
240 TRANSIT TABLE M1,10000,10000,7 ;TIME IN THE SYSTEM
250 ITEMS TABLE P$QUANTITY,10,10,10 ;NO. OF ITEMS BOUGHT
260 BASKT STORAGE 70
270 CART STORAGE 650
280 PARK STORAGE 650
290 CHECKOUT VARIABLE (P$QUANTITY)#20+P$PAYMENT
300 TSHOP VARIABLE P$QUANTITY#100
310 INITIAL X$CUSTOMERS,0
320 SHOPPERS TABLE X$CUSTOMERS,100,50,12 ;NO. OF SHOPPERS
330 *********************************************
350 BEGIN TRANSFER BOTH,,LOST ;TRIES TO PARK OR LEAVES
360 ENTER PARK ;PARK IN PARKING LOT
370 ADVANCE 600 ;TIME TO WALK FROM CAR
380 SAVEVALUE CUSTOMERS+,1 ;ONE MORE CUSTOMER
390 ASSIGN QUANTITY,V$QTY ;PARAM QUANTITY = NO. ITEMS BOUGHT
400 ASSIGN PAYMENT,V$FINANCE ;PARAM PAYMENT = METHOD PAYMENT
410 TEST LE P$QUANTITY,10,QCART ;ITEMS >10 GET CART
420 GATE SNF BASKT,QCART ;CHECK BASKET AVAILABLE
430 QUEUE BASKET ;QUEUE FOR A BASKET
440 ENTER BASKT ;GET A BASKET
450 DEPART BASKET ;LEAVE QUEUE
460 ASSIGN CARRIER,BASKT ;PARAM CARRIER ASSIGNED BASKT
470 TRANSFER ,SHOP ;PROCEED TO SHOP
480 *--------------------------------------------
490 QCART QUEUE CARTS ;QUEUE FOR A CART
500 ENTER CART ;GET A CART
510 DEPART CARTS ;DEPART CARTS QUEUE
520 ASSIGN CARRIER,CART ;PARAM CARRIER ASSIGNED CART
530 SHOP ADVANCE V$TSHOP ;SHOPPING TIME ELAPSES
540 TEST LE P$QUANTITY,10,NORMAL ;ITEMS < 10 GO TO EXPRESS
550 COUNT L WHERE,4,20,1,Q ;ANY EMPTY CHECKOUTS ?
560 TEST E P$WHERE,0,NORMAL ;SOME EMPTY CHEKOUTS ?
570 QUEUE XPRESS ;QUEUE AT EXPRESS
580 SEIZE XPRES ;GET EXPRESS CHECKOUT
590 DEPART XPRESS ;DEPART EXPRESS QUEUE
600 ADVANCE V$CHECKOUT ;CHECKOUT TIME
610 RELEASE XPRES ;FREE EXPRESS CHECKOUT
620 LEAVE P$CARRIER ;LEAVE THE BASKET
630 TRANSFER ,EXIT
640 *--------------------------------------------
650 NORMAL SELECT MIN MINQUE,4,20,,Q ;FIND MINIMUM QUEUE
660 QUEUE P$MINQUE ;JOIN THE MIN QUEUE
670 SEIZE P$MINQUE ;GET THE CHECKOUT
680 DEPART P$MINQUE ;DEPART THE QUEUE
690 ADVANCE V$CHECKOUT ;CHECKOUT TIME
700 RELEASE P$MINQUE ;FREE THE CHECKOUT
710 LEAVE P$CARRIER ;LEAVE THE CART
720 EXIT TABULATE TRANSIT ;RECORD TRANSIT TIME
730 TABULATE ITEMS ;RECORD ITEMS BOUGHT
740 SAVEVALUE CUSTOMERS-,1 ;ONE CUSTOMERS LEAVES
750 ADVANCE 600 ;WALK TO THE CAR
760 LEAVE PARK ;LEAVE THE CAR PARK
770 TERMINATE
780 LOST TERMINATE ;ONE CUSTOMER LOST
790 *********************************************
792 * Arrivals for 0 - 30 min.
795 GENERATE 60,FN$XPDIS,,300 ;A CUSTOMER ARRIVES
798 TRANSFER ,BEGIN
799 * Arrivals for 30 - 90 min.
800 GENERATE 40,FN$XPDIS,18000,900 ;ARRIVAL RATE AFTER .5 HRAN HO
810 TRANSFER ,BEGIN
815 * Arrivals for 90 - 150 min.
820 GENERATE 80,FN$XPDIS,54000,450 ;ARRIVAL RATE AFTER 1.5HR
830 TRANSFER ,BEGIN
832 * Arrivals for 150 min +
840 GENERATE 120,FN$XPDIS,90000 ;ARRIVAL RATE AFTER 2.5 HRS
850 TRANSFER ,BEGIN
855 *********************************************
860 GENERATE 600 ;XAC EACH MINUTE
870 TABULATE SHOPPERS ;RECORD NO. OF CUSTOMERS
880 TERMINATE 1
890 *********************************************
; TAPEPREP.GPS, by Gerard F. Cummings
100 **************************************************
110 * *
120 * COMPUTER NUMERICAL CONTROL *
130 * TAPE PROGRAMMING, LOADING AND EDITING *
140 * *
150 **************************************************
160 * QUEUE DISCIPLINE --- SHORTEST PROCESSING TIME (SPT)
180 RMULT 66753
190 XPDIS FUNCTION RN1,C24 ;EXPONENTIAL FUNCTION
0.0,0.0/0.1,.104/.2,.222/.3,.335/.4,.509/.5,.69
.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12
.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5
.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0
200 **************************************************
210 * P1 = PROCESS TIME FOR PROGRAMMING
220 * P2 = " " " PUNCHING
230 * P3 = " " " EDITING
240 * P4 = SHORTEST PROCESSING TIME
250 * P5 = DUE DATE
260 * P6 = LONGEST PROCESSING TIME
270 ***************************************************
275 SCHEDPARM EQU 4 ;START WITH SHORT TIME PROC 1ST
280 VAR1 VARIABLE P1+P2+P3
290 VAR2 VARIABLE P4+AC1+RN1@160+80
300 VAR3 VARIABLE 10000-P4
310 LATENESS VARIABLE AC1-P5
320 TRANSIT TABLE M1,100,100,20 ;TABULATE FLOW TIMES
330 LATE TABLE V$LATENESS,-1000,200,20 ;LATENESS
340 ***************************************************
350 GENERATE 120,FN$XPDIS ;CREATE NEW ARRIVALS
360 ASSIGN 1,90,XPDIS ;PROGRAMMING TIME
370 ASSIGN 2,60,XPDIS ;TAPE PUNCHING TIME
380 ASSIGN 3,70,XPDIS ;TAPE LOAD AND EDIT TIME
390 ASSIGN 4,V$VAR1 ;TOTAL PROCESSING TIME
400 ASSIGN 5,V$VAR2 ;DUE DATE TIME IN P5
410 ASSIGN 6,V$VAR3 ;LONGEST PROCESSING TIME
420 LINK PROGRAM,P$SCHEDPARM,WRITE ;OVERALL SHORTEST TIME
430 WRITE SEIZE MANUSCRIPT
440 ADVANCE P1 ;PART PROGRAM TIME
450 RELEASE MANUSCRIPT
460 UNLINK PROGRAM,WRITE,1 ;UNLINK ONE XACT
470 LINK TAPE,P$SCHEDPARM,PUNCH ;LINK INTO CHAIN
480 PUNCH SEIZE TAPEPUNCH
490 ADVANCE P2 ;PUNCHING TIME
500 RELEASE TAPEPUNCH
510 UNLINK TAPE,PUNCH,1 ;UNLINK ONE XACT
520 LINK EDIT,P$SCHEDPARM,LOADEDIT ;LINK INTO CHAIN
530 LOADEDIT SEIZE EDIT
540 ADVANCE P3 ;LOAD AND EDIT TIME
550 RELEASE EDIT
560 UNLINK EDIT,LOADEDIT,1 ;UNLINK ONE XACT
570 ***********************************************
580 TABULATE LATE
590 TABULATE TRANSIT
600 TERMINATE 1 ;JOB LEAVES THE SHOP
610 ***********************************************
; TRAFFIC.GPS, by Gerard F. Cummings
100 **************************************************
110 * *
120 * TRAFFIC AT A T-JUNCTION *
130 **************************************************
140 * ERLANG SERVICE TIMES ...HYPEREXPONENTIAL ARRIVALS
170 * TIME UNIT IS 1/100 SECOND *
172 *
173 *-------------------------------------------------
175 * A Hyperexponential Probability Distribution Follows
180 HYPER FVARIABLE (410+((RN2'L'234)#(1343-410)))#FN$XPDIS
185 * f(t) = .234(1/4.10) exp(-t/4.1) + .766(1/13.43) exp(-t/13.43)
186 *-------------------------------------------------
188 *
190 AISLE STORAGE 8
200 MERGETIME TABLE MP2,100,100,20
210 CROSSTIME TABLE MP1,100,100,20
220 TRANSIT TABLE M1,1000,1000,9
230 ARRIVALS TABLE V$HYPER,200,200,20
240 XPDIS FUNCTION RN1,C24
0.0,0.0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69
.6,.915/.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12
.9,2.3/.92,2.52/.94,2.81/.95,2.99/.96,3.2/.97,3.5
.98,3.9/.99,4.6/.995,5.3/.998,6.2/.999,7.0/.9997,8.0
250 **************************************************
320 GENERATE V$HYPER,,300 ;HYPEREXPONENTIAL
330 QUEUE FIRST
340 GATE SNF AISLE ;IS THERE ROOM IN THE AISLE ?
350 SEIZE SOUTHLANE ;CROSSES HIGHWAY
360 DEPART FIRST
370 MARK 1
375 * ---------Erlang Distribution-----------
380 ADVANCE 90,FN$XPDIS ;ERLANG K=4 WAITING TIME
390 ADVANCE 90,FN$XPDIS ;MEAN = 360 TIME UNITS
400 ADVANCE 90,FN$XPDIS
410 ADVANCE 90,FN$XPDIS
415 * ---------------------------------------
420 TABULATE CROSSTIME ;RECORD CROSSING TIME
430 ENTER AISLE ;STAND IN CENTER AISLE
440 RELEASE SOUTHLANE
450 QUEUE TWO ;QUEUE FOR NORTHLANE
460 SEIZE NORTHLANE
470 DEPART TWO
480 LEAVE AISLE
490 MARK 2
495 * ---------Erlang Distribution-----------
500 ADVANCE 80,FN$XPDIS ;ERLANG K=5 WAITING TIME
510 ADVANCE 80,FN$XPDIS ;MEAN = 400 TIME UNITS
520 ADVANCE 80,FN$XPDIS
530 ADVANCE 80,FN$XPDIS
540 ADVANCE 80,FN$XPDIS
545 * ---------------------------------------
550 RELEASE NORTHLANE
560 TABULATE MERGETIME ;MERGE TIME TO NORTH FLOW
570 TABULATE TRANSIT
580 TABULATE ARRIVALS
590 TERMINATE
600 ************************************************
610 GENERATE 5000,500,,,10 ;SOUTHBOUND TRAFFIC
620 SEIZE SOUTHLANE
630 ADVANCE 1200,300 ;TIME TO PASS JUNCTION
640 RELEASE SOUTHLANE
650 TERMINATE
655 ************************************************
660 GENERATE 6000,500,,,10 ;NORTHBOUND TRAFFIC
670 SEIZE NORTHLANE
680 ADVANCE 1200,300 ;TIME TO PASS JUNCTION
690 RELEASE NORTHLANE
700 TERMINATE
710 ************************************************
720 GENERATE 6000 ; XACT EVERY MINUTE
730 TERMINATE 1
740 ************************************************
; TVREPAIR.GPS, by Gerard F. Cummings
100 *******************************************
110 * TELEVISION MAINTENANCE MAN *
120 * GPSS/PC MODEL *
130 *******************************************
140 * REPAIR OF RENTED SETS ONE EACH WEEK *
150 * TIME UNIT IS ONE MINUTE *
160 *******************************************
170 GENERATE 2400,480,,,1 ;OVERHAUL OF A RENTED SET
180 QUEUE OVERHAUL ;QUEUE FOR SERVICE
182 QUEUE ALLJOBS ;COLLECT GLOBAL STATISTICS
190 SEIZE MAINTENANCE ;OBTAIN TV REPAIRMAN
200 DEPART OVERHAUL ;LEAVE QUEUE FOR MAN
202 DEPART ALLJOBS ;COLLECT GLOBAL STATISTICS
210 ADVANCE 600,60 ;COMPLETE JOB 10+/-1 HOURS
220 RELEASE MAINTENANCE ;FREE REPAIRMAN
230 TERMINATE ;REMOVE ONE TRANSACTION
240 ******************************************
245 * On the spot repairs
250 GENERATE 90,10,,,3 ;ON-THE-SPOT REPAIRS
260 QUEUE SPOT ;QUEUE FOR SPOT REPAIRS
262 QUEUE ALLJOBS ;COLLECT GLOBAL STATISTICS
270 PREEMPT MAINTENANCE,PR ;GET THE TV REPAIRMAN
280 DEPART SPOT ;DEPART THE 'SPOT' QUEUE
282 DEPART ALLJOBS ;COLLECT GLOBAL STATISTICS
290 ADVANCE 15,5 ;TIME FOR TUNING/FUSE/FAULT
300 RETURN MAINTENANCE ;FREE MAINTENANCE MAN
310 TERMINATE
320 ******************************************
325 * Normal repairs on customer owned sets
330 GENERATE 300,60,,,2 ;NORMAL TV REPAIRS
340 QUEUE SERVICE ;QUEUE FOR SERVICE
342 QUEUE ALLJOBS ;COLLECT GLOBAL STATISTICS
350 PREEMPT MAINTENANCE,PR ;PREEMPT MAINTENANCE MAN
360 DEPART SERVICE ;DEPART THE 'SERVICE' QUEUE
362 DEPART ALLJOBS ;COLLECT GLOBAL STATISTICS
370 ADVANCE 120,30 ;NORMAL SERVICE TIME
380 RETURN MAINTENANCE ;RELEASE THE MAN
390 TERMINATE
400 ******************************************
410 GENERATE 480 ;ONE XACT EACH DAY
420 TERMINATE 1
425 * Day counter
430 ******************************************
435 * Tables of queue statistics
440 OVERHAUL QTABLE OVERHAUL,10,10,20
450 SPOT QTABLE SPOT,10,10,20
460 SERVICE QTABLE SERVICE,10,10,20
470 ALLJOBS QTABLE ALLJOBS,10,10,20
480 ******************************************