'  2' '75ư> %,2HELPNA\NhNN:lCONTINUE n((PAPEXIT&%p=lHALTމPlPdSHOW X$Val1~4߉lg SHOW X$Val2X^F%EFSHOW X$Val3g^w@߉U SHOW X$Val4T߉W OSHOW X$LowOdAg|߉A|ŻOdgAModelsMin.gpsFLFeCFEOdIhLdIhKhE(((((((((({\rtf1\ansi\deff0\deflang1033{\fonttbl{\f0\fnil Courier New;}{\f1\fnil\fcharset0 Courier New;}} \viewkind4\uc1\pard\tx1200\tx2400\tx4440\tx5280\tx6000\f0\fs20 ; GPSS World Sample File - MIN.GPS \par ; \par ; This model takes a series of numbers that are picked according \par ; to probabilities as defined in the Function, Myfunc and then \par ; uses a PLUS procedure to select the minimum value. The result \par ; is placed in the Savevalue, Low. When the model has run, the \par ; four values, Val1, Val2, Val3, and Val4 can be displayed in \par ; the status line by pressing the function keys , , \par ; and , respectively. The lowest value is displayed by pressing \par ; function key . These keys have been preset in the Model \par ; Settings Notebook on the Keys page. \par ; \par \tab GENERATE ,,,1\tab ;Create 1 Xact. \par Myfunc\tab FUNCTION RN2,D4\tab ;Random probabalistic pick of values. \par .25,5/.50,7/.80,8/1,2\tab\tab\tab \par \tab SAVEVALUE Val1,FN$Myfunc ;Assign value. \par \tab SAVEVALUE Val2,FN$Myfunc ;Assign value. \par \tab SAVEVALUE Val3,FN$Myfunc ;Assign value. \par \tab SAVEVALUE Val4,FN$Myfunc ;Assign value. \par \tab SAVEVALUE Low,(Minimum(X$Val1,X$Val2,X$Val3,X$Val4)) \par \tab\tab\tab ;Send values to PLUS to select \par \tab\tab\tab ; min value and put in Savevalue. \par \tab TERMINATE 1\tab\tab ;End simulation. \par \par \par PROCEDURE Minimum(Arg1,Arg2,Arg3,Arg4) BEGIN \par TEMPORARY Lowval; \par \par IF (Arg1<=Arg2) THEN Lowval=Arg1; \par ELSE Lo\f1 w\f0 val=Arg2; \par \par IF (Lowval>Arg3) THEN Lowval=Arg3; \par \par IF (Lowval>Arg4) THEN Lowval=Arg4; \par \par RETURN (Lowval); \par \par END; \par \par \par }