[PD-cvs] 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

Sun Apr 22 15:02:26 CEST 2007

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;