Re: [問題] 有關矩陣兩列或兩行互換的程式怎麼寫？已回收
function A=test(A)
s=size(A);
for m=1:min(s)
B=A(m:end,m:end);
ind1=find(B(:,1)==0);
ind2=find(B(:,1)~=0);
for n=1:length(ind2)
if ind2(n)>ind1(1)
tmp=B(ind2(n),:);
tmp2=ind2(n);
B(ind2(n),:)=B(ind1(1),:);
B(ind1(1),:)=tmp;
ind2(n)=ind1(1);
ind1(1)=tmp2;
ind1=sort(ind1);
end
end
ind1=find(B(1,:)==0);
ind2=find(B(1,:)~=0);
for n=1:length(ind2)
if ind2(n)>ind1(1)
tmp=B(:,ind2(n));
tmp2=ind2(n);
B(:,ind2(n))=B(:,ind1(1));
B(:,ind1(1))=tmp;
ind2(n)=ind1(1);
ind1(1)=tmp2;
ind1=sort(ind1);
end
end
A(m:end,m:end)=B;
end
%寫得不好，請指教
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.248.13.33
推
06/19 13:43, , 1F
06/19 13:43, 1F
推
06/19 15:03, , 2F
06/19 15:03, 2F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 7 之 8 篇)：