reduce_size.m

MATLAB Code for Optimal Quincunx Filter Bank Design Yi Chen July 17, 2006 This file introduces t

function [y, ny] = reduce_size(y, ny, esp)
% remove small coefficients with absolute value less than esp 
% and revise the index of the element at the upperleft corner
% Copyright (c) 2006 Yi Chen

y = y.*(abs(y) > esp);

if y == 0
    y = 0;
else    % remove extra zeros
    sizey = size(y);
    while(sum(abs(y(sizey(1),:)))==0)
        y = y(1:sizey(1)-1,:);
        sizey = size(y);
    end
    
    while(sum(abs(y(1,:)))==0)
        sizey = size(y);
        y = y(2:sizey(1),:);
        ny(1) = ny(1) + 1;
    end
    
    sizey = size(y);
    while(sum(abs(y(:,sizey(2))))==0)
        y = y(:,1:sizey(2)-1);
        sizey = size(y);
    end
    
    while(sum(abs(y(:,1)))==0)
        sizey = size(y);
        y = y(:,2:sizey(2));
        ny(2) = ny(2) + 1;    
    end    
end