!********************************************
! Freq afhankelijke demping met dispersie.txt
!********************************************

! dispersieve zaagtandtoon met frequentie-afhankelijke, exponentiele demping

Declareer Amp; D1; D2; f1; fk; k

Wis buffers
  Wis buffer (F1...F32, S1, S2, S3)    S1

f1 = 100           ! Grondtoon snaar (in Hz)
D1  = 0,0001       ! Dispersie-getal spoor S1
D2  = 0,0002       ! Dispersie-getal spoor S2

FOR k = 1 TO 20
  fk = f1 * k * (1 + k * k * D1) ^ 0,5  ! afwijking van harmonische frequentie
  Amp = 0,1 / k
  Print fk
  Resofilter 2e orde IIR
    Input                   puls
    Output                  S1[0]
    Gain                    Amp
    ResoFreq                fk
    bandbreedte             0,2*k
    duur                    20*Fs
    additief ('j' of 'n')   j
NEXT k

FOR k = 1 TO 20
  fk = f1 * k * (1 + k * k * D2) ^ 0,5  ! afwijking van harmonische frequentie
  Amp = 0,1 / k
  Print fk
  Resofilter 2e orde IIR
    Input                   puls
    Output                  S2[0]
    Gain                    Amp
    ResoFreq                fk
    bandbreedte             0,2*k
    duur                    20*Fs
    additief ('j' of 'n')   j
NEXT k