работа со звуком помогите разобраться

[delawer89]

помогите, пожалуйста,задали прогу написать а мыслей никаких нет как это все реализовать.программа на основе спектрального вычитания для подавления аддитивных стационарных шумов в аудио сигнале.

[raxp]

- а мысли насчет -аддитивных стационарных шумов в аудио сигнале?
- аудиосигнал в реальном времени или файл?
- с цифровыми фильтрами и окнами знакомы?

[delawer89]

файл,а со звуком никогда не работала.подскажите хотя бы с чего начать.

[raxp]

вам нужно разделить на подзадачи:
1) сначала прочитать wav файл и выделить данные (примеры тут на форуме валялись неоднократно)...можете даже воспользоваться функциями библиотеки bass.dll (тоже неоднократно на форуме есть примеры)
2) по каждой выборке (блоку) данных построить (посчитать) спектр
3) прочитанные данные с wav и посчитанный спектр для наглядности вывести в tchart
4) выделить шумы (и вычесть по каждому отсчету из исходного) или просто умножить все спектральные составляющие на функцию окна (просто коэффициенты)
5) раз вам дали задание

подавление аддитивных стационарных шумов

то вы должны понимать что это такое
6) все "очищенные" выборки записать скажем во второй wav файл (как создать wav и примеры тоже есть на форуме)

7) пример загрузки данных с wav файла (во вложении)... как работать

var r : TWaveResult;
    i : integer;
    W1, W2 : ShortInt;
begin
 //wav-
 r:= ReadWave('имя файла.wav');
 r.Data.seek(0, soFromBeginning);

 for i := 1 to r.Data.Size div 2 do begin
  r.Data.readBuffer(W1,1); // 1- канал
  r.Data.readBuffer(W2,1); // 2
  series3.Add(W1);
  series4.Add(W2)
 end;
...
после этого передаете отсчеты в процедуру построения спектра
///
кстати через bass вам будет проще, там это готовое все...

[delawer89]

спасибо проверю посмотрю,попробую разобраться

[raxp]

долго-ж вы на темной стороне были

[delawer89]

интернета не было чтоб зайти