_WELCOMETO Radioland

Top50  











.




.








.














> >

: 2/12

 

7

 

[NTL1]  , , . . ¨ ¨ , . , . . ¨. , .

. P0 1 :

l= 0.1 m= 0,06. P0= 0.33 P1=0.667

() GPSS.

(.1).

1

GPSS

:

. .

:

 

FAC

. ... , .

:

EXPON

.

.

 

 

 

GPSS

 

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

2 GENERATE 0,0,,1 ;

3 ASSING 1,K1000 ; P1 . 1000

4 INPUT ADVANCE 10,FN$EXP ;

; (10)

5 SEIZE FAC ;

6 ADVANCE 20,FN$EXP ;

; (20)

7 RELEASE FAC ;

;

8 TABULATE XTIME ;

;(= + )

;XTIME .

; (10,20)

9 LOOP 1,INPUT ; .

; ( 3 8)

10 TERMINATE 1 ;

XTIME TABLE M1-,0,20,10 ;

START 1000

0,671, 1 = 0,667*

20,146 .

(= + ) 30,015 .

 

9

 

8

 

. .

, , l=0,1. . . , , m= 0,05, m=0,01. - .

.1 GPSS .

1

GPSS

:

.. ..

:

FAC1,FAC2,FAC3.FAC4

,

REM1. REM2

:

EXPON