2' 'ư>HELPA\NhNN:l|CONTINUE n((0|EXIT&%p=lHALTމPl|0|dSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOT{gp߉.OdT{Dg|߉T{D|ŻOdgT{DModelsSchr7d.gpsLFeCFEO4iL4ibiE(((((((((({\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fmodern Courier New;}} {\colortbl\red0\green0\blue0;} \deflang1033\pard\tx1200\tx2400\tx4450\plain\f2\fs20 * Adapted from "Simulation Using GPSS", by Thomas J. Schriber \par * Impact of Limited Manpower On Completion Time In Precedence Networks \par * \par *Loc Operation A,B,C,D,E,F,G Comments \par * \par * Storage Capacity Definition \par * \par Men STORAGE 5 ;Supply 5 men initially \par * \par * Table Definition(s) \par * \par Inuse TABLE S$Men,0,1,20 ;Distribution of men in use \par Rtime TABLE M1,25,25,20 ;Table for project completion time \par * \par * Model 1 Segment \par * \par GENERATE ,,,1 ;Provide a transaction whenever needed \par Gater GATE LR Next1 ;Wait until preceding iteration is finished \par LOGIC S Next1 ;Shut gate on following transaction \par SPLIT 1,Gater \par * \par Node1 SPLIT 1,Sub13 ;Send offspring to handle subproject 1-to-3 \par Sub12 ENTER Men,4 ;Get men for subproject 1-to-2 \par ADVANCE 14,6 ;Do the subproject \par LEAVE Men,4 ;Free the men \par * \par Node2 SPLIT 1,Sub24 ;Send offspring to handle subproject 2-to-4 \par Sub25 ENTER Men,5 ;Get men for subproject 2-to-5 \par ADVANCE 18,4 ;Do the subproject \par LEAVE Men,5 ;Free the men \par * \par Node5 ASSEMBLE 2 ;Wait for completion of 2-to-5 and 4-to-5 \par Sub57 ENTER Men,2 ;Get men for subproject 5-to-7 \par ADVANCE 8,3 ;Do the subproject \par LEAVE Men,2 ;Free the men \par TRANSFER ,Node7 ;Go signal completion of 5-to-7 \par * \par Sub24 ENTER Men,3 ;Get men for subproject 2-to-4 \par ADVANCE 10,3 ;Do the subproject \par LEAVE Men,3 ;Free the men \par * \par Node4 ASSEMBLE 2 ;Wait for completion of 2-to-4 and 3-to-4 \par SPLIT 1,Node5 ;Send offspring to signal node 4 completion \par Sub47 ENTER Men,4 ;Get men for subproject 4-to-7 \par ADVANCE 15,5 ;Do the subproject \par LEAVE Men,4 ;Free the men \par * \par Node7 ASSEMBLE 3 ;Wait for completion of final subprojects \par TABULATE Rtime ;Record project time in table \par LOGIC R Next1 ;Open gate for the next iteration \par TERMINATE 1 ;Current iteration is finished \par * \par Sub13 ENTER Men,3 ;Get men for subproject 1-to-3 \par ADVANCE 20,9 ;Do the subproject \par LEAVE Men,3 ;Free the men \par * \par Node3 SPLIT 1,Sub34 ;Send offspring to handle subproject 3-to-4 \par Sub36 ENTER Men ;Get man for subproject 3-to-6 \par ADVANCE 25,7 ;Do the subproject \par LEAVE Men ;Free the man \par * \par Node6 ENTER Men,4 ;Get men for subproject 6-to-7 \par ADVANCE 10,3 ;Do the subproject \par LEAVE Men,4 ;Free the men \par TRANSFER ,Node7 ;Go signal completion of 3-to-7 \par * \par Sub34 ENTER Men,2 ;Get men for subproject 3-to-4 \par ADVANCE 22,5 ;Do the subproject \par LEAVE Men,2 ;Free the men \par TRANSFER ,Node4 ;Go signal completion of 3-to-4 \par * \par * Model Segment 2 \par * \par GENERATE ,,,1,1 ;Bring in one high-priority observer \par Grind MARK 1 ;Set P1 = absolute clock time \par SAVEVALUE Clock,AC1 \par TEST NE AC1,X$Clock ;Wait until the clock changes \par TABULATE Inuse,MP1 ;Record current number of men-in-use \par TRANSFER ,Grind ;Go set up for the next clock update \par * \par \par \par }