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

l=6;
base=10^l;
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=0;
vc3=zeros(1,d3);
for k=d3:-1:1
    pc=vc1(k)+vc2(k)+prenos; % scitame bunky od posledni
    pc1=mod(pc,base);        % pouziejme l cifer
    prenos=(pc-pc1)/base;
    vc3(k)=pc1;
end
if prenos>0
     vc3=[1 vc3];
end        

end

