_WELCOMETO Radioland

Top50  











.




.








.














> > GPSS

GPSS

: 8/12

,

ENTER ,

TRANSFER REFUS, . -

0,9

,

TRANSFER, ,

ENT1. 0,1

REFUS TERMINATE OUT

.

, ,

, TERMINATE

OUT ( N$OUT).

TEST (. 13).

ENTER, ( S$STO2) 2.

 

 1

STO2 STORAGE 2

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

ENT1 TEST L S$STO2,2,REFUS

ENTER STO2

ADVANCE 160,FN$EXP

LEAVE STO2

TERMINATE 1

REFUS TRANSFER .1,,OUT

ADVANCE 250,FN$EXP

TRANSFER ,ENT1

OUT TERMINATE 1

 1.5

 

. 13

 

GATE ,

. 14. ENTER,

" STO2 " .

 

- 31 -

.

 

 1

STO2 STORAGE 2

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

ENT1 GATE SNF STO2,REFUS

ENTER STO2

ADVANCE 160,FN$EXP

LEAVE STO2

TERMINATE 1

REFUS TRANSFER .1,,OUT

ADVANCE 250,FN$EXP

TRANSFER ,ENT1

OUT TERMINATE 1

 1.5

 

. 14

 

2.5. ,

 

-

.

 1  0 -

,

, . -

0. 0 -

INITIAL, :

 1

INITIAL X$ 1 0, 1

 1.5

INITIAL X 1j 0, 1

 1  0  1j  0- ,

 1  0- ().

SAVEVALUE ( ), -

:

 1  0 SAVEVALUE A,B

A , -

B. A

() + -, -

B -

. :

 1

SAVEVALUE 5,Q$LINE

 1.5

SAVEVALUE NREF+,1

 

- 32 -

.

X,

-

.

. 14 ,

(

) , -

( )

. ,

. 15.

 1  0 -

m*n, m - , n -

. -

MATRIX ( ),

:

 1  0 MATRIX A,B,C

A GPSS/PC

GPSS. B C

, -

, , B C,

8191. ,

MTAB MATRIX ,10,2

MTAB,

.

 

 1

INITIAL X$TARR,100

INITIAL X$TSRV,160

STO2 STORAGE 2

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 X$TARR,FN$EXP

ENT1 GATE SNF STO2,REFUS

ENTER STO2

ADVANCE X$TSRV,FN$EXP

LEAVE STO2

OUT TERMINATE 1

REFUS TRANSFER .1,,COUT

ADVANCE 250,FN$EXP

TRANSFER ,ENT1

COUT SAVEVALUE NREF+,1

TRANSFER ,OUT

 1.5

 

. 15

 

- 33 -

.

-

0. 0 -

INITIAL, -

:

 1

INITIAL MX$ 1 0( 1a,b 0), 1

 1.5

INITIAL MX 1j 0( 1a,b) 0, 1

 1  0  1j  0- ;  1a  0  1b  0-

, ;  1  0-

,

.

-

MSAVEVALUE ( ),

:

 1  0 MSAVEVALUE A,B,C,D

A , ,

SAVEVALUE, + -. B C

,

. D , -

. :

 1

MSAVEVALUE 5,3,2,X1

 1.5

MSAVEVALUE MTAB+,P$ROW,P$COL,1

MX, -

:

 1

MX$ 1 0( 1a,b 0)

 1.5

MX 1j 0( 1a,b)

 1  0  1j  0- ;  1a  0  1b  0-

, -

. :

 1

MX5(2,1)

 1.5

MX$MTAB(P$ROW,P$COL)

 

2.6.

 

,

.

-

 1  0 ,

, -

. , -

, -

 

- 34 -

 

" - ", -