chose/extra/list-abs/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;