xyasuof.m

基于matlab的小波变换的图象压缩

function ysf=yasuof(A,max)
%压缩幅值数组
ysf=[];j=A(1,1);num=0;
for i=A
   if num+max>32767
      ysf=[ysf,32767];num=1;
   end
   if i>0
      if j==0
         ysf=[ysf,num+max];num=0;ysf=[ysf,i];
      else
         ysf=[ysf,i];
      end
   else
      num=num+1;
   end
   j=i;
end
if num>0
   ysf=[ysf,num+max];
   end
return