1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| //EQUATION RECURRENTE DU PASSE-BAS D'ORDRE UN
//-------------------------------------------
T=0.01;// Période d'échantillonnage
tau=0.9;// Constante de temps
beta=exp(-T/tau);
alpha=1-beta;
xmin=1;xmax=2000;
//
//INITIALISATION
//--------------
e=ones(1,xmax);// Signal d'entrée : Echelon
s=0;enm1=0;
//
//EQUATION RECURRENTE
//--------------------
//
// Filtre
for i=xmin:xmax;
s(i)=alpha*e(i)+beta*enm1;
enm1=s(i);// Vieillissement
end;
//
//TRACE
//-----
xset("colormap",[1 0 0]);
i=[1:xmax];
plot(i,s(i));
xset("colormap",[0 1 0]);
xgrid();
xtitle("PASSE BAS ORDRE UN","nT","Sn"); |
Partager