_WELCOMETO Radioland

Top50  











.




.








.














> >

: 3/12

.

GPSS

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

1 GENERATE 100,FN$EXP,,,1

2 PREEMPT FAC1,PR.INC7..RE

3 SSIGN 2.FAC1

4 TRANSFER .COM2

5 GENERATE 100,FN$EXP,,,1

6 PREEMPT FAC2.PR.INC7..RE

7 FSSIGN 2.FAC2

8 TRANSFER .COM2

9 GENERATE 100,FN$EXP,,,1

10 PREEMPT FAC3.PR.INC7..RE

11 SSIGN 2.FAC3

12 TRANSFER .COM2

13 GENERATE 100,FN$EXP,,,1

14 PREEMPT FAC4.PR.INC7..RE

15 ASSIGN 2.FAC4

16 TRANSFER .COM2

17 GENERATE 100,FN$EXP,,,1

18 INC1 GATE NU 1.INC2

19 SEIZE FAC1

20 ASSIGN 1.FAC1

21 TRANSFER .COM1

22 INC2 GATE NU 1.INC3

23 SEIZE FAC2

24 ASSIGN 1.FAC2

25 TRANSFER .COM1

26 INC3 GATE NU 1.INC2

27 SEIZE FAC3

28 ASSIGN 1.FAC3

29 TRANSFER .COM1

30 INC4 GATE NU 4.INC7

31 SEIZE FAC4

32 ASSIGN 1.FAC4

33 COM1 ADVANCE 20.FN$EXP

34 RELEASE P1

35 TERMINATE 1

36 INC7 SAVEVALUE 2+.K1

37 TERMINATE 1

38 COM2 TRANSFER BOTH.ATT1.ATT2

39 ATT1 ENTER REM1

40 ADVANCE 30.FN$EXP

41 LEAVE REM1

42 TRANSFER .COM3

43 ATT2 ENTER REM2

44 ADVANCE 30.FN$EXP

45 LEAVE REM2

46 COM3 RETURN P2

47 SAVEVALUE 1=.M1

48 OUTT TERMINATE

START 5000

1,5,9,13 - FAC ( 1l 100.

2,6,10,14 - .

3,7,11,16 - 2 - .

17 - (, ). 10 *

18, 22,26,30 - - . - .

19,23,27,31 - *

20,24,26,32 - 1 , .

21,25,29 - CJB1,

33 - .

34 - .

35 - .

36 - 2, .

37 - - .

38 - .

39,43 - .

40, 44 - , 1/m- 30 .

41, 45 -

42 - COM3.

46 - .

47 !.

48 - -.

48245 FAC1 - FAC4 452,443,458,450 . 5002 . 1829. ( 2).

FAC - 0.742. 0.676. 0.593 0.636, - REM1 0.665. REM2 - 0.439,

50993. ( 1).

 

11

 

10

 

 

, , , .* , * , .

. . , - .

, , ̠ , . 1 .47-53.

FUNCTION GPSS :

RASPR1 FUNCTION= 0,0/0,1.1000/0,2.1500/0.4.4000/0,8,5000/1,7000

RASPR1 FUNCTION = 0,0/0,1.100/0,2.200/0.4.450/0,8,600/1,1000

1 .

GPSS .

EXP1 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

EXP2 FUNCTION RN1,C24

0,0/.1,.10/.2,.22/.3,.35/.4,.51/.5,.69/.6,.91/.7,.120

.75,.138/.8,,16/.84,.185/.88,.212/.9,.23/.92,.252/.94,.281

.95,.299/.96,.32/.97,.35/.98,.39/.99,.46/.995,.53/.998,.62

.999,7/.9998,8

 

.

 

RMULT 7,519

XTIME TABLE MP1,0,400,20

TIME1 FUNCTION RN1,C6

0,0/0,1.1000/0,2.1500/0.4.4000/0,8,5000/1,7000

TIME2 FUNCTION RN1,C6

0,0/0,1.100/0,2.200/0.4.450/0,8,600/1,1000

1 GENERATE ,,,1,,1,5

2 INPUT MARK 1

3 SEIZE COMP

4 ADVANCE FN$TIME1

5 RELEASE COMP

6 SEIZE SERV

7 ADVANCE FN$TIME2

8 RELEASE SERV

9 TABULATE XTIME

10 SPLIT 1,INPUT

11 TERMINATE 1

START 1000

END

1 - , , .

2 - MARK INPUT

3 - COMP .

4 - .

5 - .

6 - 8 - *

9 - , , .

10 - , MARK* 11.

COMF SERV . - 0,691 0,108.

 

13