EXPERIMENT NO 4

% Using ex overlapping rectangular window with frame duration 8.01ms, % calculate the energy of the speech sample "ITSTIME.wav". Analyze the % energy profile for different frames. Combine the energy of the different

X frames and plot along with the original speech signal.

% BIPASHA CHAMUAH

190101007

clc;clear all;close all;

X to read data from a audio file "ITSTIME.wav"

[data, fs] = audioread("ITSTIME.wav");

X normalizing the data values

data = data/abs (max(data));

% setting frame duration to 8.815

fd = 0.01;

% framing the entire speech signal

frames framing (data, fs, fd);

Xextracting the size of the frames [r,c] size (frames);

setting the energy term to e initially ste = 0;

Xloop to determine Short-Term Energy (STE) for every frame

for 1-1 r

ste(i) sum(frames(1, ; ).^2);

end

% normalizing STE values ste ste/max(ste);

fsize= round(fd*fs);

x initializing the variable to generate the Short-Term Energy plot x combining all the values of STE to create the wave

ste_wave = 0;

for 11:length(ste)

1 = length(ste_wave);

ste_wave (1 : 1+fsize) = ste(1);

end

plotting original signal

plot(data);

hold on

% overlapping STE curve over original plot(ste_wave, 'r', 'linewidth', 2);

title('Energy of Speech Signal');

xlabel('Time(s)');

ylabel('Amplitude"); legend (Original Signal', 'Energy Signal");

figure

% plotting four different frames with energy fr_1=32; % taking frame no. 32

subplot(1,2,1);

plot(frames (fr 1,:));

hold on;

title("Frame No. 1");

xlabel("Time(s)");

ylabel("Amplitude");

% designing energy level for frame 1 enrg 1v1 ste(fr_1);

for 11: C

WR (1) enrg 1v1;

end

plot (WR, 'r', 'linewidth',2);

hold off;

stating energy level for frame 1

dim [.15.0.3.3]; str['Energy of frame: num2str(enrg_lvl)];