// Исходные данные

alts_n = evstr(x_dialog('Кол-во альтернатив', '5'));
alts = ['Киевстар', 'Водафон', 'Лайфцел', 'ТриМоб', 'Билайн'];
alts = x_dialog('Альтернативы:', alts);

crits_n = evstr(x_dialog('Кол-во критериев', '5'))'
crits = ['Популярность', 'Обслуживание', 'Стоимость тарифа (в месяц)', 'Количество мб/мин', 'Стабильность работы',];
crits = x_dialog('Критерии', crits);

L = evstr(x_dialog('Максимальное значение шкалы', '20'));
crits_weights = [17 19 18 20 19];
crits_weights = x_matrix('Весовой параметр каждого критерия', crits_weights);

crits_matrix = [20 19 17 10 17;
                16 17 14 10 19;
                18 16 19 20 18;
                12 19 10 17 20;
                16 18 17 13 19];
crits_matrix = x_matrix('Матрица критериев:', crits_matrix);
alts_conf = zeros(crits_n, (alts_n * alts_n - alts_n))

C = 0.5;
d = 0.4;

f1 = figure(); // Создание графического объекта
set(f1, 'position', [0, 0, 620, 827]); // Размер окна

uicontrol('style', 'text', ..
          'position', [10, 797, 600, 20], ..
          'string', 'Матрица критериев');

table = ["" alts' "Веса"; [crits string(crits_matrix(:, 1)) string(crits_matrix(:, 2)) string(crits_matrix(:, 3)) string(crits_matrix(:, 4)) string(crits_matrix(:, 5)) string(crits_weights')]];

uicontrol('style', 'table', ..
          'string', table, ..
          'position', [10 660 600 127]);

// Сравнение конфигураций

alts_conf = zeros(crits_n, (alts_n * alts_n - alts_n));
k = 0;
for j = 1 : alts_n
    for i = 1 : alts_n
        if j <> i then
            k = k + 1;
            for m = 1 : crits_n
                if crits_matrix(m, j) > crits_matrix(m, i) then
                    alts_conf(m, k) = 1;
                elseif crits_matrix(m, j) == crits_matrix(m, i) then
                    alts_conf(m, k) = 0;
                elseif crits_matrix(m, j) < crits_matrix(m, i) then
                    alts_conf(m, k) = -1;
                end
            end
        end
    end
end

uicontrol('style', 'text', ..
          'position', [10, 630, 600, 20], ..
          'string', 'Сравнение конфигураций (-1 <, 0 =, 1 >)');

table = ["" string([1 2 3 4 5 6]); [["AB"; "AC"; "AD"; "AE"; "BA"; "BC"; "BD"; "BE"; "CA"; "CB"; "CD"; "CE"; "DA"; "DB"; "DC"; "DE"; "EA"; "EB"; "EC"; "ED"] string(alts_conf'(:, 1)) string(alts_conf'(:, 2)) string(alts_conf'(:, 3)) string(alts_conf'(:, 4)) string(alts_conf'(:, 5)) string(alts_conf'(:, 6))]];

uicontrol('style', 'table', ..
          'string', table, ..
          'position', [10 493 600 127]);

// Расчёт матрицы несогласия

disagree_matrix = zeros(alts_n, alts_n);
is_equal = 0;
step = 1;
for j = 1 : alts_n
    for i = 1 : alts_n
        if j <> i then
            for m = 1 : crits_n
                if alts_conf(m, step) == -1 then
                    x = j;
                    y = i;
                    is_equal = 1;
                end
                if is_equal == 1 then
                    d = abs(((crits_matrix(m, y) - crits_matrix(m, x)) / L));
                    disagree_index(m, 1) = d;
                    disagree_index(m, 2) = x;
                    disagree_index(m, 3) = y;
                    disagree_matrix(disagree_index(m, 2), disagree_index(m, 3)) = max(disagree_index(:, 1));
                    is_equal = 0;
                end
            end
            step = step + 1;
        end
        disagree_index = zeros(crits_n, 3);
    end
end
// disp(disagree_matrix, 'Матрица несогласия');

uicontrol('style', 'text', ..
          'position', [10, 463, 600, 20], ..
          'string', 'Матрица несогласия');

alts_aliases = ["A" "B" "C" "D" "E"];

table = [["" alts_aliases]; [alts_aliases' string(disagree_matrix(:, 1)) string(disagree_matrix(:, 2)) string(disagree_matrix(:, 3)) string(disagree_matrix(:, 4)) string(disagree_matrix(:, 5))]];

uicontrol('style', 'table', ..
          'string', table, ..
          'position', [10 342 600 111]);

// Расчёт матрицы согласия и подмножеств I+, I=, I

 agree_matrix = zeros(alts_n, alts_n);

    // ВЫЧИСЛЕНИЕ СУММЫ ВЕСОВ КРИТЕРИЕВ ПОДМНОЖЕСТВА I+
    sum_plus = zeros(alts_n, alts_n);
    equals_flag = 1;
    step = 1;

    for j = 1 : alts_n
        for i = 1 : alts_n
           if j<>i then
               for m = 1 : crits_n
                   agree_index = zeros(crits_n, 3);
                   if ( alts_conf(m, step) == 1 ) then
                      x = j;
                      y = i;
                      equals_flag = 0;
                   end
                   if equals_flag == 0 then
                      d = crits_weights(m);
                      agree_index_temporary(m, 1) = d;
                      agree_index_temporary(m, 2) = x;
                      agree_index_temporary(m, 3) = y;
                      equals_flag = 1;
                      element_plus = sum(agree_index_temporary(:, 1));
                      sum_plus(x, y) = element_plus;
                      equals_flag = 1;
                   end
               end
               step = step + 1;
           end
           agree_index_temporary = zeros(crits_n, 3);
        end
    end
    disp(sum_plus, 'Cуммы весов критериев подмножества I+');

    // ВЫЧИСЛЕНИЕ СУММЫ ВЕСОВ КРИТЕРИЕВ ПОДМНОЖЕСТВА I-
    sum_minus = ones(alts_n, alts_n);
    equals_flag = 1;
    step = 1;

    for j = 1 : alts_n
        for i = 1 : alts_n
           if j<>i then
               for m = 1 : crits_n
                   agree_index = zeros(crits_n, 3);
                   if ( alts_conf(m, step) == -1 ) then
                      x = j;
                      y = i;
                      equals_flag = 0;
                   end
                   if equals_flag == 0 then
                      d = crits_weights(m);
                      disagree_indexTemp(m, 1) = d;
                      disagree_indexTemp(m, 2) = x;
                      disagree_indexTemp(m, 3) = y;
                      equals_flag = 1;
                      elementsum_minus = sum(disagree_indexTemp(:, 1));
                      sum_minus(x, y) = elementsum_minus;
                      equals_flag = 1;
                   end
               end
               step = step + 1;
           end
           disagree_indexTemp = zeros(crits_n, 3);
        end
    end
    disp(sum_minus, 'Cуммы весов критериев подмножеств I- ');

    agree_matrix =  sum_plus ./ sum_minus;

uicontrol('style', 'text', ..
          'position', [10, 312, 600, 20], ..
          'string', 'Матрица согласия');

table = [["" alts_aliases]; [alts_aliases' string(agree_matrix(:, 1)) string(agree_matrix(:, 2)) string(agree_matrix(:, 3)) string(agree_matrix(:, 4)) string(agree_matrix(:, 5))]];

uicontrol('style', 'table', ..
          'string', table, ..
          'position', [10 191 600 111]);

// Вычисление превосходства альтернатив и выбор лучшей альтернативы

// Матрица превосходства
superior_alts = zeros(alts_n, alts_n);
for i = 1 : alts_n
    for j = 1 : alts_n
        if agree_matrix(i, j) >= C & disagree_matrix(i, j) <= d then
            superior_alts(i, j) = 1;
        end
    end
end
// disp(superior_alts, 'Матрица превосходства вариантов');

uicontrol('style', 'text', ..
          'position', [10, 161, 600, 20], ..
          'string', 'Матрица превосходства вариантов');

table = [["" alts_aliases]; [alts_aliases' string(superior_alts(:, 1)) string(superior_alts(:, 2)) string(superior_alts(:, 3)) string(superior_alts(:, 4)) string(superior_alts(:, 5))]];

uicontrol('style', 'table', ..
          'string', table, ..
          'position', [10 40 600 111]);

// Выбор лучшей альтернативы

best_alt = zeros(1, alts_n);
best_alt = sum(superior_alts, 'c');
max_best_alt = max(best_alt);

disp('------------------------------');
disp('Результат:');
for i = 1 : alts_n
    disp(best_alt(i), alts(i));
end
disp('------------------------------');
disp('Лучшая альтернатива:');
for i = 1 : alts_n
    if best_alt(i) == max_best_alt then
        disp(max_best_alt, alts(i));
        answer = alts(i);
        break;
    end
end

uicontrol('style', 'text', ..
          'position', [10, 10, 600, 20], ..
          'string', 'Лучшая альтернатива - ' + answer);