%Zana Sulaiman MohammedAli Simo--ECE Grade 2
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
clear all;                           %clearing all data from
clc;                                 %Workspace
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
[Y,Fs]=audioread('ZanaSulaiman.Wav');%reading the audio file   %step -3-
Y=Y(:,1);                            %Framaing the signal wave %step -4-
L=0.03*Fs;                           %
R=0.005*Fs;                          %
X=buffer(Y,L,R);                     %making the buffer        %step -5-
m=length(Y);                         %
STE=sum(X.^2);                       %calculating Energy       %step -6-
z=sum(abs(sign(X))-sign(X(m-1)));    %calculating Z-crossing   %step -7-
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
subplot(3,1,1);                      %ploting the 2 waves      %step -6-
plot(Y);                             %
xlabel('Time in Second');            %
title('Speech Wave');                %
subplot(3,1,2);                      %
plot(STE);                           %
xlabel('Time in Second');            %
title('Shor Term Energy');           %
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%
subplot(3,1,3);                      %Ploting Z-crossing       %step -7-
plot(z);                             %
title('Zero Crossing Wave');         %
%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~%