Занесение в матрицу новых значений элементов

function [Zapis] = Upakovka(matrix)
%UNTITLED2 Summary of this function goes here
%   Detailed explanation goes here
S=0;
E=0; 
M=0;
[m, n] = size(matrix);
 
for i=1:m  
    for j=1:n
        if matrix(i,j) <0 % число отрицательное
            S = '1'; % в бит знака единица
            if abs(matrix(i,j)) <= 496 % если элемент матрицы меньше или равен 496 (если 496/16=31)
           M = dec2bin(abs((round(matrix(i,j)/16))),5); % берем модуль, делим на 16, отсекаем дробную часть
            E = '0'; % в бит порядка ноль
            else
               M = dec2bin(abs((round(matrix(i,j)/16)/32)),5);% берем модуль, делим на 16, дополнительно делим на 32, отсекаем дробную часть 
              E = '1'; % в бит порядка единица
            end; %добавила запятую
            W = bin2dec([S E M]);
           Zapis(i,j) = W % записывам знак, порядок, мантиссу
        else % число положительное
            S = '0'; % в бит знака ноль
            if matrix(i,j) <= 496 % если элемент матрицы меньше или равен 496 (если 496/16=31)
           M = dec2bin(round((matrix(i,j)/16)),5);% делим на 16, отсекаем дробную часть
         E = '0'; % в бит порядка ноль
            else
              M = dec2bin(round(((matrix(i,j)/16)/32)),5); % делим на 16,дополнительно делим на 32, отсекаем дробную часть
            E = '1'; % в бит порядка единица
            end; %добавила запятую
           W = bin2dec([S E M]);
        
        Zapis(i,j) = W % записывам знак, порядок, мантиссу
        end
    end
end
end

function [Zapis,timer] = Upakovka(matrix)
tic()
S=0;
E=0; 
M=0;
[m, n] = size(matrix);
 
for i=1:m  
    for j=1:n
        if matrix(i,j) <0 % число отрицательное
            S = '1'; % в бит знака единица
            if abs(matrix(i,j)) <= 496 % если элемент матрицы меньше или равен 496 (если 496/16=31)
           M = dec2bin(abs((round(matrix(i,j)/16))),5); % берем модуль, делим на 16, отсекаем дробную часть
            E = '0'; % в бит порядка ноль
            else
               M = dec2bin(abs((round(matrix(i,j)/16)/32)),5);% берем модуль, делим на 16, дополнительно делим на 32, отсекаем дробную часть 
              E = '1'; % в бит порядка единица
            end; %добавила запятую
            W = bin2dec([S E M]);
           Zapis(i,j) = W;% записывам знак, порядок, мантиссу
        else % число положительное
            S = '0'; % в бит знака ноль
            if matrix(i,j) <= 496 % если элемент матрицы меньше или равен 496 (если 496/16=31)
           M = dec2bin(round((matrix(i,j)/16)),5);% делим на 16, отсекаем дробную часть
         E = '0'; % в бит порядка ноль
            else
              M = dec2bin(round(((matrix(i,j)/16)/32)),5); % делим на 16,дополнительно делим на 32, отсекаем дробную часть
            E = '1'; % в бит порядка единица
            end; %добавила запятую
           W = bin2dec([S E M]);
        
        Zapis(i,j) = W; % записывам знак, порядок, мантиссу
        end
    end
end
timer = toc()
end