display.m

来自「多小波图像压缩处理」· M 代码 · 共 40 行

function display(S)


n = size(S);

if (length(n) <= 2)
% standard display
    if isequal(get(0,'FormatSpacing'),'compact')
	disp([inputname(1) ' =']);
	disp(S)
    else
	disp(' ')
	disp([inputname(1) ' =']);
	disp(' ');
	disp(S)
    end
    return
end

h = n(3:end);
nh = length(h);
hstep = [1,cumprod(h)];
for i = 1:prod(h)
% generate index
    ind = index(h,i);
    if ~isequal(get(0,'FormatSpacing'),'compact')
	disp(' ');
    end
    subscript = '(:,:';
    for j = 1:nh
	subscript = [subscript,',',num2str(ind{j})];
    end
    subscript = [subscript,') ='];
    disp([inputname(1),subscript]);
    disp(S(:,:,ind{:}))
    if ~isequal(get(0,'FormatSpacing'),'compact')
	disp(' ');
    end
end