function [Out,freqout]=Chan_out(Freq,In,fc)
%generates the output spectrum of the signal 
%
%Freq=frequencies of interest
%In=input spectum

freqout=Freq+fc;
freqout=[-fliplr(freqout) freqout];
Out=[conj(fliplr(In)) In] /2;
