2' 'ư>HELPA\NhNN:lCONTINUE n((8EXIT&%p=lHALTމPl8dSTEP 1r4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WO gp߉.Od Dg|߉ D|ŻOdg DModelsSchr6e.gpsLFeCFEOiLiiE(((((((((({\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 * Random Number Sequence Initialization \par * \par RMULT 111 ;Set Random number Sequence \par * \par * Function Definitions \par * \par IAT FUNCTION RN1,C7 ;Interarrival Time Distribution \par 0,0/.25,100/.48,200/.69,300/.81,400/.9,500/1,600 \par Stime FUNCTION RN1,C7 ;Service Time Distribution \par 0,100/.06,200/.21,300/.48,400/.77,500/.93,600/1,700 \par * \par * Storage Capacity Definitions \par * \par Store1 EQU 1 \par Store1 STORAGE 1 \par * \par Store2 EQU 2 \par Store2 STORAGE 2 \par * \par Store3 EQU 3 \par Store3 STORAGE 3 \par * \par * Variable Definitions \par * \par Net VARIABLE SC*1-75-30#R*1 \par * \par * Model Segment 1 \par * \par GENERATE FN$IAT,,,,1 ;Master Cars Approach \par GATE LR Lock ;Stations Open? \par ASSIGN 1,FN$Stime ;Set p1 = Latent Service Time \par SPLIT 2,Next,2 ;Create 2 copies of Master \par * ;Serialize in Parameter 2 \par Next TEST LE Q*2,S*2,Bybye ;Each Car Tests Conditions at \par * ; Station then Stays or goes \par Goin QUEUE P2 ;Get in Line \par ENTER P2 ;Capture Attendant \par DEPART P2 ;Get out of line \par PRIORITY 2 ;Raise Priority \par * ; to Resolve potential tie \par ADVANCE P1 ;Servicing Proceeds \par Done LEAVE P2 ;Free the Attendant \par Bybye TERMINATE ;Leave the Station \par * \par * Model Segment 2 \par * \par GENERATE 43200 ;Close. Owner Arrives \par LOGIC S Lock ;Set "Not open" Signal \par TEST E N$Goin,N$Done ;Wait 'til last car is \par * ; Serviced at Station \par SPLIT 2,Ahead,1 ;Create 2 Copies of Owner \par * ; Serialize in Parameter 1 \par Ahead SAVEVALUE P1,V$Net ;Record Net Profit for Station \par TERMINATE 1 ;Go Home \par \par \par }