% Name: aliasing.m
%
clear,close all,
t=-8:0.01:8;

w=pi;
ws=6*w/5;
Ts=2*pi/ws;
n=-8/Ts:8/Ts;
x=cos(pi*t);
x1=cos((ws-w)*t-1.2*pi/3);
xn=cos(pi*n*Ts);
subplot(221)
plot(t,x,'r:'),hold on,axis([-8,8,-1.2,1.2]),plot(t,x1,'b')
title('The signal x(t) and its samples x(nT)')
%subplot(223)
stem(2*n/1.2,xn,'k.'),
axis([-8,8,-1.2,1.2])

xlabel('Time t')