Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите с GPSS 
:(
    Опции темы
LilyM
Дата 9.1.2011, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 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

Пожалуйста помогите доработать программу. 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Добро пожаловать в раздел "Другие языки" форума Vingrad!

Void
Void

Раздел посвящён различным языкам программирования, для которых (в силу невысокой популярности) нет отдельного раздела (GPSS, Lua, MATLAB, Ada, Forth, Smalltalk, Tcl, REXX, AWK и др.)

  • Обязательно следуйте правилам Форума.
  • Пожалуйста, прочитайте и следуйте рекомендациям по работе в разделе и навигации по Форуму.
  • Для вставки текстов исходных кодов используйте подсветку синтаксиса из выплывающего списка Код в форме ответа. Если Ваш язык в списке не представлен, то используйте тег: [code=ваш_язык]код[/code], например, [code=ada]код[/code]. Если в будущем подсветка синтаксиса для указанного языка будет реализована, исходный код преобразится.
  • Помните, один вопрос - одна тема.

Приятного времяпрепровождения! С уважением, Void, kemiisto .

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Другие языки | Следующая тема »


 




[ Время генерации скрипта: 0.0568 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.