Pd-cvs January 2007

pd-cvs@lists.iem.at

21 participants
539 discussions

externals/grh/adaptive/doc lms2~-help.pd, NONE, 1.1 lms~-help.pd, NONE, 1.1 nlms2~-help.pd, NONE, 1.1 nlms~-help.pd, NONE, 1.1
by Georg Holzmann 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/externals/grh/adaptive/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22466 Added Files: lms2~-help.pd lms~-help.pd nlms2~-help.pd nlms~-help.pd Log Message: anging to new helpfile format --- NEW FILE: lms2~-help.pd --- #N canvas 213 0 700 678 10; #X floatatom 37 482 8 0 0 0 - - -; #X obj 45 279 r message; #N canvas 0 0 260 260 unsig~ 0; #X obj 22 42 inlet~; #X text 62 42 ~signal_in~; #X obj 22 168 outlet; #X text 69 169 float-out; #X obj 22 142 snapshot~; #X obj 39 119 metro 300; #X obj 40 70 loadbang; #X msg 40 95 1; #X connect 0 0 4 0; #X connect 4 0 2 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X restore 37 460 pd unsig~; #X text 89 219 input signal x[n]; #X text 176 259 reference signal d[n]; #X text 176 274 (desired signal); #X text 108 461 output signal y[n]; #X text 35 166 init arg1: nr. of coefficients; #X text 35 179 init arg2: stepsize parameter mu; #X text 198 641 (c) Georg Holzmann <grh(a)mur.at> \, 2005; #X text 39 520 some more info:; #X obj 219 24 cnv 15 258 58 empty empty empty 10 22 0 14 -1 -66577 0; #X obj 223 28 cnv 15 250 50 empty empty lms2~ 10 24 0 14 -228992 -1 0; #X text 350 38 adaptive systems; #X text 360 54 for Pure Data; #X text 35 599 in the example folder !; #X text 35 586 For much more examples see patches; #X obj 38 218 sig~ 2; #X obj 124 258 sig~ 1; #X text 85 134 outputs for e[n] and c[n]; #X floatatom 82 434 8 0 0 0 - - -; #N canvas 0 0 260 260 unsig~ 0; #X obj 22 42 inlet~; #X text 62 42 ~signal_in~; #X obj 22 168 outlet; #X text 69 169 float-out; #X obj 22 142 snapshot~; #X obj 39 119 metro 300; #X obj 40 70 loadbang; #X msg 40 95 1; #X connect 0 0 4 0; #X connect 4 0 2 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X restore 82 412 pd unsig~; #X text 153 413 error signal e[n]; #X obj 123 343 unpack f f; #X floatatom 123 383 5 0 0 0 - - -; #X floatatom 188 366 5 0 0 0 - - -; #X text 162 383 c0[n]; #X text 230 366 c1[n]; #X text 128 323 coefficients:; #X text 36 122 lms2~: same as lms~ \, but with additional; #X obj 37 304 lms2~ 2 1e-04; #N canvas 347 29 502 634 LMS_EXPLANATION 0; #X text 35 135 x[n] ... input signal of the system; #X text 35 120 c[n] ... coefficient vector of the system; #X text 35 104 y[n] ... output signal of the system; #X text 43 369 d[n] ... desired signal \, reference signal; #X text 50 74 -> y[n] = c0[n]*x[n] + c1[n]*x[n-1] + c2[n]*x[n-2] + ...; #X text 32 195 The LMS Adaptation Algorithm:; #X text 70 226 c[n] = c[n-1] + mu*e[n]*x[n]; #X text 43 309 mu ... step-size parameter (learning rate); #X text 42 279 c[n] ... new coefficient vector; #X text 42 294 c[n-1] ... old coefficient vector; #X text 42 325 e[n] ... error sample at time n \, LMS tries to minimize this error; #X text 43 353 x[n] ... tap-input vector at time n; #X text 71 241 with e[n] = d[n] - y[n]; #X text 33 33 An adaptive system is simply a FIR filter with the coefficients c[n] \, which can be learned.; #X text 104 485 0 < mu < 2/(abs(x[n])^2); #X text 38 517 -> abs(x[n])^2 is the tap-input energy; #X text 60 532 at time n (lenght of x[n] is PDs; #X text 35 579 Note: this only ensures "stability on average"; #X text 60 547 blocksize - so use block~ to change it!); #X text 34 432 How to choose mu ?; #X text 34 455 Sufficient (deterministic) stability condition:; #X restore 38 561 pd LMS_EXPLANATION; #N canvas 812 118 510 736 LMS2_EXAMPLE 0; #X obj 31 109 sig~ 2; #X obj 116 110 sig~ 1; #X text 36 87 x[n]; #X text 124 91 d[n]; #X text 31 234 y[n]; #X obj 40 159 r \$0-lms; #X text 115 28 x[n] = 2 \, d[n] = 1 \, N = 1 (= nr. of coefficients) ; #X text 26 29 EXAMPLE:; #N canvas 0 0 450 300 graph3 0; #X array x 1024 float 0; #X array y 1024 float 0; #X array d 1024 float 0; #X coords 0 2 1023 0 400 140 1; #X restore 51 302 graph; #N canvas 422 247 876 321 plot_logic 0; #X obj 37 162 tabwrite~ x; #X obj 123 162 tabwrite~ y; #X obj 209 162 tabwrite~ d; #X obj 179 77 metro 100; #X obj 179 26 loadbang; #X msg 179 52 1; #X obj 514 58 loadbang; #X obj 37 136 r~ x_; #X obj 123 136 r~ y_; #X obj 209 136 r~ d_; #X msg 505 153 \; x yticks 0 0.25 2; #X msg 489 121 \; x xticks 0 32 2; #X msg 646 150 \; x ylabel 1060 0 0.5 1 1.5 2; #X msg 622 105 \; x xlabel -0.2 0 256 512 768 1024; #X obj 296 102 r~ e_; #X obj 297 161 tabwrite~ e; #X obj 297 131 *~; #X msg 498 224 \; e xticks 0 32 2; #X msg 514 256 \; e yticks 0 0.25 2; #X msg 631 208 \; e xlabel -0.2 0 256 512 768 1024; #X msg 655 253 \; e ylabel 1060 0 0.5 1 1.5 2; #X obj 541 198 loadbang; #X connect 3 0 0 0; #X connect 3 0 1 0; #X connect 3 0 2 0; #X connect 3 0 15 0; #X connect 4 0 5 0; #X connect 5 0 3 0; #X connect 6 0 11 0; #X connect 6 0 10 0; #X connect 6 0 13 0; #X connect 6 0 12 0; #X connect 7 0 0 0; #X connect 8 0 1 0; #X connect 9 0 2 0; #X connect 14 0 16 0; #X connect 14 0 16 1; #X connect 16 0 15 0; #X connect 21 0 17 0; #X connect 21 0 18 0; #X connect 21 0 19 0; #X connect 21 0 20 0; #X restore 198 246 pd plot_logic; #X obj 341 244 s \$0-lms; #X msg 341 220 adaptation 1; #X obj 341 199 loadbang; #X obj 198 207 s \$0-lms; #X msg 198 171 mu \$1; #X floatatom 210 150 8 0 0 0 - - -; #X text 275 147 <- try different mu; #X msg 199 109 clear; #X text 242 110 <- clear to start new adaptation; #X text 189 461 -- 1024 samples --; #X obj 37 131 s~ x_; #X obj 125 132 s~ d_; #X obj 31 213 s~ y_; #X obj 74 213 s~ e_; #N canvas 0 0 450 300 graph3 0; #X array e 1024 float 0; #X coords 0 2 1023 0 400 140 1; #X restore 48 534 graph; #X text 195 693 -- 1024 samples --; #X text 47 510 squared error e^2[n] (learning curve):; #X obj 30 181 lms2~ 1 1e-05; #X connect 0 0 20 0; #X connect 0 0 27 0; #X connect 1 0 21 0; #X connect 1 0 27 1; #X connect 5 0 27 0; #X connect 11 0 10 0; #X connect 12 0 11 0; #X connect 14 0 13 0; #X connect 15 0 14 0; #X connect 17 0 13 0; #X connect 27 0 22 0; #X connect 27 1 23 0; #X restore 38 540 pd LMS2_EXAMPLE; #X msg 384 373 getmu; #X msg 384 352 mu \$1; #X floatatom 392 333 8 0 0 0 - - -; #X msg 384 408 getN; #X msg 384 497 help; #X msg 384 228 clear; #X msg 384 295 print; #X msg 384 465 read demo.dat; #X msg 384 195 getadaptation; #X obj 384 152 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X msg 384 173 adaptation \$1; #X msg 384 444 write demo.dat; #X obj 384 526 s message; #X text 487 173 turn adaptation on/off; #X text 432 222 clear current coefficients; #X text 432 235 and set them back to 0; #X text 433 294 print current coefficients; #X text 435 356 set/get stepsize parameter; #X text 436 370 mu (learning rate); #X text 425 408 get Nr. of coefficients; #X text 495 461 and mu to file; #X text 495 447 write/read coefficients; #X msg 384 264 init_unity; #X text 464 251 set first coefficient to 1 \,; #X text 466 264 all others to 0 (= delay; #X text 465 277 free transmission); #X connect 1 0 30 0; #X connect 2 0 0 0; #X connect 17 0 30 0; #X connect 18 0 30 1; #X connect 21 0 20 0; #X connect 23 0 24 0; #X connect 23 1 25 0; #X connect 30 0 2 0; #X connect 30 1 21 0; #X connect 30 2 23 0; #X connect 33 0 45 0; #X connect 34 0 45 0; #X connect 35 0 34 0; #X connect 36 0 45 0; #X connect 37 0 45 0; #X connect 38 0 45 0; #X connect 39 0 45 0; #X connect 40 0 45 0; #X connect 41 0 45 0; #X connect 42 0 43 0; #X connect 43 0 45 0; #X connect 44 0 45 0; #X connect 55 0 45 0; --- NEW FILE: lms~-help.pd --- #N canvas 148 190 700 570 10; #X msg 395 341 getmu; #X msg 395 320 mu \$1; #X floatatom 403 301 8 0 0 0 - - -; #X msg 395 376 getN; #X msg 395 465 help; #X msg 395 196 clear; #X msg 395 263 print; #X floatatom 37 365 8 0 0 0 - - -; #X msg 395 433 read demo.dat; #X msg 395 163 getadaptation; #X obj 395 120 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X msg 395 141 adaptation \$1; #X msg 395 412 write demo.dat; #X text 36 122 LMS: least mean square adaptation algorithm; #X obj 45 279 r message; #X obj 395 494 s message; #N canvas 0 0 260 260 unsig~ 0; #X obj 22 42 inlet~; #X text 62 42 ~signal_in~; #X obj 22 168 outlet; #X text 69 169 float-out; #X obj 22 142 snapshot~; #X obj 39 119 metro 300; #X obj 40 70 loadbang; #X msg 40 95 1; #X connect 0 0 4 0; #X connect 4 0 2 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X restore 37 343 pd unsig~; #X text 89 219 input signal x[n]; #X text 169 248 reference signal d[n]; #X text 169 263 (desired signal); #X text 108 344 output signal y[n]; #X obj 37 304 lms~ 2 1e-04; #X text 35 160 init arg1: nr. of coefficients; #X text 498 141 turn adaptation on/off; #X text 443 190 clear current coefficients; #X text 443 203 and set them back to 0; #X text 444 262 print current coefficients; #X text 35 173 init arg2: stepsize parameter mu; #X text 446 324 set/get stepsize parameter; #X text 447 338 mu (learning rate); #X text 436 376 get Nr. of coefficients; #X text 506 429 and mu to file; #X text 506 415 write/read coefficients; #X text 223 536 (c) Georg Holzmann <grh(a)mur.at> \, 2005; #N canvas 347 29 502 634 LMS_EXPLANATION 0; #X text 35 135 x[n] ... input signal of the system; #X text 35 120 c[n] ... coefficient vector of the system; #X text 35 104 y[n] ... output signal of the system; #X text 43 369 d[n] ... desired signal \, reference signal; #X text 50 74 -> y[n] = c0[n]*x[n] + c1[n]*x[n-1] + c2[n]*x[n-2] + ...; #X text 32 195 The LMS Adaptation Algorithm:; #X text 70 226 c[n] = c[n-1] + mu*e[n]*x[n]; #X text 43 309 mu ... step-size parameter (learning rate); #X text 42 279 c[n] ... new coefficient vector; #X text 42 294 c[n-1] ... old coefficient vector; #X text 42 325 e[n] ... error sample at time n \, LMS tries to minimize this error; #X text 43 353 x[n] ... tap-input vector at time n; #X text 71 241 with e[n] = d[n] - y[n]; #X text 33 33 An adaptive system is simply a FIR filter with the coefficients c[n] \, which can be learned.; #X text 104 485 0 < mu < 2/(abs(x[n])^2); #X text 38 517 -> abs(x[n])^2 is the tap-input energy; #X text 60 532 at time n (lenght of x[n] is PDs; #X text 35 579 Note: this only ensures "stability on average"; #X text 60 547 blocksize - so use block~ to change it!); #X text 34 432 How to choose mu ?; #X text 34 455 Sufficient (deterministic) stability condition:; #X restore 38 429 pd LMS_EXPLANATION; #X text 36 407 some more info:; #N canvas 536 326 510 502 LMS_EXAMPLE 0; #X obj 31 109 sig~ 2; #X obj 108 109 sig~ 1; #X text 36 87 x[n]; #X text 116 90 d[n]; #X text 31 234 y[n]; #X obj 40 159 r \$0-lms; #X text 115 28 x[n] = 2 \, d[n] = 1 \, N = 1 (= nr. of coefficients) ; #X text 26 29 EXAMPLE:; #N canvas 0 0 450 300 graph3 0; #X array x 1024 float 0; #X array y 1024 float 0; #X array d 1024 float 0; #X coords 0 2 1023 0 400 140 1; #X restore 51 302 graph; #N canvas 422 247 725 220 plot_logic 0; #X obj 72 168 tabwrite~ x; #X obj 158 168 tabwrite~ y; #X obj 244 168 tabwrite~ d; #X obj 191 105 metro 100; #X obj 191 54 loadbang; #X msg 191 80 1; #X obj 386 57 loadbang; #X obj 72 142 r~ x_; #X obj 158 142 r~ y_; #X obj 244 142 r~ d_; #X msg 362 153 \; x yticks 0 0.25 2; #X msg 346 121 \; x xticks 0 32 2; #X msg 503 150 \; x ylabel 1060 0 0.5 1 1.5 2; #X msg 479 105 \; x xlabel -0.2 0 256 512 768 1024; #X connect 3 0 0 0; #X connect 3 0 1 0; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 5 0 3 0; #X connect 6 0 11 0; #X connect 6 0 10 0; #X connect 6 0 13 0; #X connect 6 0 12 0; #X connect 7 0 0 0; #X connect 8 0 1 0; #X connect 9 0 2 0; #X restore 198 246 pd plot_logic; #X obj 341 244 s \$0-lms; #X msg 341 220 adaptation 1; #X obj 341 199 loadbang; #X obj 198 207 s \$0-lms; #X msg 198 171 mu \$1; #X floatatom 210 150 8 0 0 0 - - -; #X text 275 147 <- try different mu; #X msg 199 109 clear; #X text 242 110 <- clear to start new adaptation; #X obj 30 181 lms~ 1 1e-05; #X text 189 461 -- 1024 samples --; #X obj 37 131 s~ x_; #X obj 117 131 s~ d_; #X obj 31 213 s~ y_; #X connect 0 0 19 0; #X connect 0 0 21 0; #X connect 1 0 19 1; #X connect 1 0 22 0; #X connect 5 0 19 0; #X connect 11 0 10 0; #X connect 12 0 11 0; #X connect 14 0 13 0; #X connect 15 0 14 0; #X connect 17 0 13 0; #X connect 19 0 23 0; #X restore 38 451 pd LMS_EXAMPLE; #X obj 219 24 cnv 15 258 58 empty empty empty 10 22 0 14 -1 -66577 0; #X obj 223 28 cnv 15 250 50 empty empty lms~ 10 24 0 14 -228992 -1 0; #X text 350 38 adaptive systems; #X text 360 54 for Pure Data; #X text 34 488 in the example folder !; #X text 35 474 For much more examples see patches; #X obj 38 218 sig~ 2; #X obj 117 247 sig~ 1; #X msg 395 232 init_unity; #X text 475 219 set first coefficient to 1 \,; #X text 477 232 all others to 0 (= delay; #X text 476 245 free transmission); #X connect 0 0 15 0; #X connect 1 0 15 0; #X connect 2 0 1 0; #X connect 3 0 15 0; #X connect 4 0 15 0; #X connect 5 0 15 0; #X connect 6 0 15 0; #X connect 8 0 15 0; #X connect 9 0 15 0; #X connect 10 0 11 0; #X connect 11 0 15 0; #X connect 12 0 15 0; #X connect 14 0 21 0; #X connect 16 0 7 0; #X connect 21 0 16 0; #X connect 43 0 21 0; #X connect 44 0 21 1; #X connect 45 0 15 0; --- NEW FILE: nlms2~-help.pd --- #N canvas 108 136 700 678 10; #X floatatom 37 482 8 0 0 0 - - -; #X obj 45 279 r message; #N canvas 0 0 260 260 unsig~ 0; #X obj 22 42 inlet~; #X text 62 42 ~signal_in~; #X obj 22 168 outlet; #X text 69 169 float-out; #X obj 22 142 snapshot~; #X obj 39 119 metro 300; #X obj 40 70 loadbang; #X msg 40 95 1; #X connect 0 0 4 0; #X connect 4 0 2 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X restore 37 460 pd unsig~; #X text 89 219 input signal x[n]; #X text 182 252 reference signal d[n]; #X text 182 267 (desired signal); #X text 108 461 output signal y[n]; #X text 35 166 init arg1: nr. of coefficients; #X text 35 179 init arg2: stepsize parameter mu; #X text 221 646 (c) Georg Holzmann <grh(a)mur.at> \, 2005; #X text 39 520 some more info:; #X obj 219 24 cnv 15 258 58 empty empty empty 10 22 0 14 -1 -66577 0; #X obj 223 28 cnv 15 250 50 empty empty nlms2~ 10 24 0 14 -228992 -1 0; #X text 350 38 adaptive systems; #X text 360 54 for Pure Data; #X text 35 599 in the example folder !; #X text 35 586 For much more examples see patches; #X obj 38 218 sig~ 2; #X obj 130 251 sig~ 1; #X text 93 134 outputs for e[n] and c[n]; #X floatatom 82 434 8 0 0 0 - - -; #N canvas 0 0 260 260 unsig~ 0; #X obj 22 42 inlet~; #X text 62 42 ~signal_in~; #X obj 22 168 outlet; #X text 69 169 float-out; #X obj 22 142 snapshot~; #X obj 39 119 metro 300; #X obj 40 70 loadbang; #X msg 40 95 1; #X connect 0 0 4 0; #X connect 4 0 2 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X restore 82 412 pd unsig~; #X text 153 413 error signal e[n]; #X obj 130 342 unpack f f; #X floatatom 130 382 5 0 0 0 - - -; #X floatatom 195 365 5 0 0 0 - - -; #X text 169 382 c0[n]; #X text 237 365 c1[n]; #X text 135 322 coefficients:; #X text 36 122 nlms2~: same as nlms~ \, but with additional; #X obj 37 304 nlms2~ 2 0.001; #N canvas 812 118 510 736 NLMS2_EXAMPLE 0; #X obj 31 109 sig~ 2; #X obj 123 108 sig~ 1; #X text 36 87 x[n]; #X text 131 89 d[n]; #X text 31 234 y[n]; #X obj 40 159 r \$0-lms; #X text 115 28 x[n] = 2 \, d[n] = 1 \, N = 1 (= nr. of coefficients) ; #X text 26 29 EXAMPLE:; #N canvas 0 0 450 300 graph3 0; #X array x 1024 float 0; #X array y 1024 float 0; #X array d 1024 float 0; #X coords 0 2 1023 0 400 140 1; #X restore 51 302 graph; #N canvas 422 247 876 321 plot_logic 0; #X obj 37 162 tabwrite~ x; #X obj 123 162 tabwrite~ y; #X obj 209 162 tabwrite~ d; #X obj 179 77 metro 100; #X obj 179 26 loadbang; #X msg 179 52 1; #X obj 514 58 loadbang; #X obj 37 136 r~ x_; #X obj 123 136 r~ y_; #X obj 209 136 r~ d_; #X msg 505 153 \; x yticks 0 0.25 2; #X msg 489 121 \; x xticks 0 32 2; #X msg 646 150 \; x ylabel 1060 0 0.5 1 1.5 2; #X msg 622 105 \; x xlabel -0.2 0 256 512 768 1024; #X obj 296 102 r~ e_; #X obj 297 161 tabwrite~ e; #X obj 297 131 *~; #X msg 498 224 \; e xticks 0 32 2; #X msg 514 256 \; e yticks 0 0.25 2; #X msg 631 208 \; e xlabel -0.2 0 256 512 768 1024; #X msg 655 253 \; e ylabel 1060 0 0.5 1 1.5 2; #X obj 541 198 loadbang; #X connect 3 0 0 0; #X connect 3 0 1 0; #X connect 3 0 2 0; #X connect 3 0 15 0; #X connect 4 0 5 0; #X connect 5 0 3 0; #X connect 6 0 11 0; #X connect 6 0 10 0; #X connect 6 0 13 0; #X connect 6 0 12 0; #X connect 7 0 0 0; #X connect 8 0 1 0; #X connect 9 0 2 0; #X connect 14 0 16 0; #X connect 14 0 16 1; #X connect 16 0 15 0; #X connect 21 0 17 0; #X connect 21 0 18 0; #X connect 21 0 19 0; #X connect 21 0 20 0; #X restore 198 246 pd plot_logic; #X obj 341 244 s \$0-lms; #X msg 341 220 adaptation 1; #X obj 341 199 loadbang; #X obj 198 207 s \$0-lms; #X msg 198 171 mu \$1; #X floatatom 210 150 8 0 0 0 - - -; #X text 275 147 <- try different mu; #X msg 199 109 clear; #X text 242 110 <- clear to start new adaptation; #X text 189 461 -- 1024 samples --; #X obj 37 131 s~ x_; #X obj 132 130 s~ d_; #X obj 31 213 s~ y_; #X obj 76 213 s~ e_; #N canvas 0 0 450 300 graph3 0; #X array e 1024 float 0; #X coords 0 2 1023 0 400 140 1; #X restore 48 534 graph; #X text 195 693 -- 1024 samples --; #X text 47 510 squared error e^2[n] (learning curve):; #X obj 30 181 nlms2~ 1 0.001; #X connect 0 0 20 0; #X connect 0 0 27 0; #X connect 1 0 21 0; #X connect 1 0 27 1; #X connect 5 0 27 0; #X connect 11 0 10 0; #X connect 12 0 11 0; #X connect 14 0 13 0; #X connect 15 0 14 0; #X connect 17 0 13 0; #X connect 27 0 22 0; #X connect 27 1 23 0; #X restore 38 540 pd NLMS2_EXAMPLE; #N canvas 347 29 502 539 NLMS_EXPLANATION 0; #X text 35 135 x[n] ... input signal of the system; #X text 35 120 c[n] ... coefficient vector of the system; #X text 35 104 y[n] ... output signal of the system; #X text 35 398 d[n] ... desired signal \, reference signal; #X text 50 74 -> y[n] = c0[n]*x[n] + c1[n]*x[n-1] + c2[n]*x[n-2] + ...; #X text 35 312 mu ... step-size parameter (learning rate); #X text 34 282 c[n] ... new coefficient vector; #X text 34 297 c[n-1] ... old coefficient vector; #X text 34 354 e[n] ... error sample at time n \, LMS tries to minimize this error; #X text 35 382 x[n] ... tap-input vector at time n; #X text 71 241 with e[n] = d[n] - y[n]; #X text 33 33 An adaptive system is simply a FIR filter with the coefficients c[n] \, which can be learned.; #X text 36 440 How to choose mu ?; #X text 36 463 Sufficient (deterministic) stability condition:; #X text 32 195 The normalized LMS Adaptation Algorithm:; #X text 70 226 c[n] = c[n-1] + mu/(alpha+abs(x[n])^2) *e[n]*x[n]; #X text 34 327 alpha ... a small positive constant \, only to avoid division by zero; #X text 152 490 0 < mu < 2; #X restore 38 561 pd NLMS_EXPLANATION; #X msg 387 352 getmu; #X msg 387 331 mu \$1; #X floatatom 395 312 8 0 0 0 - - -; #X msg 387 460 getN; #X msg 387 549 help; #X msg 387 209 clear; #X msg 387 276 print; #X msg 387 517 read demo.dat; #X msg 387 173 getadaptation; #X obj 387 130 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X msg 387 151 adaptation \$1; #X msg 387 496 write demo.dat; #X obj 387 578 s message; #X text 490 151 turn adaptation on/off; #X text 435 203 clear current coefficients; #X text 435 216 and set them back to 0; #X text 436 275 print current coefficients; #X text 438 335 set/get stepsize parameter; #X text 439 349 mu (learning rate); #X text 428 460 get Nr. of coefficients; #X text 498 513 and mu to file; #X text 498 499 write/read coefficients; #X floatatom 395 382 8 0 0 0 - - -; #X msg 387 401 alpha \$1; #X msg 387 422 getalpha; #X text 456 403 set/get alpha (normally; #X text 457 417 you don't need that); #X msg 387 246 init_unity; #X text 467 233 set first coefficient to 1 \,; #X text 469 246 all others to 0 (= delay; #X text 468 259 free transmission); #X connect 1 0 30 0; #X connect 2 0 0 0; #X connect 17 0 30 0; #X connect 18 0 30 1; #X connect 21 0 20 0; #X connect 23 0 24 0; #X connect 23 1 25 0; #X connect 30 0 2 0; #X connect 30 1 21 0; #X connect 30 2 23 0; #X connect 33 0 45 0; #X connect 34 0 45 0; #X connect 35 0 34 0; #X connect 36 0 45 0; #X connect 37 0 45 0; #X connect 38 0 45 0; #X connect 39 0 45 0; #X connect 40 0 45 0; #X connect 41 0 45 0; #X connect 42 0 43 0; #X connect 43 0 45 0; #X connect 44 0 45 0; #X connect 55 0 56 0; #X connect 56 0 45 0; #X connect 57 0 45 0; #X connect 60 0 45 0; --- NEW FILE: nlms~-help.pd --- #N canvas 0 0 700 667 10; #X msg 395 342 getmu; #X msg 395 321 mu \$1; #X floatatom 403 302 8 0 0 0 - - -; #X msg 395 450 getN; #X msg 395 539 help; #X msg 395 199 clear; #X msg 395 266 print; #X floatatom 37 406 8 0 0 0 - - -; #X msg 395 507 read demo.dat; #X msg 395 163 getadaptation; #X obj 395 120 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1; #X msg 395 141 adaptation \$1; #X msg 395 486 write demo.dat; #X obj 45 320 r message; #X obj 395 568 s message; #N canvas 0 0 260 260 unsig~ 0; #X obj 22 42 inlet~; #X text 62 42 ~signal_in~; #X obj 22 168 outlet; #X text 69 169 float-out; #X obj 22 142 snapshot~; #X obj 39 119 metro 300; #X obj 40 70 loadbang; #X msg 40 95 1; #X connect 0 0 4 0; #X connect 4 0 2 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 7 0 5 0; #X restore 37 384 pd unsig~; #X text 89 260 input signal x[n]; #X text 177 287 reference signal d[n]; #X text 177 302 (desired signal); #X text 108 385 output signal y[n]; #X text 35 172 init arg1: nr. of coefficients; #X text 498 141 turn adaptation on/off; #X text 443 193 clear current coefficients; #X text 443 206 and set them back to 0; #X text 444 265 print current coefficients; #X text 35 185 init arg2: stepsize parameter mu; #X text 446 325 set/get stepsize parameter; #X text 447 339 mu (learning rate); #X text 436 450 get Nr. of coefficients; #X text 506 503 and mu to file; #X text 506 489 write/read coefficients; #X text 206 622 (c) Georg Holzmann <grh(a)mur.at> \, 2005; #X text 36 481 some more info:; #X obj 219 24 cnv 15 258 58 empty empty empty 10 22 0 14 -1 -66577 0; #X obj 223 28 cnv 15 250 50 empty empty nlms~ 10 24 0 14 -228992 -1 0; #X text 350 38 adaptive systems; #X text 360 54 for Pure Data; #X text 34 562 in the example folder !; #X text 35 548 For much more examples see patches; #X obj 38 259 sig~ 2; #X obj 125 286 sig~ 1; #X text 36 134 Normalized LMS: normalized least mean square; #X text 146 147 adaptation algorithm; #N canvas 347 29 502 539 NLMS_EXPLANATION 0; #X text 35 135 x[n] ... input signal of the system; #X text 35 120 c[n] ... coefficient vector of the system; #X text 35 104 y[n] ... output signal of the system; #X text 35 398 d[n] ... desired signal \, reference signal; #X text 50 74 -> y[n] = c0[n]*x[n] + c1[n]*x[n-1] + c2[n]*x[n-2] + ...; #X text 35 312 mu ... step-size parameter (learning rate); #X text 34 282 c[n] ... new coefficient vector; #X text 34 297 c[n-1] ... old coefficient vector; #X text 34 354 e[n] ... error sample at time n \, LMS tries to minimize this error; #X text 35 382 x[n] ... tap-input vector at time n; #X text 71 241 with e[n] = d[n] - y[n]; #X text 33 33 An adaptive system is simply a FIR filter with the coefficients c[n] \, which can be learned.; #X text 36 440 How to choose mu ?; #X text 36 463 Sufficient (deterministic) stability condition:; #X text 32 195 The normalized LMS Adaptation Algorithm:; #X text 70 226 c[n] = c[n-1] + mu/(alpha+abs(x[n])^2) *e[n]*x[n]; #X text 34 327 alpha ... a small positive constant \, only to avoid division by zero; #X text 152 490 0 < mu < 2; #X restore 38 503 pd NLMS_EXPLANATION; #N canvas 536 326 510 502 NLMS_EXAMPLE 0; #X obj 31 109 sig~ 2; #X obj 116 111 sig~ 1; #X text 36 87 x[n]; #X text 124 92 d[n]; #X text 31 234 y[n]; #X text 115 28 x[n] = 2 \, d[n] = 1 \, N = 1 (= nr. of coefficients) ; #X text 26 29 EXAMPLE:; #N canvas 0 0 450 300 graph3 0; #X array x 1024 float 0; #X array y 1024 float 0; #X array d 1024 float 0; #X coords 0 2 1023 0 400 140 1; #X restore 51 302 graph; #N canvas 422 247 725 220 plot_logic 0; #X obj 72 168 tabwrite~ x; #X obj 158 168 tabwrite~ y; #X obj 244 168 tabwrite~ d; #X obj 191 105 metro 100; #X obj 191 54 loadbang; #X msg 191 80 1; #X obj 386 57 loadbang; #X obj 72 142 r~ x_; #X obj 158 142 r~ y_; #X obj 244 142 r~ d_; #X msg 362 153 \; x yticks 0 0.25 2; #X msg 346 121 \; x xticks 0 32 2; #X msg 503 150 \; x ylabel 1060 0 0.5 1 1.5 2; #X msg 479 105 \; x xlabel -0.2 0 256 512 768 1024; #X connect 3 0 0 0; #X connect 3 0 1 0; #X connect 3 0 2 0; #X connect 4 0 5 0; #X connect 5 0 3 0; #X connect 6 0 11 0; #X connect 6 0 10 0; #X connect 6 0 13 0; #X connect 6 0 12 0; #X connect 7 0 0 0; #X connect 8 0 1 0; #X connect 9 0 2 0; #X restore 198 246 pd plot_logic; #X msg 341 220 adaptation 1; #X obj 341 199 loadbang; #X msg 198 171 mu \$1; #X floatatom 210 150 8 0 0 0 - - -; #X text 275 147 <- try different mu; #X msg 199 109 clear; #X text 242 110 <- clear to start new adaptation; #X text 189 461 -- 1024 samples --; #X obj 37 131 s~ x_; #X obj 125 133 s~ d_; #X obj 31 213 s~ y_; #X obj 40 159 r \$0-nlms; #X obj 198 207 s \$0-nlms; #X obj 341 244 s \$0-nlms; #X obj 30 181 nlms~ 1 0.001; #X connect 0 0 17 0; #X connect 0 0 23 0; #X connect 1 0 18 0; #X connect 1 0 23 1; #X connect 9 0 22 0; #X connect 10 0 9 0; #X connect 11 0 21 0; #X connect 12 0 11 0; #X connect 14 0 21 0; #X connect 20 0 23 0; #X connect 23 0 19 0; #X restore 38 525 pd NLMS_EXAMPLE; #X floatatom 403 372 8 0 0 0 - - -; #X msg 395 391 alpha \$1; #X msg 395 412 getalpha; #X text 464 393 set/get alpha (normally; #X text 465 407 you don't need that); #X obj 38 345 nlms~ 2 0.001; #X msg 395 236 init_unity; #X text 475 223 set first coefficient to 1 \,; #X text 477 236 all others to 0 (= delay; #X text 476 249 free transmission); #X connect 0 0 14 0; #X connect 1 0 14 0; #X connect 2 0 1 0; #X connect 3 0 14 0; #X connect 4 0 14 0; #X connect 5 0 14 0; #X connect 6 0 14 0; #X connect 8 0 14 0; #X connect 9 0 14 0; #X connect 10 0 11 0; #X connect 11 0 14 0; #X connect 12 0 14 0; #X connect 13 0 50 0; #X connect 15 0 7 0; #X connect 39 0 50 0; #X connect 40 0 50 1; #X connect 45 0 46 0; #X connect 46 0 14 0; #X connect 47 0 14 0; #X connect 50 0 15 0; #X connect 51 0 14 0;

1 0

externals/grh/adaptive/doc help-lms2~.pd, 1.1, NONE help-lms~.pd, 1.1, NONE help-nlms2~.pd, 1.1, NONE help-nlms~.pd, 1.1, NONE
by Georg Holzmann 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/externals/grh/adaptive/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22095 Removed Files: help-lms2~.pd help-lms~.pd help-nlms2~.pd help-nlms~.pd Log Message: changing to new helpfile format --- help-nlms2~.pd DELETED --- --- help-nlms~.pd DELETED --- --- help-lms~.pd DELETED --- --- help-lms2~.pd DELETED ---

1 0

scripts build-libs-for-pd-on-mingw.sh,1.3,1.4
by Hans-Christoph Steiner 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/scripts In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19491 Modified Files: build-libs-for-pd-on-mingw.sh Log Message: tweaked to hopefully make it more fault-tolerant Index: build-libs-for-pd-on-mingw.sh =================================================================== RCS file: /cvsroot/pure-data/scripts/build-libs-for-pd-on-mingw.sh,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** build-libs-for-pd-on-mingw.sh 28 Sep 2006 18:03:36 -0000 1.3 --- build-libs-for-pd-on-mingw.sh 5 Jan 2007 16:31:23 -0000 1.4 *************** *** 33,38 **** else echo "Building everything for $testfile" ! tar xzf tcl8.4.13-src.tar.gz ! cd tcl8.4.13/win ./configure && make CYGPATH=echo && make install cd ../.. --- 33,38 ---- else echo "Building everything for $testfile" ! tar xzf tcl8.4.*-src.tar.gz ! cd tcl8.4.*/win ./configure && make CYGPATH=echo && make install cd ../.. *************** *** 45,50 **** else echo "Building everything for $testfile" ! tar xzf tk8.4.13-src.tar.gz ! cd tk8.4.13/win ./configure && make CYGPATH=echo && make install cd ../.. --- 45,50 ---- else echo "Building everything for $testfile" ! tar xzf tk8.4.*-src.tar.gz ! cd tk8.4.*/win ./configure && make CYGPATH=echo && make install cd ../.. *************** *** 57,61 **** else echo "Building everything for $testfile" ! tar xzf libogg-1.1.3.tar.gz && cd libogg-1.1.3 ./configure && make && make install cd .. --- 57,62 ---- else echo "Building everything for $testfile" ! tar xzf libogg-1.1.*.tar.gz ! cd libogg-1.1.* ./configure && make && make install cd .. *************** *** 85,89 **** else echo "Building everything for $testfile" ! tar xzf libvorbis-1.1.2.tar.gz && cd libvorbis-1.1.2 ./configure && make cd lib --- 86,91 ---- else echo "Building everything for $testfile" ! tar xzf libvorbis-1.1.*.tar.gz ! cd libvorbis-1.1.* ./configure && make cd lib

1 0

autobuild: pd-main macosx104-powerpc 2007-01-05 03.15.02
by pd＠macosx104-powerpc.idmi.poly.edu 05 Jan '07

05 Jan '07

cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/m_sched.o m_sched.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_main.o s_main.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_inter.o s_inter.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_file.o s_file.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_print.o s_print.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_loader.o s_loader.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_path.o s_path.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_entry.o s_entry.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_audio.o s_audio.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/s_midi.o s_midi.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/d_ugen.o d_ugen.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/d_ctl.o d_ctl.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/d_arithmetic.o d_arithmetic.c cc -g -O2 -DPD -Wall -W -Wstrict-prototypes -Wno-unused -Wno-parentheses -Wno-switch -DDL_OPEN -DMACOSX -DUNISTD -I/usr/X11R6/include -I../portaudio/pa_common -I../portaudio/pablio -I../portmidi/pm_common -I../portmidi/pm_mac -I../portmidi/porttime -DUSEAPI_PORTAUDIO -DPA19 -DPA_USE_COREAUDIO -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc -Wno-error -O2 -DUSEAPI_JACK -DINSTALL_PREFIX=\"\" -c -o ../obj/d_osc.o d_osc.c d_osc.c:39:2: error: #error No byte order defined d_osc.c:39:2: error: #error No byte order defined lipo: can't figure out the architecture type of: /var/tmp//ccSJHXqq.out make[2]: *** [d_osc.o] Error 1 make[1]: *** [pd_install] Error 2 make: *** [darwin_app_core] Error 2

1 0

pd/extra/pureunity commutative-test.pd, NONE, 1.1.2.1 distributive-test.pd, NONE, 1.1.2.1 associative-test.pd, NONE, 1.1.2.1 invertible-test.pd, NONE, 1.1.2.1
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/extra/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8259 Added Files: Tag: desiredata commutative-test.pd distributive-test.pd associative-test.pd invertible-test.pd Log Message: practical tests for certain properties of operator2 --- NEW FILE: distributive-test.pd --- #N canvas 665 86 471 430 10; #X obj 40 15 inlet bang; #X obj 37 160 /; #X obj 37 179 t a a; #X text 157 24 with tolerance 0; #X obj 37 198 <= 0; #X text 156 9 This test verifies that 3*(4+5)=3*4+3*5; #X msg 40 34 3 4 5; #X obj 40 82 unpack 0 0 0; #X obj 37 255 outlet; #X obj 37 141 * 2; #X obj 37 103 distributor \$1 \$2 \$3; #X obj 37 236 list append distributive \$1 \$2 \$3; #X obj 37 217 pack 0 0 -1; #X obj 37 122 norm.\$1; #X obj 172 122 norm.\$1; #X connect 0 0 6 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 2 1 12 1; #X connect 4 0 12 0; #X connect 6 0 7 0; #X connect 7 0 10 0; #X connect 7 1 10 1; #X connect 7 2 10 2; #X connect 9 0 1 0; #X connect 10 0 13 0; #X connect 10 1 14 0; #X connect 11 0 8 0; #X connect 12 0 11 0; #X connect 13 0 9 0; #X connect 14 0 1 1; --- NEW FILE: associative-test.pd --- #N canvas 736 151 452 434 10; #X obj 40 15 inlet bang; #X obj 40 150 /; #X obj 40 169 t a a; #X text 167 24 with tolerance 0; #X obj 40 188 <= 0; #X text 167 9 This test verifies that (1+2)+3=1+(2+3); #X msg 40 34 1 2 3; #X obj 40 74 unpack 0 0 0; #X obj 40 245 outlet; #X obj 40 131 * 2; #X obj 40 93 associator \$1 \$2; #X obj 40 226 list append associative \$1 \$2; #X obj 40 207 pack 0 0 -1; #X obj 40 112 norm.\$1; #X obj 147 112 norm.\$1; #X connect 0 0 6 0; #X connect 1 0 2 0; #X connect 2 0 4 0; #X connect 2 1 12 1; #X connect 4 0 12 0; #X connect 6 0 7 0; #X connect 7 0 10 0; #X connect 7 1 10 1; #X connect 7 2 10 2; #X connect 9 0 1 0; #X connect 10 0 13 0; #X connect 10 1 14 0; #X connect 11 0 8 0; #X connect 12 0 11 0; #X connect 13 0 9 0; #X connect 14 0 1 1; --- NEW FILE: commutative-test.pd --- #N canvas 555 5 452 322 10; #X obj 40 15 inlet bang; #X obj 101 102 unpack 0 0; #X obj 101 183 /; #X msg 40 34 1 3; #X text 216 9 This test verifies that 1+3=3+1; #X obj 101 202 t a a; #X obj 101 278 outlet; #X text 217 44 with tolerance 0; #X obj 101 221 <= 0; #X text 218 23 and 1*3=3*1 and...; #X obj 101 164 * 2; #X obj 101 126 commutator \$1 \$2; #X obj 41 53 t b l b; #X obj 43 95 rtimer; #X floatatom 44 125 5 0 0 0 - - -; #X obj 101 259 list append commutative \$1 \$2; #X obj 101 240 pack 0 0 -1; #X obj 101 145 norm.\$1; #X obj 208 145 norm.\$1; #X connect 0 0 3 0; #X connect 1 0 11 0; #X connect 1 1 11 1; #X connect 2 0 5 0; #X connect 3 0 12 0; #X connect 5 0 8 0; #X connect 5 1 16 1; #X connect 8 0 16 0; #X connect 10 0 2 0; #X connect 11 0 17 0; #X connect 11 1 18 0; #X connect 12 0 13 1; #X connect 12 1 1 0; #X connect 12 2 13 0; #X connect 13 0 14 0; #X connect 15 0 6 0; #X connect 16 0 15 0; #X connect 17 0 10 0; #X connect 18 0 2 1; --- NEW FILE: invertible-test.pd --- #N canvas 665 86 452 291 10; #X obj 40 15 inlet bang; #X obj 40 79 unpack 0 0; #X obj 33 160 /; #X msg 40 34 1 3; #X obj 33 179 t a a; #X text 217 24 with tolerance 0; #X obj 33 198 <= 0; #X text 215 9 This test verifies that 1+3-3=1; #X obj 33 255 outlet; #X obj 33 141 * 2; #X obj 33 103 invertor \$1 \$2 \$3; #X obj 33 236 list append invertible \$1 \$2 \$3; #X obj 33 217 pack 0 0 -1; #X obj 33 122 norm.\$1; #X obj 147 123 norm.\$1; #X connect 0 0 3 0; #X connect 1 0 10 0; #X connect 1 1 10 1; #X connect 2 0 4 0; #X connect 3 0 1 0; #X connect 4 0 6 0; #X connect 4 1 12 1; #X connect 6 0 12 0; #X connect 9 0 2 0; #X connect 10 0 13 0; #X connect 10 1 14 0; #X connect 11 0 8 0; #X connect 12 0 11 0; #X connect 13 0 9 0; #X connect 14 0 2 1;

1 0

[PD-cvs] pd/extra/pureunity 2times.pd, NONE, 1.1.2.1 3times.pd, NONE, 1.1.2.1 4times.pd, NONE, 1.1.2.1
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/extra/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7177 Added Files: Tag: desiredata 2times.pd 3times.pd 4times.pd Log Message: . --- NEW FILE: 4times.pd --- #N canvas 330 193 381 323 10; #X obj 20 16 inlet; #X obj 69 108 inlet; #X obj 108 108 inlet; #X obj 20 35 route bang; #X obj 46 261 outlet; #X obj 46 130 \$1 \$2; #X obj 85 130 \$1 \$3; #X obj 85 190 route float; #X obj 46 210 route float; #X obj 147 108 inlet; #X obj 124 130 \$1 \$4; #X obj 124 170 route float; #X obj 20 54 t b b b b; #X obj 85 54 t a a a a; #X obj 187 108 inlet; #X obj 164 130 \$1 \$5; #X obj 134 229 pack s s s s; #X obj 46 229 pack 0 0 0 0; #X obj 164 150 route float; #X connect 0 0 3 0; #X connect 1 0 5 1; #X connect 2 0 6 1; #X connect 3 0 12 0; #X connect 3 1 13 0; #X connect 5 0 8 0; #X connect 6 0 7 0; #X connect 7 0 17 1; #X connect 7 1 16 1; #X connect 8 0 17 0; #X connect 8 1 16 0; #X connect 9 0 10 1; #X connect 10 0 11 0; #X connect 11 0 17 2; #X connect 11 1 16 2; #X connect 12 0 5 0; #X connect 12 1 6 0; #X connect 12 2 10 0; #X connect 12 3 15 0; #X connect 13 0 5 0; #X connect 13 1 6 0; #X connect 13 2 10 0; #X connect 13 3 15 0; #X connect 14 0 15 1; #X connect 15 0 18 0; #X connect 16 0 4 0; #X connect 17 0 4 0; #X connect 18 0 17 3; #X connect 18 1 16 3; --- NEW FILE: 3times.pd --- #N canvas 330 193 379 266 10; #X obj 20 16 inlet; #X obj 69 108 inlet; #X obj 108 108 inlet; #X obj 20 35 route bang; #X obj 46 241 outlet; #X obj 46 130 \$1 \$2; #X obj 85 130 \$1 \$3; #X obj 85 170 route float; #X obj 46 190 route float; #X obj 20 54 t b b b; #X obj 147 108 inlet; #X obj 124 130 \$1 \$4; #X obj 124 150 route float; #X obj 118 211 pack s s s; #X obj 46 209 pack 0 0 0; #X obj 85 54 t a a a; #X connect 0 0 3 0; #X connect 1 0 5 1; #X connect 2 0 6 1; #X connect 3 0 9 0; #X connect 3 1 15 0; #X connect 5 0 8 0; #X connect 6 0 7 0; #X connect 7 0 14 1; #X connect 7 1 13 1; #X connect 8 0 14 0; #X connect 8 1 13 0; #X connect 9 0 5 0; #X connect 9 1 6 0; #X connect 9 2 11 0; #X connect 10 0 11 1; #X connect 11 0 12 0; #X connect 12 0 14 2; #X connect 12 1 13 2; #X connect 13 0 4 0; #X connect 14 0 4 0; #X connect 15 0 5 0; #X connect 15 1 6 0; #X connect 15 2 11 0; --- NEW FILE: 2times.pd --- #N canvas 330 193 379 266 10; #X obj 20 16 inlet; #X obj 69 108 inlet; #X obj 108 108 inlet; #X obj 85 54 t a a; #X obj 20 35 route bang; #X obj 20 54 t b b; #X obj 118 211 pack s s; #X obj 46 209 pack 0 0; #X obj 46 241 outlet; #X obj 46 130 \$1 \$2; #X obj 85 130 \$1 \$3; #X obj 85 170 route float; #X obj 46 190 route float; #X connect 0 0 4 0; #X connect 1 0 9 1; #X connect 2 0 10 1; #X connect 3 0 9 0; #X connect 3 1 10 0; #X connect 4 0 5 0; #X connect 4 1 3 0; #X connect 5 0 9 0; #X connect 5 1 10 0; #X connect 6 0 8 0; #X connect 7 0 8 0; #X connect 9 0 12 0; #X connect 10 0 11 0; #X connect 11 0 7 1; #X connect 11 1 6 1; #X connect 12 0 7 0; #X connect 12 1 6 0;

1 0

pd/extra/pureunity commutator.pd, NONE, 1.1.2.1 associator.pd, NONE, 1.1.2.1 distributor.pd, NONE, 1.1.2.1 invertor.pd, NONE, 1.1.2.1
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/extra/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4963 Added Files: Tag: desiredata commutator.pd associator.pd distributor.pd invertor.pd Log Message: testers for properties of operator2 --- NEW FILE: invertor.pd --- #N canvas 336 387 602 199 10; #X text 185 60 when the invertor is 0 the rule is respected.; #X text 185 83 see invertible-test.pd; #X text 19 174 invertor; #X text 149 174 antiinvertor; #X text 184 11 invertibility rule for operator \$2 with (presumed) right-inverse \$3 is:; #X text 184 45 (a \$2 b) \$3 b - a = 0; #X obj 18 19 inlet.\$1 a; #X obj 101 19 inlet.\$1 b; #X obj 18 39 taa.\$1; #X obj 18 65 op2.\$1 \$2; #X obj 18 91 op2.\$1 \$3; #X obj 18 115 taa.\$1; #X obj 18 137 op2.\$1 -; #X obj 18 156 outlet.\$1 (ab)/b-a; #X obj 148 156 outlet.\$1 (ab)/b+a; #X obj 148 137 op2.\$1 +; #X connect 6 0 8 0; #X connect 7 0 9 1; #X connect 7 0 10 1; #X connect 8 0 9 0; #X connect 8 1 12 1; #X connect 8 1 15 1; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 1 15 0; #X connect 12 0 13 0; #X connect 15 0 14 0; --- NEW FILE: distributor.pd --- #N canvas 414 247 580 318 10; #X text 183 92 see distributive-test.pd; #X text 183 69 when the distributor is 0 the rule is respected.; #X text 16 269 distributor; #X text 180 269 antidistributor; #X text 182 40 distributivity rule for operator \$3 over operator \$2 is:; #X text 182 54 a \$3 (b \$2 c) - ((a \$3 b) \$2 (a \$3 c)) = 0; #X obj 18 19 inlet.\$1 a; #X obj 91 19 inlet.\$1 b; #X obj 164 19 inlet.\$1 c; #X obj 18 61 packunpack3.\$1; #X obj 18 80 taa.\$1; #X obj 55 99 taa.\$1; #X obj 25 146 op2.\$1 \$2; #X obj 18 169 op2.\$1 \$3; #X obj 18 193 taa.\$1; #X obj 18 232 op2.\$1 -; #X obj 18 251 outlet.\$1 a(bc)-(ab+ac); #X obj 182 251 outlet.\$1 a(bc)+(ab+ac); #X obj 182 232 op2.\$1 +; #X obj 184 184 op2.\$1 \$3; #X obj 124 165 op2.\$1 \$3; #X obj 124 184 op2.\$1 \$2; #X connect 6 0 9 0; #X connect 7 0 9 1; #X connect 8 0 9 2; #X connect 9 0 10 0; #X connect 9 1 12 0; #X connect 9 1 20 1; #X connect 9 2 12 1; #X connect 9 2 19 1; #X connect 10 0 13 0; #X connect 10 1 11 0; #X connect 11 0 20 0; #X connect 11 1 19 0; #X connect 12 0 13 1; #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 14 1 18 0; #X connect 15 0 16 0; #X connect 18 0 17 0; #X connect 19 0 21 1; #X connect 20 0 21 0; #X connect 21 0 15 1; #X connect 21 0 18 1; --- NEW FILE: commutator.pd --- #N canvas 394 81 620 407 10; #X text 90 114 ba; #X text 33 93 ab; #X text 220 113 however \, this thing i call commutator is more general ; #X text 219 132 see commutative-test.pd; #X text 127 217 anticommutator; #X text 19 217 commutator; #X text 218 15 Say operator \$2 is *. Then the commutativity rule is: ; #X text 218 32 a*b=b*a which is also a*b-b*a = 0; #X text 218 48 the commutator is a*b - b*a; #X text 219 72 when \$2=+ this is also known as a "group commutator" ; #X text 219 92 when \$2=* this is also known as a "ring commutator" ; #X obj 18 19 inlet.\$1 a; #X obj 93 19 inlet.\$1 b; #X obj 18 38 taa.\$1; #X obj 18 74 op2.\$1 \$2; #X obj 80 98 op2.\$1 \$2; #X obj 80 74 swap.\$1; #X obj 18 180 op2.\$1 -; #X obj 127 180 op2.\$1 +; #X obj 18 199 outlet.\$1 ab-ba; #X obj 127 199 outlet.\$1 ab+ba; #X obj 18 121 taa.\$1; #X connect 11 0 13 0; #X connect 12 0 14 1; #X connect 12 0 16 1; #X connect 13 0 14 0; #X connect 13 1 16 0; #X connect 14 0 21 0; #X connect 15 0 17 1; #X connect 15 0 18 0; #X connect 16 0 15 0; #X connect 16 1 15 1; #X connect 17 0 19 0; #X connect 18 0 20 0; #X connect 21 0 17 0; #X connect 21 1 18 1; --- NEW FILE: associator.pd --- #N canvas 574 54 580 317 10; #X text 245 40 when the associator is 0 the rule is respected.; #X text 245 63 see associative-test.pd; #X text 16 219 associator; #X text 166 219 antiassociator; #X text 244 25 (a*b)*c - a*(b*c) = 0; #X text 244 11 associativity rule for operator *=\$2 is:; #X obj 18 19 inlet.\$1 a; #X obj 91 19 inlet.\$1 b; #X obj 164 19 inlet.\$1 c; #X obj 18 61 packunpack3.\$1; #X obj 18 104 op2.\$1 \$2; #X obj 18 123 op2.\$1 \$2; #X obj 102 108 op2.\$1 \$2; #X obj 102 134 op2.\$1 \$2; #X obj 18 153 taa.\$1; #X obj 18 182 op2.\$1 -; #X obj 168 182 op2.\$1 +; #X obj 168 201 outlet.\$1 (ab)c+a(bc); #X obj 18 201 outlet.\$1 (ab)c-a(bc); #X connect 6 0 9 0; #X connect 7 0 9 1; #X connect 8 0 9 2; #X connect 9 0 10 0; #X connect 9 0 13 0; #X connect 9 1 10 1; #X connect 9 1 12 0; #X connect 9 2 11 1; #X connect 9 2 12 1; #X connect 10 0 11 0; #X connect 11 0 14 0; #X connect 12 0 13 1; #X connect 13 0 15 1; #X connect 13 0 16 1; #X connect 14 0 15 0; #X connect 14 1 16 0; #X connect 15 0 18 0; #X connect 16 0 17 0;

1 0

pd/extra/pureunity Makefile, 1.1.2.1, 1.1.2.2 pureunity.c, 1.1.2.1, 1.1.2.2
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/extra/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1526 Modified Files: Tag: desiredata Makefile pureunity.c Log Message: changing aliases for the new pureunity (like inlet.f instead of f.inlet) Index: Makefile =================================================================== RCS file: /cvsroot/pure-data/pd/extra/pureunity/Attic/Makefile,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** Makefile 5 Jan 2007 00:18:27 -0000 1.1.2.1 --- Makefile 5 Jan 2007 07:08:57 -0000 1.1.2.2 *************** *** 1,6 **** # if you don't want the standard pd, set the PD-variable before doing "make" # e.g. "PD=/home/matju/pd_devel_0_39_und/bin/pd make" ! PD ?= pd ! PDFLAGS = -lib pureunity -noaudio -path generics -path specifics PDFLAGS += -lib gridflow CFLAGS = -Wall --- 1,7 ---- # if you don't want the standard pd, set the PD-variable before doing "make" # e.g. "PD=/home/matju/pd_devel_0_39_und/bin/pd make" ! PD ?= pd ! #PD ?= desire ! PDFLAGS = -lib pureunity -noaudio PDFLAGS += -lib gridflow CFLAGS = -Wall Index: pureunity.c =================================================================== RCS file: /cvsroot/pure-data/pd/extra/pureunity/Attic/pureunity.c,v retrieving revision 1.1.2.1 retrieving revision 1.1.2.2 diff -C2 -d -r1.1.2.1 -r1.1.2.2 *** pureunity.c 5 Jan 2007 02:21:13 -0000 1.1.2.1 --- pureunity.c 5 Jan 2007 07:08:57 -0000 1.1.2.2 *************** *** 22,27 **** #include <sys/time.h> ! /*#include <m_pd.h>*/ ! #include "../../pd/src/m_pd.h" #define ALIAS(y,x) class_addcreator((t_newmethod)getfn(m,gensym(x)),gensym(y),A_GIMME,0); --- 22,26 ---- #include <sys/time.h> ! #include "../../src/m_pd.h" #define ALIAS(y,x) class_addcreator((t_newmethod)getfn(m,gensym(x)),gensym(y),A_GIMME,0); *************** *** 51,60 **** void pureunity_setup() { t_pd *m = &pd_objectmaker; ! ALIAS( "f.inlet","inlet" ); ! ALIAS( "#.inlet","inlet" ); ! ALIAS( "~.inlet","inlet~" ); ! ALIAS("f.outlet","outlet" ); ! ALIAS("#.outlet","outlet" ); ! ALIAS("~.outlet","outlet~"); ALIAS( "f.swap","swap" ); rtimer_class = class_new(gensym("rtimer"),(t_newmethod)rtimer_new,0,sizeof(t_rtimer),0,0); --- 50,59 ---- void pureunity_setup() { t_pd *m = &pd_objectmaker; ! ALIAS( "inlet.f","inlet" ); ! ALIAS( "inlet.#","inlet" ); ! ALIAS( "inlet.~","inlet~" ); ! ALIAS("outlet.f","outlet" ); ! ALIAS("outlet.#","outlet" ); ! ALIAS("outlet.~","outlet~"); ALIAS( "f.swap","swap" ); rtimer_class = class_new(gensym("rtimer"),(t_newmethod)rtimer_new,0,sizeof(t_rtimer),0,0);

1 0

pd/extra/pureunity packunpack3.f.pd, NONE, 1.1.2.1 packunpack3.~.pd, NONE, 1.1.2.1 packunpack3.#.pd, NONE, 1.1.2.1
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/extra/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv767 Added Files: Tag: desiredata packunpack3.f.pd packunpack3.~.pd packunpack3.#.pd Log Message: does like [pack f f f]->[unpack f f f] on all 3 types --- NEW FILE: packunpack3.f.pd --- #N canvas 285 202 449 125 10; #X obj 106 87 outlet; #X obj 105 14 inlet; #X obj 59 14 inlet; #X obj 60 87 outlet; #X obj 14 87 outlet; #X obj 13 14 inlet; #X obj 27 41 pack 0 0 0; #X obj 27 60 unpack 0 0 0; #X connect 1 0 6 2; #X connect 2 0 6 1; #X connect 5 0 6 0; #X connect 6 0 7 0; #X connect 7 0 4 0; #X connect 7 1 3 0; #X connect 7 2 0 0; --- NEW FILE: packunpack3.~.pd --- #N canvas 285 202 449 67 10; #X obj 13 14 inlet~; #X obj 13 34 outlet~; #X obj 73 14 inlet~; #X obj 73 34 outlet~; #X obj 133 14 inlet~; #X obj 133 34 outlet~; #X connect 0 0 1 0; #X connect 2 0 3 0; #X connect 4 0 5 0; --- NEW FILE: packunpack3.#.pd --- #N canvas 622 298 449 167 10; #X obj 105 127 outlet; #X obj 115 14 inlet; #X obj 69 14 inlet; #X obj 59 127 outlet; #X obj 13 127 outlet; #X obj 13 14 inlet; #X obj 84 64 #store; #X obj 38 64 #store; #X obj 13 33 t a b b; #X connect 1 0 6 1; #X connect 2 0 7 1; #X connect 5 0 8 0; #X connect 6 0 0 0; #X connect 7 0 3 0; #X connect 8 0 4 0; #X connect 8 1 7 0; #X connect 8 2 6 0;

1 0

[PD-cvs] pd/extra/pureunity rand.f.pd, NONE, 1.1.2.1 rand.~.pd, NONE, 1.1.2.1 rand.#.pd, NONE, 1.1.2.1
by Mathieu Bouchard 05 Jan '07

05 Jan '07

Update of /cvsroot/pure-data/pd/extra/pureunity In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31435 Added Files: Tag: desiredata rand.f.pd rand.~.pd rand.#.pd Log Message: multiscale randomizers for probabilistic testing --- NEW FILE: rand.f.pd --- #N canvas 0 0 450 300 10; #X obj 11 14 inlet; #X obj 11 192 *; #X obj 63 75 random 256; #X obj 183 87 random; #X msg 220 39 1; #X obj 220 20 loadbang; #X obj 220 58 << 23; #X obj 183 106 +; #X obj 11 33 t b b b; #X obj 11 116 random 2; #X obj 11 154 - 1; #X obj 63 94 - 150; #X obj 33 94 pow; #X obj 11 211 outlet; #X obj 33 56 t b b; #X msg 33 75 2; #X obj 11 173 *; #X obj 11 135 * 2; #X connect 0 0 8 0; #X connect 1 0 13 0; #X connect 2 0 11 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 4 0; #X connect 6 0 3 1; #X connect 6 0 7 1; #X connect 7 0 16 1; #X connect 8 0 9 0; #X connect 8 1 14 0; #X connect 8 2 3 0; #X connect 9 0 17 0; #X connect 10 0 16 0; #X connect 11 0 12 1; #X connect 12 0 1 1; #X connect 14 0 15 0; #X connect 14 1 2 0; #X connect 15 0 12 0; #X connect 16 0 1 0; #X connect 17 0 10 0; --- NEW FILE: rand.#.pd --- #N canvas 0 0 450 300 10; #X obj 21 34 inlet; #X obj 21 223 *; #X obj 73 95 random 256; #X obj 183 87 random; #X msg 220 39 1; #X obj 220 20 loadbang; #X obj 220 58 << 23; #X obj 183 106 +; #X obj 21 53 t b b b; #X obj 21 136 random 2; #X obj 21 174 - 1; #X obj 73 114 - 150; #X obj 43 114 pow; #X obj 21 242 outlet; #X obj 43 76 t b b; #X msg 43 95 2; #X obj 21 199 *; #X obj 21 155 * 2; #X text 125 205 Should this actually produce a grid or not?...; #X text 126 221 Whatever does the job...; #X connect 0 0 8 0; #X connect 1 0 13 0; #X connect 2 0 11 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 4 0; #X connect 6 0 3 1; #X connect 6 0 7 1; #X connect 7 0 16 1; #X connect 8 0 9 0; #X connect 8 1 14 0; #X connect 8 2 3 0; #X connect 9 0 17 0; #X connect 10 0 16 0; #X connect 11 0 12 1; #X connect 12 0 1 1; #X connect 14 0 15 0; #X connect 14 1 2 0; #X connect 15 0 12 0; #X connect 16 0 1 0; #X connect 17 0 10 0; --- NEW FILE: rand.~.pd --- #N canvas 339 187 450 177 10; #X obj 105 118 pow; #X obj 105 80 t b b; #X msg 105 99 2; #X obj 22 98 env~; #X obj 11 14 inlet; #X obj 10 143 outlet~; #X text 52 14 banging the inlet does nothing for signals.; #X obj 37 62 noise~; #X obj 135 99 random 64; #X obj 135 118 - 64; #X obj 11 62 *~; #X connect 0 0 10 0; #X connect 1 0 2 0; #X connect 1 1 8 0; #X connect 2 0 0 0; #X connect 3 0 1 0; #X connect 7 0 10 1; #X connect 8 0 9 0; #X connect 9 0 0 1; #X connect 10 0 5 0; #X connect 10 0 3 0;

1 0

← Newer
1
...
40
41
42
43
44
45
46
...
54
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

Pd-cvs January 2007