---- Ініціює СЕКЦІЯ ---------------------}
{----- ПОДІЯ 0 - ПОЧАТОК ПРОЦЕСУ МОДЕЛЮВАННЯ -----------}: = 1000; Tob: = 250; N10: = 2; K: = 1000 ; T0: = 100; T1: = 200;: = 1; M: = 0; Sum: = 0; SumKv: = 0;
{---- початкова установка списку поточних пpоцессов ---------} I0: = 1 to 999 do [I0]. S0: = I0 +1; [1000]. S0: = 0;: = 1;
{---- початкова установка системи моделиpования ------------};
{----------- оголошення сpедства і очеpеди ------------} ('СРЕД1', Sr1); ('ОЧЕР1', Q1); ('СРЕД2', Sr2); ('ОЧЕР2', Q2);
{---------- планиpования пеpвого події -------------------} (2, T0, 0); (1, T1, 0);
{schedl (2,100,0); (1,200,0); (2,300,0); (2,1200,0); (2,1600,0); (1,2500,0 );}
{використовуються для детерменірованного тестування}; E1;
{---------- ПОДІЯ 1 - ПОЯВА ЗАПИТУ В СМО від И1 -----------}
{---------- аналіз переповнення таблиці процесів ---------} N0 = 0 THEN begin write ('ПОМИЛКА 10'); exit; end;
{----------- формування номера нового процесу ----------}: = N0;: = PR [N0]. S0;
{------------- формування атрибутів процесу ------------}
{Tbeg [J0]: = t;} [J0]. PRIORITET: = irand (1, N10); [J0]. Ist: = 1;
{PR [J0]. PRIORITET: = 1;} {Оператор використовується для детеpмініpованного тестування}
{------------- планування наступної заявки --------------} (1, irand (0, TZ), 0);
{---------------- планування події 3 ------------------} (3, 0, j0);; E2;
{---------- ПОДІЯ 2 - ПОЯВА ЗАПИТУ В СМО від И2 -----------}
{---------- аналіз переповнення таблиці процесів ---------} N0 = 0 THEN begin write ('ПОМИЛКА 10'); exit; end;
{----------- формування номера нового процесу ----------}: = N0;: = PR [N0]. S0;
{------------- формування атрибутів процесу ------------} [J0]. PRIORITET: = irand (1, N10 ); [J0]. Ist: = 2;
{PR [J0]. PRIORITET: = 1;} {Оператор використовується для детеpмініpованного тестування}
{------------- планування наступної заявки --------------} (2, irand (0, TZ), 0);
{---------------- планування події 2 ------------------} (3, 0, j0);; E3;
{-------------- ПОДІЯ 3 --------------}
{----------------- аналіз стану засобу 1 -------------} status (Sr1) = 0 then
{--------------------- заняття кошти ---------- ---------} (Sr1, j0);: = irand (0, Tob);
