clear?all
close?all
x=imread（‘lena512.bmp‘）
figure?imshow（x）;
image（x）;
setfig（1）;?
colormap（gray（256））
axis（‘off‘）;
axis（‘image‘）;
%?draw（xx）;?
title（‘Input?（512?x?512）‘‘FontSize‘14）;?drawnow
settitle（‘Input‘）;
drawnow
Orig_I?=?double（x）;
rate?=?1;

OrigSize?=?size（Orig_I?1）;
max_bits?=?floor（rate?*?OrigSize^2）

[nRow?nColumn]?=?size（Orig_I）;
fprintf（‘done!\n‘）;
fprintf（‘-----------???Wavelet?Decomposition???----------------\n‘）;
[YlYh]?=?dtwavexfm2（x3‘near_sym_b‘‘qshift_b‘）;
fprintf（‘done!\n‘）;
type?=?‘bior4.4‘;
[Lo_DHi_DLo_RHi_R]?=?wfilters（type）;

[I_W?S]?=?func_DWT（Orig_I?3?Lo_D?Hi_D）;

fprintf（‘-----------???Encoding???----------------\n‘）;
img_enc?=?func_SPIHT_Enc（I_W?max_bits?nRow*nColumn?2）;?
figure;
setfig（gcf）;?
colormap（gray（2

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

????.CA....??????1680??2010-01-04?10:34??DTCWT.m

-----------?---------??----------?-----??----

?????????????????1680????????????????????1