![]() |
|
|
![]()
|
|
| LilyM |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 9.1.2011 Репутация: нет Всего: нет |
Привет всем! При написании курсовой по GPSS столкнулась с проблемой, не могу написать корректно работающую программу.
Задача: На обрабатывающий участок цеха поступают детали в среднем через 50 мин. Первичная обработка деталей производится на одном из двух станков. Первый станок обрабатывает деталь в среднем 40 мин. и имеет до 4% брака, второй соответственно 60 мин. и 8% брака. Все бракованные детали возвращаются на повторную обработку на второй станок. Детали, попавшие в разряд бракованных дважды, считаются отходами. Вторичную обработку проводят также два станка в среднем 100 мин. каждый. Причем первый станок обрабатывает имеющиеся в накопителе после первичной обработки детали, а второй станок подключается при образовании в накопителе задела больше трех деталей. Все интервалы времени распределены по экспоненциальному закону. Смоделировать обработку на участке 500 деталей. Определить загрузку второго станка на вторичной обработке и вероятность появления отходов. Определить возможность снижения задела в накопителе и повышения загрузки второго станка на вторичной обработке. Вот что у меня получилось написать: EXP 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.85/.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 NAK3 STORAGE 1000 GENERATE 50,FN$EXP ASSIGN 1,0 TRANSFER .5,MET11,MET12 MET11 QUEUE NAK1 SEIZE KAN1 DEPART NAK1 ADVANCE 40,FN$EXP RELEASE KAN1 TRANSFER .04,MET2,MET3 MET12 QUEUE NAK2 SEIZE KAN2 DEPART NAK2 ADVANCE 60,FN$EXP RELEASE KAN2 TRANSFER .08,MET2,MET3 MET2 ASSIGN 1,0 PRIORITY 0 ENTER NAK3 TEST LE Q$NAK3,3,MET5 TRANSFER ,MET4 MET5 TRANSFER BOTH MET4,MET6 MET3 TEST NE P$1,2,OTXOD ASSIGN 1+,1 PRIORITY 2 TRANSFER ,MET12 OTXOD TERMINATE MET4 SEIZE KAN3 LEAVE NAK3 ADVANCE 100,FN$EXP RELEASE KAN3 TRANSFER ,OUT MET6 SEIZE KAN4 LEAVE NAK3 ADVANCE 100,FN$EXP RELEASE KAN4 TRANSFER ,OUT OUT TERMINATE 1 START 500 Пожалуйста помогите доработать программу. |
|||
|
||||
![]()
|
| Добро пожаловать в раздел "Другие языки" форума Vingrad! | |
|
|
Раздел посвящён различным языкам программирования, для которых (в силу невысокой популярности) нет отдельного раздела (GPSS, Lua, MATLAB, Ada, Forth, Smalltalk, Tcl, REXX, AWK и др.)
Приятного времяпрепровождения! С уважением, Void, kemiisto . |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Другие языки | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |