http://slil.ru/25015287

Этотже код:

GPSS lab3.gps

GPSS/PC Program File LAB5_PAK.GPS.  (V 2, # 38123)  08-06-1997 09:47:47

10          SIMULATE                       ;Corrected by V.V.Zolotarev
16 NORM    FUNCTION     RN3,C25            ;STANDATR NORMAL FUNCTION
0.0,-5/0.00003,-4./.00135,-3.0/.00621,-2.5/.02275,-2./.06681,-1.5
.11507,-1.2/.15866,-1./.21186,-.8/.27425,-.6/.34458,-.4/.42074,-.2
.5,0.0/.57926,.2/.65542,.4/.72575,.6/.78814,.8/.84134,1/.88493,1.2
.93319,1.5/.97725,2/.99379,2.5/.99865,3/.99997,4.0/1.0,5.0
20 EXPP     FUNCTION     RN3,C24
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.6,.915
.7,1.2/.75,1.38/.8,1.6/.84,1.83/.88,2.12/.9,2.3/.92,2.52
.94,2.81/.95,2.99/.96,3.2/.97,3.5/.98,3.9/.99,4.6
.995,5.3/.998,6.2/.999,7/.9998,8         
30 VAR1     FVARIABLE    V$MATT+(V$DIST/3)#FN$NORM
50 OBR      VARIABLE     P3-P2;   Calculation the subtask time running
60 ;                              for each subtask in CPU.         
70 OBRD     VARIABLE     P5-P2;   Calculation  the time running of
80 ;                              whole group of subtasks.         
90 EFF      FVARIABLE    X3#1000/C1; Calculation the efficiency of the
95 ;                                  multy-processor system in comparizon
100 ;                                with the 1-processor system.
105 MATT    VARIABLE     1000
110 DIST    VARIABLE     1000
112 TSUBT   TABLE        V$OBR,0,300,10
115 TGRPT   TABLE        V$OBRD,0,500,10
120         GENERATE     ,,,1     ;     Generation the task arriving.
122         SAVEVALUE    MATT,1000
124         SAVEVALUE    DIST,1000
130 STAT    ASSIGN       4,2   ;   At the P4 parameter is sending the
140 ;                          number of groups, after finishing which,
150 ;                            statistics will calculates (now - 2).
160 CYCL    SPLIT        7,NEXT,1  ;---> subtasks (here - 8)         
170 NEXT    SEIZE        P1  ;       for each subtask - own processor
180 ;                               is keeping in the parameter P1
190         MARK         2    ;  C1 ----> P2 time entering in processor
200 M11     SAVEVALUE    12,V$VAR1
202         TEST GE      X12,0,M11       
206         ADVANCE      X12         ;       time running for subtask         
210         RELEASE      P1     ;    leaving the processor by subtask
220         MARK         3            ;      C1 ---> P3 time leaving         
230         TABULATE     TSUBT    ;    statistics on subtasks running
240         SAVEVALUE    3+,V$OBR ;  X3 <--- (V$OBR) calculation time
250 ;                         the task running for the 1-proc. system         
260         ASSEMBLE     8  ; the check of finishing of a group (task)
270         MARK         5  ; C1 --> P5 The time finishing ofthe task
280         TABULATE     TGRPT     ;    statistics on task running
290         ASSIGN       1,0  ;  clearing the processor number 0 -> P1
300         LOOP         4,CYCL ;   Cycle for number of tasks (groups)
310 ;                   it is stored in parameter P4 (look lable STAT)
320         SAVEVALUE    4,V$EFF  ;   Calculation of the effectivness
330 ;                               (V$EFF) ---> X4         
340         SPLIT        1,STAT ;      Two directions "simulteniously"
350         TERMINATE    1    ;         Termination of a transactions
360 ;       START        100