clear
tic
Image1=imread（‘lena.bmp‘）;

[imagem?imagen]=size（Image1）;
Sr=4;Sd=8;
Rnum=（imagem/Sr）*（imagen/Sr）;
Dnum=（imagem/Sd）*（imagen/Sd）;
Image2=zeros（DnumSrSr）;
Image2=blkproc（Image1[Sd/SrSd/Sr]‘mean（mean（x））‘）;
%?there?are?no??eight?tranformation?for?simpleness
RBlocks=zeros（RnumSrSr）;
DBlocks=zeros（DnumSdSd）;
DBlocksReduce=zeros（Dnum*8SrSr）;
for?i=1:imagem/Sr
????for?j=1:imagen/Sr
????????k=（i-1）*imagen/Sr+j;
????????RBlocks（k::）=Image1（（i-1）*Sr+1:i*Sr（j-1）*Sr+1:j*Sr）;
???????
????end
end
for?i=1:imagem/Sd
????for?j=1:imagen/Sd
????????k=（i-1）*imagen/Sd+j;
????????m=Sr;n=Sr;
????????DBlocksReduce（k::）=Image2（（i-1）*Sr+1:i*Sr（j-1）*Sr+1:j*Sr）;
????????DBlocksReduce（k+Dnum::）=DBlocksReduce（km:-1:1:）;??????????????%?行上下翻轉??y軸方向旋轉180度
????????D

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

?????文件???????5450??2006-02-24?17:11??controlimage1.m

?????文件????????218??2007-01-22?19:53??www.pudn.com.txt

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

?????????????????5668????????????????????2