fc1 = 2000 ' カットオフ周波数1
fc2 = 3000 ' カットオフ周波数2
fc3 = 4000 ' カットオフ周波数3
fc4 = 5000 ' カットオフ周波数4
fc5 = 6000 ' カットオフ周波数5
fc6 = 7000 ' カットオフ周波数6

fc1int = Int(FRESN * fc1 / FSamp)
fc2int = Int(FRESN * fc2 / FSamp)
fc3int = Int(FRESN * fc3 / FSamp)
fc4int = Int(FRESN * fc4 / FSamp)
fc5int = Int(FRESN * fc5 / FSamp)
fc6int = Int(FRESN * fc6 / FSamp)

gain1 = 10 ^ (-40 / 20#) ' ゲイン1
gain2 = 10 ^ (0 / 20#) ' ゲイン2
gain3 = 10 ^ (-20 / 20#) ' ゲイン3
gain4 = 10 ^ (-10 / 20#) ' ゲイン4
gain5 = 10 ^ (-30 / 20#) ' ゲイン5
gain6 = 10 ^ (-20 / 20#) ' ゲイン6
gain7 = 10 ^ (-10 / 20#) ' ゲイン7

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 fc3int + 1 - 1
    fReal(i) = gain3
Next i

For i = fc3int To fc4int + 1 - 1
    fReal(i) = gain4
Next i

For i = fc4int To fc5int + 1 - 1
    fReal(i) = gain5
Next i

For i = fc5int To fc6int + 1 - 1
    fReal(i) = gain6
Next i

For i = fc6int To FRESN - fc6int + 1 - 1
    fReal(i) = gain7
Next i

For i = FRESN - fc6int + 1 To FRESN - fc5int + 1 - 1
    fReal(i) = gain6
Next i

For i = FRESN - fc5int + 1 To FRESN - fc4int + 1 - 1
    fReal(i) = gain5
Next i

For i = FRESN - fc4int + 1 To FRESN - fc3int + 1 - 1
    fReal(i) = gain4
Next i

For i = FRESN - fc3int + 1 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