合并矩阵中相同的列的函数，有没有呢？

以前写过找出矩阵中哪些行相同的，代码如下，你可以参考修改一下。
不过这个程序没有考虑效率优化的问题。

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