Временные интервалы, заданные по каждому типу транзактов. Диаграммы плотности распределения временных интервалов появления транзактов, страница 3

write          ("|----------------------------------|"),1

write          (PolyCatenate("|4tip          |       ",x$tip4,"          |")),1

write          (PolyCatenate("|6tip          |       ",x$tip6,"          |")),1

write          (PolyCatenate("|5tup          |       ",x$tip5,"          |")),1

write          ("+----------------------------------+"),1

write          ("|Srednee znachenie dlinni ocheredi |"),1

write          ("|----------------------------------|"),1

write          (PolyCatenate("|",QA$obsluz,"                                 |")),1

write          ("+----------------------------------+"),1

write          ("|Vremia raboti sistemi             |"),1

write          ("|----------------------------------|"),1

write          (PolyCatenate("|",AC1,"                 |")),1

write          ("+----------------------------------+"),1

CLOSE          ,1

terminate      1

5.  Планирование и проведение эксперимента

Файл с входными данными: InF.txt:

№        min.t1 max.t1 min.t2 max.t2

1          42.2     58.6     12.6     15.4

2          52.3     57.7     17.3     22.7

3          47.6     55.4     15.3     17.2

Подключаемый файл с командами: сommands.txt:

vr11  variable    ((mx$vremia(1,3)+mx$vremia(1,2))/2)

vr21  variable    ((mx$vremia(1,3)+mx$vremia(1,2))/2-mx$vremia(1,2))

vr12  variable    ((mx$vremia(2,3)+mx$vremia(2,2))/2)

vr22  variable    ((mx$vremia(2,3)+mx$vremia(2,2))/2-mx$vremia(2,2))

vr13  variable    ((mx$vremia(3,3)+mx$vremia(3,2))/2)

vr23  variable    ((mx$vremia(3,3)+mx$vremia(3,2))/2-mx$vremia(3,2))

vr_adv31    variable    ((mx$vremia(1,5)+mx$vremia(1,4))/2)

vr_adv41    variable    ((mx$vremia(1,5)+mx$vremia(1,4))/2-mx$vremia(1,4))

vr_adv32    variable    ((mx$vremia(2,5)+mx$vremia(2,4))/2)

vr_adv42    variable    ((mx$vremia(2,5)+mx$vremia(2,4))/2-mx$vremia(2,4))

vr_adv33    variable    ((mx$vremia(3,5)+mx$vremia(3,4))/2)

vr_adv43    variable    ((mx$vremia(3,5)+mx$vremia(3,4))/2-mx$vremia(3,4))

Raspred1    table V$RaspredV,50,1,40

RaspredV    variable    c1-x1

Raspred2    table V$RaspredV2,10,1,40

RaspredV2   variable    c1-x1

Raspred3    table V$RaspredV3,0,4,40

RaspredV3   variable    c1-x1

object      storage     5

Подключаемый файл с процедурой чтения из файла: InputProc.txt:

vremia      MATRIX      ,3,5

procedure ReadFile(FName,How) begin

temporary HowMach,Err,ColCount;

Err=open(1,FName);

HowMach=1;

if(Err=0) then begin

while(HowMach<How) do begin

ColCount=1;

while(ColCount<6) do begin

seek(1,HowMach+1);

vremia[HowMach,ColCount]=value(word(read(1),ColCount));

ColCount=ColCount+1;

end;

if(Length(vremia[HowMach,1])=0) then begin

HowMach=How;

end;

HowMach=HowMach+1;

end;

end;

else vremia[HowMach,1]=Err;

Err=close(1);

end;

Сначала запустим моделирование, командой “Create Simulation”. Затем:

window >> Simulation window >> Table window >> TIMEDELAY_TAB;

…...…>> TIMEDELAY_TAB2;

…...…>> TIMEDELAY_TAB3.

- Получим диаграммы плотности распределения временных интервалов появления транзактов.

Моделирование остановится, когда 1-й транзакт попадет в блок

konec open  ("Wrt.txt"),1

12/25/06 23:00:01  Model Translation Begun.

12/25/06 23:00:01  Ready.

12/25/06 23:00:01  READFILE Procedure registered.

12/25/06 23:00:01  Simulation in Progress.

12/25/06 23:00:01  The Simulation has ended.  Clock is 541.502243.

12/25/06 23:00:01  Reporting in laba33.290.1  -  REPORT Window.

Файл с выходными данными: Wrt.txt:

+----------------------------------+

|Obsee cgislo tranzaktov           |

|----------------------------------|

|30                                |

+----------------------------------+

|Tip tranzakta | Kolichestvo vxodov|

|----------------------------------|

|4tip          |       10          |

|6tip          |       10          |

|5tup          |       10          |