Станция технического обслуживания

@Jein · Регистрация: 06.01.2013

Студворк — интернет-сервис помощи студентам

Доброе время суток!
В универе дали задачу для допуска к экзамену, в GPSS совершенно не сильна, да и сам предмет у нас для галочки только... Но, вот с такой задачей не получается справиться до конца. Ниже условия задача и то, что у меня получилось, проблема именно со второй частью (доход), никак не пойму как расчитать! Подскажите, пожалуйста, как считать доход в gpss?!

Задача.

На станцию технического обслуживания поступают автомобили, чтобы сделать тех.обслуживание (ТО) (36%) и ремонт (64%).

Они поступают по закону Пуасона со средним временем - 14 минут.

Имеется 2 помещения для ТО и 3 помещения для ремонта.

Происходят 3 вида ремонта - легкий, средней сложности и сложный ремонт. Они происходят с одинаковой вероятностью.

ТО происходит в равномерном интервале [13,60] минут. Стоимость равномерна в интервале [9,46] д.ед.

Время легкого ремонта в равномерном интервале [15,60] мин. Стоимость равномерна в интервале [8,80] д.ед.

Время средне-сложного ремонта - нормальное со средним отклонением =48 и стандартным отклонением=5.1 мин. Стоимость равномерна в интервале [23,160] д.ед.

Время сложного ремонта равномерно в интервале [83,185] минут. Стоимость равномерна в интервале [33,260] д.ед.

После ТО 12% автомобилей проходят ремонт средней сложности.

Задание:

Оценить среднее время обслуживания на станции, для каждого ремонта и ТО,

и доход за 5 дней.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
TEHOBSL STORAGE 2
REMONT  STORAGE 3
GENERATE    (exponential(1,0,14))   
TRANSFER    0.36,LA1,LA2    
LA1 TRANSFER    ,FN$SAD
SAD FUNCTION    RN1,D3
0.33,LA11/0.66,LA12/1,LA13
LA11    QUEUE   REM 
    ENTER   REMONT  
    DEPART  REM 
    ADVANCE 32.5,17.5   
    LEAVE   REMONT  
    TERMINATE       
LA12    QUEUE   REM 
    ENTER   REMONT  
    DEPART  REM 
    ADVANCE (normal(1,48,5.1))  
    LEAVE   REMONT  
    TERMINATE       
LA13    QUEUE   REM 
    ENTER   REMONT  
    DEPART  REM 
    ADVANCE 134,51  
    LEAVE   REMONT  
    TERMINATE       
LA2 QUEUE   TA  
    ENTER   TEHOBSL 
    DEPART  TA  
    ADVANCE 36.5,23.5   
    LEAVE   TEHOBSL 
    TRANSFER    0.12,LA3,LA12   
LA3 TERMINATE       
LA4 QUEUE   REM 
    ENTER   REMONT  
    DEPART  REM 
    ADVANCE (normal(1,48,5.1))  
    LEAVE   REMONT  
    TERMINATE       
    GENERATE    7200    
    TERMINATE   1
    START   1

@SergProgC++ · 07.01.2013, 00:37

О да надеюсь найдется герой который будет разбираться в коде без комментариев, если найдется прокомментируйте хотя бы

@Jein · 07.01.2013, 23:14 **[ТС]**

Вот ниже с комментариями. Как я понимаю, то прибыль за 5 дней можно посчитать с использованием Variable и Savevalue ? Только вот как именно =(

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
REMONT  STORAGE 3
TEHOBSL STORAGE 2
GENERATE    (exponential(1,0,14))   ;создание транзактов
TRANSFER    0.36,LA1,LA2    ;авто отправляют на ТО, остальные на ремонт
LA1 TRANSFER    ,FN$SAD
SAD FUNCTION    RN1,D3
0.33,LA11/0.66,LA12/1,LA13
LA11    QUEUE   REM ; встал в очередь на ремонт
    ENTER   REMONT  ; занял одно помещение
    DEPART  REM ;вышел из очереди
    ADVANCE 32.5,17.5   ;происходит ремонт
    LEAVE   REMONT  ;окончание ремонта
    TERMINATE       ;  уничтожение транзакта
LA12    QUEUE   REM ; встал в очередь на ремонт
    ENTER   REMONT  ;  занял одно помещение
    DEPART  REM ; вышел из очереди
    ADVANCE (normal(1,48,5.1))  ; происходит ремонт
    LEAVE   REMONT  ;   окончание ремонта
    TERMINATE       ; уничтожение транзакта
LA13    QUEUE   REM ; встал в очередь на ремонт
    ENTER   REMONT  ; занял одно помещение
    DEPART  REM ; вышел из очереди
    ADVANCE 134,51  ; происхдит ремонт
    LEAVE   REMONT  ; окончание ремонта
    TERMINATE       ; уничтожение транзакта
LA2 QUEUE   TA  ; встал в очередь на ТО
    ENTER   TEHOBSL ; занял одно помещение 
    DEPART  TA  ; вышел из очереди
    ADVANCE 36.5,23.5   ; происходит ТО
    LEAVE   TEHOBSL ;окончание ТО
    TRANSFER    0.12,LA3,LA12   ; 12% авто на ремонт, остальные отпущены
LA3 TERMINATE       ;уничтожение транзакта
LA4 QUEUE   REM ; встал в очередь на ремонт
    ENTER   REMONT  ; занял одно помещение
    DEPART  REM ; вышел из очереди
    ADVANCE (normal(1,48,5.1))  ; проичходит ремонт
    LEAVE   REMONT  ; окончание ремонта
    TERMINATE       ; уничтожение транзакта
    GENERATE    7200    ;  временной транзакт
    TERMINATE   1
    START   1

@Dukalys · 08.01.2013, 13:13

Code
1
2
3
4
5
6
LA4 QUEUE REM ; встал в очередь на ремонт
ENTER REMONT ; занял одно помещение
DEPART REM ; вышел из очереди
ADVANCE (normal(1,48,5.1)) ; проичходит ремонт
LEAVE REMONT ; окончание ремонта
TERMINATE ; уничтожение транзакта

Этот кусок программы абсолютно не используется судя по результатам моделирования. Это нормально?

Code
1
2
3
4
5
6
7
8
9
10
...
LA3                28    TERMINATE          153             0       0
LA4                29    QUEUE                0             0       0
                   30    ENTER                0             0       0
                   31    DEPART               0             0       0
                   32    ADVANCE              0             0       0
                   33    LEAVE                0             0       0
                   34    TERMINATE            0             0       0
                   35    GENERATE             1             0       0
                   36    TERMINATE            1             0       0

Конкретно по вопросу - вам необходимо завести одну или несколько сохраняемых величин:

1. В начале программы задать сохр. величину = значение 0
INITIAL X$PRIBIL,0

2. В момент обслуживания (или после обслуживания advance) нужно суммировать прибыль, это делается просто
SAVEVALUE PRIBIL+,ХХХ
К значению прибыли прибавляем значение ХХХ, не знаю сколько это у вас.

3. Запускаем моделирование и смотрим в отчёте результат в разделе SAVEVALUE

@Jein · 27.01.2013, 16:37 **[ТС]**

Доброе время суток!

Спасибо всем за подсказки!
Не без помощи посторонних кое как соорудила программу, отослала преподаватель на проверку (задача для допуска на экзамен), вот, что он мне ответил:
" Готов поставить "автомат" за экзамен, если Вы сможете объяснить как получена прибыль в 10010.00 Ls.
Работа не зачтена."
Честно говоря незнаю,что конкретно он хочет услышать или увидеть, может быть кто-нибудь может помочь?
Заранее спасибо огромное!

Текст:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
REM FUNCTION    RN1,D3          ;функция,которая разделяет на виды ремонта
.333,REMVID/.666,REMVIDS/1,REMSAR
 
LAIKS   TABLE           M1,0,10,20              ;таблица времени на станции
LTAP    TABLE           M1,0,10,20              ;таблица времени на ТО
LREMVID TABLE   M1,0,10,20          ;таблица времени на легком ремонте
LREMVIDS    TABLE   M1,0,10,20          ;таблица времени на среднем ремонте
LREMSAR TABLE   M1,0,10,20          ;таблица времени на сложном ремонте
 
VTAP    STORAGE 2                   ;помещения для ТО
VREMONT STORAGE 3           ;помещения для ремонта
 
    GENERATE    (EXPONENTIAL(1,0,14))       ;transaktu veidošana (auto ierodas pēc Puasona sad.)
    TRANSFER    0.36,REMONT,TAPAL       ;auto sadalas pa remontu veidiem
 
TAPAL   QUEUE   TAPRINDA            ;встал в очередь на ТО
            ENTER        VTAP,1         ;занял одно помещение
            DEPART  TAPRINDA            ;выход и очереди
    ADVANCE (UNIFORM(1,13,60))      ;происходит ремонт
    ASSIGN  PRIBIL+,(UNIFORM(1,9,46))   ;увеличение прибыли 
    LEAVE   VTAP,1                  ;коней ремонта
    TABULATE    LTAP                            ;получить данные для таблицы
    TRANSFER    0.12,BEIGAS,REMVIDS     ;12% на ремонт, остальные уезжают
 
REMONT  TRANSFER    ,FN$REM
 
REMVID  QUEUE   REMRINDA            ;встал в очередь на ремонт
    ENTER   VREMONT,1           ;занял одно помещение
    DEPART  REMRINDA            ;выход из очереди
    ADVANCE (UNIFORM(1,15,50))      ;происходит ремонт
    ASSIGN  PRIBIL+,(UNIFORM(1,8,80))   ;увеличение прибыли
    LEAVE   VREMONT,1           ;конец ремонта
    TABULATE    LREMVID         ;получить данные для таблицы
    TRANSFER    ,BEIGAS
 
REMVIDS QUEUE   REMRINDA            ;встал в очередь на ремонт
            ENTER   VREMONT,1           ;занял одно помещение 
           DEPART   REMRINDA            ;вышел из очереди
         ADVANCE    48,5.1          ;происходит ремонт
          ASSIGN    PRIBIL+,(UNIFORM(1,23,160)) ;увеличение прибыли
            LEAVE   VREMONT,1           ;конец ремонта
       TABULATE LREMVIDS            ;получить данные для таблицы
       TRANSFER ,BEIGAS
 
REMSAR  QUEUE   REMRINDA            ;встал в очередь на ремонт
            ENTER   VREMONT,1           ;занял одно помещение
          DEPART    REMRINDA            ;вышел из очереди
        ADVANCE (UNIFORM(1,83,185))     ;происходит ремонт
          ASSIGN    PRIBIL+,(UNIFORM(1,33,260)) ;увеличение прибыли
            LEAVE   VREMONT,1           ;конец ремонта
       TABULATE LREMSAR         ;получить данные для таблицы
       TRANSFER ,BEIGAS
 
BEIGAS  TABULATE    LAIKS                 ;получить данные для таблицы
            TERMINATE                               ;уничтожение транзакта
 
    GENERATE    3000            ;5 рабочих дней по 10 часов
    TERMINATE   1
    START   1

@Dukalys · 27.01.2013, 17:17

Вас препод развёл )))

Code
1
2
3
4
5
6
7
8
9
NAME                       VALUE  
          BEIGAS                         36.000
          LAIKS                       10001.000
          LREMSAR                     10005.000
          LREMVID                     10003.000
          LREMVIDS                    10004.000
          LTAP                        10002.000
          PRI                         10006.000
          PRIBIL                      10011.000

Это вообще левая инфа 10010 .....

Вот оно ваша прибыль, среднее значение прибыли для каждой заявки 67.754 +-55.469
А общая прибыль

Code
1
2
SAVEVALUE               RETRY       VALUE
 PRIB                     0      13347.552

Дописал 4 строчки кода, чтобы вашу прибыль в таблицу запихнуть и сохраняемую величину. - Саму программу нет времени проверять.

Code
1
2
3
4
INITIAL X$PRIB,0
PRI     TABLE P$PRIBIL,5,5,40
TABULATE PRI
SAVEVALUE PRIB+,P$PRIBIL

Вся программа

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
INITIAL X$PRIB,0
REM FUNCTION RN1,D3 ;функция,которая разделяет на виды ремонта
.333,REMVID/.666,REMVIDS/1,REMSAR
 
LAIKS TABLE M1,0,10,20 ;таблица времени на станции
LTAP TABLE M1,0,10,20 ;таблица времени на ТО
LREMVID TABLE M1,0,10,20 ;таблица времени на легком ремонте
LREMVIDS TABLE M1,0,10,20 ;таблица времени на среднем ремонте
LREMSAR TABLE M1,0,10,20 ;таблица времени на сложном ремонте
PRI     TABLE P$PRIBIL,5,5,40
 
VTAP STORAGE 2 ;помещения для ТО
VREMONT STORAGE 3 ;помещения для ремонта
 
GENERATE (EXPONENTIAL(1,0,14)) ;transaktu veidošana (auto ierodas pēc Puasona sad.)
TRANSFER 0.36,REMONT,TAPAL ;auto sadalas pa remontu veidiem
 
TAPAL QUEUE TAPRINDA ;встал в очередь на ТО
ENTER VTAP,1 ;занял одно помещение
DEPART TAPRINDA ;выход и очереди
ADVANCE (UNIFORM(1,13,60)) ;происходит ремонт
ASSIGN PRIBIL+,(UNIFORM(1,9,46)) ;увеличение прибыли
LEAVE VTAP,1 ;коней ремонта
TABULATE LTAP ;получить данные для таблицы
TRANSFER 0.12,BEIGAS,REMVIDS ;12% на ремонт, остальные уезжают
 
REMONT TRANSFER ,FN$REM
 
REMVID QUEUE REMRINDA ;встал в очередь на ремонт
ENTER VREMONT,1 ;занял одно помещение
DEPART REMRINDA ;выход из очереди
ADVANCE (UNIFORM(1,15,50)) ;происходит ремонт
ASSIGN PRIBIL+,(UNIFORM(1,8,80)) ;увеличение прибыли
LEAVE VREMONT,1 ;конец ремонта
TABULATE LREMVID ;получить данные для таблицы
TRANSFER ,BEIGAS
 
REMVIDS QUEUE REMRINDA ;встал в очередь на ремонт
ENTER VREMONT,1 ;занял одно помещение
DEPART REMRINDA ;вышел из очереди
ADVANCE 48,5.1 ;происходит ремонт
ASSIGN PRIBIL+,(UNIFORM(1,23,160)) ;увеличение прибыли
LEAVE VREMONT,1 ;конец ремонта
TABULATE LREMVIDS ;получить данные для таблицы
TRANSFER ,BEIGAS
 
REMSAR QUEUE REMRINDA ;встал в очередь на ремонт
ENTER VREMONT,1 ;занял одно помещение
DEPART REMRINDA ;вышел из очереди
ADVANCE (UNIFORM(1,83,185)) ;происходит ремонт
ASSIGN PRIBIL+,(UNIFORM(1,33,260)) ;увеличение прибыли
LEAVE VREMONT,1 ;конец ремонта
TABULATE LREMSAR ;получить данные для таблицы
TRANSFER ,BEIGAS
 
BEIGAS TABULATE LAIKS ;получить данные для таблицы
TABULATE PRI
SAVEVALUE PRIB+,P$PRIBIL
TERMINATE ;уничтожение транзакта
 
GENERATE 3000 ;5 рабочих дней по 10 часов
TERMINATE 1
START 1

Новые блоги и статьи Все статьи Все блоги /
YAFU@home — распределённые вычисления для математики. На CPU Programma_Boinc 20.01.2026 YAFU@home — распределённые вычисления для математики. На CPU YAFU@home — это BOINC-проект, который занимается факторизацией больших чисел и исследованием aliquot-последовательностей. Звучит. . .	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@SergProgC++ Эксперт GPSS 555 / 414 / 105 Регистрация: 02.07.2010 Сообщений: 1,729
	07.01.2013, 00:37
	О да надеюсь найдется герой который будет разбираться в коде без комментариев, если найдется прокомментируйте хотя бы 0

Опции темы