Моделирование производственной системы на SMPL | MetodPro.ru

Реклама на сайте

Моделирование производственной системы на SMPL


осн программа:

 

uses SMPL

const evGen=1;// приход транзактов и резервирование устройства

          evRel=2;// освобождение устройства

         evEnd=3;// окончание моделирования

procedure SMPL_model;

//Иницилизирующая часть

_TIME:=0;

transact:=0;

D:=_Device(‘master’);

Q:=_Queue(‘nakopitel’) ;

// планирование начальн события

_Schedl (evGen, IRandom(10,20),transact);

//планирование окончания моделирования

_Schedl(evEnd, 480,200);

//управляющая секция

repeat

_Cause(Event,transact);// Event д.б определен в секции инициализации

//рабочая секция

case event of

evGen;

begin

// секция первого события

if _Status(0)=0 then // если устройство свободно

          begin

                    _Reserve (D,transact);

                    _Schedl(evRel,IRandom(8,16),transact)

          end

else

_EnQueue(Q,transact,0,1);

inc(transact);

_Schedl (evGen, IRandom(10,20),transact); end;

evRel;//секция 2-го события

begin

_Release(D); освобождение устройства

if Length(Q)>0 then // если очередь не пуста

begin // то снимаем транзакт с вершины очереди

transact:=_head(Q,AS);

_Raserved(D,transact)// резервируем устройство

_Schedl(evRel,IRandom(8,16),transact); // и планируем его освобождение

end;

end;

//Вывод результата моделирования

_Monitor(F);

_Report(F);

 

Осн процедура:

Begin

         Assign(F,’file’);

        Rewrite(F);

        Smpl_model;//обращение к процедуре

        Close (F);

End.

 



Методические пособия

  • Системы автоматизированного проектирования
  • Социология молодёжи
  • Общая социология
  • Криптография
  • Проектирование трансляторов
  • Компьютерная графика
  • Моделирование систем
  • Информационная безопасность
  • Теория вычислительных процессов
  • Логические основы искусственного интелекта
  • Проектирование распределённых информационных систем