function y = vconv(x,y)
%%%vector conculution
A=fft(x);
B=fft(y);
N=length(x);
y =ifft(A.*B)/sqrt(N)   ;