分形图像压缩编码的Matlab实现

用matlab开发的分形图像压缩编码的例子

function R=average（Ij）;
%求平均，表示将2（J）*2（J）大小子块的灰度图像中的邻近四像素点灰度求平均抽取，变成2（J-1）*2（J-1）大小的子块。
for k=1:j/2
   for l=1:j/2
      R（kl）=round（（I（2*k-12*l-1）+I（2*k2*l）+I（2*k-12*l）+I（2*k2*l-1））/4）;
   end 
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        260  2002-03-07 16:31  上次的MATLAB文档\average.m

     文件        528  2002-03-05 10:20  上次的MATLAB文档\cal.m

     文件       2069  2002-03-11 10:46  上次的MATLAB文档\code.m

     文件       8921  2002-01-25 11:11  上次的MATLAB文档\data.m

     文件      65536  1998-10-06 21:58  上次的MATLAB文档\GIRL.DAT

     文件       2125  2002-01-29 08:54  上次的MATLAB文档\important.m

     文件        144  2002-03-07 16:22  上次的MATLAB文档\in.m

     文件        513  2002-03-07 14:03  上次的MATLAB文档\leaf.m

     文件      65666  2002-01-22 17:25  上次的MATLAB文档\lena1.tif

     文件        535  2002-03-07 18:55  上次的MATLAB文档\Ln.m

     文件        344  2002-03-07 14:51  上次的MATLAB文档\newleaf.m

     文件       2129  2002-03-11 10:55  上次的MATLAB文档\original_Jaquain.m

     文件        186  2002-03-07 16:15  上次的MATLAB文档\out.m

     文件         39  2002-01-23 14:49  上次的MATLAB文档\pp.m

     文件        729  2002-03-11 12:34  上次的MATLAB文档\recover.m

     文件        656  2002-03-07 21:01  上次的MATLAB文档\rhdp.m

     文件        470  2002-03-11 12:37  上次的MATLAB文档\SNR.m

     目录          0  2009-11-18 20:14  上次的MATLAB文档

----------- ---------  ---------- -----  ----

               150850                    18