function f = f1c(v,k) v_0 = real(ifft(v)); v_x = real(ifft(i*k.*v)); f = v_0.*v_x;