rle_1_d.asv

来自「RLE=Run Lenght Coding for image.」· ASV 代码 · 共 49 行

function [CR] = RLE_1_d(filename)

fid=fopen(filename,'r');
C=fread(fid);
fclose(fid);

m=C(1)*4;
n=C(2)*4;
C=C(3:length(C));


 D=[]; %vectorul decomprimat
 C=C';
[p,q]=size(C)
C
pause
i=0;
 while i<q
     i=i+1
     if C(i)==255,
         for j=1:C(i+1)
             D=[D C(i+2)];
         end
     i=i+2;
     else D=[D C(i)];         
     end
 end
 
disp('am vectorul decomprimat');
 
E=[]; %imaginea refacuta
for i=1:m,
     for j=1:n,
         %E(i,j)=D(i,n*(j-1)+i);
         E(i,j)=D(n*(i-1)+j);
     end
end
 
P=[];
for i=1:m
        P=[P E(i,:)];
end

G=izigzag(P,m,n)

figure(2)

imagesc(G);