| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Другие языки > GPSS World транспортное хозяйство |
| Автор: crossmark 28.4.2010, 17:44 |
| Здравствуйте! Помогите с моей задачкой. вот задание: Транспортный цех объединения обслуживает три филиала А, В, и С. Грузовики перевозят изделия из А в В из В и С возвращаются затем в А без груза. Погрузка в А занимает 20 мин, переезд из А в В длится 30 ин, разгрузка и погрузка в В длится 40 мин, переезд в С – 30 мин, разгрузка в С – 20 мин и переезд в А – 20 мин. Если к моменту погрузки в А или В отсутствуют изделия грузовики уходят дальше по маршруту. Изделия в А выпускаются партиями по 1000 шт, через 20±3 мин, в В – 20±5 мин. На линии 8 грузовиков каждый перевозит по 1000 изделий. Вначале все в А. Смоделировать работу транспортного предприятия на 400 ч. я предлагаю такое решение: подскажите правильно ли так? дело в том что набросал на Delphi, а в итоге что-то расхождение 5 EMPTY VARIABLE N3-N4+N12-N13 ;число пустых перегонов 10 GENERATE ,,,8 ;выход 8-ми грузовиков 20 ASSIGN 1,0 ;помечаем грузовики как пустые 30 BEG TEST G X1,0,GOTOB ;проверка наличия груза в п.А 40 SAVEVALUE 1-,1 ;забрать груз для погрузки 50 ADVANCE 20 ;задержка 20 мин для погрузки 60 ASSIGN 1,1 ;помечаем: грузовик с грузом 70 GOTOB ADVANCE 30 ;30 мин переезд в п.В 80 RAZGR TEST G P1,0,POGR ;проверка: нужно разгружаться? 90 ADVANCE 20 ;разгрузка 20 мин 100 ASSIGN 1,0 ;помечаем грузовик как пустой 110 POGR TEST G X2,0,GOTOC ;проверка наличия груза в п.В 120 SAVEVALUE 2-,1 ;забрать груз для погрузки 130 ADVANCE 20 ;разгрузка 20 мин 140 ASSIGN 1,1 ;помечаем: грузовик с грузом 150 GOTOC ADVANCE 30 ;30 мин переезд в п.С 160 TEST G P1,0,GOTOA ;проверка: нужно разгружаться? 170 ADVANCE 20 ;разгрузка 20 мин 180 ASSIGN 1,0 ;грузовик пуст 190 GOTOA ADVANCE 20 ;20 мин переезд в п.А 200 TRANSFER ,BEG ;начинаем новый круг *** Производство перевозимой продукции *** 210 GENERATE 20,3 ;выпуск партий в п. А 220 SAVEVALUE 1+,1 ;число партий - в ячейке X1 230 TERMINATE 240 GENERATE 20,5 ;выпуск партий в п. В 250 SAVEVALUE 2+,1 ;число партий - в ячейке X2 260 TERMINATE *** Таймер для останова процесса моделирования *** 270 GENERATE 24000 ;по условию задачи 400 часов. 280 TERMINATE 1 |