function [ vc3 ] = secti_vc1( vc1,vc2 )
% function [ vc3 ] = secti_vc1( vc1,vc2 )
% scitani velkych cisel reprezentovanych 
% polem dvojic cifer uloznych v unit8

d1=length(vc1);
d2=length(vc2);
if d1>d2
    vc2=[zeros(1,d1-d2), vc2];
    d3=d1;
else
    vc1=[zeros(1,d2-d1), vc1];
    d3=d2;
end
prenos=uint8(0);
vc3=zeros(1,d3);
for k=d3:-1:1
    pc=vc1(k)+vc2(k)+prenos; % scitame bunky od posledni
    pc1=mod(pc,100);         % pouziejme 2 cifry
    prenos=(pc-pc1)/100;
    vc3(k)=pc1;
end
if prenos>0
     vc3=[1 vc3];
end        

end

