#N canvas 827 572 446 228 10;
#X obj 23 99 osc~;
#X obj 22 160 dac~;
#N canvas 20 96 1034 461 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 58 160 pd analisa;
#X obj 22 128 expr~ if($v1<0 \, -pow(abs($v1) \, $f2) \, pow(abs($v1)
\, $f2));
#X obj 23 79 nbx 5 14 20 20000 0 1 empty empty Frequência 0 -8 0 10
-262144 -1 -1 400 256;
#X obj 355 106 nbx 5 14 0.01 100 1 1 empty empty Expoente 0 -8 0 10
-262144 -1 -1 1 256;
#X text 22 10 Exemplo de distorção com função exponencial f(x)=x^y.
A forma de onda tende a um pulso alternado para y muito grande \, e
para uma onda quadrada para y muito próximo de 0, f 60;
#X connect 0 0 3 0;
#X connect 3 0 1 0;
#X connect 3 0 2 0;
#X connect 3 0 1 1;
#X connect 4 0 0 0;
#X connect 5 0 3 1;