#N canvas 500 38 788 630 12;
#X obj 119 96 inlet;
#X floatatom 582 159 5 0 0 0 - - - 0;
#X obj 159 199 t f f, f 7;
#X msg 159 151 0.667;
#X msg 139 329 0;
#X obj 575 316 loadbang;
#X obj 586 344 inlet;
#X obj 575 368 f;
#X obj 575 392 expr 1 - 2*$f1;
#X obj 119 124 t b b b f;
#X obj 266 277 * -1;
#X obj 221 277 t f f;
#X obj 119 437 f;
#X obj 66 533 outlet;
#X text 573 283 1 to normalize at Nyquist;
#X text 115 75 characteristic frequency \, 0(DC) to 1(Nyquist);
#X obj 341 533 outlet;
#X obj 497 533 outlet;
#X text 497 557 imag2a;
#X text 341 557 real1;
#X text 432 557 real2;
#X obj 558 533 outlet;
#X text 558 557 imag2b;
#X obj 431 533 outlet;
#X text 52 557 normalizer1;
#X obj 231 533 outlet;
#X text 209 557 normalizer2;
#X obj 231 482 expr (($f2-$f1)*($f2-$f1)+$f3*$f3);
#X obj 119 458 t f f;
#X obj 159 222 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1));
#X obj 221 250 expr 2*$f2*sin($f1) / (1 + $f2*$f2 + 2*$f2*cos($f1));
#X obj 139 353 expr (1 - $f2*$f2) / (1 + $f2*$f2 + 2*$f2*cos($f1));
#X obj 582 114 clip 0 1;
#X obj 582 136 expr tan($f1*1.57);
#X obj 159 176 expr $f1*1.5708;
#X text 573 297 0 to normalize at DC;
#X text 175 23 3-pole (or zero) Butterworth filter coefficient calculator;
#X text 203 152 "theta" in units of pi/2;
#X text 269 183 conjugate pair of pole/zero locations:;
#X text 255 200 real part: (1-r*r)/(1+r*r-2rcos(th));
#X text 306 275 imaginary part: 2rsin(th)/(...);
#X text 328 328 real-valued one \, theta=0;
#X obj 66 505 expr abs($f1-$f2);
#X connect 0 0 9 0;
#X connect 1 0 29 1;
#X connect 1 0 30 1;
#X connect 1 0 31 1;
#X connect 2 0 29 0;
#X connect 2 1 30 0;
#X connect 3 0 34 0;
#X connect 4 0 31 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 12 1;
#X connect 9 0 12 0;
#X connect 9 1 4 0;
#X connect 9 2 3 0;
#X connect 9 3 32 0;
#X connect 10 0 21 0;
#X connect 11 0 17 0;
#X connect 11 0 27 2;
#X connect 11 1 10 0;
#X connect 12 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 42 0;
#X connect 28 1 27 0;
#X connect 29 0 23 0;
#X connect 29 0 27 1;
#X connect 30 0 11 0;
#X connect 31 0 16 0;
#X connect 31 0 42 1;
#X connect 32 0 33 0;
#X connect 33 0 1 0;
#X connect 34 0 2 0;
#X connect 42 0 13 0;
