Untitled3.m

%program to find the DFT/IDFT of a sequence without using the inbuilt functions


close all;
clear all;
xn=input('Enter the sequence x(n)'); %Get the sequence from user 
ln=length(xn); %find the length of the sequence
xk=zeros(1,ln); %initialize an array of same size as that of input sequence
ixk=zeros(1,ln); %initialize an array of same size as that of input sequence

%code block to find the DFT of the sequence

i=sqrt(-1);
%-----------------------------------------------------------
for k=0:ln-1
    for n=0:ln-1
        xk(k+1)=xk(k+1)+(xn(n+1)*exp((-i)*2*pi*k*n/ln));
    end
end
%------------------------------------------------------------


%code block to plot the input sequence


%------------------------------------------------------------
t=0:ln-1;
subplot(221);
stem(t,xn);
ylabel ('Amplitude');
xlabel ('Time Index');
%---------------------------------------------------------------




magnitude=abs(xk); % Find the magnitudes of individual DFT points


%code block to plot the magnitude response


%------------------------------------------------------------
t=0:ln-1;
subplot(222);
stem(t,magnitude);
ylabel ('Amplitude');
xlabel ('K');

%------------------------------------------------------------


phase=angle(xk); % Find the phases of individual DFT points


%code block to plot the magnitude sequence


%------------------------------------------------------------
t=0:ln-1;
subplot(223);
stem(t,phase);
ylabel ('Phase');
xlabel ('K');

%------------------------------------------------------------


% Code block to find the IDFT of the sequence


%------------------------------------------------------------
for n=0:ln-1
    for k=0:ln-1
        ixk(n+1)=ixk(n+1)+(xk(k+1)*exp(i*2*pi*k*n/ln));
    end
end


ixk=ixk./ln;
%------------------------------------------------------------


%code block to plot the input sequence


%------------------------------------------------------------
t=0:ln-1;
subplot(224);
stem(t,ixk);
ylabel ('Amplitude');
xlabel ('Time Index');