[PD] White noise, Gaussian White Noise

[Guilherme Lunhani]

Sorry,

I found the answer
http://www.mail-archive.com/pd-list@iem.at/msg16694.html

2010/2/14 Guilherme Lunhani <gcravista at gmail.com>

> 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;
>
>
>
>


-- 
Página pessoal:
http://gcravista.googlepages.com/guilhermemartinslunhanii
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20100214/f3beb881/attachment.htm>