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

d1=length(vc1);
d2=length(vc2);

if d1==1 & vc1==0
    vc3=vc1;
    return;
end
if d2==1 & vc2==0
    vc3=vc2;
    return;
end

vc3=uint8(0);

for k1=d1:-1:1
    pc=zeros(1,d2,'uint8'); % pomocne cislo pro mezivysledky
    prenos=0;
    for k2=d2:-1:1
        a=uint16(vc1(k1))*uint16(vc2(k2))+prenos;
        b=mod(a,100);
        prenos=(a-b)/100;
        pc(k2)=uint8(b);
    end
    if prenos>0
        pc=[uint8(prenos), pc];
    end
    pc=[pc zeros(1,d1-k1,'uint8')];
    vc3=secti_vc1(vc3,pc);
end


end

