#N canvas 571 170 686 626 12;
#X obj 35 49 inlet~;
#X obj 26 148 *~;
#X obj 66 148 *~;
#X obj 26 189 sqrt~;
#X obj 24 392 snapshot~;
#X obj 192 393 snapshot~;
#X obj 192 426 / \$1;
#X obj 125 517 /;
#X obj 179 162 t b b b;
#X obj 174 103 bang~;
#X obj 121 594 outlet;
#X msg 116 194 clear;
#X text 292 23 \$1: block size;
#X obj 111 392 loadbang;
#X obj 111 420 f \$1;
#X obj 111 445 swap 1;
#X obj 121 480 /;
#X obj 295 82 block~ \$1;
#X obj 35 101 fft~;
#X obj 26 317 fexpr~ if($x > 0 && $x[-1] > 0 \, $x[-1] * $x \, 0);
#X obj 37 425 pow;
#X obj 124 556 expr 10 * log10($f1);
#X obj 419 318 fexpr~ $x[-1]+$x;
#X connect 0 0 18 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 3 0 19 0;
#X connect 3 0 22 0;
#X connect 4 0 20 0;
#X connect 5 0 6 0;
#X connect 6 0 7 1;
#X connect 7 0 21 0;
#X connect 8 0 11 0;
#X connect 8 1 4 0;
#X connect 8 2 5 0;
#X connect 9 0 8 0;
#X connect 11 0 19 0;
#X connect 11 0 22 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 15 1 16 1;
#X connect 16 0 20 1;
#X connect 18 0 1 0;
#X connect 18 0 1 1;
#X connect 18 1 2 0;
#X connect 18 1 2 1;
#X connect 19 0 4 0;
#X connect 20 0 7 0;
#X connect 21 0 10 0;
#X connect 22 0 5 0;