Dawn@4: function AP = audioPower(s,fs,framelength,noOfFrame)
Dawn@4: totalTime = size(s) / fs;
Dawn@4: frameTime = totalTime/noOfFrame;
Dawn@4: y=buffer(s,framelength);  %the frame length is 10ms
Dawn@4:         
Dawn@4: for i = 1:noOfFrame
Dawn@4: 
Dawn@4:     totalPower(i) = 0;
Dawn@4:     ap(i) = 0;
Dawn@4:     for j = 1: (framelength)
Dawn@4:         totalPower(i) = totalPower(i) + s(j + framelength*(i-1)) * s(j + framelength*(i-1));
Dawn@4:     end;     
Dawn@4: end;
Dawn@4: 
Dawn@4: ap= totalPower / framelength;
Dawn@4: b = 0:frameTime:(totalTime-frameTime);
Dawn@4: AP = [ap' b'];