Додатки
Додаток А
Програма розрахунку узагальнюючих оцінок пріоритетності за допомогою МАІ
PROGRAM nat;
Uses DOS,CRT;
VAR
A,AS : array [1..20,1..20] of real;
B,C,CSS,L : array [1..20] of real;
I, J,N : integer;
CS,Lmax,IU,SVU,VU : real; wh : char;
BEGIN
{ Уведення матриці А }
TextBackGround( 1);
TextColor(15);
ClrScr;
writeln; writeln;
write(' Введіть розмірність матриці N = ');
readln(N);
for I:=1 to N do
for J:=1 to N do begin write (' A[',I,',',J,']= '); readln (A[I,j]);
end;
writeln;
ClrScr; writeln;writeln; writeln(' Матриця А :'); for I:=1 to N do begin write (' '); for J:=1 to N do write (A[I,J]:8:3); writeln
end;
wh:=ReadKey;
{ Розрахунок матриці В - сума по стовпцях } for J:=1 to N do begin B[J]:=0;
for I:=1 to N do B[J]:=B[J]+A[I,J]; end;
{ Розрахунок матриці AS} for I:=1 to N do
йог І:=1 1о N ^
Л8[І,І]:=Л[І,І]/Б[І];
{ Розрахунок матриці С - сума по рядках матриці Л8 } йог І:=1 1о N do begin С[І]:=0;
йог І:=1 ю N do С[І]:=С[І]+Л8[ІД]; end;
{ Сума рядків матриці С - С8 }
С8:=0;
йог І:=1 1о N do С8:=С8+С[І]; wгiteln;
{ Нормалізований вектор пріоритету - С88=С/С8} йог І:=1 to N do С88[І]:=С[І]/С8;
wгiteln(' Нормалізований вектор пріоритету - С88:'); йог І:=1 to N do wгiteln(' ',С88[І]:8:3); wh:=ReadKey;
{ Знаходження матриці Ь=Б*С88 } йог І:=1 to N do Ь[І]:=Б[І]*С88[І]; wгiteln;
{ Сума рядків матриці Ь - Ьшах }
Ьшах:=0;
йог І:=1 to N do Ьшах:=Ьшах+Ь[І];
{ Індекс узгодженості - Іи = Lшax-N / N-1 } ІИ:=(Ьшах^)/^-1);
{ Середнє відношення узгодженості - 8УИ }
if N=1 then SVU |
=0; |
if N=2 then SVU |
=0; |
if N=3 then SVU |
=0.58; |
if N=4 then SVU |
=0.9; |
if N=5 then SVU |
=1.12; |
if N=6 then SVU |
=1.24; |
if N=7 then SVU |
=1.32; |
if N=8 then SVU |
=1.44; |
if N=9 then SVU |
=1.45; |
if N=10 then SVU:=1.49; |
{ Розрахунок відношення узгодженості - VU } VU:=(IU/SVU)*100;
writeln(' Відношення узгодженості :'); writeln(' VU = ',VU:8:0,' %'); wh:=ReadKey
END.
Додаток Б
Коефіцієнти нарахування процентів до підрозділу 5.8
і = 1,5%
п |
(1 + оп |
1 |
(1 +і )п -1 і |
і |
і(1 + і)п |
(1 +і )п -1 |
(1+і )п |
(1 + і')П -1 |
(1 +і )п -1 |
і(1 + і)п |
|||
1 |
2 |
3 |
4 |
5 |
6 |
7 |
1 |
1,015 |
0,9852 |
1,0000 |
1,0000 |
1,0150 |
0,985 |
2 |
1,030 |
0,9707 |
2,015 |
0,4963 |
0,5113 |
1,956 |
3 |
1,046 |
0,9563 |
3,045 |
0,3284 |
0,3434 |
2,912 |
4 |
1,061 |
0,9422 |
4,091 |
0,2444 |
0,2594 |
3,854 |
5 |
1,077 |
0,9283 |
5,152 |
0,1941 |
0,2091 |
4,783 |
6 |
1,093 |
0,9145 |
6,230 |
0,1605 |
0,1755 |
5,697 |
7 |
1,110 |
0,9010 |
7,323 |
0,1366 |
0,1516 |
6,598 |
8 |
1,126 |
0,8877 |
8,433 |
0,1186 |
0,1336 |
7,486 |
9 |
1,143 |
0,8746 |
9,559 |
0,1046 |
0,1196 |
8,361
» следующая страница » |