無向圖鄰接矩陣和關聯矩陣轉換

%% 無向圖鄰接矩陣和關聯矩陣轉換
function w = incandadf(F,f)
%F為輸入無向圖矩陣可以是鄰接矩陣或關聯矩陣
%% 鄰接矩陣轉關聯矩陣
if f == 0
m = sum(sum(F))/2;
n = size(F,1);
w = zeros(n,m);
k = 1;
for i = 1:n
for j =1 : n
if F(i,j) ~= 0
w(i,k) = 1;
w(j,k) = 1;
k = k + 1;
end
end
end
%% 關聯矩陣 陣轉鄰接矩
else if f == 1
m = size(F,2);
n = size(F,1);
w = zeros(n,n);
for i = 1 : m
a = find(F(:,i) ~= 0);
w(a(1),a(2)) = 1;
w(a(2),a(1)) = 1;
end
else
printf('Please right f');
end
w
end