fc1 = 3000 ' カットオフ周波数1
fc2 = 5000 ' カットオフ周波数2

fc1int = Int(FRESN * fc1 / FSamp)
fc2int = Int(FRESN * fc2 / FSamp)

gain1 = 10 ^ (REDUCT / 20#) ' 減衰域ゲイン
gain2 = 10 ^ (0 / 20#) ' 通過域ゲイン
gain3 = 10 ^ (REDUCT / 20#) ' 減衰域ゲイン

For i = 0 To fc1int - 1
    fReal(i) = gain1
Next i

For i = fc1int To fc2int - 1
    fReal(i) = gain2
Next i

For i = fc2int To FRESN - fc2int + 1 - 1
    fReal(i) = gain3
Next i

For i = FRESN - fc2int + 1 To FRESN - fc1int + 1 - 1
    fReal(i) = gain2
Next i

For i = FRESN - fc1int + 1 To FRESN - 1
    fReal(i) = gain1
Next i