Matlab用于图像编码和解码处理

 clear

    
 clc
    
 I=imread('lena.bmp');
    
 I=im2double(I)*255;
    
 [height,width]=size(I);				%求图像的大小
    
 HWmatrix=zeros(height,width);
    
 Mat=zeros(height,width);				%建立大小与原图像大小相同的矩阵HWmatrix和Mat，矩阵元素为0。
    
 HWmatrix(1,1)=I(1,1);				%图像第一个像素值I(1,1)传给HWmatrix(1,1)
    
 for i=2:height						%以下将图像像素值传递给矩阵Mat
    
     Mat(i,1)=I(i-1,1);
    
 end
    
 for j=2:width
    
     Mat(1,j)=I(1,j-1);
    
 end
    
 for i=2:height						%以下建立待编码的数组symbols和每个像素出现的概率矩阵p