expert2.mws

Функция принадлежности нечеткого множества

 По книге Штовба С.Проектирование нечетких систем средствами MATLAB

>    restart;Digits:=5:

>    n:=4:

>    with(linalg):

Уровни преимущества по 9 бальной шкале Саати

>    A:=Matrix(n,[[],[4],[5,3],[9,5,6]]):

>    for i to n do A[i,i]:=1.:od:

>    for i to n-1 do

>     for j from i+1 to n do

>    A[i,j]:=1/A[j,i]:

>    od:od:

>    A;

>    Z:=eigenvectors(A);

Собственное число и вектор 1
Собственное число и вектор 2
Собственные числа и вектора 3,4

>    k:=3: # Номер максимального собственного числа

>    Delta:=Z[k][1]-n;# мера несогласованности экспертизы

Delta := .2885

>    s:=add(op(Z[k][3])[i],i=1..n);# сумма

>    seq(op(Z[k][3])[i]/s,i=1..n); # нормируем

s := -.47820

.42419e-1, .11113, .19874, .64772