function [ret] = VC_ret(VC)
% function [ret] = VC_ret(VC)
% Prevod velkeho cisla na retezec

ret=[];
n=length(VC);
for k=1:n-1;
    s1=num2str(VC(k));
    n1=length(s1);
    if n1<9
        s1=[char('0'*ones(1,9-n1)), s1];
    end
    ret=[s1, ret];
end
s1=num2str(VC(n));
ret=[s1, ret];
end % funkce

