www.gusucode.com > 自己编写的一个基于matlab的图像压缩程序,有GUI界面,不能程度的压缩效果以及信噪比 > 自己编写的一个基于matlab的图像压缩程序,有GUI界面,不能程度的压缩效果以及信噪比/BP神经网络的图像压缩/wavelets压缩/RLC.m
function [code]=RLC(origin) [origin_length,origin_width]=size(origin); code(1,1:2)=[origin_length,origin_width]; code_index=3; for j=1:64 for i=1:64 code(code_index)=origin(i,j); code_index=code_index+1; end end origin_tr(1:64,1:64)=63; origin(1:64,1:64)=origin_tr; h=0; for j=1:origin_width/2; h=0; for i=1:origin_length/2; code_contain=origin(i,j); if(1==i) code_value=origin(i,j); formervalue=code_value; codenumber=1; else if (code_contain==formervalue) if(i~=origin_length/2) codenumber=codenumber+1; else code(code_index)=codenumber+1; code(code_index+1)=formervalue; code_index=code_index+2; end else if(i~=origin_length/2) code(code_index)=codenumber; code(code_index+1)=formervalue; formervalue=code_contain; codenumber=1; code_index=code_index+2; else code(code_index)=codenumber; code(code_index+1)=formervalue; codenumber=1; code_index=code_index+2; code(code_index)=1; code(code_index+1)=code_contain; code_index=code_index+2; end end end end [m,n]=size(code); for k=4099:2:n h=h+code(k); end if (mod(h,256)~=0) j return; end end