GPSS – программа для моделирования

Равномерного закона распределения

; GPSS/PC Program File D:STARTUP.GPS

(V 2, # 37349) 01.01.2008. 01:37:35

10 SIMULATE

30;

40 TIME TABLE MP1,20,20,20

50;

60 GENERATE ,,,1, ;1;F

70 MET MARK 1

80 ADVANCE 60,50

90 TABULATE TIME

100 SPLIT 1,MET

110 TERMINATE 1

GPSS – программа для моделирования

Экспоненциального закона

Распределения

; GPSS/PC Program File D:STARTUP.GPS.

(V 2, # 37349) 01.01.2008. 01:37:35

10 SIMULATE

20 EXPON 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.83/.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

30 ;

40 TIME TABLE MP1,50,50,20

50 ;

60 GENERATE ,,,1, ;1,F

70 MET MARK 1

80 ADVANCE 50,FN$EXPON

90 TABULATE TIME

100 SPLIT 1,MET

110 TERMINATE 1

GPSS – программа для моделирования

Нормального закона распределения

; GPSS/PC Program File NE_.QP.

(V 2, # 37349) 01.01.2008. 10:43:46

180 NORM FUNCTION RN1,C25

;Normal function

0.0,-5.0/.00003,-4./0.00135,-3.0/

.00621,-2.5/.02275,-2./.06681,-1.5

.11507,-1.2/.15866,-1./.21186,-.8/

.27425,-.6/.34458,-.4/.42074,-.2

.5,0.0/.5796,.2/.65542,.4/.72572,.6/

.78814,.8/.84134,1/.88493,1.2

.93319,1.5/.97725,2.0/0.99376,2.5/

0.99865,3/.99997,4.0/1.0,5.0

30 ;

40 TIME TABLE MP1,10,10,20

45 GNORM VARIABLE

20#FN$NORM+150

50 ;

60 GENERATE ,,,1, ;1,F

70 MET MARK 1

80 ADVANCE V$GNORM

90 TABULATE TIME

100 SPLIT 1,MET

110 TERMINATE 1

ПРИЛОЖЕНИЕ П.4

GPSS – программа для моделирования

Одноканальной системы массового

Обслуживания

; GPSS/PS Program File D:STARTUP.GPS.

(V 2,#37349) 01.01.2008. 01:37:35

20 EXPON 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.83/.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

30 ;

40 TIME TABLE MP1,100,100,10

45 TQUE QTABLE QUE1,2,2,20

50 ;

60 GENERATE 100,FN$EXPON

65 MARK 1

71 QUEUE QUE1

75 SEIZE COMPU

76 DEPART QUE1

80 ADVANCE 50,FN$EXPON

85 RELEASE COMPU

90 TABULATE TIME

95 TABULATE TQUE

110 TERMINATE 1

ПРИЛОЖЕНИЕ П.5

ПРОГРАММА СМО_М_1.GPS

; GPSS/PC Program File CMO_M_1.GPS.

(V 2, # 37349) 01-01-2008

10 SIMULATE

15 RMULT 17

20 EXPON 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.83/.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

30 ;

40 TIME TABLE MP1,50,50,50

45 TQUE QTABLE QUE1,1,1,50

50 ;

55 CHANEL STORAGE 2

56 ;

60 GENERATE 100,FN$EXPON

65 MARK 1

71 QUEUE QUE1

75 ENTER CHANEL

76 DEPART QUE1

80 ADVANCE 100,FN$EXPON

85 LEAVE CHANEL

90 TABULATE TIME

100 TABULATE TQUE

110 TERMINATE 1

120 START 1000