FFT ライブラリ公開しています。
・FFT4G_H [43SEAXMD]
使い方
var n=256, z#[n*2] ' n は 2 のべき乗(2,4,8,16,32,64,128,256,512,1024,...) であること
for i = 0 to n - 1
z#[i * 2] = dat[i]: z#[i * 2 + 1] = 0
next
fft n, z#
for i = 0 to n - 1
var k = i * 2
var r# = log(max(0.001, sqr(z#[k] * z#[k] + z#[k + 1] * z#[k + 1]))) * 20
gpset i, 239-r#, #green
next
0そうだね プレイ済み