Matlab Program to Perform Parseval's Theorem

Matlab Program to Perform Parseval's Theorem:     

clc
clear;
disp('xn sequence')
xn=[4 3 2 1]
disp('yn sequence')
yn=[1 2 3 4]
N=4;
n=0:1:N-1;
s=xn.*yn;
t=sum(s);
disp('sum(xn.yn)');
disp(t);
h=fft(t);
disp('fft of t');
disp(h);
x=fft(xn);
y=fft(yn);
s=conj(y);
T=x.*s;
Z=sum(T)
u=Z/N;
disp('Sum(x*k.y*k)/N=')
disp(u);

Output: