% script channel.m
%
% Undersöker kanalen som används i Lab B, TSBB16

%% Mäta brus

fs = 44100; % Sätt samplingsfrekvens
b = 16;     % Sätt antal bitar

recObject = audiorecorder(fs,b, 1);

% Spela in 5 sek
recordblocking(recObject, 5);

% Plocka ut den inspelade signalen
signal = getaudiodata(recObject);

% Rita upp den inspelade signalen
% Bestäm standardavvikelse (styrka)
figure(1);plot(signal);
std(signal)

%% Kanalen som LTI-system

frekvenser = 200:10:300;
D = measureAmplitudes2(frekvenser);

figure(4);
clf;
ax2 = gca; 
plot(frekvenser,D);
title('Amplitudkarakteristik');
xlabel('Frekvens');
ylabel('Förstärkning');
