sound specgram

sound_spec.m

clc;        % Clear the command window.
clear;      % Clear workspace variable
close all;  % Clear figure windows


% original file
file_name = 'input_sound.snd';
file_id = fopen(file_name ,'r');
file_info = dir(file_name);
file_size = file_info.bytes;
input__ = fread(file_id, file_size, 'int16');


% low pass filter file
Lfile_name = 'output_sound1.snd';
file_id = fopen(file_name ,'r');
file_info = dir(file_name);
file_size = file_info.bytes;
low_input = fread(file_id, file_size, 'int16');


% high pass filter file
file_name = 'output_sound2.snd';
file_id = fopen(file_name ,'r');
file_info = dir(file_name);
file_size = file_info.bytes;
high_input = fread(file_id, file_size, 'int16');



% plot & specgram
% original file
figure; plot(input__);
title('input sound plot');
figure; specgram(input__);
title('input sound specgram ');


% low pass filter file
figure; plot(low_input);
title('low-pass sound plot');
figure; specgram(low_input);
title('low-pass sound specgram ');


% high pass filter file
figure; plot(high_input);
title('high-pass sound plot');
figure; specgram(high_input);
title('high-pass sound specgram ');