2' 'ư>HELPA\NhNN:lJCONTINUEhh(|JEXIT&%p=lHALTމPlJ|JdSTEP 1 4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WO8gp߉.Od8Bg|߉8B|ŻOdg8BModelsSchr4d1.gpsLFeCFEOhLhhE(((((((((({\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 * Comparison of Alternate Queuing Systems in a Bank \par * \par * \par * First System \par * \par * Loc Operation A,B,C,D,E,F,G Comments \par * \par * Function Definition \par * \par Mean FUNCTION RN1,D5 ;Distribution of Mean Service Time \par .1,450/.29,750/.61,1000/.85,1500/1,3000 \par * \par * Storage Capacity Definition \par * \par Telrs STORAGE 8 ;Provide 8 Tellers \par * \par * Model Segment 1 \par * \par GENERATE (Exponential(1,0,180)) ;Customers arrive \par ASSIGN 1,(Exponential(1,0,FN$Mean)) ;Set P1 = Service Time \par QUEUE One ;Enter the line \par ENTER Telrs ;Engage a teller \par DEPART One ;Leave the line \par ADVANCE P1 ;Transact business \par LEAVE Telrs ;Free the teller \par TERMINATE ;Leave the bank \par * \par * Model Segment 2 \par * \par GENERATE 180000 ;Timer arrives after 5 hours \par TERMINATE 1 ;Shut off the run \par \par \par }