合并矩阵中相同的列的函数，有没有呢？
请问将矩阵中相同的列合并的函数，有没有呀？例如，A＝2 2 2 1 1 1 1 2 3 1
1 1 1 2 2 2 3 3 3 1
1 1 1 1 1 1 1 1 1 2
1 1 1 1 1 1 1 1 1 1
通过什么函数，是的去掉重复的列呢？
使得 A＝
2 1 1 2 3 1
1 2 3 3 3 1
1 1 1 1 1 2
1 1 1 1 1 1
[此贴子已经被作者于2006-7-12 21:03:53编辑过]
以前写过找出矩阵中哪些行相同的，代码如下，你可以参考修改一下。
不过这个程序没有考虑效率优化的问题。
function a=samerow(A)
%这个程序用于找出矩阵 A 中具有相同的行
%返回值为元胞数组
[m,n]=size(A);
tempcorder = [];
atemp=cell(m,1);
for k1=1:m
if(isempty(find(tempcorder ==k1)))
temp=[k1];
for k2=k1+1:m
con=A(k1,:)-A(k2,:);
if norm(con)==0
temp=[temp,k2];
end
end
tempcorder =[ tempcorder temp];
atemp{k1}=temp;
end
end
% 删除atemp中的空的元胞
num=1;
for k1=1:m
if(~isempty(atemp{k1}))
a(num)=atemp(k1);
num=num+1;
end
end
调用的时候：
>> A = [2 2 2 1 1 1 1 2 3 1
1 1 1 2 2 2 3 3 3 1
1 1 1 1 1 1 1 1 1 2
1 1 1 1 1 1 1 1 1 1
]
>> A = A';
>> A
A =
2 1 1 1
2 1 1 1
2 1 1 1
1 2 1 1
1 2 1 1
1 2 1 1
1 3 1 1
2 3 1 1
3 3 1 1
1 1 2 1
>> a = samerow(A)
a =
[1x3 double] [1x3 double] [7] [8] [9] [10]
>> a{1}
ans =
1 2 3
>> a{2}
ans =
4 5 6
