!****************************************************
! WaveWizard Preset pulswijdte
! Maak d.m.v. Fouriersynthese (additieve synthese) een
! pulsgolf waarvan
! freq = 100 Hz,
! duur = 1 sec,
! duty cycle = 1/6.
!****************************************************

Declareer Amp1; AmpK; v; w; f; D; k

f    = 100       ! frequentie in Hz van blok/pulsgolf
D    = 1/(12*f)  ! duty cycle. Als D = 1/(4*f) is de duty cycle 50% (square wave, blokgolf)
Amp1 = 8000      ! amplitude van grondtoon

v    = 2*pi*f
w    = v * Ts

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

FOR k = 1 TO 40
  AmpK = Amp1 * sin(k*v*D)/k              ! amplitude van K-de boventoon van de pulsgolf
  Bewerk signaal
    n0          0
    n1          1 * Fs
    Bewerking   S2[n] = S2[n] + AmpK * cos(k*w*n)
NEXT k

!