В сборочном цехе на изделия монтируются агрегаты двух типов. Считаем, что количество агрегатов является достаточным для бесперебойной работы цеха.

Агрегаты первого типа поступают на операцию первой проверки параметров агрегатов с длительностью операции Т1 мин. Агрегаты второго типа поступают на другую операцию проверки параметров с длительностью Т2 мин.

Монтирование агрегатов на изделия может начаться только при наличии двух агрегатов первого типа и трех агрегатов второго типа и после монтирования предыдущего изделия.

Монтирование двух агрегатов первого типа занимает Т3 и Т4 минуты соответственно, монтирование агрегата второго типа занимает Т5 минут.

Длительность каждой из операций зависит от числа задействованных на ней рабочих. /Это не совсем ясно/.

Прибыль от реализации каждого смонтированного изделия представляет S1 единиц стоимости.

На участке может быть задействована не более чем N рабочих.

Заработная плата одного рабочего составляет S2 единиц стоимости за 1 час.

Определить необходимое количество рабочих, при котором достигается максимальная экономическая эффективность работы цеха (прибыль).
Параметры Количество
работников
T1 1 88+/-20
2 60+/-18
3 50+/-15
T2 1 50+/-12
2 40+/-11
3 35+/-9
T3 1 50+/-15
2 35+/-8
3 25+/-7
T4 1 45+/-13
2 30+/-10
3 20+/-7
T5 1 42+/-15
2 20+/-10
3 15+/-6
N 14
S1 1000
S2 80

Добавлено 30.05.13, 11:58

clear
***
tabt1 table mp1,45,2,33
tabt2 table mp2,30,2,25
tabt3 table mp3,15,2,25
tabt4 table mp4,10,2,33
tabt5 table mp5,15,2,25 ;мр5 - что сохраняем, 15 -начало гистограммы, 2- ширина столбца, 25 - количество столбцов
***
generate ,,,1 ; установка параметров
savevalue t1M,90
savevalue t1s,15
savevalue col1,1

savevalue t2M,60
savevalue t2s,10
savevalue col2,1

savevalue t3M,45
savevalue t3s,10
savevalue col3,1

savevalue t4M,50
savevalue t4s,12
savevalue col4,1

savevalue t5M,45
savevalue t5s,10
savevalue col5,1
terminate 0
***
generate ,,,50000 ;type1 детали первого типа

seize OP1 ;занимаем устройство
mark 1 ;засекаем время в параметре 1
advance x$t1M,x$t1s ; обработка
tabulate tabt1 ;табулируем время обработки
release OP1 ;покидаем устройство
link ftype,FIFO ;становимся в список пользователя первых деталей

generate ,,,50000 ;type2 для второго типа аналогично

seize OP2
mark 2
advance x$t2M,x$t2s
tabulate tabt2
release OP2
link stype,FIFO
***
generate ,,,1

snovo test ge ch$ftype,2 ;ждем пока появится 2 детали в списке пользователя деталей первого типа фтайп
test ge ch$stype,1 ; аналогично стайп
unlink ftype,toMontir1,1 ;извлекаем 1 деталь первого типа и отправляем ее на тумонтир1
unlink ftype,toMontir2,1
unlink stype,toMontir3,1
advance 1 ;задержка, для соблюдения условия. что монтироване ногово устройства начинается после окончания монтирования предыдущего
gate nu montir1 ;ждем пока устройство монтир1 освободиться
gate nu montir2 ;аналогично
gate nu montir3
savevalue viruchka+,1100 ;прибавляем к прибыли 1100
transfer ,snovo
***
toMontir1 seize montir1 ;занимаем устройство монтир1
mark 3 ;засекаем время в параметре 3
advance x$t3M,x$t3s ;задержка во времени, моделирует обслуживание
tabulate tabt3 ;табулируем время монтирования
release montir1 ;покидаем устройство
terminate 0 ;покидаем модель

toMontir2 seize montir2 ;аналогично для 2 детали первого типа
mark 4
advance x$t4M,x$t4s
tabulate tabt4
release montir2
terminate 0

toMontir3 seize montir3 ;аналогично для детали второго типа
mark 5
advance x$t5M,x$t5s
tabulate tabt5
release montir3
terminate 0
***
generate (60#8#365) ;моделирование по времени - год 8-часового рабочего дня
savevalue zarplata,((x$col1+x$col2+x$col3+x$col4+x$col5)#90#(c1/60)) ;сохраняем зарплату
savevalue pribil,(x$viruchka-x$zarplata) ;расчитываем прибыль
savevalue effectivnost,(x$pribil/(c1/60))
terminate 1

start 1
****************************************************************************************************************
Есть такая программа, но она не очень верна