| Assembler | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
| sortDetali table P4,2,1,7; распределение первичной/вторичной обработки
timeDetali table P3,0,1,53; распределение времени операций
GENERATE 10,5,,400; 400 шестерен, поступающие через 10+-5 минут
ASSIGN 4,0; обнуляем параметр, показывающий распределение обработки
CEM1 QUEUE CEMENT; добавляем деталь в очередь на цементацию
SEIZE CEM11; занимаем устройство
ASSIGN 1,AC1; засекаем время перед обработкой
DEPART CEMENT; удаляем из очереди
ADVANCE 10,7; цементация
RELEASE CEM11; освобождаем устройство
ASSIGN 1, (AC1-P1); засекаем время на участке цементации
ASSIGN 4+,1; увеличиваем счетчик распределения обработки на 1
ZAK1 QUEUE ZAKAL; добавляем деталь в очередь на закаливание
SEIZE ZAK11; занимаем устройство
ASSIGN 2,AC1; засекаем время перед закаливание
DEPART ZAKAL; удаляем из очереди
ADVANCE 10,6; закаливание
RELEASE ZAK11; освобождаем устройство
ASSIGN 2, (AC1-P2); засекаем время на участке закаливания
ASSIGN 4+,1; увеличиваем счетчик распределения обработки на 1
Proverka ASSIGN 3+, (P1+P2); увеличиваем параметр, показывающий распределение времени
ASSIGN 1,0; обнуляем параметры, засекающие время на участках обработки
ASSIGN 2,0
TEST L P3,25,Konec; если время обработки больше 25 - деталь первого сорта - выход
TEST L P3, 20,Raspr_sakal; если от 20 до 25 минут - отправляем на повторную закалку
TRANSFER,Raspr_cement; иначе полная повторная обработка
Raspr_sakal TEST L RN1,850,ZAK1; выбираем, какое оборудование использовать
TRANSFER,ZAK2; так как более загружено старое оборудование (через него проходят детали изначально)
; ставим большую вероятность обработки на новом оборудовании
Raspr_cement TEST L RN2,960,CEM1
TRANSFER,CEM2
CEM2 QUEUE CEMEN
SEIZE CEM22
ASSIGN 1,AC1; засекаем время перед цементацией
DEPART CEMEN; удаляем из очереди
ADVANCE 10,6; закаливание
RELEASE CEM22; освобождаем устройство
ASSIGN 1, (AC1-P1); засекаем время на участке цементации
ASSIGN 4+,1
ZAK2 QUEUE ZAKALIV; добавляем деталь в очередь на закаливание
SEIZE ZAK22; занимаем устройство
ASSIGN 2,AC1; засекаем время перед закаливание
DEPART ZAKALIV; удаляем из очереди
ADVANCE 10,6; закаливание
RELEASE ZAK22; освобождаем устройство
ASSIGN 2, (AC1-P2); засекаем время на участке закаливания
ASSIGN 4+,1
TRANSFER,Proverka
Konec ASSIGN pervii_sort,1; подсчитываем количество деталей первого сорта
SAVEVALUE P$pervii_sort+,1
TABULATE sortDetali
TABULATE timeDetali
TERMINATE 1 |
|
или
| Assembler | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
| sortDetali table P4,2,1,6 ;распределениt первичной/вторичной обработки
timeDetali table P3,0,1,53 ;распределение времени операций
GENERATE 10,5,,400
ASSIGN 4,0 ;2 - первичная обработка (ЦЕМЕНТАЦИЯ и ЗАКАЛИВАНИЕ)
;3 - первичная + повторная (ЗАКАЛИВАНИЕ)
;4 - первичная + повторная (ЦЕМЕНТАЦИЯ и ЗАКАЛИВАНИЕ)
;5 - первичная + повторная + (ЗАКАЛИВАНИЕ)
;6 - первичная + повторная + (ЗАКАЛИВАНИЕ) + (ЗАКАЛИВАНИЕ)
met1 ASSIGN 1,AC1
ADVANCE 6,5 ;ЦЕМЕНТАЦИЯ
ASSIGN 1,(AC1-P1)
ASSIGN 4+,1
met2 ASSIGN 2,AC1
ADVANCE 6,4 ;ЗАКАЛИВАНИЕ
ASSIGN 2,(AC1-P2)
ASSIGN 4+,1
ASSIGN 3+,(P1+P2)
ASSIGN 1,0
TEST E P4,2,met3
TEST L P3,25,met3
TEST L P3,20,met2
TRANSFER ,met1
met3 ASSIGN sort,(2-((P3\20)&1))
TEST NE P$sort,1,met4
TEST GE x1,(x2#9),met2 ;мероприятия, дающие выход продукции 1го сорта 90%.
met4 SAVEVALUE P$sort+,1
TABULATE sortDetali
TABULATE timeDetali
TERMINATE 1
start 400 |
|
|
(
