BVTA - B

function [O1, O2, O3, O4] = kozubik (M1, M2, M3, M4, M5, Img1);

%pr1
a = Img1{2};
m = Img1{1,1};
r = m(a,:);
g = Img1{1,3}{1,1};

for i = 1:size(M1,2)
   if r(i) == 1
        M1(:,i) = flipud(M1(:,i));
   end
end
M1 = rot90(M1,g);
O1 = M1;

clear g
clear r
clear a
clear m



%pr2
d=[];
r= min(M2,[], 2);
for i = 1 : size(r)
    if (r(i) > 190) && (r(i) < 2000)
        d = [d i];
    end
end
M2(d,:) = [];
O2 = M2 - 2500;


%pr.3
O3 = zeros(size(M3))
O3(1:96,1:96) = tril(ones(96,96)+4,-1)+triu(ones(96,96)+3,1);
O3(97:192,1:96) = fliplr(triu(ones(96)+4,1));
O3(97:192,97:192) = triu(ones(96)+2,1);
O3(1:96,97:192) = fliplr(tril(ones(96)+2,-1)+triu(ones(96)+3,1));
O3 = M3 - O3;

%pr4
tmp4 = mat2cell(M4,size(M4,1)/3*ones(3,1),size(M4,1)/3*ones(3,1));
tmp5 = mat2cell(M5,size(M5,1)/3*ones(3,1),size(M5,1)/3*ones(3,1));
tmp4{2} = tmp4{7};
tmp4{4} = tmp4{3};
tmp4{3} = tmp4{5};
tmp4{5} = tmp4{1};
tmp4{1} = tmp4{9}
tmp4{6} = tmp5{7};
tmp4{7} = tmp5{5};
tmp4{8} = tmp5{3};
tmp4{9} = tmp5{1};
O4 = cell2mat(tmp4);



end