Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [GPSS/PC] Опреление вероятности

Автор: Weman 2.4.2008, 12:32

Здравствуйте! Помогите с задачкой:  Со сборочного конвейера предприятия каждые 6 мин сходит готовый автомобиль, который за 8..12 мин перегоняется на склад готовой продукции. Склад является промежуточным звеном межу сборкой и отгрузкой в транспортном цехе предприятия. На погрузочную эстакаду транспортного цеха один раз в сутки подается состав из 10 платформ, каждая из которых вмещает по 24 автомобиля. Погрузка автомобилей может производится на эстакаде транспортного цеха на 2 платформы одновременно. Для погрузки одного автомобиля на платформу в среднем требуется 5 мин. Причем время погрузки автомобиля является случайным и интервалы времени погрузки имеют экспоненциальное распределение. Подача каждой пусто платформы на эстакаду под погрузку занимает 5 минут. Сборочный конвейер завода работает круглосуточно, а состав подается под погрузку ежедневно в 6 часов утра. Для избежание простоя подвижного состава из-за отсутствия в момент погрузки готовых к отправлению автомобилей на предприятии (на складе готовой продукции) вводится страховой запас, который должен быть определен экспериментально на базе имитационной модели. Код программы будет такой: Код 0001        SIMULATE 0002 SVE    EQU          1 0003 BWE    EQU          2 0004 BWE    BVARIABLE    F1+F2 0005 SVE    STORAGE      300 0006        INITIAL      X$BEL3,48 0007 EXPON  FUNCTION     RN1,C24 0,0/.100,.104/.200,.222/.300,.355/.400,.509 .500,.690/.600,.915/.700,1.200/.750,1.380 .800,1.600/.840,1.830/.880,2.120/.900,2.300 .920,2.520/.940,2.810/.950,2.990/.960,3.200 .970,3.500/.980,3.900/.990,4.600/.995,5.300 .998,6.200/.999,7/1,8 0012 TAB1   TABLE        SR1,410,5,15 0013        GENERATE     1,,,1 0015        FUNAVAIL     1 0016        FUNAVAIL     2 0020        TERMINATE 0025        GENERATE     14400,,3600 0030 CAR    LOGIC S      1 0035        SEIZE        3 0040        FAVAIL       1 0041        FAVAIL       2 0045        ADVANCE      1 0050        TEST E       BV$BWE,0 0055        LOGIC R      1 0060        RELEASE      3 0065        FUNAVAIL     1 0066        FUNAVAIL     2 0070        SAVEVALUE    BEL1+,1 0075        TEST NE      X$BEL1,5,KON 0080        ADVANCE      100 0085        TRANSFER     ,CAR 0090 KON    SAVEVALUE    BEL1,0 0095        TERMINATE    1 0100        GENERATE     60 0105        ADVANCE      100,20 0110        TABULATE     TAB1 0115        ENTER        1 0120        GATE LS      1 0125        SAVEVALUE    BEL2+,1 0130        TEST E       X$BEL2,X$BEL3,POGR 0135        LOGIC R      1 0140        SAVEVALUE    BEL2,0 0145 POGR   LOGIC I      2 0150        GATE LR      2,RAZ 0155        ASSIGN       1,1 0160 RAZ    ASSIGN       1+,1 0165        SEIZE        P1 0170        LEAVE        1 0175        ADVANCE      50,FN$EXPON 0180        RELEASE      P1 0185        TERMINATE 0190        START        30 0191        REPORT       REPORT.GPS 0192        WINDOW       TABLES Подскажите как сделать следующее задание: определение вероятности простоя подвижного состава из-за отсутствия автомобилей. Кто может помочь? Заранее спасибо!

Автор: regis 3.4.2008, 09:55

Я и раньше слышал про GPSS, что язык страшненький, но то, что настолько, не подозревал! ;)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)