_WELCOMETO Radioland

Top50  











.




.








.














> > GPSS

GPSS

: 10/12

. B ,

(. . 5). C

GPSS. D

1 . -

D , -

.

SIMULATE () -

, .

, -

.

SIMULATE A,

, .

START, -

.

RMULT ( ) -

-

RN, .

A-G

RN1-RN7, .

, RMULT, -

.

RESET () -

, .

, , -

, -

. .

RESET (

C1) ( AC1) . -

C1 ,

RESET,

 

- 39 -

 

AC1 - , -

. RESET,

. RESET C1

AC1.

RESET -

,

.

, , , . 18,

, .

, . 19.

START 1000 -

( ). ,

, , B

NP. RESET -

, .

START -

.

 

 1

EXP FUNCTION RN1,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.85/.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

GENERATE 100,FN$EXP

ASSIGN TSRV,80,EXP

GATE NU SYSTEM,WAIT

SFAC SEIZE SYSTEM

ADVANCE P$TSRV

RELEASE SYSTEM

UNLINK LINE,SFAC,1

TERMINATE 1

WAIT LINK LINE,P$TSRV

START 1000,NP

RESET

START 10000

 1.5

 

. 19

 

CLEAR () ,

. -

, ,

, . -

, -

-

. ,

 

- 40 -

 

,

.

.

CLEAR

. -

,

.

, , , -

. 17, , 1, 2 3. -

, . 20.

CLEAR STORAGE -

STO2.

END ()  1  0 GPSS/PC

.

.

 

 1

STO2 STORAGE 1

EXP FUNCTION RN1,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.85/.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

GENERATE 100,FN$EXP

GATE SNF STO2,WAIT

ENT1 ENTER STO2

ADVANCE 160,FN$EXP

LEAVE STO2

UNLINK BUFER,ENT1,1

TERMINATE 1

WAIT LINK BUFER,FIFO

START 10000

CLEAR

STO2 STORAGE 2

START 10000

CLEAR

STO2 STORAGE 3

START 10000

 1.5

 

. 20

 

,

, .. ,

.

- 41 -

.

4. GPSS-

 

4.1.

 

-

GPSS/PC

.  1  0 ,

. -

,

 1  0.

, -

-

, , , -

.

.

 

 1

EXP FUNCTION RN1,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.85/.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

CLASS FUNCTION RN1,D3

.333,1/.667,2/1,3

MEAN FUNCTION P$TYPE,L3

1,70/2,80/3,90

PRIOT VARIABLE 4-P$TYPE

STO2 STORAGE 2

WTIME QTABLE LINE,50,50,10

TTIME TABLE M1,100,100,12

GENERATE 100,FN$EXP

ASSIGN TYPE,FN$CLASS

PRIORITY V$PRIOT

QUEUE LINE

QUEUE P$TYPE

ENTER STO2

DEPART P$TYPE

DEPART LINE

ADVANCE FN$MEAN,FN$EXP

LEAVE STO2

TABULATE TTIME

TERMINATE 1

 1.5

 

. 21

 

-

100 .

1/3 : 1, 2

 

- 42 -

 

3,

70, 80 90 .

, . -

,

,

. -

, . 21.

PRIOT

, TYPE.

1 (P$TYPE=1) 3,

2 - 2 3 - 1.

ASSIGN TYPE