WavTest - p nStart = 2 + abs(nShift); nStop = nMidPoint - 1...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
close all; clear all; clc; c % parameters nSamplingFrequency = 11025; % Hz dDuration = 2; nShift = -500; n % record sound keyboard; pdTestSound = wavrecord(nSamplingFrequency*dDuration, nSamplingFrequency); p % play back original sound wavplay(pdTestSound, nSamplingFrequency); w % do FFT of both channels pdFFT = fft(pdTestSound); p pdModifiedFFT = zeros(size(pdFFT)); pdModifiedFFT(1,:) = pdFFT(1,:); p pdModifiedFFT = pdFFT; pdModifiedFFT(1) = 0; nMidPoint = length(pdModifiedFFT)/2 + 1; pdModifiedFFT(nMidPoint) = 0;
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: p nStart = 2 + abs(nShift); nStop = nMidPoint - 1 - abs(nShift); pdModifiedFFT(nStart+nShift:nStop+nShift,:) = pdFFT(nStart:nStop,:); p nStart = nMidPoint + 1 + abs(nShift); nStop = length(pdModifiedFFT) - abs(nShift); pdModifiedFFT(nStart-nShift:nStop-nShift,:) = pdFFT(nStart:nStop,:); p pdModifiedSound = ifft(pdModifiedFFT); p keyboard; wavplay(pdModifiedSound, nSamplingFrequency); w % wavwrite(pdTestSound, nSamplingFrequency, 'testsound.wav');...
View Full Document

This note was uploaded on 02/17/2010 for the course BIEN 130 taught by Professor Park during the Spring '10 term at UC Riverside.

Ask a homework question - tutors are online