XProfan

Français

p.specht

dans Mikroprozessoren volonté digitale filtre verwendet - beispielsweise zur Erkennung qui Tonwahl-Doppeltöne modener Telefonanlagen. Im Profan-Interpretermodus sommes là naturellement seulement geringste Frequenzen detektierbar, z.B. suivante 4-5 Hertz, qui on par Drücken qui Linken Bouton de la souris simulieren peux. cela Ding reagiert ensuite irgendwann la fois. Compiliert wird qui l'affaire déjà plutôt intéressant: un Drummer pourrait avec cela son Rhytmusgefühl trainieren!

Kompilieren Marque Séparation

Titre de la fenêtre "Goertzel-Algorithmus, Realtime-Version"
' (D)2011 P. Specht, Demoware, Verwendung sur alleinige péril des Anwenders.
AppendMenuBar 10,"Linke Bouton de la souris avec ca. 5 Hz drücken. Ende avec ESC"
Font 2:Randomiser:Cls rnd(8^8)
Var p2!=6.2831853071795864769252867665590
Déclarer x!,x1!,x2!,s!,LM%,Ende%,pwr!
Var SampleFreq!=100'Hz (> 2*FrequOfInterest!)
Var FreqOfInterest!=5'Hz
var cps!=FreqOfInterest!/SampleFreq!
Var c!=2*cos(p2!*cps!)
Utilisateur Messages  $201,$202
SetTimer 1000/SampleFreq!
locate 5,2:Imprimer "                                |                           "

REPEAT

    WhileLoop 40

        WaitInput

        si (%clé=2) OU (%clé=27):Ende%=1:BREAK :Endif

            Si %umessage=$201

                ifnot LM%=1:LM%=1:endif

                ElseIf %umessage=$202

                    ifnot LM%=2:LM%=2:endif

                    EndIf

                    si lm%=1

                        'imprimer "+";
                        x!= 0.5
                        s!=x!+c!*x1!-x2!
                        x2!=x1!
                        x1!=s!

                    elseif lm%=2

                        'imprimer "_";
                        x!=-0.5
                        s!=x!+c!*x1!-x2!
                        x2!=x1!
                        x1!=s!

                    endif

                Endwhile

                pwr!=int(x2!*x2!+x1!*x1!-c!*x1!*x2!)
                s!=0:x!=0:x1!=0:x2!=0
                locate 6,2:imprimer left$(mkstr$("#",pwr!/3)+mkstr$(" ",60-pwr!/3),60)
                cas pwr!>100:beep
                cas Ende%:Pause

            UNTIL Ende%

            Utilisateur Messages 0
            beep
            KillTimer
            Fin