ezw.asv

改进版ezw编码

function y=ezw(DecIm,codeDim)
% function [scancode,quantiflag]=ezwCoder(DecIm,dim)
global row col
[row,col]=size(DecIm);
% ----- Wavedec -----%
% DecIm=mywavedec2(Im,decdim);
% ----- Select threshold -----%
MaxDecIm=max(max(abs(DecIm)));
T=zeros(1,codeDim);
T(1)=2^flor(log2(MaxDecIm));
for i=2:codeDim
    T(i)=T(i-1)/2;
end
% ----- EZW coding -----%
[CodeList,LenSubCL,QuantiFlagList,LenSubQFL,IntervalList]=ezwcode(DecIm,T,codeDim)
% ----- EZW decoding -----%
% DecodeMat=ezwdecode(DecIm,T(1),decodeDim,CodeList,LenSubCL,QuantiFlagList,LenSubQFL,IntervalList);