clear variables ;
close all ;
clc ;

A1 = 8 ;
A2 = 5 ;
v1 = 271 ;
v2 = 1147 ;
phi1 = 90 ;
phi2 = 90 ;

td = -10.12*(10^(-3)) ;
tf = 10.12*(10^(-3)) ;
ve = 5000 ;

[t,x,M] = nouvelle_sequence(A1,A2,v1,v2,phi1,phi2,td,tf,ve) ;

figure(1) ;

subplot(1,2,1) ;
stem(t,x,'.') ;
title('Partie réelle de x(t)') ;

subplot(1,2,2) ;
stem(t,imag(x),'.') ;
title('Partie imaginaire de x(t)') ;

figure(2) ;
k = t*ve ;
stem(k,x,'r','.') ;
title('y(k)') ;

TFD = fft(x,512);

figure(3) ;

subplot(2,2,1) ;
plot(-255:256,real(TFD),'g') ;
title('Partie réelle de la TFD de x(t)') ;

subplot(2,2,2) ;
plot(-255:256,imag(TFD),'g') ;
title('Partie imaginaire de la TFD de x(t)') ;

subplot(2,1,2) ;
plot(-255:256,TFD,'g') ;
title('TFD de x(t)') ;