BASS.DLL - Rauschen erzeugen / create noise

[mse1]

Die MSEgui Signalverarbeitungs-Toolbox hat auch einen Rauschgenerator:
https://gitorious.org/mseide-msegui/...sesignoise.pas
Ein Demo mit Pulseaudio Ausgang ist hier:
https://gitorious.org/mseuniverse/ms...ignal/noisegen
Das Demo braucht die MSEide+MSEgui git master Version:
https://gitorious.org/mseide-msegui/mseide-msegui
Edit:
Das sieht eher nach brown noise aus, da ist wohl noch etwas Nacharbeit notwendig...

[mse1]

MSEide+MSEgui git master 9b2b47fd benutzt nun den Filter von Paul Kellet für pink:

Code:

procedure tsignoise.sighandlerpink1(const ainfo: psighandlerinfoty);
var
 white: double;
begin
 fz:= 36969 * (fz and $ffff) + (fz shr 16); //mwc by George Marsaglia
 fw:= 18000 * (fw and $ffff) + (fw shr 16);
 white:= (integer((fz shl 16) + fw)/fscale);
 
 fb0:= 0.99886 * fb0 + white * 0.0555179;   //filter by Paul Kellet
 fb1:= 0.99332 * fb1 + white * 0.0750759; 
 fb2:= 0.96900 * fb2 + white * 0.1538520; 
 fb3:= 0.86650 * fb3 + white * 0.3104856; 
 fb4:= 0.55000 * fb4 + white * 0.5329522; 
 fb5:= -0.7616 * fb5 - white * 0.0168980; 
 foutputpo^:= (fb0+fb1+fb2+fb3+fb4+fb5+fb6+white*0.5362) *
                             famplitudepo^.value + foffsetpo^.value; 
 fb6:= white * 0.115926;
end;

[mse1]

Hier der Mittelwert von 11449 FFT's mit jeweils 65536 Punkten.

[guschtel]

hi, hast du nochmal was dran gemacht? Ansonsten großes Lob! Grüße Bernd :thumb:

[Klaus01]

Zitat:

Zitat von guschtel (Beitrag 1480115)

hi, hast du nochmal was dran gemacht? Ansonsten großes Lob! Grüße Bernd :thumb:

siehe hier: https://lists.freepascal.org/piperma...er/055334.html

Grüße
Klaus