П 8. Компьютерная программа для смо с ограниченным временем ожидания

Program Erlang 4;

UsesCrt;

Consteps = 0.01;

n : array [1..5] of integer = (1,2,3,4,5);

b : array [1..7] of real = (0.5,0.75,1,2,3,5,10)

po : array [1..18] of real = (0.1,0.25,0.5,0.75,1,2,3,4,5,6,7,8,9,10,15,25,30);

VarPotk : real;

i,j,k : integer;

Function factorial(n:integer):Longint;

Varf : Longint;

i : integer;

begin

f : = 1;

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

factorial : = f;

end;

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

Vari : integer;

f : real;

begin

f : = 1;

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

power : = f;

end;

Function besksum(po,b:real;n:integer):real;

Varr,i,j : integer;

pob,p,besk,q : real;

begin

r : = 2;

p : = 1;

pob : = po / b;

q : = power(pob,r) * Exp(pob) / factorial(r));

while q > eps do

begin

inc(r);

q : = (power(pob,r) * Exp(pob) / factorial(r));

end;

besk : = 0;

for i : = n + 1 to n + r – 1 do

begin

p : = 1;

for j : = n + 1 to i do p : = p * (n + b * (j – n));

besk : = besk + power (po, i – n) / p;

besk : = besk + power (po, i – n) / p;

end;

besksum : = besk;

end;

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

Vark : integer;

sum, skob : real;

begin

sum = 0;

for k : = 0 to n do

begin

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

end;

skob : = sum + power (po, n) / factorial (n) * besksum (po, b, n);

allfree : = 1 / skob;

end;

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

Var l : integer;

p : real;

begin

if k <= n then k_are_busy : = power (po, k) / factorial (k) * allfree (po, b, n)

else

begin

p : = l;

for l : = n + 1 to k do p : = p * (n + b * ( l – n));

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

end;

end;

Function Kcp (po,b:real;n:integer):real;

Var i : integer;

s1, s2 : real;

begin

s1 : = 0;

s2 : = 0;

for i : = 1 to n – 1 do s1 : = s1 + i * k_are_busy (po, b, n, i);

for i : = 0 to n – 1 do s2 : = s2 + k_are_busy (po, b, n, i);

Kcp : = s1 + n * (1 – s2);

end;

Begin

clrscr;

i : = 5;

writeln ('n=', i : 1);

for j : = to 7 do

begin

writeln ('b=', b [ j ] : 5 : 2);

for k : = 1 to 15 do

begin

Potk : = 1 – Kcp (po[k], b[j], n[i]) / po[k];

if k : = 15 then writeln (Potk : 5 : 4,'') else write (Potk : 5 : 4, '');

end;

end;

readln;

End.

Литература

1. Бондарев В.Н., Аде Ф.Г. Искусственный интеллект. – Севастополь: изд-во СевНТУ, 2002. – 615с.

2. Бурков В.Н., Кондратьев В.В. Механизм функционирования организационных систем. – М.: Наука, 1981.

3. Вагнер М. Основы исследования операций. Том1 – 335с., Том2 – 486с., Том3 – 501с. – М.: Мир, 1972.

4. Вентцель Е.С. Теория вероятностей. – М.: Наука 1988. – 576с.

5. Вентцель Е. С. Исследование операций: Задачи, принципы, методология. 2-е издание. – М.: Наука, 1988. – 206с.

6. Винер Н. Кибернетика, или управление и связь в животном и машине. – М.: Сов. Радио, 1958. – 216с.

7. Егоров П. В., Лысенко Ю. Г., и др. Экономическая кибернетика. – Донецк: «Юго-Восток», 2003. – 510с.

8. Замков О.О., Толстопятенко А. В., Черемных Ю. Н. Математические методы в экономике. – М.: МГУ, 1999.

9. Интрилигатор М. Математические методы оптимизации и экономическая теория. – М.: Прогресс, 1975. – 606с.

10. Крайзмер Л.П. Кибернетика. – М.: Экономика, 1977., – 279с.

11. Круглов, Борисов В.В. Искусственные нейронные сети. – М.: Телеком, 2001, – 382с.

12. Кузин Т.Л. Основы кибернетики. В 2-х томах. – М.: Энергия, Том1, 1973, – 504с., Том2, 1979, – 584с.

13. Лабскер Л.Г., Бабешко Л.О. Теория массового обслуживания в экономической сфере. – М.:"ЮНИТИ", 1998. – 318с.

14. Ланге О. Оптимальные решения. – М.: Прогресс, 1967.

15. Лотов А.В. Введение в экономико-математические моделирование. – М.: Наука, 1984. – 391с.

16. Максимей И.В. Имитационное моделирование на ЭВМ. – М.: Радио и связь, 1988.

17. Моисеев Н.Н. Математические модели экономической науки. – М.: Знание, 1978.

18. Нейлор Т. Машинные имитационные эксперименты с моделями экономических систем. – М.: Мир, 1975.

19. Новиков О.А., Петухов С. И. Прикладные вопросы теории массового обслуживания. – М.: Изд-во "Советское радио", 1969. – 399с.

20. Основы кибернетики. // Под ред. К. А. Пупкова. – М.: Высш. шк., 1976. – 408с.

21. Представление и использование знаний. Под ред. Уэно X.М. Исидзуки. –М.: Мир, 1989. – 220с.

22. Прикладные нечеткие системы. // Под ред. Тэрано Т. – М.: Мир, 1993. – 368с.

23. Райсберг Б.А., Фатхутдинов Р. А. Управление экономикой. – М.: «Интел-синтез», 1999.

24. Рыжиков Ю.И. Теория очередей и управления запасами. – С-П: Питер, 2001. – 376с.

25. Теория прогнозирования и принятия решений // Под ред. Саркисяна С.А. – М.: Высш. шк., 1977. – 351с.

26. Уоссермен Ф. Нейрокомпьютерная техника. // Под ред. Галушкина А.И. – М.: Мир,1992. – 240с.

27. Уотермен Д. Руководство по экспертным системам. //Под ред. В Л. Стефанюка – М.: Мир, 1992. – 388с.

28. Фомин Г.П. Математические методы и модели в коммерческой деятельности. М.: Финансы и статистика, 2001, – 543с.

29. Шарапов О.Д. и др. Экономическая кибернетика. Киев: КНЭУ, 2005. – 231с.

30. Ярушкина Н.Г. Основы теории нечетких и гибридных систем. – М.: Финансы и статистика, 2004. – 320с.