#N canvas 116 143 708 657 10;
#X obj 61 123 noise~;
#X obj 307 129 nbx 5 14 0 0.9999 0 1 empty A A 0 -8 0 10 -262144 -1
-1 0.9 256;
#X obj 336 160 nbx 5 14 0 3.1415 0 1 empty phi phi 0 -8 0 10 -262144
-1 -1 1.57 256;
#X obj 241 235 zexy;
#X obj 36 33 vradio 15 1 0 4 empty filtro Tipo_de_filtro 0 -8 0 10
-262144 -1 -1 0;
#X text 58 63 filtro 2 zeros complexo-conjugados;
#X text 57 79 filtro 2 polos complexo-conjugados;
#X obj 407 129 nbx 5 14 0 0.9999 0 1 empty B B 0 -8 0 10 -262144 -1
-1 0.9 256;
#X obj 436 160 nbx 5 14 0 3.1415 0 1 empty psi psi 0 -8 0 10 -262144
-1 -1 1.57 256;
#N canvas 736 452 450 300 2polos~ 0;
#X obj 52 23 inlet~;
#X obj 116 24 inlet;
#X obj 206 24 inlet;
#X text 51 5 sig;
#X text 273 107 converte para Cartesiano, f 14;
#X obj 260 146 * -1;
#X text 291 147 conjugado;
#X obj 52 243 outlet~;
#X text 134 213 normaliza filtro;
#X text 115 6 B;
#X text 204 6 psi;
#X obj 116 86 v B;
#X obj 206 86 v psi;
#X obj 167 108 expr B*cos(psi) \; B*sin(psi);
#X obj 53 157 cpole~;
#X obj 53 179 cpole~;
#X obj 53 211 *~ 1;
#X obj 135 193 expr (1-B)*sqrt(1+B*B+2*B*(2*pow(sin(psi) \, 2)-1))
;
#X obj 206 47 t b b f;
#X obj 116 47 t b b f;
#X connect 0 0 14 0;
#X connect 1 0 19 0;
#X connect 2 0 18 0;
#X connect 5 0 15 3;
#X connect 13 0 14 2;
#X connect 13 0 15 2;
#X connect 13 1 5 0;
#X connect 13 1 14 3;
#X connect 14 0 15 0;
#X connect 14 1 15 1;
#X connect 15 0 16 0;
#X connect 16 0 7 0;
#X connect 17 0 16 1;
#X connect 18 0 13 0;
#X connect 18 1 17 0;
#X connect 18 2 12 0;
#X connect 19 0 13 0;
#X connect 19 1 17 0;
#X connect 19 2 11 0;
#X restore 379 184 pd 2polos~;
#X text 221 235 by;
#X obj 60 257 rfft~;
#X obj 60 301 tabwrite~ espectro;
#N canvas 0 50 450 250 (subpatch) 0;
#X array espectro 513 float 0;
#X coords 0 0.05 512 0 600 280 1 0 0;
#X restore 58 342 graph;
#X obj 60 279 expr~ sqrt($v1*$v1+$v2*$v2)/1024;
#X text 126 259 magnitude normalizada;
#X obj 290 265 tgl 15 1 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 290 285 metro 200;
#X obj 368 305 block~ 1024;
#X obj 368 241 loadbang;
#X msg 368 263 \; pd dsp 1;
#N canvas 229 242 450 300 2zeros~ 0;
#X obj 52 23 inlet~;
#X obj 116 24 inlet;
#X obj 206 24 inlet;
#X text 51 5 sig;
#X text 115 6 A;
#X text 204 6 phi;
#X obj 116 76 v A;
#X obj 206 76 v phi;
#X obj 167 98 expr A*cos(phi) \; A*sin(phi);
#X text 273 97 converte para Cartesiano, f 14;
#X obj 53 147 czero~;
#X obj 53 169 czero~;
#X obj 260 136 * -1;
#X text 291 137 conjugado;
#X obj 52 233 outlet~;
#X obj 53 201 /~ 1;
#X text 134 203 normaliza filtro;
#X obj 135 183 expr pow(1+abs(A*cos(phi)) \, 2)+pow(A*sin(phi) \, 2)
;
#X obj 206 47 t b b f;
#X obj 116 47 t b b f;
#X connect 0 0 10 0;
#X connect 1 0 19 0;
#X connect 2 0 18 0;
#X connect 8 0 10 2;
#X connect 8 0 11 2;
#X connect 8 1 10 3;
#X connect 8 1 12 0;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 15 0;
#X connect 12 0 11 3;
#X connect 15 0 14 0;
#X connect 17 0 15 1;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 7 0;
#X connect 19 0 8 0;
#X connect 19 1 17 0;
#X connect 19 2 6 0;
#X restore 279 184 pd 2zeros~;
#X obj 112 125 nbx 5 14 -1 1 0 1 empty zero zero 0 -8 0 10 -262144
-1 -1 1 256;
#X obj 222 126 nbx 5 14 -0.999 0.999 0 1 empty polo polo 0 -8 0 10
-262144 -1 -1 0.9 256;
#N canvas 642 468 271 234 1zero~ 0;
#X obj 61 84 rzero~ 0;
#X obj 82 109 expr 1+abs($f1);
#X floatatom 82 132 5 0 0 0 - - -;
#X obj 61 168 /~ 1;
#X obj 60 26 inlet~;
#X obj 112 26 inlet;
#X text 116 132 fator de normalizaçao;
#X obj 61 191 outlet~;
#X obj 112 49 t f f;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 7 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 8 0 0 1;
#X connect 8 1 1 0;
#X restore 61 182 pd 1zero~;
#N canvas 663 385 450 300 1polo~ 0;
#X obj 52 87 rpole~ -0.9;
#X floatatom 73 135 5 0 0 0 - - -;
#X obj 73 112 expr 1-abs($f1);
#X obj 52 171 *~ 1;
#X obj 51 19 inlet~;
#X obj 106 19 inlet;
#X obj 52 194 outlet~;
#X text 110 135 fator de normalizaçao;
#X obj 106 42 t f f;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 2 0 1 0;
#X connect 3 0 6 0;
#X connect 4 0 0 0;
#X connect 5 0 8 0;
#X connect 8 0 0 1;
#X connect 8 1 2 0;
#X restore 171 184 pd 1polo~;
#X text 58 32 filtro de 1 zero real;
#X text 58 46 filtro de 1 polo real;
#X obj 60 235 multiplex~ - - - -, f 26;
#X text 242 11 PRESETS:;
#X text 312 29 filtro da média, f 9;
#X text 382 29 filtro da diferença, f 10;
#X text 546 29 passa-baixas de 1 polo, f 12;
#X text 452 29 passa-altas de 1 polo, f 12;
#X msg 315 62 \; zero -1 \; filtro 0 \;;
#X msg 385 62 \; zero 1 \; filtro 0 \;;
#X text 561 222 passa-faixa em π/2, f 12;
#X text 561 120 rejeita-faixa em π/2, f 14;
#X msg 455 62 \; polo -0.9 \; filtro 1 \;;
#X msg 548 62 \; polo 0.9 \; filtro 1 \;;
#X msg 564 255 \; B 0.9 \; psi 1.57 \; filtro 3 \;;
#X msg 564 153 \; A 0.9 \; phi 1.57 \; filtro 2 \;;
#X connect 0 0 21 0;
#X connect 0 0 9 0;
#X connect 0 0 24 0;
#X connect 0 0 25 0;
#X connect 1 0 21 1;
#X connect 2 0 21 2;
#X connect 4 0 28 0;
#X connect 7 0 9 1;
#X connect 8 0 9 2;
#X connect 9 0 28 3;
#X connect 11 0 14 0;
#X connect 11 1 14 1;
#X connect 14 0 12 0;
#X connect 16 0 17 0;
#X connect 17 0 12 0;
#X connect 19 0 20 0;
#X connect 21 0 28 2;
#X connect 22 0 24 1;
#X connect 23 0 25 1;
#X connect 24 0 28 0;
#X connect 25 0 28 1;
#X connect 28 0 11 0;