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

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с.