[PD] White noise, Gaussian White Noise

[Guilherme Lunhani]

Hi,
I have a doubt about random generator in [noise~]:

I would like to make a "gaussian white noise",
buti don't know if [noise~] have (or not) a gaussian probablistic function
that generate random numbers...

well, i send a [gaussian~] that i make for comparisons

Thanks

Abstract: [gaussian~]

#N canvas 130 291 1151 548 10;
#X obj 76 273 gauss;
#X obj 292 247 expr if($f1==0 \, 0.5 \, $f1);
#X obj 292 1 loadbang;
#X obj 318 60 \$2;
#X obj 292 60 \$3;
#X obj 346 60 \$1;
#X obj 346 83 expr if($f1==0 \, 100 \, $f1);
#X obj 346 105 * 44.1;
#X text 389 107 100ms;
#X text 484 188 sigma = 1/12;
#X text 451 247 mu = 0.5;
#X obj 76 51 route generate bang play;
#X obj 76 23 inlet;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-gaussian_noise 10 float 3;
#A 0 -0.00524598 0 0 0 0 0 0 0 0 0;
#X coords 0 1 10 -1 200 70 1;
#X restore 277 334 graph;
#X msg 373 152 resize \$1;
#X obj 442 151 s \$0-gaussian_noise;
#X obj 346 128 t f f;
#X obj 103 190 counter;
#X obj 76 372 tabwrite \$0-gaussian_noise;
#X obj 76 82 t b b;
#X msg 122 99 0;
#X obj 76 158 t b f;
#X msg 146 17 generate;
#X obj 75 129 for++ 0 4410;
#X obj 401 -4 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 505 247 5 0 0 0 - - -;
#X floatatom 567 187 5 0 0 0 - - -;
#X floatatom 429 106 5 0 0 0 - - -;
#X obj 318 186 expr if($f1==0 \, 0.083 \, $f1);
#X obj 76 301 * 2;
#X obj 76 330 - 1;
#X obj 120 482 outlet~;
#X obj 172 482 outlet;
#X obj 120 450 tabplay~ \$0-gaussian_noise;
#X obj 534 66 samplerate~;
#X obj 293 32 t b b b b;
#X obj 534 87 / 1000;
#X connect 0 0 29 0;
#X connect 1 0 0 2;
#X connect 1 0 25 0;
#X connect 2 0 35 0;
#X connect 3 0 28 0;
#X connect 4 0 1 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 16 0;
#X connect 7 0 27 0;
#X connect 11 0 19 0;
#X connect 11 1 33 0;
#X connect 11 2 33 0;
#X connect 12 0 11 0;
#X connect 14 0 15 0;
#X connect 16 0 23 1;
#X connect 16 1 14 0;
#X connect 17 0 18 1;
#X connect 19 0 23 0;
#X connect 19 1 20 0;
#X connect 20 0 17 2;
#X connect 21 0 0 0;
#X connect 21 1 17 0;
#X connect 22 0 11 0;
#X connect 23 0 21 0;
#X connect 24 0 35 0;
#X connect 28 0 0 1;
#X connect 28 0 26 0;
#X connect 29 0 30 0;
#X connect 30 0 18 0;
#X connect 33 0 31 0;
#X connect 33 1 32 0;
#X connect 34 0 36 0;
#X connect 35 0 4 0;
#X connect 35 1 3 0;
#X connect 35 2 5 0;
#X connect 35 3 34 0;
#X connect 36 0 7 1;
#X coords 0 -1 1 1 215 110 1 270 300;

Help:

#N canvas 184 300 547 305 10;
#X msg 16 62 generate;
#X obj 16 254 dac~;
#X msg 33 86 play;
#X text 71 62 generate random numbers;
#X text 67 86 or;
#X obj 90 87 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 241 120 args: time \, sigma(variation) \, mu;
#X text 241 137 default: time: 100ms \, sigma: 1/12 \, mu: 0.5;
#X obj 231 245 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 16 123 gaussian~ 2000 0.083 0.5;
#X obj 286 56 noise~;
#X obj 357 223 samplerate~;
#X text 289 274 Guilherme Lunhani \, gcravista at gmail.com;
#X connect 0 0 9 0;
#X connect 2 0 9 0;
#X connect 5 0 9 0;
#X connect 9 0 1 1;
#X connect 9 0 1 0;
#X connect 9 1 8 0;
#N canvas 184 300 547 305 10;
#X msg 16 62 generate;
#X obj 16 254 dac~;
#X msg 33 86 play;
#X text 71 62 generate random numbers;
#X text 67 86 or;
#X obj 90 87 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 241 120 args: time \, sigma(variation) \, mu;
#X text 241 137 default: time: 100ms \, sigma: 1/12 \, mu: 0.5;
#X obj 231 245 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 16 123 gaussian~ 2000 0.083 0.5;
#X obj 286 56 noise~;
#X obj 357 223 samplerate~;
#X text 289 274 Guilherme Lunhani \, gcravista at gmail.com;
#X connect 0 0 9 0;
#X connect 2 0 9 0;
#X connect 5 0 9 0;
#X connect 9 0 1 1;
#X connect 9 0 1 0;
#X connect 9 1 8 0;
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20100214/09b197e9/attachment.htm>