_WELCOMETO Radioland

Top50  











.




.








.














> >

: 8/12

GPSS

RMULT 121,,17

BFIX FUNCTION RN2,C5

0,50/.22,60/.57,70/.83,80/1,90

 

FLIP FUNCTION P3,L2

1,2/2,1

POINT FUNCTION P3,M

1,V$AFIX/2,FN$BFIX

 

SNORM FUNCTION RN1,C25

0,-5/.00003,-4/.00135,-3/.00621,-2.5/.02275,-2/

.34458,-0.4/.42074,-0.2/.5,0/.57926,.2/.65547,.4

.72575,.6/.78814,.8/.84134,1/.88493,1.2/.93319,1.5

.97725,2/.99379,2.5/.99865,,5/.99997,4/1,1.5,

 

XPDIS 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 FVARIABLE 700*FN$SNORM+3500

2 FVARIABLE 900*FN$SNORM+4500

AFIX FVARIABLE 5*FN$SNORM+80

 

*

* MODEL SEGMENT 1

*

1 GENERATE ,,,1

2 ASSIGN 1,V1

3 ASSIGN 2,V2

4 AGAIN SELECT MIN 3,1,2,,,P

5 SEIZE MAC

6 ADVANCE P*3

7 RELEASE MAC

8 ASSIGN FN$FLIP-,P*3

9 ADVANCE 40

10 SPLIT 1,FETCH

11 SEIZE FIXER

12 ADVANCE FN$POINT

14 RELEASE FIXER

14 SAVEVALUE P3+,1

15 TERMINATE

16 FETCH TEST G X*3,0

17 SAVEVALUE P3-,1

18 ADVANCE 60

19 ASSIGN P3,V*3

20 TRANSFER ,AGAIN

* MODEL SEGMENT 2

*

21 GENERATE 90,FN$XPDIS,,,1

22 ADVANCE

23 SEIZE FIXER

24 ADVANCE 80,40

25 RELEASE FIXER

26 TERMINATE

*

* MODEL SEGMENT 3

*

27 GENERATE 104000

28 TERMINATE 1

*

* CONTROL

*

START 1

RMULT 121,,17

CLEAR

INITAL X2.1

START 1

RMULT 121,,17

CLEAR

INITAL X2.2

START 1

RMULT 121,,17

CLEAR

INITAL X1.1

START 1

RMULT 121,,17

CLEAR

INITAL X1,1/X2,1

START 1

RMULT 121,,17

CLEAR

INITAL X1,1/X2,2

START 1

RMULT 121,,17

CLEAR

INITAL X1,2

START 1

RMULT 121,,17

CLEAR

INITAL X1,2/X2,1

START 1

RMULT 121,,17

CLEAR

INITAL X1,2/X2,2

START 1

END

 

:

0,0 0,1 0,2 1,0 1,1 1,2 2,0 2,1 2,2

@RMULT-CLEAR-INITIAL-START" . 0,0 INITIAL&

 

 

.4 .

 

4

A

0

1

2

0

0,609

0,686

0,742

1

0,755

0,864

0,908

2

0,714

0,906

0,945

 

, , , - 0,1,2.

.5 . .

5

.

.

1

9,705

0,880

2

0,912

0,882

3

0,958

0,9887