se.m

独特的压缩方法,基于空间向量的压缩方法,压缩比不大但是效果好.

%演示程序，图为固定大小512x512,  （1）
function [z g]=se(f)  %切割图象并调用其他函数过程  相当于主函数
Ar=f(:,:,1);Ag=f(:,:,2);Ab=f(:,:,3);
z=zeros(16,16,6);%z用来存放压缩系数，每小块有6个系数。共16x16x6个。
Ar=double(Ar);Ag=double(Ag);Ab=double(Ab);
Ar1=zeros(32,32);Ag1=zeros(32,32);Ab1=zeros(32,32); %任意小块分量
for i=1:16   %Ang1,Ang2可以根据绿图求出来，不必保存。
    for j=1:16
        Ar1=Ar(((i-1)*32+1):i*32,((j-1)*32+1):j*32);
        Ag1=Ag(((i-1)*32+1):i*32,((j-1)*32+1):j*32);
        Ab1=Ab(((i-1)*32+1):i*32,((j-1)*32+1):j*32);
        [pr1,pr2,pr3,pb1,pb2,pb3]=AC(Ar1,Ag1,Ab1);%传递图象分割后的小块，调用AC函数，取得压缩系数
        z(i,j,1)=pr1;z(i,j,2)=pr2;z(i,j,3)=pr3;z(i,j,4)=pb1;z(i,j,5)=pb2;z(i,j,6)=pb3;
    end
end
g=CA1(Ag,z);