function?ret=cbir（H）
[m?n]=size（H）;
L=8;

aw=n/4;ah=3*m/8;

for?i=1:2
????for?j=1:3
????????A（::ij）=H（m/8+（i-1）*ah+1:m/8+i*ahn/8+（j-1）*aw+1:n/8+j*aw）;
????end
end
A7=H（1:m/81:7*n/8）;
A8=H（1:7*m/87*n/8+1:end）;
A9=H（7*m/8+1:endn/8+1:end）;
A10=H（m/8+1:end1:n/8）;
k=1;
for?i=1:2
????for?j=1:3
????MA（:::k）=wccoe（A（::ij）L）;
????k=k+1;
????end
end
MA7=wccoe（A7L）;
MA8=wccoe（A8L）;
MA9=wccoe（A9L）;
MA10=wccoe（A10L）;


for?k=1:6
for?i=1:4
????cA（:ik）=svd（MA（::ik））;
end
end
for?i=1:4
????cA7（:i）=svd（MA7（::i））;
end
for?i=1:4
????cA8（:i）=svd（MA8（::i））;
end
for?i=1:4
????cA9（:i）=svd（MA9（::i））;
end
for?i=1:4
????cA10（:i）=svd（MA10（::i））;
end


ret=cA;
end

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

?????文件????????728??2010-05-23?00:02??CBIR\cbir1.m

?????文件????????443??2010-05-23?09:12??CBIR\cbir2.m

?????文件???????1290??2010-05-23?16:47??CBIR\main.m

?????文件?????843616??2011-02-09?21:31??CBIR\paper_dwt.pdf

?????文件????????644??2010-05-22?23:38??CBIR\wccoe.m

?????目錄??????????0??2011-02-09?21:43??CBIR

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

???????????????846721????????????????????6