im_encode.m

i hope use every file i put here to evry one and thank >

function [code,cols] = im_encode(data)

s = size(data);
rows = s(1);
cols = s(2);

y = zeros(1,rows * cols);

index = 1;

for k = 1:rows
    y(index:(index + cols) - 1) = data(k,:);
    index = index + cols;
end

len = length(y);

code = zeros(1,len * 8);

index = 1;

for k = 1:len
    c = de2bi(y(k),8);
    code(index:index + 7) = c;
    index = index + 8;
end