タイトル通りです。 簡単に平均値の計算をする場合、大体はこんな感じの関数を使うことになるでしょう。 function Average(data : array of Double):Double; var I : Integer; begin Result := 0; for I := 0 to Length(data) -1 do begin Result := Result …

数年前にFFTライブラリのためにビット反転処理を書いた。 ただ、FFTサンプル数を増やしたときに崩壊してしまっていたので、サンプル数に制限をかけてたわけですが 一思いにこの辺の処理を一新することにした。