function newData=sumR(Data,R) r=rem(size(Data,1),R);%看行数是否为R的整数倍,rem为取余命令 if r~=0 Data=[Data;zeros(R-r,size(Data,2))];%如果余数不为0,则给原矩阵补R-r行0元素。 end [m n]=size(Data);%此时行数m为R的整数倍 newData=zeros(m/R,n);%创建一个新矩阵存放每R个元素的和 for i=1:n for j=1:m/R newData(j,i)=sum(Data(R*(j-1)+1:R*j,i));%求第i列每R个元素的和。 end end end