2' 'ư>HELPNA\NhNN:l,CONTINUE n((PAEXIT&%p=lHALTމPl,dSTEP 1f4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉U T߉W O6gp߉.Od6Ag|߉6A|ŻOdg6AModelsManufact.gpsLFeCFEOhLh: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 - MANUFACT.GPS, by Gerard F. Cummings \par *********************************************************************** \par * Manufacturing Company * \par *********************************************************************** \par * Time Unit is one hour * \par Sizeorder FUNCTION RN1,D7 ;Order size \par .10,6/.35,12/.65,18/.80,24/.92,30/.97,36/1.0,48 \par Transit TABLE M1,.015,.015,20 ;Transit time \par Number TABLE X1,100,100,20 ;No. packed each day \par Ptime VARIABLE .0028#P1+0.0334 ;Packing time \par Amount EQU 1000 ;Initial stock amount \par Stock STORAGE 4000 ;Warehouse holds \par ; 4000 units \par *********************************************************************** \par GENERATE (Exponential(1,0,0.25)) ;Order arrives \par ASSIGN 1,1,Sizeorder ;P1=order size \par TEST GE S$Stock,P1,Stockout ;Is stock sufficient? \par LEAVE Stock,P1 ;Remove P1 from stock \par QUEUE Packing \par SEIZE Machine ;Get a machine \par DEPART Packing \par ADVANCE V$Ptime ;Packing time \par RELEASE Machine ;Free the machine \par SAVEVALUE 1+,P1 ;Accumulate no. packed \par TABULATE Transit ;Record transit time \par TERMINATE \par Stockout TERMINATE \par *********************************************************************** \par GENERATE 0.75,0.08334,1 ;Xact every 40+/-5 mins \par ENTER Stock,60 ;Make 60, Stock \par * increased by 60 \par Stockad TERMINATE \par *********************************************************************** \par GENERATE 8 ;Xact every day \par TABULATE Number \par SAVEVALUE 1,0 \par TERMINATE 1 \par *********************************************************************** \par GENERATE ,,,1,10 ;Initial stock xact \par ENTER Stock,Amount ;Set initial stock \par TERMINATE \par *********************************************************************** \par \par \par }