function y=vprint(x)
l = length(x);
fprintf('[  ')
for i=1:l
   fprintf('%g  ',x(i))
end
fprintf(']''\n')
