П 6. Компьютерные программы для смо Эрланга п 6.1. Программы на языке Паскаль

Program Erlang 1;

Uses Crt;

Var i, fact, n : integer;

q, a, s, res: Real;

Begin

ClrScr:

TextColor (3);

Write ('Введите n:'); Readln (n);

TextColor (2);

Write ('Введите q:'); Readln (q);

a:=l; fact:=l; s:=l;

For i:=l to n do

begin

a:=a*q; fact:=fact*i;

s:=s+a/fact;

end;

res:= (a/fact)/s;

TextColor (4);

Writeln ('Результат=', res:4:4);

Readln;

End.

Program Erlang 2;

Const n=3;

la=20;

mu=10;

Var po, Pobs: real;

Function factorial (nrinteger): Longint;

Var f: Longint;

i: integer;

begin

f:=l;

for i:=l to n do f:=f*i;

factorial :=f

end;

Function power(m:real;n:integer):real;

Var i: integer;

f: real;

begin

f:=l;

for i:=l to n do f:=f*m;

power:=f

end;

Function allfree(po:real;n:integer):real;

Var k: integer;

sum:=real;

begin

sum:=0;

for k:=0 to n do begin

sum:=sum+power(po,k)/factorial(k);

end;

allfree:=l/sum

Function k_are_busy(po:real;n,k:integer):real;

begin

k_are_busy:=power(po,k)/factorial(k)*allfree(po,n);

end;

begin

po:=la/mu;

Pobs:=l-k_are_busy(po,n,n);

writeln(' Показатели качества функционирования СМО:');

writeln ('Число каналов, 'n = ',n:8);

writeln ('Интенсивность входящего потока, лямбда = ',1а:8);

writeln ('Интенсивность выходящего потока, мю = ',mu:8);

writeln ( ');

writeln ('Вероятность отказа, Р_отк - ',k_are_busy(po,n,n):8:3);

writeln ('Bepoятнocть обслуживания, Р_обс = ',Pobs:8:3);

writeln ('Абсолютная пропускная способность, А = ', (la*Pobs): 8:3);

writeln ('Среднее число занятых каналов, Кср = ',po*Pobs:8:3);

writeln ('Коэффициент загрузки каналов, Кз = ',(po*Pobs/n):8:3);

writeln ('Cpeднee число свободных каналов, no = ',(n-po*Pobs):8:3);

writeln ('Коэффициент простоя каналов, no/n = ',((n-po*Pobs)/n):8:3);

writeln ('Показатели качества обслуживания СМО: ');

writeln ('Среднее число заявок в СМО Эрланга, N = ',po*Pobs:8:3);

writeln ('Среднее время пребывания в СМО, t_cuc = ',po*Pobs/la:8:3);

Readln

End.

Результат выполнения программы:

Показатели качества функционирования СМО:

Число каналов, n = 3

Интенсивность входящего потока, λ = 20

Интенсивность выходящего потока, μ = 10

Вероятность отказа, Р_отк = 0,211

Вероятность обслуживания, Р_обс = 0,789

Абсолютная пропускная способность, А =15,789

Среднее число занятых каналов, К_ср = 1,579

Коэффициент загрузки каналов, К_з = 0,526

Среднее число свободных каналов, nо = 1,421

Коэффициент простоя каналов, nо/n = 0,474

Показатели качества обслуживания СМО:

Среднее число заявок в СМО Эрланга, N = 1,579

Среднее время пребывания в СМО, = 0,079

П 6.2. Программы на языке С++

Программа Erlang 1 на языке С++ 6.0

#include <conio.h>

#include <stdio.h>

void main()

{

int n;

double q,a,fact,s,res;

printf ("Vedite n:"); scanf("%d", &n);

printf ("Vedite q:"); scanf("%lf", &q);

a=1; fact=1; s=1;

for (int i=1; i<=n; i++)

{

a=a*q; fact=fact*i;

s=s+a/fact;

}

res=(a/fact)/s;

printf ("Resyltat=%.4lf\n",res);

getch();

}