% this script is for frequency signal generation

function s=steervec(fre, order);

% fre: frequency components.
% order: vector length


jay=sqrt(-1);

s=exp(jay*2*pi*fre*[0:order-1]).';

