Простая система на GPSS с несколькими очередями

@Aiven · Регистрация: 07.04.2015

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

Непонятно, где ошибка в коде. Программа вылетает с

04/07/15 16:47:04 Error Stop.
04/07/15 16:47:04 Halt. XN: 1. Block 45 Next.
04/07/15 16:47:04 Clock:6.369464. Next: TERMINATE. Line 63.
04/07/15 16:47:04 TERMINATE 0
04/07/15 16:47:04 A Transaction which owns a Facility is attempting to terminate.

Вот код:

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
64
65
66
67
68
69
70
71
    GENERATE    ,,,1000
 
    ASSIGN  ADV_DISTR,5
    ASSIGN  ADV_DISTR_SPREAD,2
    ASSIGN  ADV_Q1,10           
    ASSIGN  ADV_Q1_SPREAD,5         
    ASSIGN  MAX_LEN_Q1,5000         ;максимальная длина 1 очереди (байт)
    ASSIGN  ADV_Q2,10           
    ASSIGN  ADV_Q2_SPREAD,5         
    ASSIGN  MAX_LEN_Q2,7000         ;максимальная длина 2 очереди (байт)
    ASSIGN  SIZE,100,EXPON          ;размер пакета
    INITIAL     X$LEN_Q1,0
    INITIAL     X$LEN_Q2,0
    ASSIGN  FLAG_FIN,0
 
    EXPON   FUNCTION    RN2,C24
    0,0/0.1,0.104/0.2,0.222/0.3,0.355/0.4,0.509
    0.5,0.69/0.6,0.915/0.7,1.2/0.75,1.38/.8,1.6
    .84,1.83/.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
 
    SEIZE   Distributer
    ADVANCE P$ADV_DISTR,P$ADV_DISTR_SPREAD
    RELEASE Distributer
 
    TRANSFER    .40,,FTP
    ASSIGN  TCP,1
    TRANSFER    ,FIN
 
FTP ASSIGN  FTP,1   
    
FIN TRANSFER    .99,,GO 
    ASSIGN  FLAG_FIN,1
 
GO        TEST E    FTP,0,FTP_Q
    TEST E  P$FLAG_FIN,0,Ret2
    TEST LE     X$LEN_Q1,X$LEN_Q2,Q_Sel 
    TEST LE X$LEN_Q1,P$MAX_LEN_Q1,Q_Sel
            QUEUE   Queue1      
    SAVEVALUE LEN_Q1+,SIZE
            SEIZE   Handler1            
            DEPART  Queue1              
    SAVEVALUE LEN_Q1-,SIZE
            ADVANCE P$ADV_Q1,P$ADV_Q1_SPREAD  
            RELEASE Handler1                
            TERMINATE   0           
 
Q_Sel   TEST LE X$LEN_Q2,P$MAX_LEN_Q2,Ret1  
    QUEUE   Queue2                  
    SAVEVALUE LEN_Q2+,SIZE
            SEIZE   Handler2                    
            DEPART  Queue2                      
    SAVEVALUE LEN_Q2-,SIZE
            ADVANCE P$ADV_Q2,P$ADV_Q2_SPREAD     
            RELEASE Handler2                    
            TERMINATE   0       
 
FTP_Q   QUEUE   QueueFTP
    SEIZE   HandlerFTP
    DEPART  QueueFTP
    TERMINATE   0
    
;------------------------------------------------------------------------
Ret1    TERMINATE   0
    GENERATE    10000       
    TERMINATE   1
    START   1   
 
Ret2    TERMINATE   0
    HALT

Не работает где-то в строчках:

Code
1
2
3
4
FTP_Q   QUEUE   QueueFTP
    SEIZE   HandlerFTP
    DEPART  QueueFTP
    TERMINATE   0

Может кто-нибудь объяснить?

@Dukalys · 15.05.2015, 17:42

точка это отделение целой и дробной части 0.2 .2 одно и тоже
точек минимум 1 или 2

Добавлено через 5 минут
Про функции много где написано, рекомендую посмотреть Шрайбера, там разные выходные значения могут задаваться - дискретные, либо из диапазона

@Aiven · 15.05.2015, 17:57 **[ТС]**

Я не про то, что такое .2, а про то, влияет ли величина интервала на вероятность выпадения значения при заданном генераторе.
Например задана функция:

Fuction_0 FUNCTION RN1,D2
.2,5/1,10

Вопрос в том, будет ли чаще возвращаться число 10 потому, что интервал для него = 0.8 (при том что для числа 5 интервал равен всего 0.2)

По поводу максимального числа точек. Хотите сказать, что оно не фиксировано в GPSS?

@Dukalys · 15.05.2015, 18:01

0.8 вероятность выше чем 0.2 в 4 раза !!! значит число из соответствующего интервала в 4 раза вероятнее.

Что такое точки не знаю

@Aiven · 15.05.2015, 18:07 **[ТС]**

О, отлично, спасибо. Про вероятность так и думала. Хотела уточнить))

Ну точки в функции - пара x,y (.2, 5 или 0.8,10 в данном примере (2 точки))
Вряд ли можно задавать в GPSS функцию с бесконечным количеством точек. Есть же какие-то ограничения?

Мне это нужно потому, что я генерирую функции программно. А для этого важно знать максимально возможное количество точек.

@Dukalys · 15.05.2015, 18:16

Сообщение от Aiven

Мне это нужно потому, что я генерирую функции программно.

Программно это как? Все ограничения в книге Шрайбера должны быть, 20+ точно поддерживает

@Aiven · 15.05.2015, 18:28 **[ТС]**

У меня код на плюсах, который генерирует код для GPSS))

Окей, поищу в Шрайбере) Спасибо)

@Dukalys · 15.05.2015, 18:30

самостоятельно задайте в GPSS функцию на 100, 1000 параметров, если программно, то это 2-3 минуты возни.

@Aiven · 16.05.2015, 22:00 **[ТС]**

Да не, мне именно программно нужно.
Ну с 707-ю точками вроде работает =)

F_size_0 FUNCTION RN1,D707

Добавлено через 23 часа 45 минут
А GPSS позволит вынести функции в отдельный файл?
Есть конечно команды OPEN и READ, но мне недостаточно считать строку из файла. Мне ведь нужно, чтобы функция, заданная в файле, была проинициализирована в самой программе.

Добавлено через 3 часа 25 минут
А, всё. Через INCLUDE надо было подключать

@Aiven · 28.05.2015, 02:56 **[ТС]**

INCLUDE не подключает текстовые файлы, созданные в линуксе через ofstream

И при этом работает с файлами, созданными в винде.

С чем это может быть связано? Кодировка? Права доступа?

Добавлено через 7 часов 1 минуту
У виндовых файлов 0D0A в конце, у линуксовых - 0A. Видимо из-за этого

Добавлено через 1 час 47 минут
Действительно из-за этого.
Проблема была решена с помощью рекурсивного конвертирования файлов:

find . -type f -exec unix2dos {} \;

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	15.05.2015, 17:42
	точка это отделение целой и дробной части 0.2 .2 одно и тоже точек минимум 1 или 2 Добавлено через 5 минут Про функции много где написано, рекомендую посмотреть Шрайбера, там разные выходные значения могут задаваться - дискретные, либо из диапазона 0

@Aiven 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 17
	15.05.2015, 17:57 [ТС]
	Я не про то, что такое .2, а про то, влияет ли величина интервала на вероятность выпадения значения при заданном генераторе. Например задана функция: Fuction_0 FUNCTION RN1,D2 .2,5/1,10 Вопрос в том, будет ли чаще возвращаться число 10 потому, что интервал для него = 0.8 (при том что для числа 5 интервал равен всего 0.2) По поводу максимального числа точек. Хотите сказать, что оно не фиксировано в GPSS? 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	15.05.2015, 18:01
	0.8 вероятность выше чем 0.2 в 4 раза !!! значит число из соответствующего интервала в 4 раза вероятнее. Что такое точки не знаю 0

@Aiven 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 17
	15.05.2015, 18:07 [ТС]
	О, отлично, спасибо. Про вероятность так и думала. Хотела уточнить)) Ну точки в функции - пара x,y (.2, 5 или 0.8,10 в данном примере (2 точки)) Вряд ли можно задавать в GPSS функцию с бесконечным количеством точек. Есть же какие-то ограничения? Мне это нужно потому, что я генерирую функции программно. А для этого важно знать максимально возможное количество точек. 0

@Aiven 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 17
	15.05.2015, 18:28 [ТС]
	У меня код на плюсах, который генерирует код для GPSS)) Окей, поищу в Шрайбере) Спасибо) 0

@Dukalys 1817 / 1031 / 285 Регистрация: 13.02.2012 Сообщений: 3,339
	15.05.2015, 18:30
	самостоятельно задайте в GPSS функцию на 100, 1000 параметров, если программно, то это 2-3 минуты возни. 0

@Aiven 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 17
	16.05.2015, 22:00 [ТС]
	Да не, мне именно программно нужно. Ну с 707-ю точками вроде работает =) F_size_0 FUNCTION RN1,D707 Добавлено через 23 часа 45 минут А GPSS позволит вынести функции в отдельный файл? Есть конечно команды OPEN и READ, но мне недостаточно считать строку из файла. Мне ведь нужно, чтобы функция, заданная в файле, была проинициализирована в самой программе. Добавлено через 3 часа 25 минут А, всё. Через INCLUDE надо было подключать 0

@Aiven 0 / 0 / 0 Регистрация: 07.04.2015 Сообщений: 17
	28.05.2015, 02:56 [ТС]
	INCLUDE не подключает текстовые файлы, созданные в линуксе через ofstream И при этом работает с файлами, созданными в винде. С чем это может быть связано? Кодировка? Права доступа? Добавлено через 7 часов 1 минуту У виндовых файлов 0D0A в конце, у линуксовых - 0A. Видимо из-за этого Добавлено через 1 час 47 минут Действительно из-за этого. Проблема была решена с помощью рекурсивного конвертирования файлов: find . -type f -exec unix2dos {} \; 0

Опции темы