2' 'ư>HELPA\NhNN:lCONTINUE n((pEXIT&%p=lHALTމPlpdSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉Ud T߉Wd O<2gp߉.Od<2Dg|߉<2D|ŻOdg<2DModelsSchr7a1.gpsLFeCFEOxjLxjJ{jE(((((((((({\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 * Another Bank Model \par * \par * Loc Operation A,B,C,D,E,F,G Comments \par * \par * Function Definition \par Mean FUNCTION RN1,D5 ;Distribution of Mean Service Time \par .1,450/.29,750/.61,1000/.85,1500/1,3000 \par * \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 PRIORITY 1 ;Set high priority for later \par * service -completion event \par QUEUE One ;Enter the line \par GATE SNF Telrs,Wait ;Is a teller available \par Grab ENTER Telrs ;Yes capture a teller \par DEPART One ;Leave the line \par ADVANCE P1 ;Transact business \par LEAVE Telrs ;Free the teller \par UNLINK Line,Grab,1 ;Send next waiting customer \par * (if any) to capture \par TERMINATE ;Leave the bank \par Wait LINK Line,FIFO ;No, go onto back of user chain \par * \par * Model Segment 2 \par * \par GENERATE 180000 ;Timer arrives after 5 hours \par TERMINATE 1 \par \par \par }