|
|
|
GPSS Word
|
|||
|---|---|---|---|
|
#18+
Помогите данную программу переделать на С + + или на С #! Очень надо! Заранее спасибо! SVE EQU 1 BWE EQU 2 BWE BVARIABLE F1+F2 SVE STORAGE 300 ; Ємність складу INITIAL X$BEL3,48 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/.9997,8 TAB1 TABLE SR1,50,3,10 GENERATE 1,,,1 FUNAVAIL 1 ;Установка початкового стану платформ FUNAVAIL 2 TERMINATE GENERATE 14400,,4800 ; Подача потягу CAR LOGIC S 1 SEIZE 3 FAVAIL 1 ;Платформи відкриті для завантаження FAVAIL 2 ADVANCE 1 TEST E BV$BWE,0 LOGIC R 1 RELEASE 3 FUNAVAIL 1 ;Платформи не доступні для завантаження FUNAVAIL 2 SAVEVALUE BEL1+,1 ; Число завантажених пар платформ TEST NE X$BEL1, 5, KON ADVANCE 200 ; Перерозподіл платформ TRANSFER, CAR ; Завантаження наступної пари KON SAVEVALUE BEL1,0 TERMINATE 1 GENERATE 150 ; Випуск верстатів з конвеєра ADVANCE 250, 50 ;Перегін верстатів на склад TABULATE TAB1 ENTER 1 ; Надходження верстатів на склад GATE LS 1 SAVEVALUEBEL2+, 1 TEST E X$BEL2, X$BEL3, POGR LOGIC R 1 SAVEVALUE BEL2, 0 POGR LOGIC I 2 GATE LR 2, RAZ ASSIGN 1, 1 RAZ ASSIGN 1+, 1 SEIZE P1 ; Заняття платформи LEAVE 1 ADVANCE 130, FN$EXPON ; Завантаження в потяг RELEASE P1 ; Звільнення платформи TERMINATE START 30 ; Моделювання системи протягом місяця ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 31.05.2011, 11:21 |
|
||
|
|

start [/forum/topic.php?fid=16&fpage=84&tid=1342916]: |
0ms |
get settings: |
7ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
62ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
43ms |
get tp. blocked users: |
1ms |
| others: | 220ms |
| total: | 375ms |

| 0 / 0 |
