Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function [ ] = zad4()
- fs = 8000;
- f0 = 1000;
- r1 = 0;
- r2 = 0.5;
- r3 = 0.9;
- r4 = 1;
- r5 = 1.1;
- r6 = 2;
- r7 = 3;
- b1 = [1, -2*cos(2*pi*f0/fs), 1];
- a1 = [1, -2*r1*cos(2*pi*f0/fs), r1*r1];
- b2 = [1, -2*cos(2*pi*f0/fs), 1];
- a2 = [1, -2*r2*cos(2*pi*f0/fs), r2*r2];
- b3 = [1, -2*cos(2*pi*f0/fs), 1];
- a3 = [1, -2*r3*cos(2*pi*f0/fs), r3*r3];
- b4 = [1, -2*cos(2*pi*f0/fs), 1];
- a4 = [1, -2*r4*cos(2*pi*f0/fs), r4*r4];
- b5 = [1, -2*cos(2*pi*f0/fs), 1];
- a5 = [1, -2*r5*cos(2*pi*f0/fs), r5*r5];
- b6 = [1, -2*cos(2*pi*f0/fs), 1];
- a6 = [1, -2*r6*cos(2*pi*f0/fs), r6*r6];
- b7 = [1, -2*cos(2*pi*f0/fs), 1];
- a7 = [1, -2*r7*cos(2*pi*f0/fs), r7*r7];
- [h12, t12] = freqz(b1,a1);
- [h22, t22] = freqz(b2,a2);
- [h32, t32] = freqz(b3,a3);
- [h42, t42] = freqz(b4,a4);
- [h52, t52] = freqz(b5,a5);
- [h62, t62] = freqz(b6,a6);
- [h72, t72] = freqz(b7,a7);
- figure('name','6.4a Charakterystyka amplitudowa, f_0=1000Hz');
- hold on;
- plot(t12*fs/(2*pi),20*log10(abs(h12)),':', t22*fs/(2*pi),mag2db(abs(h22)), t32*fs/(2*pi), mag2db(abs(h32)),':', t42*fs/(2*pi), mag2db(abs(h42)), t52*fs/(2*pi),mag2db(abs(h52)), t62*fs/(2*pi),mag2db(abs(h62)), t72*fs/(2*pi), mag2db(abs(h72)),':');
- hold off
- xlabel('Czêstotliwoæ[Hz]');
- ylabel('Magnituda[dB]');
- ylim([-70 10]);
- title('Charakterystyka amplitudowa, f_0=1000Hz');
- legend('r = 0','r = 0.5','r = 0.9','r = 1', 'r = 1.1', 'r = 2', 'r = 3');
- legend('Location','southeast');
- grid on;
- f1 = 2000;
- r1 = 0;
- r2 = 0.5;
- r3 = 0.9;
- r4 = 1;
- r5 = 1.1;
- r6 = 2;
- r7 = 3;
- b1 = [1, -2*cos(2*pi*f1/fs), 1];
- a1 = [1, -2*r1*cos(2*pi*f1/fs), r1*r1];
- b2 = [1, -2*cos(2*pi*f1/fs), 1];
- a2 = [1, -2*r2*cos(2*pi*f1/fs), r2*r2];
- b3 = [1, -2*cos(2*pi*f1/fs), 1];
- a3 = [1, -2*r3*cos(2*pi*f1/fs), r3*r3];
- b4 = [1, -2*cos(2*pi*f1/fs), 1];
- a4 = [1, -2*r4*cos(2*pi*f1/fs), r4*r4];
- b5 = [1, -2*cos(2*pi*f1/fs), 1];
- a5 = [1, -2*r5*cos(2*pi*f1/fs), r5*r5];
- b6 = [1, -2*cos(2*pi*f1/fs), 1];
- a6 = [1, -2*r6*cos(2*pi*f1/fs), r6*r6];
- b7 = [1, -2*cos(2*pi*f1/fs), 1];
- a7 = [1, -2*r7*cos(2*pi*f1/fs), r7*r7];
- [h12, t12] = freqz(b1,a1);
- [h22, t22] = freqz(b2,a2);
- [h32, t32] = freqz(b3,a3);
- [h42, t42] = freqz(b4,a4);
- [h52, t52] = freqz(b5,a5);
- [h62, t62] = freqz(b6,a6);
- [h72, t72] = freqz(b7,a7);
- figure('name','6.4a Charakterystyka amplitudowa , f_0=2000Hz');
- hold on;
- plot(t12*fs/(2*pi),20*log10(abs(h12)),':', t22*fs/(2*pi),mag2db(abs(h22)), t32*fs/(2*pi), mag2db(abs(h32)),':', t42*fs/(2*pi), mag2db(abs(h42)), t52*fs/(2*pi),mag2db(abs(h52)), t62*fs/(2*pi),mag2db(abs(h62)), t72*fs/(2*pi), mag2db(abs(h72)),':');
- hold off
- xlabel('Czêstotliwoæ[Hz]');
- ylabel('Magnituda[dB]');
- ylim([-70 10]);
- title('Charakterystyka amplitudowa, f_0=2000Hz');
- legend('r = 0','r = 0.5','r = 0.9','r = 1', 'r = 1.1', 'r = 2', 'r = 3');
- legend('Location','southeast');
- grid on;
- f2 = 3000;
- r1 = 0;
- r2 = 0.5;
- r3 = 0.9;
- r4 = 1;
- r5 = 1.1;
- r6 = 2;
- r7 = 3;
- b1 = [1, -2*cos(2*pi*f2/fs), 1];
- a1 = [1, -2*r1*cos(2*pi*f3/fs), r1*r1];
- b2 = [1, -2*cos(2*pi*f2/fs), 1];
- a2 = [1, -2*r2*cos(2*pi*f3/fs), r2*r2];
- b3 = [1, -2*cos(2*pi*f2/fs), 1];
- a3 = [1, -2*r3*cos(2*pi*f2/fs), r3*r3];
- b4 = [1, -2*cos(2*pi*f2/fs), 1];
- a4 = [1, -2*r4*cos(2*pi*f2/fs), r4*r4];
- b5 = [1, -2*cos(2*pi*f2/fs), 1];
- a5 = [1, -2*r5*cos(2*pi*f2/fs), r5*r5];
- b6 = [1, -2*cos(2*pi*f2/fs), 1];
- a6 = [1, -2*r6*cos(2*pi*f2/fs), r6*r6];
- b7 = [1, -2*cos(2*pi*f2/fs), 1];
- a7 = [1, -2*r7*cos(2*pi*f2/fs), r7*r7];
- [h12, t12] = freqz(b1,a1);
- [h22, t22] = freqz(b2,a2);
- [h32, t32] = freqz(b3,a3);
- [h42, t42] = freqz(b4,a4);
- [h52, t52] = freqz(b5,a5);
- [h62, t62] = freqz(b6,a6);
- [h72, t72] = freqz(b7,a7);
- figure('name','6.4a Charakterystyka amplitudowa, f_0=3000Hz');
- hold on;
- plot(t12*fs/(2*pi),20*log10(abs(h12)),':', t22*fs/(2*pi),mag2db(abs(h22)), t32*fs/(2*pi), mag2db(abs(h32)),':', t42*fs/(2*pi), mag2db(abs(h42)), t52*fs/(2*pi),mag2db(abs(h52)), t62*fs/(2*pi),mag2db(abs(h62)), t72*fs/(2*pi), mag2db(abs(h72)),':');
- hold off
- xlabel('Częstotliwość[Hz]');
- ylabel('Magnituda[dB]');
- ylim([-70 10]);
- title('Charakterystyka amplitudowa, f_0=3000Hz');
- legend('r = 0','r = 0.5','r = 0.9','r = 1', 'r = 1.1', 'r = 2', 'r = 3');
- legend('Location','southwest');
- grid on;
- f1 = 1000;
- f2 = 2000;
- f3 = 3000;
- r1 = 0.9;
- r2 = 0.9;
- r3 = 0.9;
- r4 = 0;
- r5 = 0.5;
- r6 = 0.9;
- r7 = 1;
- r8 = 1.1;
- b1 = [1, -2*cos(2*pi*f1/fs), 1];
- a1 = [1, -2*r1*cos(2*pi*f1/fs), r1*r1];
- b2 = [1, -2*cos(2*pi*f2/fs), 1];
- a2 = [1, -2*r2*cos(2*pi*f2/fs), r2*r2];
- b3 = [1, -2*cos(2*pi*f3/fs), 1];
- a3 = [1, -2*r3*cos(2*pi*f3/fs), r3*r3];
- b4 = [1, -2*cos(2*pi*f2/fs), 1];
- a4 = [1, -2*r4*cos(2*pi*f2/fs), r4*r4];
- b5 = [1, -2*cos(2*pi*f2/fs), 1];
- a5 = [1, -2*r5*cos(2*pi*f2/fs), r5*r5];
- b6 = [1, -2*cos(2*pi*f2/fs), 1];
- a6 = [1, -2*r6*cos(2*pi*f2/fs), r6*r6]
- b7 = [1, -2*cos(2*pi*f2/fs), 1];
- a7 = [1, -2*r7*cos(2*pi*f2/fs), r7*r7];
- b8 = [1, -2*cos(2*pi*f2/fs), 1];
- a8 = [1, -2*r8*cos(2*pi*f2/fs), r8*r8];
- gauss = normrnd(0, sqrt(0.5), 1, 8000).';
- y61c = filter(b1, a1, gauss);
- figure('name','Spektrogram fs = 1000, r= 0.9');
- spectrogram(y61c,window(@hann, 256),0,256,8000,'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 2000, r=0.9');
- y62c = filter(b2, a2, gauss);
- figure('name','Spektrogram fs = 2000, r= 0.9');
- spectrogram(y62c,window(@hann, 256),0,256,8000, 'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 3000, r=0.9');
- y63c = filter(b3, a3, gauss);
- figure('name','Spektrogram fs = 3000, r= 0.9');
- spectrogram(y63c,window(@hann, 256),0,256,8000, 'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 2000, r=0.9');
- y64c = filter(b4, a4, gauss);
- figure('name','Spektrogram fs = 2000, r= 0');
- spectrogram(y64c,window(@hann, 256),0,256,8000, 'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 3000, r=0');
- y61c = filter(b5, a5, gauss);
- figure('name','Spektrogram fs = 2000, r= 0.5');
- spectrogram(y61c,window(@hann, 256),0,256,8000,'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 2000, r=0.5');
- y62c = filter(b6, a6, gauss);
- figure('name','Spektrogram fs = 2000, r= 0.9');
- spectrogram(y62c,window(@hann, 256),0,256,8000, 'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 3000, r=0.9');
- y63c = filter(b7, a7, gauss);
- figure('name','Spektrogram fs = 2000, r=1');
- spectrogram(y63c,window(@hann, 256),0,256,8000, 'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 2000, r=1');
- y64c = filter(b8, a8, gauss);
- figure('name','Spektrogram fs = 2000, r= 1.1');
- spectrogram(y64c,window(@hann, 256),0,256,8000, 'yaxis');
- title('Spektrogram filtrowanego szumu, f0 = 2000, r=1.1');
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement