!************************************
! exp. tijdvariant laagdoorlaatfilter
!************************************

Declareer a; b; x0; x1; g0; g1; duur

duur = 148 * Fs

! Laat de Afsnijfrequentie afnemen volgens de exponentiele functie g[n] = b*a^n.
! Vind a en b als de functiewaarden op tijdstippen n0 en n1 bekend zijn:

n0 = 0
n1 = duur
g0 = 22000
g1 = 200

! b*a^0 = b = g0
! b*a^duur = g1  -->
! a^duur = g1/b  -->
! (a^duur)^(1/duur) = (g1/b)^(1/duur)   -->
b = g0
a = (g1/b)^(1/duur)

Print a
Print b

Butterworth Laagdoorlaat
  Input                         S1[0]
  Output                        S1[0]
  Afsnijfrequentie (Hz)         b*a^n
  Flanksteilheid (1,2,3...50)   4
  Duur (ook 'sec')              duur
  Volume (0...100)              1
  Additief ('j' of 'n')         n

Butterworth Laagdoorlaat
  Input                         S2[0]
  Output                        S2[0]
  Afsnijfrequentie (Hz)         b*a^n
  Flanksteilheid (1,2,3...50)   4
  Duur (ook 'sec')              duur
  Volume (0...100)              1
  Additief ('j' of 'n')         n