Object GPSS (разработка Королева А.Г.)

 
В работе предлагается погрузить возможности языка GPSS в один из хороших языков программирования, обеспечивающих эффективную работу с Windows, и представить модель системы массового обслуживания в виде набора процедур на Object Pascal .

Для этого был разработан набор модулей (Unit), которые реализуют процедуры и функции, необходимые для построения моделей. Процедуры естественным образом распадаются на собственно процедуры, и блоки. Блоки – это те процедуры, из которых формируется собственно модель. Они соответствуют блокам языка GPSS и реализуют продвижение заявок по модели. Остальные процедуры – используются при построении других частей модели, например, для организации процесса моделирования как такового.

Всякая модель в Object GPSS состоит из: Описание констант, переменных и объектов модели, например, очередей, многоканальных устройств, и т.п.

Процедуры Initial, в которой выполняется инициализация всех переменных и объектов модели.

Процедуры CloseAllObj, в которой выполняется уничтожение всех переменных и объектов модели.

Процедуры ResetAll, в которой выполняется сброс статистики по объектам модели.

Процедуры ModelTxt, в которой и описывается собственно модель системы.

Процедуры Report, в которой выполняется формирование выходной статистики по объектам модели.

Процедуры Modeling, в которой указаны конкретные команды манипуляции с моделью.

В процедуре Modeling можно управлять моделью, и готовить ее к новому моделированию. В частности, можно менять значения X – параметров, функций, многоканальных устройств, таблиц, переменных и так далее.

Главная процедура в этом наборе – ModelTxt, она соответствует собственно тексту модели в GPSS, и может выглядеть, например, следующим образом.

Procedure modeltxt NextBlock:integer);

Begin With BL,SYS do case NextBlock of

{::ng1_} 1:ng1.Generate(100,90);

2: que1.Queue;

3: fac1.Seize;

4: que1.Depart;

5: Advance(95,90);

6: fac1.Release;

7: Buffer;

8: Terminate(1);

{//end_model} Else modelerror;end;end;

Эквивалентный код на языке GPSS World выглядит следующим образом:

Generate 100,90

Queue que1

Seize fac1

Depart que1

Advance 95,90

Release fac1

Buffer

Terminate 1

Содержимое всех остальных 5 процедур, во многом, стандартное, и, по сути, генерируется автоматически.

Система Object GPSS позволяет просто и естественно писать тексты моделей на Object Pascal, и ее возможности в плане моделирования, заметно превосходят, то, что есть, например, в GPSS – World, в первую очередь, за счет возможностей самого Object Pascal, а во вторую – за счет расширения номенклатуры блоков, процедур и функций. Подробности можно прочитать в соответствующей статье «Сравнение команд и блоков GPSS- World и Object GPSS».

Получить Демо-версию системы можно, написав письмо по адресу: Anatoliygk@hotmail.com Или Anatoliygk@sti.lg.ua

В письме следует указать, какую именно версию вы желаете получить: для Delphi – 6 или для Delphi – 7. Для более ранних версий Delphi система не может использоваться.

В Демо-версии опущены некоторые возможности полной версии и ограничено число используемых блоков модели. Естественно, в полной версии эти ограничения сняты. В папке с Демо-версией имеется инструкция по работе с системой, программа – конвертер для подготовки и сохранения моделей, и собственно файлы системы. Там же помещена папка с примерами моделей, которые достаточно просто модифицировать и запустить на выполнение. Для работы с системой, в компьютере должна быть 6 или 7 версия Delphi. Техника работы описана в статье и приводится в файле Help.txt папки.

Вопросы возможности продажи полной версии системы Object GPSS в настоящее время находятся в стадии решения.
 
Вернуться к списку

Object GPSS (разработка Королева А.Г.)

 
В работе предлагается погрузить возможности языка GPSS в один из хороших языков программирования, обеспечивающих эффективную работу с Windows, и представить модель системы массового обслуживания в виде набора процедур на Object Pascal .

Для этого был разработан набор модулей (Unit), которые реализуют процедуры и функции, необходимые для построения моделей. Процедуры естественным образом распадаются на собственно процедуры, и блоки. Блоки – это те процедуры, из которых формируется собственно модель. Они соответствуют блокам языка GPSS и реализуют продвижение заявок по модели. Остальные процедуры – используются при построении других частей модели, например, для организации процесса моделирования как такового.

Всякая модель в Object GPSS состоит из: Описание констант, переменных и объектов модели, например, очередей, многоканальных устройств, и т.п.

Процедуры Initial, в которой выполняется инициализация всех переменных и объектов модели.

Процедуры CloseAllObj, в которой выполняется уничтожение всех переменных и объектов модели.

Процедуры ResetAll, в которой выполняется сброс статистики по объектам модели.

Процедуры ModelTxt, в которой и описывается собственно модель системы.

Процедуры Report, в которой выполняется формирование выходной статистики по объектам модели.

Процедуры Modeling, в которой указаны конкретные команды манипуляции с моделью.

В процедуре Modeling можно управлять моделью, и готовить ее к новому моделированию. В частности, можно менять значения X – параметров, функций, многоканальных устройств, таблиц, переменных и так далее.

Главная процедура в этом наборе – ModelTxt, она соответствует собственно тексту модели в GPSS, и может выглядеть, например, следующим образом.

Procedure modeltxt NextBlock:integer);

Begin With BL,SYS do case NextBlock of

{::ng1_} 1:ng1.Generate(100,90);

2: que1.Queue;

3: fac1.Seize;

4: que1.Depart;

5: Advance(95,90);

6: fac1.Release;

7: Buffer;

8: Terminate(1);

{//end_model} Else modelerror;end;end;

Эквивалентный код на языке GPSS World выглядит следующим образом:

Generate 100,90

Queue que1

Seize fac1

Depart que1

Advance 95,90

Release fac1

Buffer

Terminate 1

Содержимое всех остальных 5 процедур, во многом, стандартное, и, по сути, генерируется автоматически.

Система Object GPSS позволяет просто и естественно писать тексты моделей на Object Pascal, и ее возможности в плане моделирования, заметно превосходят, то, что есть, например, в GPSS – World, в первую очередь, за счет возможностей самого Object Pascal, а во вторую – за счет расширения номенклатуры блоков, процедур и функций. Подробности можно прочитать в соответствующей статье «Сравнение команд и блоков GPSS- World и Object GPSS».

Получить Демо-версию системы можно, написав письмо по адресу: Anatoliygk@hotmail.com Или Anatoliygk@sti.lg.ua

В письме следует указать, какую именно версию вы желаете получить: для Delphi – 6 или для Delphi – 7. Для более ранних версий Delphi система не может использоваться.

В Демо-версии опущены некоторые возможности полной версии и ограничено число используемых блоков модели. Естественно, в полной версии эти ограничения сняты. В папке с Демо-версией имеется инструкция по работе с системой, программа – конвертер для подготовки и сохранения моделей, и собственно файлы системы. Там же помещена папка с примерами моделей, которые достаточно просто модифицировать и запустить на выполнение. Для работы с системой, в компьютере должна быть 6 или 7 версия Delphi. Техника работы описана в статье и приводится в файле Help.txt папки.

Вопросы возможности продажи полной версии системы Object GPSS в настоящее время находятся в стадии решения.
 
Вернуться к списку