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