#N canvas 570 270 707 524 10;
#X declare -path cyclone;
#X obj 85 157 osc~;
#X obj 120 186 expr~ 2*$v1*$v1-1;
#X obj 49 449 dac~;
#X obj 655 468 zexy;
#N canvas 20 96 1004 457 analisa 1;
#X obj 18 35 inlet~;
#X obj 18 130 rfft~;
#X obj 18 150 cyclone/cartopol~;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-espectro 4097 float 2;
#X coords 0 0.2 4097 0 800 140 1 0 0;
#X restore 174 276 graph;
#X obj 82 35 block~ 8192;
#X obj 18 169 /~ 8192;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-signal 1024 float 2;
#X coords 0 1 1024 -1 800 140 1 0 0;
#X restore 174 78 graph;
#X obj 34 68 bang~;
#X obj 36 210 bang~;
#X text 15 275 O espectro do sinal consiste em n componentes cossenoidais:
se n é par \, temos n harmônicos ímpares a partir da fundamental
f/2. Se n é ímpar \, são n harmônicos com fundamental f., f 21
;
#X obj 34 90 tabwrite~ \$0-signal;
#X obj 18 234 tabwrite~ \$0-espectro;
#X connect 0 0 1 0;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 0 5 0;
#X connect 5 0 11 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X restore 99 450 pd analisa;
#X obj 157 212 expr~ 4*pow($v1 \, 3)-3*$v1;
#X obj 193 242 expr~ 8*pow($v1 \, 4)-8*pow($v1 \, 2)+1;
#X obj 229 284 expr~ 2*$v1*$v2-$v3;
#X text 230 185 T2;
#X text 316 211 T3;
#X text 411 240 T4;
#X obj 267 320 expr~ 2*$v1*$v2-$v3;
#X text 67 158 T1;
#X obj 303 355 *~ 0.125;
#X obj 339 385 expr~ 8*pow($v1 \, 4)-8*pow($v1 \, 2)+1;
#X text 38 15 Síntese usando polinômios de Chebyshev: o polinômio
Tn(x) é definido pela propriedade Tn(cos(x)) = cos(nx) \, ou seja
\, ele produz o n-ésimo harmônico a partir de um sinal senoidal puro.
A expressão geral é T_n+1(x) = 2xTn(x)-T_n-1(x). Se aplicado a um
sinal com várias componentes senoidais \, além dos n-ésimos harmônicos
também são gerados os termos de intermodulação., f 61;
#X obj 85 134 nbx 5 14 20 20000 0 1 empty empty Frequência 0 -8 0
10 -262144 -1 -1 400 256;
#X obj 462 20 vradio 20 1 1 9 empty empty empty 0 -8 0 10 -262144 -1
-1 1;
#X text 486 42 T1;
#X text 486 62 T2;
#X text 486 82 T3;
#X text 486 102 T4;
#X text 485 123 T5;
#X text 351 285 T5 \, calculado como 2xT4(x)-T3(x);
#X text 485 143 T6;
#X text 387 319 T6 \, calculado como 2xT5(x)-T4(x);
#X text 558 385 expressão do T4 \, porém aplicado sobre a mistura
T1+...+T6, f 20;
#X text 361 355 soma dos 6 harmônicos T1+...+T6 \, "normalizado";
#X text 485 162 T1+...+T6 \, normalizado;
#X text 485 181 T4(T1+...+T6);
#X obj 49 423 multiplex~ - - - - - - - - -, f 49;
#X text 585 468 precisa do;
#X text 577 488 para o multiplex~;
#X obj 606 227 loadbang;
#X msg 606 250 \; pd dsp 1;
#X text 486 22 desligado;
#X obj 553 441 declare -path cyclone;
#X text 448 440 Dependências:;
#X connect 0 0 1 0;
#X connect 0 0 5 0;
#X connect 0 0 6 0;
#X connect 0 0 7 0;
#X connect 0 0 11 0;
#X connect 0 0 13 0;
#X connect 0 0 30 1;
#X connect 1 0 13 0;
#X connect 1 0 30 2;
#X connect 5 0 7 2;
#X connect 5 0 13 0;
#X connect 5 0 30 3;
#X connect 6 0 7 1;
#X connect 6 0 11 2;
#X connect 6 0 13 0;
#X connect 6 0 30 4;
#X connect 7 0 11 1;
#X connect 7 0 13 0;
#X connect 7 0 30 5;
#X connect 11 0 13 0;
#X connect 11 0 30 6;
#X connect 13 0 14 0;
#X connect 13 0 30 7;
#X connect 14 0 30 8;
#X connect 16 0 0 0;
#X connect 17 0 30 0;
#X connect 30 0 2 0;
#X connect 30 0 4 0;
#X connect 30 0 2 1;
#X connect 33 0 34 0;