matlab - Haar 変換を使用した画像圧縮

Question

私は、Matlab を使用して非可逆画像圧縮のスクリプトを作成する初心者です。

私の最初のステップは、次のスクリプトを使用して、画像の完全なレベルの処理を行うことでした。

clearvars all;
N = 256;

A=imread('test.jpg');
A=double(rgb2gray(A));
A=imresize(A,[N,N],'bicubic');
image(A);axis equal;colormap hsv;%gray(256) ;% display matrix as density plot

B = A;

while N>1

Q = [1 1;1 -1];
I = eye(N/2);
T = 1.414 * kron(I,Q);
II=eye(N)
I1= II(1:2:N,:);
I2=II(2:2:N,:);
P= [I1;I2];
%create transfer matrix N X N
B(1:N,1:N) = P*T*A(1:N,1:N)*T'*P';
%AR(1:N,1:N) = T'*P'*B(1:N,1:N)*P'*T
N = N/2;
end

imagesc(B);
drawnow;

さらに、量子化と対数のしきい値処理を適用し、上位 5% にあるものを保持しながら、絶対値の増加に従って要素を並べ替えたいと考えています。

次のスクリプトはそれを行います:-

cutoff = 80;
% Decide what fraction of coeffs you want to set to % zero, 
% this fraction is the variable ?cutoff?. .....
%(1);imagesc(A);colormap gray(256)
len = 7;
% Wavelet transform A -> B
X = sort(abs(B(:)));
thresh = X( ceil( cutoff*len^2));
maximum=X(len^2);
lmaxt= log2(maximum/thresh);
% Thresholding & Quantization
for i = 1:len
for j = 1:len
    if(abs(B(i,j)) > thresh)
    sign = B(i,j)/abs(B(i,j));
    ln = log2(abs(B(i,j))/thresh);
    q = ceil( 127*ln/lmaxt); Bq(i,j) = sign*q;
else
    Bq(I,j) = 0;
    end
end
end

figure;(2); spy(Bq)

ここで、プロセスを逆にして、haar 係数が 70% に設定された元の画像を取得したいと思います。

どんな指針も素晴らしいでしょう。