Информатика -продвинутый курс



     пэт бутылка б у | экскурсионные туры по львову |     

МОДЕЛИРОВАНИЕ СЛУЧАЙНЫХ ПРОЦЕССОВ В СИСТЕМАХ МАССОВОГО ОБСЛУЖИВАНИЯ - часть 6


WriteLn;

WriteLn('выборочное среднее величины g=', S1 : 6 : 3,

' выборочная дисперсия величины g=', Dg : 6 : 3);

WriteLn('выборочное среднее величины h=', S2 : 6 : 3,

' выборочная дисперсия величины h=', Dh : 6 : 3);

Dispose(G); Dispose(H); WriteLn;

WriteLn('для продолжения нажать любую клавишу');

Repeat Until KeyPressed; Ch := ReadKey;

  (ниже - построение гистограмм распределений величин g и h)

DetectGraph(I, К); InitGraph(I, К, '');

I := GetMaxX; К := GetMaxY; J := I Div 2; M :'= Ll[l];

For I1 := 2 То 11 Do If L1[I1] > M Then M := L1[I1];

For I1 := 1 To 11 Do V[I1] := L1[I1] / M;

Line(10, К - 10, J - 20, К - 10); Line[l0, К - 10, 10, 5) ;

OutTextXY(20, 100, 'распределение величины g');

For I1 := 1 To 11 Do

 Begin

  I2 := Round((K - 20) * (1 - V[I1])) + 10;

  Line(I1 * 20 - 10, I2, I1 * 20 + 10, I2);

  Line(I1 * 20 - 10, I2, I1 * 20 - 10, К - 10);

  Line(I1 * 20 + 10, I2, I1 * 20 + 10, К - 10);

 End;

Line(J + 20, К - 10, I - 10, К

- 10);

Line(J + 20, К - 10, J + 20, 5) ;

OutTextXY(J + 30, 100, 'распределение величины h'); M := L2[l];

For I1 := 2 To 11 Do If L2[I1] > M Then M := L2[I1];

For I1 := 1 To 11 Do V[I1] := L2[I1] / M;

For I1 := 1 To 11 Do

 Begin

  I2 := Round((K - 20) * (1 - V[I1])) + 10;

  Line(J + I1 * 20, I2, J + I1 * 20 + 20, I2);

  Line(J + I1 * 20, I2, J + I1 * 20, К - 10);

  Line(J + I1 * 20 + 20, I2, J + I1 * 20 + 20, К - 10);

 End;

OutTextXY(200, GetMaxY

- 10, 'для выхода нажать любую клавишу');

Repeat Until KeyPressed; CloseCraph

End.

Приведем для сравнения результаты расчета средних значений величин g, h и соответствующих среднеквадратичных отклонений Sg, Sh, полученные при одинаковых значениях всех параметров в пяти разных сериях испытании по 10000 событий в серии (табл. 7.9) (входной поток покупателей - процесс равновероятных событий с максимальным временем между приходами 10 мин, длительность обслуживания также распределена равновероятным образом в интервале от 0 до 5 мин).

Таблица 7.9




Содержание  Назад  Вперед