from Listless SPECK (LSk) by Ravi Lakkundi
Listless Speck Codec

bit=input_bit
function bit=input_bit
load filename output
global kj seqt map mee P

if kj==8*512 | kj==8*1024 | kj==8*2048
    rec=round(reshape(seqt(map(:)),128,128));    
    xr=syntw2d(rec,1,4);
    figure,imshow(mat2gray(fix(xr+mee)))
    [snr mse]=psnr(P,fix(xr+mee))
end

bit=output(kj);
kj=kj+1;

Contact us at files@mathworks.com