www.pudn.com > Upload_EZW128.zip > transform_128.m

function temp=transform_128(x); 
wname='db1'; 
x=x-128; 
[cA,cH,cV,cD] = dwt2(x,wname); 
[cA1,cH1,cV1,cD1]=dwt2(cA,wname); 
[cA2,cH2,cV2,cD2]=dwt2(cA1,wname); 
temp=[cA2 cH2;cV2 cD2]; 
temp=[temp cH1;cV1 cD1]; 
temp=[temp cH;cV cD]; 
temp=fix(round(temp)); 
return