ентцель Е.С., Овчаров Л.А. Прикладні задачі теорії ймовірностей:
М.: Радіо і зв'язок, 1983. - 416 с., мул.
. Вентцель Е.С., Овчаров Л.А. теорія випадкових процесів і її інженерні додатки. М.: Наука.Гл. ред. фіз.-мат. літ.- 1991. - 384 с.
Додатки
Додаток 1
Блок схема (імітаційна модель)
Додаток 2
Текст програми (імітаційна модель).
program imit_unit;
{$ APPTYPE CONSOLE}
SysUtils;
const m=1/4; p=0.57; q=4; a=40; v=1400/60; i=9;
type
/ / Тип описує структуру заявки
TRequest=record
tprih: real;// Час приходу заявки в систему
tosv: real;// Час звільнення заявки
nn: byte;// Необхідну для обслуговування число каналів=1
service: boolean;// Ознака обробки заявки
end;
var
n: integer;
mas: array [1 .. 1000] of TRequest;
mu, nu, mu1, l, k, pi, po: real;
z_ras, z_otk, n_svob, tserv, time, t_in: longint;
c, j: integer;
begin
writeln («Введіть доступне кількість каналів обслуговування n:»);
readln (n);
/ / розрахунок параметрів на підставі даних
mu:=q * m * p;
nu:=v / a;
mu1:=mu + nu;
l:=v / I;
writeln («------------------------------------------ »);
writeln («Ефективна скорострільність одного каналу (mu)», mu: 5:7);
writeln («Інтенсивність догляду заявки-під обслуговування (nu)», nu: 5:7);
writeln («Інтенсивність пуассоновского потоку звільнень (mu1)», mu1: 5:7);
writeln («Інтенсивність потоку заявок (l)», l: 5:7);
writeln («------------------------------------------ »);
z_otk:=0;// Лічильник числа відмов
n_svob:=n;// Лічильник числа вільних каналів у системі
time:=0;// Поточний час
t_in:=0;// Час приходу черговий заявки
z_ras:=100;// Число заявок
randomize;
/ / організація послідовності заявок
for c:=0 to z_ras do
begin_in:=t_in + round (-ln ((random (1000) +1) / 1001) / l);
/ / час обслуговування черговий заявки
repeat
tserv:=(round (-ln ((random (1000) +1) / 1001) / mu));
until tserv <> 0;
mas [c]. nn:=1;
mas [c]. tprih:=t_in;
mas [c]. tosv:=mas [c]. tprih + tserv;
mas [c]. service:=false;// True - заявка оброблена
end;
/ /...
