Lab 07: CT-Fourier Series
Lab 07: CT-Fourier Series
A, 0 t T0 / 2
f t .
A, T0 / 2 t T0
Answer:
% x(t ) k
jkw0 t
ck e
% c k 1 / T0 T f (t )e
jkw t
0
dt
0
% c0 1 / T0 f (t )dt
T0
echo off
1
Signals and Systems Lab DEE, FURC
clear all
close all
% A script to compute Fourier Series coefficients
of rectangular signal
% x(t) = A for 0=< t <1
% x(t) = -A for 1=< t <2
Problem 1:
A = 2;
T = 2;
len = 400; % play with this value
t = linspace(0, T, len); % or t = 0:0.005:2
f = A*[(t>0).*(t<1) - (t<2).*(t>1)];
% or f= 2*stepfun(1,t).*stepfun(t,0)-
2*stepfun(t,1).*stepfun(2,t)
figure(1)
plot(t,f);
Problem 2:
w0 = 2*pi/T;
c0 = (1/T)*sum((T/len)*f);
K = 10;
for k=1:K
c(k) = (1/T)*sum((T/len)*f.*exp(-j*k*(w0)*t)
end
figure(2)
2
Signals and Systems Lab DEE, FURC
k=0:K;
stem(k,[c0 abs(c)]);
x=c0;
for k = 1:K
x = x+c(k).*exp(j*k*(w0)*t);
end
figure(3)
plot(t,x)
grid
Problem 3:
f = A*[(t>0).*(t<1) - (t<2).*(t>1)]+1;
figure(5)
plot(t,f);
for k=1:K
c(k) = (1/T)*sum((T/len)*f.*exp(-j*k*(w0)*t));
end
figure(6)
k=0:K;
stem(k,[c0 abs(c)]);
x = c0;
3
Signals and Systems Lab DEE, FURC
for k = 1:K;
x = x+c(k)*exp(j*k*w0*t);
end
figure(7)
plot(t,x)
grid
F = abs(fft(f))./(len);
figure(8)
plot(F)