% rendszer gerjesztése különböző vizsgáló jelekkel
b1=[1 1];
b2=[1 0 1];
b3=[1 0 -1];
b4=[1 0 2 0 1];
b5=[-1 0 2 0 -1];
b=b5;               %szűrő kijelölés
pont=4096;
t=1:pont;
%
x=rand(1,pont)-.5;     %gerjesztés 'fehér' zajjal
%x=sin(t.*t/pont*pi);   %gerjesztés lineárisan növekvő frekvenciájú jellel
%x=zeros(1,4096);x(1)=1; %gerjesztés egység impulzussal
y=filter(b,1,x);
figure(1)
Y=abs(fft(y));
plot(t(1:2048)/2048,Y(1:2048))
%plot(y)