matlab实现分形图像压缩算法

这个程序是用matlab实现分形图像压缩的算法

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