Здравствуйте, Dimonka, Вы писали:
D>Зачем тебе преобразование фурье для определения уровня звука?? 
D>Пики можно считать не только как пики, можно подсчитывать среднеквадратическое значение сигнала (RMS).
D>Самый простой вариант:
D>D>OldPeak:=OldPeak * FadingCoeff;
D>NewPeak:=GetPeakFromWave(buffer:TArrayOfSomething);
D>if NewPeak > OldPeak then OldPeak:=NewPeak;
D>DisplayPeak(OldPeak);
D>
D>Как подсчитать среднеквадратическое значение сигнала:
D>D>Val:=0;
D>for i:=0 to WindowSize-1 do
D> Val:=buffer[Offset+i] * buffer[Offset+i];
D>RMS:=Sqrt( Val / WindowSize);
D>
D>Естественно это только пример, а значение надо считать инкриментально.
И правда — что это со мной — вроде электротехника была и простого не усмотрел, спасибо за пример, воспользуюсь. Очень доходчиво, чего только больная голова не выдумет
— это я про себя.
