xiongyali_suanfa.m

来自「10组图论编程」· M 代码 · 共 34 行

function [C1]=XiongYaLi_SuanFa(C)

% clear
% clc
% 
% 
% C=[ 4 8 7 15 12;
%     7 9 17 14 10 ;
%     6 9 12 8 7 ;
%     6 7 14 6 10 ;
%     6 9 12 10 6]

Line=0;
[m,n]=size(C);
while  Line<m
    [C,Line,C1,max_b]=Find_DuLiLIngYuan1(C);
end
% 
% C
% C1

% C2=C1

for i=1:m
    for j=1:m
        if C1(i,j)<max_b
            C1(i,j)=0;
        else
            C1(i,j)=1;
        end
    end
end
% C1