Differences between revisions 5 and 8 (spanning 3 versions)
⇤ ← Revision 5 as of 2005-05-25 13:05:58 →
Size: 2013
Editor: RadekPodgorny
Comment:
← Revision 8 as of 2005-05-26 10:23:27 → ⇥
Size: 2478
Editor: RadekPodgorny
Comment:
Deletions are marked like this. Additions are marked like this.
Line 31: Line 31:
figure; plot(signal); figure; stem((0:length(signal)-1)/fs,signal,'.');
Line 38: Line 38:
attachment:in.png
Line 42: Line 44:
figure; plot(filtr); figure; stem((0:length(filtr)-1)/fs,filtr);
Line 49: Line 51:
attachment:imp.png
Line 54: Line 58:
figure; plot(vystup); figure; stem((0:length(vystup)-1)/fs,vystup,'.');
Line 61: Line 65:
attachment:out.png
Line 64: Line 70:
spektrum = fft(signal);
figure; plot(abs(spektrum));		 spektrum = fftshift(fft(signal));
figure; stem((-length(spektrum)/2:length(spektrum)/2-1)*fs/length(signal),abs(spektrum),'.');
Line 71: Line 77:
attachment:in-s.png
Line 74: Line 82:
ospektrum = fft(vystup);
figure; plot(abs(ospektrum));		 ospektrum = fftshift(fft(vystup));
figure; stem((-length(ospektrum)/2:length(ospektrum)/2-1)*fs/length(vystup),abs(ospektrum),'.');
Line 80: Line 88:

attachment:out-s.png
Line 86: Line 96:

Ein = 5.643853576660156e+003
Eout = 1.793025481292911e+002
Line 87: Line 100:

=== Zaver ===

Je videt, ze se jedna o horni propust.

Semestralni prace z predmetu "Signaly asoustavy"

Zadani

  • Soubor Sound.wav obsahuje 8-mi bitové vzorky audiosignálu, jenž je zpracováván obvodem na úpravu zvuku, jehož impulsová odezva je v souboru filtr.dat.
  • Zobrazte vstupní a výstupní signál a jejich spektra.
  • Určete energii vstupního a výstupního signálu.
  • Z tvaru a průběhu vstupního, výstupního signálu a impulsové odezvy filtru (případně z jejich spekter) usudte na typ zvukové úpravy.

Prilohy

  • attachment:2_P010-3.pdf
  • attachment:filtr.dat

Reseni

Nejdrive provedeme inicializaci prostedi v Matlabu. 

clc;
clear all;
close all;
format long;

Nacteme vstupni signal a zobrazime ho. 

[signal,fs,b] = wavread('Sound.wav');
N = length(signal);
figure; stem((0:length(signal)-1)/fs,signal,'.');
title('Vstupni signal');
xlabel('t[s]');
ylabel('s(t)');
grid on;

attachment:in.png

Dale nacteme impulzovou odezvu filtru a zobrazime ji. 

filtr = dlmread('filtr.dat', '\n');
figure; stem((0:length(filtr)-1)/fs,filtr);
title('Impulzova odezva filtru');
xlabel('t[s]');
ylabel('s(t)');
grid on;

attachment:imp.png

Dalsim krokem je aplikace impulzove odezvy filtru na vstupni signal. To provedeme pomoci konvoluce. Vystup opet zobrazime. 

vystup = conv(signal, filtr);
wavwrite(vystup, fs, b, 'vystup.wav');
figure; stem((0:length(vystup)-1)/fs,vystup,'.');
title('Vystupni signal');
xlabel('t[s]');
ylabel('s(t)');
grid on;

attachment:out.png

Spektrum vstupniho signalu ziskame rychlou fourierovou transformaci. 

spektrum = fftshift(fft(signal));
figure; stem((-length(spektrum)/2:length(spektrum)/2-1)*fs/length(signal),abs(spektrum),'.');
title('Spektrum vstupniho sugnalu');
xlabel('f[Hz]');
ylabel('S(f)');

attachment:in-s.png

Obdobne i pro vystupni signal. 

ospektrum = fftshift(fft(vystup));
figure; stem((-length(ospektrum)/2:length(ospektrum)/2-1)*fs/length(vystup),abs(ospektrum),'.');
title('Spektrum vystupniho signalu');
xlabel('f[Hz]');
ylabel('S(f)');

attachment:out-s.png

Nakonec spocitame pozadove hodnoty energii pro vstupni a vystupni signal. 

Ein = sumsqr(signal)
Eout = sumsqr(vystup)

Ein = 5.643853576660156e+003
Eout = 1.793025481292911e+002

Zaver

Je videt, ze se jedna o horni propust.

Prilohy

  • attachment:sempr2.m
  • attachment:vystup.wav