2' 'ư>HELPA\NhNN:lDCONTINUE n((EXIT&%p=lHALTމPlDdSTEP 1~4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U T߉W Ogp߉.OdBg|߉B|ŻOdgBModelsSchr4d2.gpsLFeCFEOfiLfi"hE(((((((((({\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 * \par * Second system \par * \par * Loc Operation A,B,C,D,E,F,G Comments \par * \par * Function Definition(s) \par * \par Mean FUNCTION RN1,D5 ;Distribution of Mean Service Time \par .1,450/.29,750/.61,1000/.85,1500/1,3000 \par * \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 PRIORITY 1 ;Set high priority for later \par * Service-completion event \par SELECT E 2,1,8,0,F,Queup ;Is teller available? \par Line QUEUE P2 ;Update segregated line data \par QUEUE 10 ;Update aggregate line data \par SEIZE P2 ;Capture a teller \par DEPART 10 ;Update aggregate line data \par DEPART P2 ;Update segregated line data \par ADVANCE P1 ;Transact business \par RELEASE P2 ;Free the teller \par TERMINATE ;Leave the bank \par Queup SELECT MIN 2,1,8,,Q ;Set P2 = number of shortest line \par TRANSFER ,Line ;Go queue up \par * \par * \par * \par GENERATE 180000 ;Timer arrives after 5 hours \par TERMINATE 1 ;Shut off the run \par \par \par }