function [Out,freqout]=Anal_Eq(Freq,Spec)
%Input is assumed to be two-sided. The output spectrum is defined by this.
%
%Freq is the frequency range
%Spec is the frequency spectrum over this range.

%generate analytical representation
N=length(Freq)/2;
freqout=Freq(N+1:length(Freq));
Out=2*Spec(N+1:length(Spec));  %scaling of 2


