XProfan

Español

p.specht

In Mikroprozessoren voluntad digitale Filter verwendet - por ejemplo a Erkennung el Tonwahl-Doppeltöne modener Telefonanlagen. Im Profano-Interpretermodus son como natürlich sólo geringste Frequenzen detektierbar, z.B. nachstehend 4-5 Hertz, el uno por Drücken el Linken Botón del ratón simulieren kann. Lo reagiert entonces irgendwann veces. Compiliert se el Sache ya más interessant: Ein Drummer podría así ser Rhytmusgefühl trainieren!

Kompilieren Marca Separación

Título de la ventana "Goertzel-Algorithmus, Realtime-Version"
' (D)2011 P. Pájaro carpintero, Demoware, Verwendung en alleinige Gefahr des Anwenders.
AppendMenuBar 10,"Linke Botón del ratón con ca. 5 Hz drücken. Ende con ESC"
Font 2:Selección aleatoria:Cls rnd(8^8)
Var p2!=6.2831853071795864769252867665590
Declarar 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!)
Mensajes del usuario  $201,$202
SetTimer 1000/SampleFreq!
locate 5,2:Imprimir "                                |                           "

REPEAT

    WhileLoop 40

        WaitInput

        if (%key=2) O (%key=27):Ende%=1:BREAK :Endif

            If %umessage=$201

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

                ElseIf %umessage=$202

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

                    EndIf

                    if lm%=1

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

                    elseif lm%=2

                        'imprimir "_";
                        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:imprimir left$(mkstr$("#",pwr!/3)+mkstr$(" ",60-pwr!/3),60)
                caso pwr!>100:beep
                caso Ende%:Romper

            UNTIL Ende%

            Mensajes del usuario 0
            beep
            KillTimer
            End