Dawn@4: function [ audioPower ] = detect_AudioPower( sampleWavFileName, OVERWRITE )
Dawn@4: % find the audio power
Dawn@4: 
Dawn@4: % open original power calculation
Dawn@4: sampleFileName = sampleWavFileName( 1 : length( sampleWavFileName ) - 4 );
Dawn@4: fileName = [ sampleFileName '_AP.txt'];
Dawn@4: fileID = fopen( fileName );
Dawn@4: 
Dawn@4: if( (fileID <= 0) || (OVERWRITE) ) %does the file exist?
Dawn@4:     % no
Dawn@4:     disp('WARNING: MISSING AUDIO POWER FILE');
Dawn@4:     %calculate it
Dawn@4:     [x, fs, frameLength, noOfFrames] = openFile(  [ sampleFileName '.wav' ] );       
Dawn@4:     
Dawn@4:     audioPower = calculate_audioPower(x, fs, frameLength, noOfFrames);
Dawn@4: %     frameIndex = 1:1:length(AP);
Dawn@4:     fileID = fopen( fileName, 'w');
Dawn@4:     for i = 1 : noOfFrames
Dawn@4:          fprintf( fileID, '%d %s \n' , i, num2str( audioPower(i,1)) );
Dawn@4:     end
Dawn@4:     
Dawn@4:     fclose( fileID );
Dawn@4:     fileID = fopen( fileName );
Dawn@4: end
Dawn@4: 
Dawn@4: audioPower = fscanf( fileID, '%f', inf );
Dawn@4: audioPower = audioPower(2:2:end);
Dawn@4: fclose( fileID );