filter-graph2.pd 3.06 KB
Newer Older
Miller Puckette's avatar
Miller Puckette committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121
#N canvas 72 200 758 579 10;
#X obj 266 177 *~;
#X obj 317 175 *~;
#X obj 182 276 t b b;
#X obj 368 382 atan2;
#X obj 267 302 snapshot~;
#X obj 341 301 snapshot~;
#X obj 450 259 butterworth3~ 80 100000 0;
#X obj 64 135 inlet;
#X obj 368 410 expr $f1 + 6.283 * ($f1 < -0.01);
#X obj 71 417 t b f b;
#X obj 448 457 symbol \$2;
#X obj 519 457 symbol;
#X obj 463 434 t b b;
#X obj 447 504 t b;
#X obj 474 505 t b;
#X msg 447 525 0;
#X msg 474 526 1;
#X obj 447 481 sel symbol;
#X floatatom 447 549 5 0 0 0 - - -;
#X obj 195 493 f;
#X obj 265 135 inlet~;
#X obj 318 135 inlet~;
#X obj 418 134 inlet~;
#X obj 374 495 f;
#X obj 368 442 spigot;
#X obj 333 495 t f b;
#X obj 154 493 t f b;
#X obj 154 521 tabwrite \$1;
#X obj 333 520 tabwrite \$2;
#X obj 637 259 env~ 2048;
#X obj 311 362 f;
#X obj 267 324 t f f b;
#X obj 311 382 dbtopow;
#X obj 137 411 expr sqrt($f1*$f1 + $f2*$f2)/$f3;
#X obj 63 245 sel 0;
#X obj 87 270 - 1;
#X obj 64 156 unpack;
#X obj 117 157 expr 10000/$f1;
#X text 257 102 test sinusoid:;
#X text 272 116 cos;
#X text 325 115 sin;
#X text 397 97 output of filter;
#X text 398 113 we're testing;
#X text 31 103 index and time to next step;
#X text 39 82 ----- from filter-graph1's 3 outlets: -------;
#X text 117 193 low-pass filters;
#X text 118 177 cutoff freq. for;
#X obj 368 360 swap;
#X obj 620 215 t b;
#X text 583 184 clear filters;
#X text 582 198 to start;
#X text 578 452 cbeck if any table;
#X text 577 467 is specified for phase;
#X text 577 483 (don't compute it if;
#X text 578 498 not.);
#X text 31 3 filter-graph2: measures frequency and phase response of
a filter \, which should be driven by a "filter-graph1" object. We
need the three outputs of filter-graph1 \, plus the filter output.
;
#X text 438 55 1: table name for frequency response;
#X text 518 39 creation arguments:;
#X text 438 71 2 (optional): table name for phase response;
#X obj 266 260 butterworth3~ 80 100000 0;
#X connect 0 0 59 0;
#X connect 1 0 6 0;
#X connect 2 0 4 0;
#X connect 2 1 5 0;
#X connect 3 0 8 0;
#X connect 4 0 31 0;
#X connect 5 0 33 1;
#X connect 5 0 47 1;
#X connect 6 0 5 0;
#X connect 7 0 36 0;
#X connect 8 0 24 0;
#X connect 9 0 2 0;
#X connect 9 1 19 1;
#X connect 9 1 23 1;
#X connect 9 2 12 0;
#X connect 10 0 17 0;
#X connect 11 0 17 1;
#X connect 12 0 10 0;
#X connect 12 1 11 0;
#X connect 13 0 15 0;
#X connect 14 0 16 0;
#X connect 15 0 18 0;
#X connect 16 0 18 0;
#X connect 17 0 13 0;
#X connect 17 1 14 0;
#X connect 18 0 24 1;
#X connect 19 0 27 1;
#X connect 20 0 0 0;
#X connect 20 0 29 0;
#X connect 21 0 1 0;
#X connect 22 0 1 1;
#X connect 22 0 0 1;
#X connect 23 0 28 1;
#X connect 24 0 25 0;
#X connect 25 0 28 0;
#X connect 25 1 23 0;
#X connect 26 0 27 0;
#X connect 26 1 19 0;
#X connect 29 0 30 1;
#X connect 30 0 32 0;
#X connect 31 0 33 0;
#X connect 31 1 47 0;
#X connect 31 2 30 0;
#X connect 32 0 33 2;
#X connect 33 0 26 0;
#X connect 34 1 35 0;
#X connect 34 1 48 0;
#X connect 35 0 9 0;
#X connect 36 0 34 0;
#X connect 36 1 37 0;
#X connect 37 0 6 1;
#X connect 37 0 59 1;
#X connect 47 0 3 0;
#X connect 47 1 3 1;
#X connect 48 0 6 4;
#X connect 48 0 59 4;
#X connect 59 0 4 0;