GPSS- , .
| GENERATE, 1 | A | 
| |
| ADVANCE, 6 | A | 1 | 
|
| ADVANCE, 12,21 | A | 2 | 
|
| GENERATE, 16 | A | 
| |
| GENERATE, 26 | A | 
|
GPSS -
:
1) 1 M1=3.
Q1 STORAGE 3
2) 2- M2=4.
Q2 STORAGE 4
3) 2- M3=5.
Q3 STORAGE 5
GPSS -:
( ). GPSS-, XPDIS.
XPDIS FUNCTION RN1,C12
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.7,1.2/.8,1.56/.88,2.12/.96,3.2/.9998,8.0/1.0,10.
:
RN1 1 RN1;
C12 , 12.
:
9 10 T1 T2:
T1 TABLE M1,12,5,10
T2 TABLE M1,12,5,10
:
M1 ;
12 ;
5 ;
10 .
EQU ( )
EQU .
: symbol EQU num,arg,
symbol ;
num 32766 +32766;
arg GPSS.
5 . . GPSSR .
:
XPDIS EQU 10,F ;
D1 EQU1,Z 1 ;
QUE1 EQU2,S 1 ;
QUE2 EQU3,S 2 ;
QUE3 EQU4,S 3 ;
D2 EQU5,Z 2 ;
T1 EQU 9,T .
T2 EQU 10,T .
|
|
|
FUNCTION ().
FUNCTION .
: numFUNCTIONAB
A ();
B .
A . A RN 0.0 1.0. B : C , D , (XiYi), . (XiYi) , FUNCTION. Yi , .
:
XPDISFUNCTIONRN1, C12 , .
0,0/.1,.104/.2,.222/.3,.355/.4,.509/.5,.69/.7,1.2/.8,1.56/.88,2.12/.96,3.2/.9998,8.0/1.0,10.
STORAGE ()
STORAGE .
: numSTORAGEA
num.
A .
STORAGEAB
A (S) ( )
B ( 32767).
. , 32767.
:
QUE1 STORAGE 3
QUE2 STORAGE 3
QUE3 STORAGE 5
TABLE ()
TABLE .
: numTABLEA,B,C,D,E
num ;
A ;
IA ;
RT ;
B ;
C ;
D ;
E ( RT ).
TABULATE, , A TABLE . A (), . A IA, TABULATE. A RT , , E. , TABULATE . D , . IA RT .
:
T1 TABLE M1,12,5,10 ;
M1 ;
12 ;
5 ;
10 .
T2 TABLE M1,12,5,10
END ()
END ( ).
: END
.
END . , .
SIMULATE ().
SIMULATE .
: SIMULATE
.
SIMULATE , . SIMULATE GPSSR () , .
START ()
START .
|
|
|
: START A,B,C,D
A ;
B (B = NP);
C ;
D .
A . TERMINATE A, A TERMINATE A START. , . NP B GPSSR. , C, , . , . D 1, , .
: START 1 .
