2' 'ư>HELPRA\NhNN:lCONTINUE n((}EXIT&%p=lHALTމPldSTEP 1r4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOgp߉.OdAg|߉A|ŻOdgAModelsTraffic.gpsLFeCFEO"hL"h%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 ; GPSS World Sample File - TRAFFIC.GPS, by Gerard F. Cummings \par *********************************************************************** \par * * \par * Traffic at a T-Junction * \par *********************************************************************** \par * Erlang Service Times ...Hyperexponential Arrivals * \par * Time Unit is 1/100 Second * \par *********************************************************************** \par * A Hyperexponential Probability Distribution Follows \par Hyper FVARIABLE (410+((RN2'L'234)#(1343-410)))#(Exponential(2,0,1)) \par * f(t) = .234(1/4.10) exp(-t/4.1) + .766(1/13.43) exp(-t/13.43) \par *********************************************************************** \par Aisle STORAGE 8 \par Mergetime TABLE MP2,100,100,20 \par Crosstime TABLE MP1,100,100,20 \par Transit TABLE M1,1000,1000,9 \par Arrivals TABLE V$Hyper,200,200,20 \par *********************************************************************** \par GENERATE V$Hyper,,300 ;Hyperexponential \par QUEUE First \par GATE SNF Aisle ;Is there room in the aisle? \par SEIZE Southlane ;Crosses highway \par DEPART First \par MARK 1 \par *-------Erlang Distribution-------------------------------------------- \par ADVANCE (Gamma(3,0,4,90)) ;Erlang K=4 waiting time \par * ;Mean = 360 time units \par *---------------------------------------------------------------------- \par TABULATE Crosstime ;Record crossing time \par ENTER Aisle ;Stand in center aisle \par RELEASE Southlane \par QUEUE Two ;Queue for northlane \par SEIZE Northlane \par DEPART Two \par LEAVE Aisle \par MARK 2 \par * ---------Erlang Distribution----------------------------------------- \par ADVANCE (Gamma(4,0,5,80)) ;Erlang K=5 waiting time \par * ;Mean = 400 time units \par * --------------------------------------------------------------------- \par RELEASE Northlane \par TABULATE Mergetime ;Merge time to north flow \par TABULATE Transit \par TABULATE Arrivals \par TERMINATE \par *********************************************************************** \par GENERATE 5000,500,,,10 ;Southbound traffic \par SEIZE Southlane \par ADVANCE 1200,300 ;Time to pass junction \par RELEASE Southlane \par TERMINATE \par *********************************************************************** \par GENERATE 6000,500,,,10 ;Northbound traffic \par SEIZE Northlane \par ADVANCE 1200,300 ;Time to pass junction \par RELEASE Northlane \par TERMINATE \par *********************************************************************** \par GENERATE 6000 ;Xact every minute \par TERMINATE 1 \par *********************************************************************** \par \par \par }