function [ ret ] = vc2ret_d( vc )
% function [ ret ] = vc2ret_d( vc )
%  prevod velkeho cisla reprezentovane 
% polem dvojic cifer uloznych v double
% na textovy retezec

l=6;
d=length(vc);
ret=num2str(vc(1));
for k=2:d
    s1=num2str(vc(k));
    while length(s1)<l, s1=['0',s1]; end
    ret=[ret,s1];
end

end

