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


         

Кроме того, программа строит гистограммы


и h). Кроме того, программа строит гистограммы распределений величин g и h.

Программа 152.

Моделирование очереди

Program Cohered;

(входной поток равновероятных событий;

динамические массивы позволяют значительно увеличить объем выборки)

Uses Crt, Graph;

Const N = 10000 (число членов выборки);

 W1 = 10 (диапазон времен прихода от 0 дo wl};

 W2 = 5 (диапазон времен обслуживания от 0 до w2};

Type Т = Array(l..N] Of Real; U = ^Т;

Var A, B, C, D, E, F, Aa, Bb, Cc, Dd, Ее, Ff, Dg, Dh, M : Real;

Sl, S2 : Double; I, K, J, I1, I2 : Integer;

LI, L2, V : Array [1..11] Of Real; G, H : U; Ch : Char;

Begin

If MaxAvail >= SizeOf(G) Then New(G);

If MaxAvail >= SizeOf(H) Then New(H);

Randomize; (ниже - имитационное моделирование)

Aa := 0; Bb := W2 * Random; Cc := 0; Ее := Bb; Ff := Bb;

G^[l] = 0; H^[1] := 0;

For К = 1 To 11 Do

Begin L1(K] := 0; L2[K] := 0 End;

For I = 2 To N Do

  Begin

 A := Wl * Random; В := W2 * Random;

 С := Cc + A; If С > Ее Then D := С Else D := Ее;

 E := D + B; F := E - C; G^[I] := F - B; H^[I] := D - Ее;

 Cc := С; Ее := E;

 If G^[I] <= 1 Then Ll[l] := Ll[l] + 1; If H^[1] = 0 Then

    L2[l] := L2[l] + 1;

 For К := 2 To 10 Do

 Begin

           If (G^[I] > К - 1) And (G^[I] <= K) Then L1[K] := L1[K] + 1;

If (H^[I] > K - 1) And (H^[I] <= K) Then L2[K] := L2[K] + 1;

 End;

 If G^[I] > 10 Then Ll[l1] := Ll[ll] + 1;

 If H^[I] > 10 Then L2[ll] := L2[ll] + 1;

 Sl := Sl + G^[l]; S2 := S2 + H^[I];

End;

For I := 1 To 11 Do (ниже - нормировка распределений g и h}

 Begin

L1[I] := L1[I] / N; L2[I] := L2[I] / N

 End;

(ниже - расчет средних и дисперсий величин g и h}

Sl := Sl / N; S2 := S2 / N; Dg := 0; Dh := 0;

For I := 1 То N Do

Begin

Dg := Dg + Sqr(G^[I] - Sl); Dh := Dh + Sqr(H^[I] - S2)

End;

 Dg := Dg / N; Dh := Dh / N;

 WriteLn('распределение величины g распределение величины h');

 WriteLn;

 For K := 1 To 11 Do

WriteLn ('11[', K, ']=', L1[K] : 6 : 4, '' : 20, '12(', К, ']=',

  L2[K] : 6 : 4);


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