Pd-cvs April 2007

pd-cvs@lists.iem.at

16 participants
269 discussions

abstractions/footils/list-abs list-inter-many-help.pd, NONE, 1.1 list-inter-many.pd, NONE, 1.1
by Frank Barknecht 23 Apr '07

23 Apr '07

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16063 Added Files: list-inter-many-help.pd list-inter-many.pd Log Message: inter-many interpolates between many lists --- NEW FILE: list-inter-many.pd --- #N canvas 452 377 578 375 10; #X obj 85 312 list-inter; #X obj 263 227 textfile; #N canvas 490 388 450 300 get-list 0; #X obj 61 48 inlet; #X msg 105 133 rewind; #X obj 83 158 until; #X obj 61 74 f; #X obj 61 97 t b a b; #X obj 61 221 outlet; #X obj 83 202 outlet; #X connect 0 0 3 0; #X connect 1 0 6 0; #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 4 1 2 0; #X connect 4 2 1 0; #X restore 191 193 pd get-list; #X obj 191 263 list; #X obj 337 27 inlet; #X obj 191 97 int; #X obj 191 161 + 1; #X obj 191 139 t a a; #X obj 221 161 + 2; #N canvas 490 388 450 300 get-list 0; #X obj 61 48 inlet; #X msg 105 133 rewind; #X obj 83 158 until; #X obj 61 74 f; #X obj 61 97 t b a b; #X obj 61 221 outlet; #X obj 83 198 outlet; #X connect 0 0 3 0; #X connect 1 0 6 0; #X connect 2 0 6 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 4 1 2 0; #X connect 4 2 1 0; #X restore 358 192 pd get-list; #X obj 358 262 list; #X obj 191 119 change; #X obj 85 22 inlet; #X obj 85 47 t a a; #X obj 85 335 outlet; #X obj 337 84 t b a; #X obj 147 77 moses 0; #N canvas 0 0 450 300 wrap 0; #X obj 139 160 -; #X obj 169 137 int; #X obj 139 116 t a a; #X obj 139 91 inlet; #X obj 139 185 outlet; #X connect 0 0 4 0; #X connect 1 0 0 1; #X connect 2 0 0 0; #X connect 2 1 1 0; #X connect 3 0 2 0; #X restore 85 128 pd wrap; #X connect 0 0 14 0; #X connect 1 0 3 1; #X connect 1 0 10 1; #X connect 2 0 3 0; #X connect 2 1 1 0; #X connect 3 0 0 1; #X connect 4 0 15 0; #X connect 5 0 11 0; #X connect 6 0 2 0; #X connect 7 0 6 0; #X connect 7 1 8 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 9 1 1 0; #X connect 10 0 0 2; #X connect 11 0 7 0; #X connect 12 0 13 0; #X connect 13 0 17 0; #X connect 13 1 16 0; #X connect 15 0 11 0; #X connect 15 1 1 0; #X connect 16 1 5 0; #X connect 17 0 0 0; --- NEW FILE: list-inter-many-help.pd --- #N canvas 256 50 619 683 10; #X obj 195 449 vsl 15 128 0 10 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 508 1; #X obj 234 449 vsl 15 128 0 10 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 1270 1; #X obj 274 449 vsl 15 128 0 10 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 6731 1; #X floatatom 195 423 5 0 0 0 - - -; #X floatatom 234 423 5 0 0 0 - - -; #X floatatom 274 423 5 0 0 0 - - -; #X obj 195 401 unpack 0 0 0 0; #X obj 313 450 vsl 15 128 0 10 0 0 empty empty empty 0 -8 0 8 -262144 -1 -1 127 1; #X floatatom 313 424 5 0 0 0 - - -; #X obj 195 372 list-inter-many; #N canvas 239 261 368 386 randlist 0; #X msg 141 73 4; #X obj 141 103 until; #X obj 141 130 random 100; #X obj 141 157 / 10; #X obj 141 199 list prepend; #X obj 232 200 t a; #X obj 118 242 list; #X obj 118 47 t b b b; #X obj 118 24 inlet; #X obj 118 318 outlet; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 2 0 3 0; #X connect 3 0 4 0; #X connect 4 0 5 0; #X connect 4 0 6 1; #X connect 5 0 4 1; #X connect 6 0 9 0; #X connect 7 0 6 0; #X connect 7 1 0 0; #X connect 7 2 4 1; #X connect 8 0 7 0; #X restore 385 282 pd randlist; #X msg 295 337 clear; #X msg 295 315 print; #X msg 385 260 add random list; #X obj 195 291 / 100; #X floatatom 195 268 5 0 0 0 - - -; #X obj 385 237 until; #X msg 385 214 4; #X obj 244 292 line; #X floatatom 244 321 5 0 0 0 - - -; #X msg 244 269 0 \, 3 2000; #X msg 385 434; #X text 390 412 textfile contents:; #X msg 339 376 set; #X text 117 621 Also see:; #X obj 193 622 list-inter; #X text 97 26 [list-inter-many]; #X obj 385 304 list prepend add; #X obj 385 327 list trim; #X text 94 93 Inlets:; #X text 94 61 Elementwise linear interpolation between several float lists stored in a [textfile] object internally.; #X text 98 208 Outlet: interpolated list.; #X text 108 171 1) [textfile] inlet. Use the selector "add" to add lists to the interpolation space; #X text 108 116 0) float: distance between lists. Values between 0 and 1 will interpolate the first two lists \, values between 1 and 2 interpolate the second with the third list and so on.; #X connect 3 0 0 0; #X connect 4 0 1 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 6 1 4 0; #X connect 6 2 5 0; #X connect 6 3 8 0; #X connect 8 0 7 0; #X connect 9 0 6 0; #X connect 10 0 27 0; #X connect 11 0 9 1; #X connect 11 0 23 0; #X connect 12 0 9 1; #X connect 13 0 10 0; #X connect 14 0 9 0; #X connect 15 0 14 0; #X connect 16 0 13 0; #X connect 17 0 16 0; #X connect 18 0 9 0; #X connect 18 0 19 0; #X connect 20 0 18 0; #X connect 23 0 21 0; #X connect 27 0 28 0; #X connect 28 0 9 1; #X connect 28 0 21 0;

1 0

autobuild: pd-extended-release macosx104-i386 2007-04-23 03.15.07
by pd＠macosx104-i386.idmi.poly.edu 23 Apr '07

23 Apr '07

install -p /Users/pd/auto-build/pd-extended-release/externals/hcs/hid/examples/*.pd /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/examples/hid install -p /Users/pd/auto-build/pd-extended-release/externals/pdp/*.pd_darwin /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/extra install -p /Users/pd/auto-build/pd-extended-release/externals/pdp/abstractions/*.pd /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/extra install -d /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/5.reference/pdp install -p /Users/pd/auto-build/pd-extended-release/externals/pdp/doc/objects/*.* /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/5.reference/pdp install -d /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/manuals/pdp install -p /Users/pd/auto-build/pd-extended-release/externals/pdp/doc/reference.txt /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/manuals/pdp install -p /Users/pd/auto-build/pd-extended-release/externals/pdp/doc/introduction/*.* \ /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/manuals/pdp install -d /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/examples/pdp install -p /Users/pd/auto-build/pd-extended-release/externals/pdp/doc/examples/*.* \ /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/doc/examples/pdp install -p /Users/pd/auto-build/pd-extended-release/externals/pidip/*.pd_darwin /Users/pd/auto-build/pd-extended-release/packages/darwin_app/build/Pd-0.39.2-extended-rc2.app/Contents/Resources/extra install: /Users/pd/auto-build/pd-extended-release/externals/pidip/*.pd_darwin: No such file or directory make[2]: *** [pidip_install] Error 71 make[1]: *** [externals_install] Error 2 make: *** [extended_install] Error 2 upload specs darwin_app . dmg Uploading /home/pd/auto-build/pd-extended-release/packages/darwin_app/./Pd*.dmg ls: /home/pd/auto-build/pd-extended-release/packages/darwin_app/./Pd*.dmg: No such file or directory

1 0

abstractions/footils/list-abs list-harmonic-mean-help.pd, 1.1, 1.2
by Frank Barknecht 22 Apr '07

22 Apr '07

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29817 Modified Files: list-harmonic-mean-help.pd Log Message: typo Index: list-harmonic-mean-help.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-harmonic-mean-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-harmonic-mean-help.pd 22 Apr 2007 13:02:24 -0000 1.1 --- list-harmonic-mean-help.pd 22 Apr 2007 13:06:44 -0000 1.2 *************** *** 1,3 **** ! #N struct 1026-dial float y; #N canvas 402 177 566 571 10; #N canvas 0 0 450 300 randlist 0; --- 1,3 ---- ! #N struct 1029-dial float y; #N canvas 402 177 566 571 10; #N canvas 0 0 450 300 randlist 0; *************** *** 63,67 **** #X restore 75 152 graph; #N canvas 0 0 916 918 \$0-c 0; ! #X scalar 1026-dial 0 \;; #X coords 0 0 200 140 200 140 1; #X restore 75 152 pd \$0-c; --- 63,67 ---- #X restore 75 152 graph; #N canvas 0 0 916 918 \$0-c 0; ! #X scalar 1029-dial 0 \;; #X coords 0 0 200 140 200 140 1; #X restore 75 152 pd \$0-c; *************** *** 144,148 **** #X restore 339 363 pd scale; #X obj 339 313 list-harmonic-mean; ! #X msg 79 414 0.6 6.9 3.6 5.6 0.7 3.8 3.9 5.3 9.2 9.2; #X connect 0 0 26 0; #X connect 1 0 0 0; --- 144,148 ---- #X restore 339 363 pd scale; #X obj 339 313 list-harmonic-mean; ! #X msg 79 414 7.4 4.8 2 8.4 5.6 3.6 1.1 8.6 5 8.6; #X connect 0 0 26 0; #X connect 1 0 0 0; *************** *** 172,177 **** #X restore 98 459 pd graphical-mean; #X obj 98 405 list-harmonic-mean; - #X text 114 91 geometric mean = n / (1/f0 + 1/f1 + 1/f2 + ... + 1/fn) - ; #X text 86 22 [list-harmonic-mean]; #X text 96 51 Calculates the harmonic mean of a list (of floats) according --- 172,175 ---- *************** *** 185,188 **** --- 183,188 ---- #X obj 184 515 list-mean; #X text 97 494 More means:; + #X text 114 91 harmonic mean = n / (1/f0 + 1/f1 + 1/f2 + ... + 1/fn) + ; #X connect 0 0 3 0; #X connect 1 0 0 0; *************** *** 191,193 **** #X connect 5 0 9 0; #X connect 9 0 2 0; ! #X connect 13 0 9 0; --- 191,193 ---- #X connect 5 0 9 0; #X connect 9 0 2 0; ! #X connect 12 0 9 0;

1 0

abstractions/footils/list-abs list-geometric-mean-help.pd, NONE, 1.1 list-geometric-mean.pd, NONE, 1.1 list-harmonic-mean-help.pd, NONE, 1.1 list-harmonic-mean.pd, NONE, 1.1 list-mean-help.pd, NONE, 1.1 list-mean.pd, NONE, 1.1 list-centroid.pd, 1.1, 1.2
by Frank Barknecht 22 Apr '07

22 Apr '07

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28387 Modified Files: list-centroid.pd Added Files: list-geometric-mean-help.pd list-geometric-mean.pd list-harmonic-mean-help.pd list-harmonic-mean.pd list-mean-help.pd list-mean.pd Log Message: pythagorean means added --- NEW FILE: list-harmonic-mean-help.pd --- #N struct 1026-dial float y; #N canvas 402 177 566 571 10; #N canvas 0 0 450 300 randlist 0; #X obj 134 129 until; #X msg 246 151 set; #X msg 134 193 add2 \$1; #X obj 112 101 t b f b; #X obj 135 249 outlet; #X obj 112 31 inlet; #X obj 112 73 + 1; #X obj 112 53 random 10; #X obj 134 151 random 10; #X obj 134 171 + 1; #X connect 0 0 8 0; #X connect 1 0 4 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 3 1 0 0; #X connect 3 2 1 0; #X connect 5 0 7 0; #X connect 6 0 3 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 2 0; #X restore 153 305 pd randlist; #X msg 153 283 bang; #X floatatom 98 439 5 0 0 1 harmonic_mean - -; #X msg 153 331 3 5 3 3 8; #X msg 98 228 1 2 3 4; #X msg 98 254 any symbols 1 2 3 4 are ignored; #X text 96 146 Non-floats in a list are silently dropped.; #X text 96 119 where n is the total number of floats in a list.; #N canvas 318 53 648 574 graphical-mean 0; #N canvas 0 0 450 300 randlist 0; #X obj 134 129 until; #X msg 246 151 set; #X msg 134 213 add2 \$1; #X obj 112 101 t b f b; #X obj 135 249 outlet; #X obj 112 31 inlet; #X obj 134 151 random 100; #X msg 112 59 10; #X obj 134 191 / 10; #X obj 134 170 + 1; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 3 1 0 0; #X connect 3 2 1 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 3 0; #X connect 8 0 2 0; #X connect 9 0 8 0; #X restore 79 388 pd randlist; #X msg 79 366 bang; #X obj 79 447 list prepend 0; #X obj 79 500 s \$0-tab; #N canvas 0 0 450 300 (subpatch) 0; #X array \$0-tab 10 float 0; #X coords 0 10 9 0 200 140 1; #X restore 75 152 graph; #N canvas 0 0 916 918 \$0-c 0; #X scalar 1026-dial 0 \;; #X coords 0 0 200 140 200 140 1; #X restore 75 152 pd \$0-c; #N canvas 0 0 503 429 create 0; #X msg 242 258 traverse pd-\$1 \, bang; #X obj 242 238 symbol \$0-c; #X msg 107 79 0; #X obj 242 278 pointer; #X msg 243 178 clear; #X obj 243 205 s pd-\$0-c; #X obj 107 114 t a b b; #X obj 107 50 loadbang; #X obj 107 326 outlet; #X obj 107 302 append \$0-dial y; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 6 0; #X connect 3 0 9 1; #X connect 4 0 5 0; #X connect 6 0 9 0; #X connect 6 1 1 0; #X connect 6 2 4 0; #X connect 7 0 2 0; #X connect 9 0 8 0; #X restore 440 364 pd create; #X obj 339 127 metro 50; #X obj 339 102 tgl 15 0 empty empty show-mean 17 7 1 10 -258699 -262144 -1 0 1; #N canvas 473 338 450 300 countto 0; #X obj 131 154 f 0; #X obj 156 153 + 1; #X msg 174 113 0; #X obj 131 183 outlet; #X obj 131 59 inlet; #X obj 131 116 until; #X obj 131 96 t a b; #X connect 0 0 1 0; #X connect 0 0 3 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 4 0 6 0; #X connect 5 0 0 0; #X connect 6 0 5 0; #X connect 6 1 2 0; #X restore 362 195 pd countto; #X obj 362 219 tabread \$0-tab; #X obj 362 249 list prepend; #X obj 452 249 t a; #X msg 362 175 10; #X obj 339 148 t b b b; #X obj 339 274 list; #X obj 79 344 loadbang; #X text 77 30 Switch on the "show"-metro and play with the values in the array.; #N canvas 336 319 712 355 \$0-dial 0; #X obj 19 119 outlet; #X obj 19 86 route change; #X obj 19 62 struct \$0-dial float y; #X obj 229 62 drawpolygon 900 2 0 y 200 y; #X connect 1 0 0 0; #X connect 2 0 1 0; #X restore 425 340 pd \$0-dial; #X msg 213 469 bounds 0 10 9 0; #X obj 213 449 loadbang; #X obj 339 388 set \$0-dial y; #X floatatom 339 339 5 0 0 0 - - -; #X msg 92 469 const 5; #N canvas 0 0 299 354 scale 0; #X msg 74 83 10 \$1; #X obj 74 107 -; #X obj 74 158 * 140; #X obj 74 134 / 20; #X obj 74 49 inlet; #X obj 74 182 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 5 0; #X connect 3 0 2 0; #X connect 4 0 0 0; #X restore 339 363 pd scale; #X obj 339 313 list-harmonic-mean; #X msg 79 414 0.6 6.9 3.6 5.6 0.7 3.8 3.9 5.3 9.2 9.2; #X connect 0 0 26 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 6 0 21 1; #X connect 7 0 14 0; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 0 15 1; #X connect 12 0 11 1; #X connect 13 0 9 0; #X connect 14 0 15 0; #X connect 14 1 13 0; #X connect 14 2 11 1; #X connect 15 0 25 0; #X connect 16 0 1 0; #X connect 18 0 21 1; #X connect 19 0 3 0; #X connect 20 0 19 0; #X connect 22 0 24 0; #X connect 23 0 3 0; #X connect 24 0 21 0; #X connect 25 0 22 0; #X connect 26 0 2 0; #X restore 98 459 pd graphical-mean; #X obj 98 405 list-harmonic-mean; #X text 114 91 geometric mean = n / (1/f0 + 1/f1 + 1/f2 + ... + 1/fn) ; #X text 86 22 [list-harmonic-mean]; #X text 96 51 Calculates the harmonic mean of a list (of floats) according to:; #X msg 154 357 0 1 2 3 4; #X text 234 357 0 makes the harmonic mean limit to 0; #X text 95 171 If a 0 occurs \, the harmonic mean is set to 0 \, because if one value approaches zero \, the harmonic mean limits to zero as well.; #X obj 185 493 list-geometric-mean; #X obj 184 515 list-mean; #X text 97 494 More means:; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 3 0 9 0; #X connect 4 0 9 0; #X connect 5 0 9 0; #X connect 9 0 2 0; #X connect 13 0 9 0; --- NEW FILE: list-mean.pd --- #N canvas 0 0 457 428 10; #X obj 127 69 inlet; #X obj 127 337 outlet; #X obj 146 138 list-drip; #X obj 146 164 route float; #X obj 127 274 f; #N canvas 425 298 450 300 count 0; #X obj 133 59 b; #X obj 133 35 inlet; #X obj 183 35 inlet; #X obj 164 111 + 1; #X obj 133 133 outlet; #X msg 183 71 1; #X obj 133 110 f 1; #X connect 0 0 6 0; #X connect 1 0 0 0; #X connect 2 0 5 0; #X connect 3 0 6 1; #X connect 5 0 6 1; #X connect 6 0 3 0; #X connect 6 0 4 0; #X restore 222 226 pd count; #X obj 127 308 /; #X obj 146 189 t a b; #N canvas 370 313 450 300 accum 0; #X obj 182 102 0; #X obj 135 79 inlet; #X obj 182 79 inlet; #X obj 135 169 outlet; #X obj 135 137 +; #X obj 168 138 f; #X connect 0 0 4 1; #X connect 1 0 4 0; #X connect 2 0 0 0; #X connect 4 0 3 0; #X connect 4 0 5 0; #X connect 5 0 4 1; #X restore 146 224 pd accum; #X obj 127 105 t b a b b; #X connect 0 0 9 0; #X connect 2 0 3 0; #X connect 3 0 7 0; #X connect 4 0 6 0; #X connect 5 0 6 1; #X connect 6 0 1 0; #X connect 7 0 8 0; #X connect 7 1 5 0; #X connect 8 0 4 1; #X connect 9 0 4 0; #X connect 9 1 2 0; #X connect 9 2 8 1; #X connect 9 3 5 1; Index: list-centroid.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-centroid.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-centroid.pd 21 Apr 2007 13:14:48 -0000 1.1 --- list-centroid.pd 22 Apr 2007 13:02:24 -0000 1.2 *************** *** 46,50 **** #X obj 127 399 spigot 1; #X obj 145 285 f; ! #X obj 240 528 print list-cog; #X obj 210 468 t b b; #X msg 240 503 warning: sum of items equals 0: centroid is undefined! --- 46,50 ---- #X obj 127 399 spigot 1; #X obj 145 285 f; ! #X obj 240 528 print list-centroid; #X obj 210 468 t b b; #X msg 240 503 warning: sum of items equals 0: centroid is undefined! --- NEW FILE: list-mean-help.pd --- #N struct 1002-dial float y; #N canvas 276 234 534 466 10; #X obj 98 306 list-mean; #N canvas 0 0 450 300 randlist 0; #X obj 134 129 until; #X msg 246 151 set; #X msg 134 193 add2 \$1; #X obj 112 101 t b f b; #X obj 135 249 outlet; #X obj 112 31 inlet; #X obj 112 73 + 1; #X obj 112 53 random 10; #X obj 134 151 random 10; #X obj 134 171 - 5; #X connect 0 0 8 0; #X connect 1 0 4 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 3 1 0 0; #X connect 3 2 1 0; #X connect 5 0 7 0; #X connect 6 0 3 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 2 0; #X restore 153 236 pd randlist; #X msg 153 214 bang; #X floatatom 98 340 5 0 0 1 arithmetric_mean - -; #X text 86 22 [list-mean]; #X msg 153 262 4 -3 -4 1 2 -3; #X msg 98 159 1 2 3 4; #X msg 98 185 any symbols 1 2 3 4 are ignored; #X text 96 117 Non-floats in a list are silently dropped.; #X text 114 82 mean = sum(f[i]) / total number of floats; #X text 96 42 Calculates the arithmetric mean of a list (of floats) according to:; #N canvas 318 53 648 574 graphical-mean 0; #N canvas 0 0 450 300 randlist 0; #X obj 134 129 until; #X msg 246 151 set; #X msg 134 213 add2 \$1; #X obj 112 101 t b f b; #X obj 135 249 outlet; #X obj 112 31 inlet; #X obj 134 151 random 100; #X msg 112 59 10; #X obj 134 191 / 10; #X obj 134 170 + 1; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 3 1 0 0; #X connect 3 2 1 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 3 0; #X connect 8 0 2 0; #X connect 9 0 8 0; #X restore 79 388 pd randlist; #X msg 79 366 bang; #X obj 79 447 list prepend 0; #X obj 79 500 s \$0-tab; #N canvas 0 0 450 300 (subpatch) 0; #X array \$0-tab 10 float 0; #X coords 0 10 9 0 200 140 1; #X restore 75 152 graph; #N canvas 0 0 916 918 \$0-c 0; #X scalar 1002-dial 0 \;; #X coords 0 0 200 140 200 140 1; #X restore 75 152 pd \$0-c; #N canvas 0 0 503 429 create 0; #X msg 242 258 traverse pd-\$1 \, bang; #X obj 242 238 symbol \$0-c; #X msg 107 79 0; #X obj 242 278 pointer; #X msg 243 178 clear; #X obj 243 205 s pd-\$0-c; #X obj 107 114 t a b b; #X obj 107 50 loadbang; #X obj 107 326 outlet; #X obj 107 302 append \$0-dial y; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 6 0; #X connect 3 0 9 1; #X connect 4 0 5 0; #X connect 6 0 9 0; #X connect 6 1 1 0; #X connect 6 2 4 0; #X connect 7 0 2 0; #X connect 9 0 8 0; #X restore 468 339 pd create; #X obj 339 127 metro 50; #X obj 339 102 tgl 15 0 empty empty show-mean 17 7 1 10 -258699 -262144 -1 0 1; #N canvas 473 338 450 300 countto 0; #X obj 131 154 f 0; #X obj 156 153 + 1; #X msg 174 113 0; #X obj 131 183 outlet; #X obj 131 59 inlet; #X obj 131 116 until; #X obj 131 96 t a b; #X connect 0 0 1 0; #X connect 0 0 3 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 4 0 6 0; #X connect 5 0 0 0; #X connect 6 0 5 0; #X connect 6 1 2 0; #X restore 362 195 pd countto; #X obj 362 219 tabread \$0-tab; #X obj 362 249 list prepend; #X obj 452 249 t a; #X msg 362 175 10; #X obj 339 148 t b b b; #X obj 339 274 list; #X obj 79 344 loadbang; #X msg 79 414 7.3 6.6 7.6 8.9 6.2 5.1 9.4 1.9 8.9 8.1; #X text 77 30 Switch on the "show"-metro and play with the values in the array.; #N canvas 336 319 712 355 \$0-dial 0; #X obj 19 119 outlet; #X obj 19 86 route change; #X obj 19 62 struct \$0-dial float y; #X obj 229 62 drawpolygon 900 2 0 y 200 y; #X connect 1 0 0 0; #X connect 2 0 1 0; #X restore 453 315 pd \$0-dial; #X msg 213 469 bounds 0 10 9 0; #X obj 213 449 loadbang; #X obj 339 313 list-mean; #X obj 339 388 set \$0-dial y; #X floatatom 339 339 5 0 0 0 - - -; #X msg 92 469 const 5; #N canvas 0 0 299 354 scale 0; #X msg 74 83 10 \$1; #X obj 74 107 -; #X obj 74 158 * 140; #X obj 74 134 / 20; #X obj 74 49 inlet; #X obj 74 182 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 5 0; #X connect 3 0 2 0; #X connect 4 0 0 0; #X restore 339 363 pd scale; #X connect 0 0 17 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 6 0 23 1; #X connect 7 0 14 0; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 0 15 1; #X connect 12 0 11 1; #X connect 13 0 9 0; #X connect 14 0 15 0; #X connect 14 1 13 0; #X connect 14 2 11 1; #X connect 15 0 22 0; #X connect 16 0 1 0; #X connect 17 0 2 0; #X connect 19 0 23 1; #X connect 20 0 3 0; #X connect 21 0 20 0; #X connect 22 0 24 0; #X connect 24 0 26 0; #X connect 25 0 3 0; #X connect 26 0 23 0; #X restore 97 363 pd graphical-mean; #X text 101 394 More means:; #X obj 192 394 list-geometric-mean; #X obj 192 415 list-harmonic-mean; #X connect 0 0 3 0; #X connect 1 0 5 0; #X connect 2 0 1 0; #X connect 5 0 0 0; #X connect 6 0 0 0; #X connect 7 0 0 0; --- NEW FILE: list-geometric-mean.pd --- #N canvas 355 173 457 428 10; #X obj 127 69 inlet; #X obj 127 337 outlet; #X obj 146 138 list-drip; #X obj 146 164 route float; #X obj 127 274 f; #N canvas 425 298 450 300 count 0; #X obj 133 59 b; #X obj 133 35 inlet; #X obj 183 35 inlet; #X obj 164 111 + 1; #X obj 133 133 outlet; #X msg 183 71 1; #X obj 133 110 f 1; #X connect 0 0 6 0; #X connect 1 0 0 0; #X connect 2 0 5 0; #X connect 3 0 6 1; #X connect 5 0 6 1; #X connect 6 0 3 0; #X connect 6 0 4 0; #X restore 222 226 pd count; #X obj 146 189 t a b; #X obj 127 105 t b a b b; #X obj 222 253 pow -1; #X obj 127 302 pow; #N canvas 370 313 450 300 product 0; #X obj 135 79 inlet; #X obj 182 79 inlet; #X obj 135 169 outlet; #X obj 168 138 f; #X obj 135 137 *; #X obj 182 102 1; #X connect 0 0 4 0; #X connect 1 0 5 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X connect 4 0 3 0; #X connect 5 0 4 1; #X restore 146 225 pd product; #X connect 0 0 7 0; #X connect 2 0 3 0; #X connect 3 0 6 0; #X connect 4 0 9 0; #X connect 5 0 8 0; #X connect 6 0 10 0; #X connect 6 1 5 0; #X connect 7 0 4 0; #X connect 7 1 2 0; #X connect 7 2 10 1; #X connect 7 3 5 1; #X connect 8 0 9 1; #X connect 9 0 1 0; #X connect 10 0 4 1; --- NEW FILE: list-harmonic-mean.pd --- #N canvas 355 173 457 428 10; #X obj 127 69 inlet; #X obj 127 377 outlet; #X obj 146 138 list-drip; #X obj 146 164 route float; #X obj 127 314 f; #N canvas 425 298 450 300 count 0; #X obj 133 59 b; #X obj 133 35 inlet; #X obj 183 35 inlet; #X obj 164 111 + 1; #X obj 133 133 outlet; #X msg 183 71 1; #X obj 133 110 f 1; #X connect 0 0 6 0; #X connect 1 0 0 0; #X connect 2 0 5 0; #X connect 3 0 6 1; #X connect 5 0 6 1; #X connect 6 0 3 0; #X connect 6 0 4 0; #X restore 238 225 pd count; #X obj 146 189 t a b; #X obj 127 105 t b a b b; #X obj 146 250 pow -1; #X obj 127 342 *; #N canvas 370 313 660 345 sum-reci 0; #X obj 84 40 inlet; #X obj 183 40 inlet; #X obj 135 249 outlet; #X obj 168 218 f; #X obj 135 217 +; #X obj 183 183 0; #X obj 135 184 pow -1; #X obj 84 149 select 0; #X obj 219 249 outlet; #X obj 84 122 spigot 1; #X msg 135 90 1; #X msg 84 176 0; #X text 270 253 if a 0 occurs \, the harmonic mean always is 0 \, too! ; #X connect 0 0 9 0; #X connect 1 0 5 0; #X connect 1 0 10 0; #X connect 3 0 4 1; #X connect 4 0 2 0; #X connect 4 0 3 0; #X connect 5 0 4 1; #X connect 6 0 4 0; #X connect 7 0 11 0; #X connect 7 1 6 0; #X connect 9 0 7 0; #X connect 10 0 9 1; #X connect 11 0 9 1; #X connect 11 0 8 0; #X restore 146 225 pd sum-reci; #X connect 0 0 7 0; #X connect 2 0 3 0; #X connect 3 0 6 0; #X connect 4 0 9 0; #X connect 5 0 9 1; #X connect 6 0 10 0; #X connect 6 1 5 0; #X connect 7 0 4 0; #X connect 7 1 2 0; #X connect 7 2 10 1; #X connect 7 3 5 1; #X connect 8 0 4 1; #X connect 9 0 1 0; #X connect 10 0 8 0; #X connect 10 1 4 1; --- NEW FILE: list-geometric-mean-help.pd --- #N struct 1015-dial float y; #N canvas 410 240 560 562 10; #N canvas 0 0 450 300 randlist 0; #X obj 134 129 until; #X msg 246 151 set; #X msg 134 193 add2 \$1; #X obj 112 101 t b f b; #X obj 135 249 outlet; #X obj 112 31 inlet; #X obj 112 73 + 1; #X obj 112 53 random 10; #X obj 134 151 random 10; #X obj 134 171 + 1; #X connect 0 0 8 0; #X connect 1 0 4 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 3 1 0 0; #X connect 3 2 1 0; #X connect 5 0 7 0; #X connect 6 0 3 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 2 0; #X restore 153 266 pd randlist; #X msg 153 244 bang; #X floatatom 98 400 5 0 0 1 geometric_mean - -; #X msg 153 292 8 6 7 3 8 3 1 7; #X msg 98 189 1 2 3 4; #X msg 98 215 any symbols 1 2 3 4 are ignored; #X text 96 146 Non-floats in a list are silently dropped.; #X obj 98 366 list-geometric-mean; #X text 86 22 [list-geometric-mean]; #X text 96 51 Calculates the geometric mean of a list (of floats) according to:; #X text 96 119 where n is the total number of floats in a list.; #X text 232 329 0 destroys everything!; #X msg 154 328 1 2 0 3 4; #X text 114 91 geometric mean = pow(f0 * f1 * f2 * ... * fn \, 1/n) ; #N canvas 318 53 648 574 graphical-mean 0; #N canvas 0 0 450 300 randlist 0; #X obj 134 129 until; #X msg 246 151 set; #X msg 134 213 add2 \$1; #X obj 112 101 t b f b; #X obj 135 249 outlet; #X obj 112 31 inlet; #X obj 134 151 random 100; #X msg 112 59 10; #X obj 134 191 / 10; #X obj 134 170 + 1; #X connect 0 0 6 0; #X connect 1 0 4 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 3 1 0 0; #X connect 3 2 1 0; #X connect 5 0 7 0; #X connect 6 0 9 0; #X connect 7 0 3 0; #X connect 8 0 2 0; #X connect 9 0 8 0; #X restore 79 388 pd randlist; #X msg 79 366 bang; #X obj 79 447 list prepend 0; #X obj 79 500 s \$0-tab; #N canvas 0 0 450 300 (subpatch) 0; #X array \$0-tab 10 float 0; #X coords 0 10 9 0 200 140 1; #X restore 75 152 graph; #N canvas 0 0 916 918 \$0-c 0; #X scalar 1015-dial 0 \;; #X coords 0 0 200 140 200 140 1; #X restore 75 152 pd \$0-c; #N canvas 0 0 503 429 create 0; #X msg 242 258 traverse pd-\$1 \, bang; #X obj 242 238 symbol \$0-c; #X msg 107 79 0; #X obj 242 278 pointer; #X msg 243 178 clear; #X obj 243 205 s pd-\$0-c; #X obj 107 114 t a b b; #X obj 107 50 loadbang; #X obj 107 326 outlet; #X obj 107 302 append \$0-dial y; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 2 0 6 0; #X connect 3 0 9 1; #X connect 4 0 5 0; #X connect 6 0 9 0; #X connect 6 1 1 0; #X connect 6 2 4 0; #X connect 7 0 2 0; #X connect 9 0 8 0; #X restore 468 339 pd create; #X obj 339 127 metro 50; #X obj 339 102 tgl 15 0 empty empty show-mean 17 7 1 10 -258699 -262144 -1 0 1; #N canvas 473 338 450 300 countto 0; #X obj 131 154 f 0; #X obj 156 153 + 1; #X msg 174 113 0; #X obj 131 183 outlet; #X obj 131 59 inlet; #X obj 131 116 until; #X obj 131 96 t a b; #X connect 0 0 1 0; #X connect 0 0 3 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 4 0 6 0; #X connect 5 0 0 0; #X connect 6 0 5 0; #X connect 6 1 2 0; #X restore 362 195 pd countto; #X obj 362 219 tabread \$0-tab; #X obj 362 249 list prepend; #X obj 452 249 t a; #X msg 362 175 10; #X obj 339 148 t b b b; #X obj 339 274 list; #X obj 79 344 loadbang; #X msg 79 414 5.7 6 8.1 9.9 3.1 6.5 9.7 5.8 5.6 0.9; #X text 77 30 Switch on the "show"-metro and play with the values in the array.; #N canvas 336 319 712 355 \$0-dial 0; #X obj 19 119 outlet; #X obj 19 86 route change; #X obj 19 62 struct \$0-dial float y; #X obj 229 62 drawpolygon 900 2 0 y 200 y; #X connect 1 0 0 0; #X connect 2 0 1 0; #X restore 453 315 pd \$0-dial; #X msg 213 469 bounds 0 10 9 0; #X obj 213 449 loadbang; #X obj 339 388 set \$0-dial y; #X floatatom 339 339 5 0 0 0 - - -; #X msg 92 469 const 5; #N canvas 0 0 299 354 scale 0; #X msg 74 83 10 \$1; #X obj 74 107 -; #X obj 74 158 * 140; #X obj 74 134 / 20; #X obj 74 49 inlet; #X obj 74 182 outlet; #X connect 0 0 1 0; #X connect 1 0 3 0; #X connect 2 0 5 0; #X connect 3 0 2 0; #X connect 4 0 0 0; #X restore 339 363 pd scale; #X obj 339 313 list-geometric-mean; #X connect 0 0 17 0; #X connect 1 0 0 0; #X connect 2 0 3 0; #X connect 6 0 22 1; #X connect 7 0 14 0; #X connect 8 0 7 0; #X connect 9 0 10 0; #X connect 10 0 11 0; #X connect 11 0 12 0; #X connect 11 0 15 1; #X connect 12 0 11 1; #X connect 13 0 9 0; #X connect 14 0 15 0; #X connect 14 1 13 0; #X connect 14 2 11 1; #X connect 15 0 26 0; #X connect 16 0 1 0; #X connect 17 0 2 0; #X connect 19 0 22 1; #X connect 20 0 3 0; #X connect 21 0 20 0; #X connect 23 0 25 0; #X connect 24 0 3 0; #X connect 25 0 22 0; #X connect 26 0 23 0; #X restore 98 420 pd graphical-mean; #X obj 185 453 list-harmonic-mean; #X obj 184 474 list-mean; #X text 97 450 More means:; #X connect 0 0 3 0; #X connect 1 0 0 0; #X connect 3 0 7 0; #X connect 4 0 7 0; #X connect 5 0 7 0; #X connect 7 0 2 0; #X connect 12 0 7 0;

1 0

autobuild: pd-extended-release macosx104-i386 2007-04-22 03.15.04
by pd＠macosx104-i386.idmi.poly.edu 22 Apr '07

22 Apr '07

1 0

abstractions/footils/list-abs list-centroid-help.pd, 1.2, 1.3
by Frank Barknecht 21 Apr '07

21 Apr '07

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5755 Modified Files: list-centroid-help.pd Log Message: oops, fix Index: list-centroid-help.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-centroid-help.pd,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** list-centroid-help.pd 21 Apr 2007 15:59:51 -0000 1.2 --- list-centroid-help.pd 21 Apr 2007 16:04:12 -0000 1.3 *************** *** 75,79 **** #X connect 8 0 3 0; #X restore 79 388 pd randlist; - #X msg 79 414 0.95 0.59 0.63 0.68 0.98 0.2 0.58 0.51 0.28 0.25; #X msg 79 366 bang; #X obj 79 447 list prepend 0; --- 75,78 ---- *************** *** 84,89 **** #X restore 79 105 graph; #N canvas 0 0 694 427 \$0-c 0; ! #X scalar 1002-centroid 3.60177 \;; ! #X coords 0 0 20 140 200 140 1; #X restore 79 105 pd \$0-c; #X floatatom 339 346 5 0 0 0 - - -; --- 83,88 ---- #X restore 79 105 graph; #N canvas 0 0 694 427 \$0-c 0; ! #X scalar 1002-centroid 3.63093 \;; ! #X coords 0 0 18 140 200 140 1; #X restore 79 105 pd \$0-c; #X floatatom 339 346 5 0 0 0 - - -; *************** *** 92,99 **** #X obj 19 329 outlet; #X obj 19 86 route change; - #X obj 228 62 drawpolygon 900 2 x(0:10)(0:10) 0 x(0:10)(0:10) 140; #X obj 19 62 struct \$0-centroid float x; #X connect 1 0 0 0; ! #X connect 3 0 1 0; #X restore 453 315 pd \$0-centroid; #X obj 339 367 set \$0-centroid x; --- 91,98 ---- #X obj 19 329 outlet; #X obj 19 86 route change; #X obj 19 62 struct \$0-centroid float x; + #X obj 228 62 drawpolygon 900 2 x 0 x 140; #X connect 1 0 0 0; ! #X connect 2 0 1 0; #X restore 453 315 pd \$0-centroid; #X obj 339 367 set \$0-centroid x; *************** *** 149,172 **** values in the array.; #X obj 79 344 loadbang; ! #X connect 0 0 1 0; ! #X connect 1 0 3 0; ! #X connect 2 0 0 0; ! #X connect 3 0 4 0; ! #X connect 7 0 10 0; ! #X connect 8 0 7 0; ! #X connect 9 0 10 1; ! #X connect 11 0 10 1; ! #X connect 12 0 19 0; ! #X connect 13 0 12 0; #X connect 14 0 15 0; #X connect 15 0 16 0; ! #X connect 16 0 17 0; ! #X connect 16 0 20 1; ! #X connect 17 0 16 1; ! #X connect 18 0 14 0; ! #X connect 19 0 20 0; ! #X connect 19 1 18 0; ! #X connect 19 2 16 1; ! #X connect 20 0 8 0; #X connect 22 0 2 0; #X restore 392 510 pd graphical-centroid; --- 148,172 ---- values in the array.; #X obj 79 344 loadbang; ! #X msg 79 414 0.53 0.99 0.91 0.59 0.63 0.23 0.71 0.87 0.01 0.22; ! #X connect 0 0 22 0; ! #X connect 1 0 0 0; ! #X connect 2 0 3 0; ! #X connect 6 0 9 0; ! #X connect 7 0 6 0; ! #X connect 8 0 9 1; ! #X connect 10 0 9 1; ! #X connect 11 0 18 0; ! #X connect 12 0 11 0; ! #X connect 13 0 14 0; #X connect 14 0 15 0; #X connect 15 0 16 0; ! #X connect 15 0 19 1; ! #X connect 16 0 15 1; ! #X connect 17 0 13 0; ! #X connect 18 0 19 0; ! #X connect 18 1 17 0; ! #X connect 18 2 15 1; ! #X connect 19 0 7 0; ! #X connect 21 0 1 0; #X connect 22 0 2 0; #X restore 392 510 pd graphical-centroid;

1 0

abstractions/footils/list-abs list-centroid-help.pd, 1.1, 1.2
by Frank Barknecht 21 Apr '07

21 Apr '07

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3929 Modified Files: list-centroid-help.pd Log Message: data structure centroid Index: list-centroid-help.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-centroid-help.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-centroid-help.pd 21 Apr 2007 13:14:48 -0000 1.1 --- list-centroid-help.pd 21 Apr 2007 15:59:51 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + #N struct 1002-centroid float x; #N canvas 285 188 596 561 10; #X floatatom 129 468 5 0 0 0 centroid - -; *************** *** 52,55 **** --- 53,175 ---- In this case \, no result will be sent to the first outlet \, instead the second outlet will bang and a console warning will be issued.; + #N canvas 318 53 641 556 graphical-centroid 0; + #N canvas 0 0 450 300 randlist 0; + #X obj 134 129 until; + #X msg 246 151 set; + #X msg 134 193 add2 \$1; + #X obj 112 101 t b f b; + #X obj 135 249 outlet; + #X obj 112 31 inlet; + #X obj 134 151 random 100; + #X obj 134 171 / 100; + #X msg 112 59 10; + #X connect 0 0 6 0; + #X connect 1 0 4 0; + #X connect 2 0 4 0; + #X connect 3 0 4 0; + #X connect 3 1 0 0; + #X connect 3 2 1 0; + #X connect 5 0 8 0; + #X connect 6 0 7 0; + #X connect 7 0 2 0; + #X connect 8 0 3 0; + #X restore 79 388 pd randlist; + #X msg 79 414 0.95 0.59 0.63 0.68 0.98 0.2 0.58 0.51 0.28 0.25; + #X msg 79 366 bang; + #X obj 79 447 list prepend 0; + #X obj 79 470 s \$0-tab; + #N canvas 0 0 450 300 (subpatch) 0; + #X array \$0-tab 10 float 0; + #X coords 0 1 9 0 200 140 1; + #X restore 79 105 graph; + #N canvas 0 0 694 427 \$0-c 0; + #X scalar 1002-centroid 3.60177 \;; + #X coords 0 0 20 140 200 140 1; + #X restore 79 105 pd \$0-c; + #X floatatom 339 346 5 0 0 0 - - -; + #X obj 339 313 list-centroid; + #N canvas 336 319 712 355 \$0-centroid 0; + #X obj 19 329 outlet; + #X obj 19 86 route change; + #X obj 228 62 drawpolygon 900 2 x(0:10)(0:10) 0 x(0:10)(0:10) 140; + #X obj 19 62 struct \$0-centroid float x; + #X connect 1 0 0 0; + #X connect 3 0 1 0; + #X restore 453 315 pd \$0-centroid; + #X obj 339 367 set \$0-centroid x; + #N canvas 0 0 503 429 create 0; + #X msg 242 258 traverse pd-\$1 \, bang; + #X obj 242 238 symbol \$0-c; + #X msg 107 79 0; + #X obj 242 278 pointer; + #X msg 243 178 clear; + #X obj 243 205 s pd-\$0-c; + #X obj 107 302 append \$0-centroid x; + #X obj 107 114 t a b b; + #X obj 107 50 loadbang; + #X obj 107 326 outlet; + #X connect 0 0 3 0; + #X connect 1 0 0 0; + #X connect 2 0 7 0; + #X connect 3 0 6 1; + #X connect 4 0 5 0; + #X connect 6 0 9 0; + #X connect 7 0 6 0; + #X connect 7 1 1 0; + #X connect 7 2 4 0; + #X connect 8 0 2 0; + #X restore 468 339 pd create; + #X obj 339 127 metro 50; + #X obj 339 102 tgl 15 0 empty empty show-centroid 17 7 1 10 -258699 + -262144 -1 1 1; + #N canvas 473 338 450 300 countto 0; + #X obj 131 154 f 0; + #X obj 156 153 + 1; + #X msg 174 113 0; + #X obj 131 183 outlet; + #X obj 131 59 inlet; + #X obj 131 116 until; + #X obj 131 96 t a b; + #X connect 0 0 1 0; + #X connect 0 0 3 0; + #X connect 1 0 0 1; + #X connect 2 0 0 1; + #X connect 4 0 6 0; + #X connect 5 0 0 0; + #X connect 6 0 5 0; + #X connect 6 1 2 0; + #X restore 362 195 pd countto; + #X obj 362 219 tabread \$0-tab; + #X obj 362 249 list prepend; + #X obj 452 249 t a; + #X msg 362 175 10; + #X obj 339 148 t b b b; + #X obj 339 274 list; + #X text 77 30 Switch on the "show-centroid"-metro and play with the + values in the array.; + #X obj 79 344 loadbang; + #X connect 0 0 1 0; + #X connect 1 0 3 0; + #X connect 2 0 0 0; + #X connect 3 0 4 0; + #X connect 7 0 10 0; + #X connect 8 0 7 0; + #X connect 9 0 10 1; + #X connect 11 0 10 1; + #X connect 12 0 19 0; + #X connect 13 0 12 0; + #X connect 14 0 15 0; + #X connect 15 0 16 0; + #X connect 16 0 17 0; + #X connect 16 0 20 1; + #X connect 17 0 16 1; + #X connect 18 0 14 0; + #X connect 19 0 20 0; + #X connect 19 1 18 0; + #X connect 19 2 16 1; + #X connect 20 0 8 0; + #X connect 22 0 2 0; + #X restore 392 510 pd graphical-centroid; + #X text 321 510 Also see:; #X connect 1 0 6 0; #X connect 2 0 6 0;

1 0

abstractions/footils/list-abs list-centroid-help.pd, NONE, 1.1 list-centroid.pd, NONE, 1.1 list-minmax.pd, 1.1, 1.2
by Frank Barknecht 21 Apr '07

21 Apr '07

Update of /cvsroot/pure-data/abstractions/footils/list-abs In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7158 Modified Files: list-minmax.pd Added Files: list-centroid-help.pd list-centroid.pd Log Message: centroid added, minmax optimized Index: list-minmax.pd =================================================================== RCS file: /cvsroot/pure-data/abstractions/footils/list-abs/list-minmax.pd,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** list-minmax.pd 1 Nov 2005 12:41:16 -0000 1.1 --- list-minmax.pd 21 Apr 2007 13:14:48 -0000 1.2 *************** *** 1,12 **** ! #N canvas 499 299 571 374 10; ! #X obj 128 37 list-drip; ! #X obj 128 60 route float; ! #X obj 128 204 f; ! #X obj 112 284 outlet; ! #X obj 171 259 f; ! #X obj 171 286 outlet; ! #X obj 40 198 t b b; ! #X obj 128 13 inlet; ! #X obj 112 256 f; #N canvas 0 0 450 300 once 0; #X obj 110 75 inlet; --- 1,12 ---- ! #N canvas 385 204 676 470 10; ! #X obj 128 97 list-drip; ! #X obj 128 120 route float; ! #X obj 159 256 f; ! #X obj 106 394 outlet; ! #X obj 165 369 f; ! #X obj 165 396 outlet; ! #X obj 106 305 t b b; ! #X obj 106 10 inlet; ! #X obj 106 366 f; #N canvas 0 0 450 300 once 0; #X obj 110 75 inlet; *************** *** 24,60 **** #X connect 4 0 1 1; #X connect 5 0 4 0; ! #X restore 218 112 pd once; ! #X obj 128 90 t f f f; ! #X obj 218 59 s \$0-end; ! #X obj 262 87 r \$0-end; ! #X obj 40 174 r \$0-end; ! #X obj 128 146 <=; ! #X obj 128 168 select 1; ! #X obj 244 205 f; ! #X obj 244 169 select 1; ! #X obj 244 147 >=; #X connect 0 0 1 0; ! #X connect 0 1 11 0; ! #X connect 1 0 10 0; ! #X connect 2 0 8 1; ! #X connect 2 0 14 1; #X connect 4 0 5 0; #X connect 6 0 8 0; #X connect 6 1 4 0; ! #X connect 7 0 0 0; #X connect 8 0 3 0; ! #X connect 9 0 14 1; ! #X connect 9 0 18 1; ! #X connect 10 0 14 0; ! #X connect 10 0 18 0; ! #X connect 10 1 16 1; ! #X connect 10 1 2 1; ! #X connect 10 2 9 0; ! #X connect 12 0 9 1; ! #X connect 13 0 6 0; ! #X connect 14 0 15 0; ! #X connect 15 0 2 0; ! #X connect 16 0 4 1; ! #X connect 16 0 18 1; ! #X connect 17 0 16 0; ! #X connect 18 0 17 0; --- 24,53 ---- #X connect 4 0 1 1; #X connect 5 0 4 0; ! #X restore 260 183 pd once; ! #X obj 275 258 f; ! #X obj 244 257 max; ! #X obj 128 256 min; ! #X obj 128 150 t a a a; ! #X obj 106 30 t b a b; ! #X text 321 183 prime [min] and [max] with first item once; #X connect 0 0 1 0; ! #X connect 1 0 13 0; ! #X connect 2 0 12 1; #X connect 4 0 5 0; #X connect 6 0 8 0; #X connect 6 1 4 0; ! #X connect 7 0 14 0; #X connect 8 0 3 0; ! #X connect 9 0 11 1; ! #X connect 9 0 12 1; ! #X connect 10 0 11 1; ! #X connect 11 0 10 0; ! #X connect 11 0 4 1; ! #X connect 12 0 2 0; ! #X connect 12 0 8 1; ! #X connect 13 0 12 0; ! #X connect 13 1 11 0; ! #X connect 13 2 9 0; ! #X connect 14 0 6 0; ! #X connect 14 1 0 0; ! #X connect 14 2 9 1; --- NEW FILE: list-centroid.pd --- #N canvas 204 70 675 629 10; #X obj 127 475 f; #X obj 127 65 inlet; #X obj 127 561 outlet; #X obj 163 170 list-enumerate; #X obj 163 197 t a a; #X obj 261 406 /; #X obj 261 376 swap; #X obj 210 345 select 0; #N canvas 286 344 401 287 sum(mi*i) 0; #X obj 126 138 +; #X obj 153 139 f; #X msg 168 88 0; #X obj 126 66 inlet; #X obj 168 66 inlet; #X obj 126 171 outlet; #X obj 126 103 *; #X connect 0 0 1 0; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 6 0; #X connect 4 0 2 0; #X connect 6 0 0 0; #X restore 284 255 pd sum(mi*i); #N canvas 573 330 450 328 sum(mi) 0; #X obj 179 137 +; #X obj 206 138 f; #X msg 296 77 0; #X obj 179 55 inlet; #X obj 296 55 inlet; #X obj 179 170 outlet; #X text 143 34 in: (idx value); #X text 40 89 swap to: (val idx); #X text 67 172 sum of values; #X obj 179 89 swap; #X connect 0 0 1 0; #X connect 0 0 5 0; #X connect 1 0 0 1; #X connect 2 0 0 1; #X connect 3 0 9 0; #X connect 4 0 2 0; #X connect 9 0 0 0; #X restore 163 253 pd sum(mi); #X obj 210 559 outlet; #X obj 127 399 spigot 1; #X obj 145 285 f; #X obj 240 528 print list-cog; #X obj 210 468 t b b; #X msg 240 503 warning: sum of items equals 0: centroid is undefined! ; #X obj 127 89 t b b a b b; #X text 69 26 centroid (center of mass) = sum(mi * i) / sum(mi); #X connect 0 0 2 0; #X connect 1 0 16 0; #X connect 3 0 4 0; #X connect 4 0 9 0; #X connect 4 1 8 0; #X connect 5 0 0 1; #X connect 6 0 5 0; #X connect 6 1 5 1; #X connect 7 0 14 0; #X connect 7 1 6 0; #X connect 8 0 6 1; #X connect 9 0 12 1; #X connect 11 0 0 0; #X connect 12 0 7 0; #X connect 12 0 11 1; #X connect 14 0 10 0; #X connect 14 1 15 0; #X connect 15 0 13 0; #X connect 16 0 11 0; #X connect 16 1 12 0; #X connect 16 2 3 0; #X connect 16 3 9 1; #X connect 16 4 8 1; --- NEW FILE: list-centroid-help.pd --- #N canvas 285 188 596 561 10; #X floatatom 129 468 5 0 0 0 centroid - -; #X msg 129 363 1 1 1 1; #X msg 245 260 0 0 0 0; #X msg 245 279 -1 1; #X obj 215 469 bng 15 250 50 0 empty empty result_undefined 17 7 1 10 -262144 -1 -1; #X msg 129 245 0 1 0; #X obj 129 439 list-centroid; #X text 63 25 [list-centroid]; #X text 93 90 centroid = sum(mi * i) / sum(mi); #X text 71 49 Calculates the centroid or center of mass of a list of floats according to:; #X text 67 115 where the index i starts from 0; #X msg 247 344 -1 3; #X msg 129 287 1 2 3; #X text 314 270 these two are undefined!; #X msg 129 341 5 5 5; #N canvas 0 0 450 300 randlist 0; #X obj 134 129 until; #X msg 246 151 set; #X msg 134 193 add2 \$1; #X obj 112 101 t b f b; #X obj 135 249 outlet; #X obj 112 31 inlet; #X obj 112 73 + 1; #X obj 112 53 random 10; #X obj 134 151 random 10; #X obj 134 171 - 5; #X connect 0 0 8 0; #X connect 1 0 4 0; #X connect 2 0 4 0; #X connect 3 0 4 0; #X connect 3 1 0 0; #X connect 3 2 1 0; #X connect 5 0 7 0; #X connect 6 0 3 0; #X connect 7 0 6 0; #X connect 8 0 9 0; #X connect 9 0 2 0; #X restore 295 337 pd randlist; #X msg 295 363 4; #X msg 295 315 bang; #X msg 129 306 10 20 30; #X msg 129 267 0 2 0 0 0 1; #X msg 248 325 -1 2; #X msg 248 407 -10 9; #X text 305 406 Note: a centroid can be negative!; #X text 75 520 2007 Frank Barknecht; #X text 67 146 Negative values are possible.; #X text 65 174 If all floats add up to 0 \, the result is undefined. In this case \, no result will be sent to the first outlet \, instead the second outlet will bang and a console warning will be issued.; #X connect 1 0 6 0; #X connect 2 0 6 0; #X connect 3 0 6 0; #X connect 5 0 6 0; #X connect 6 0 0 0; #X connect 6 1 4 0; #X connect 11 0 6 0; #X connect 12 0 6 0; #X connect 14 0 6 0; #X connect 15 0 16 0; #X connect 16 0 6 0; #X connect 17 0 15 0; #X connect 18 0 6 0; #X connect 19 0 6 0; #X connect 20 0 6 0; #X connect 21 0 6 0;

1 0

autobuild: pd-extended-release macosx104-i386 2007-04-21 03.15.05
by pd＠macosx104-i386.idmi.poly.edu 21 Apr '07

21 Apr '07

1 0

autobuild: pd-extended-release macosx104-i386 2007-04-20 03.15.02
by pd＠macosx104-i386.idmi.poly.edu 20 Apr '07

20 Apr '07

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
27
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 April 2007