2' 'ư>HELPA\NhNN:lԣCONTINUE n((`EXIT&%p=lHALTމPlԣ`dSTEP 1~4߉lg STOP߉X^F%EFSTOP ,,OFFg^w@߉UT߉WOPgp߉.OdPBg|߉PB|ŻOdgPBModelsSchr5b.gpsLFeCFEOhLhhE(((((((((({\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 * A Problem in Inventory Control \par * \par * Non-standard Random Number Sequence Initialization(s) \par * \par RMULT 11,33 \par * \par * Function Definition(s) \par * \par Ltime FUNCTION RN2,D5 ;Replenishment lead-time dist. \par .05,6/.3,7/.6,8/.82,9/1,10 \par * \par * Savevalue Initialization(s) \par * \par INITIAL X$ROP,80 ;Reorder point = 80 for 1st run \par INITIAL X$ROQ,100 ;Reorder quantity=100 for 1st run \par INITIAL X$Stock,100 ;Initial Stock on hand = 100 units \par * \par * Table Definition(s) \par * \par Loses TABLE P2,0,1,17 ;Table for lost daily sales \par Stock TABLE X$Stock,0,10,12 ;Table for daily stock level \par * \par * Variable Definition \par * \par Lost VARIABLE P1-X$Stock \par * \par * Model Segment 1 \par * \par GENERATE 1,,,,1 ;Clerk comes each day \par ASSIGN 1,(Normal(1,10,2)) ;Set p1 = day's demand \par ; which is normally distributed \par ; with mean=10 sd=2 \par ASSIGN 2,0 ;Assume loses are 0 \par TEST GE X$Stock,P1,Trubl ;Can day's demand be met? \par SAVEVALUE Stock-,P1 ;Yes, deplete stock by day demand \par Tab1 TABULATE Stock ;Record end-of-day stock level \par TABULATE Loses ;Record day's lost demand (if any) \par TERMINATE 1 ;Clerk goes home \par Trubl ASSIGN 2,V$Lost ;No, set p2 = day's lost demand \par SAVEVALUE Stock,0 ;Sold out, set stock= 0 \par TRANSFER ,Tab1 ;Go record day's experience \par * \par * Model Segment 2 \par * \par GENERATE ,,,1 ;Seed inventory control segment \par Watch TEST LE X$Stock,X$ROP ;Is it time to place a \par * replenishment order? \par ADVANCE FN$Ltime ;The order is on its way \par SAVEVALUE Stock+,X$ROQ ;Order arrives, add Roq to stock \par TRANSFER ,Watch ;Go back to watch \par \par \par }