function [ vysl ] = mocnina_vc_d(vc,n )
% function [ vysl ] = mocnina_vc_d(vc,n )
% vc^n

vysl=uloz_vc_d('1');
pvc=vc;

while n>0
    zb=mod(n,2);
    if zb
        vysl=nasob_vc_d(vysl,pvc);
    end
    n=floor(n/2);
    if n>0
        pvc=nasob_vc_d(pvc,pvc);
    end
end

end

