function f = f1c(v,k)
%v = real(ifft(v));
v = ifft(v);
f =  (abs(v).^2-1).*v;