29 lines
461 B
Matlab
29 lines
461 B
Matlab
function [Hrows Hcols] = Mat2Hrows(HRA, RAmode);
|
|
|
|
H = full(HRA);
|
|
[Nr Nc] = size(H);
|
|
|
|
if nargin==1, RAmode = 1; end;
|
|
|
|
if RAmode==1
|
|
H= H(:,1:Nc-Nr);
|
|
[Nr Nc] = size(H);
|
|
end
|
|
|
|
Max_colwt = max(sum(H));
|
|
Max_rowwt = max(sum(H'));
|
|
Hcols = zeros(Nc, Max_colwt);
|
|
Hrows = zeros(Nr, Max_rowwt);
|
|
|
|
for i = 1:Nr
|
|
nz = find(H(i,:));
|
|
Hrows(i,1:length(nz)) = nz;
|
|
end
|
|
|
|
H = H';
|
|
for i = 1:Nc
|
|
nz = find(H(i,:));
|
|
Hcols(i,1:length(nz)) = nz;
|
|
end
|
|
|