oh I hate this kind of Webmail
I'll put the file filterplot_biquad.pd in here as text, so that one can get it by pd-list archives, too. (or is there an easy way to convert the I04gY2FudmFzIDE3IDAgMTE1MCA3OTQgMTI7DQojWCBv stuff to a nice pd patch?)
sorry for mailing twice Bernhard
#N canvas 17 0 1150 794 12; #X obj 56 417 bang~; #X obj 56 449 dirac~; #X obj 376 -44 block~ 1024; #N canvas 0 0 450 300 graph2 0; #X array phase 1024 float 0; #X coords 0 1.57 1023 -1.57 200 140 1; #X restore 294 181 graph; #N canvas 0 0 450 300 graph2 0; #X array amp 1024 float 0; #X coords 0 130 1023 50 200 140 1; #X restore 293 24 graph; #X obj 57 570 fft~; #X obj 57 675 tabsend~ amp; #X obj 183 644 tabsend~ phase; #X obj 57 646 rmstodb~; #N canvas 0 0 450 300 graph1 0; #X array response 268 float 0; #X coords 0 1 267 -1 200 140 1; #X restore 295 372 graph; #X obj 111 570 tabsend~ response; #X obj 56 541 +~ 0; #X obj 56 497 biquad~; #X obj 523 292 pack 0 0 1 0 0; #N canvas 266 348 464 314 AbsAngtoReIm 0; #X obj 41 46 inlet; #X obj 187 46 inlet; #X text 38 21 absolute value; #X text 185 20 angle; #X obj 103 148 cos; #X obj 104 126 * 0.0314159; #X obj 44 113 t b f; #X obj 104 172 *; #X obj 203 126 * 0.0314159; #X obj 203 98 - 50; #X obj 203 149 cos; #X obj 201 177 *; #X obj 44 91 * 0.01; #X obj 104 222 outlet; #X obj 201 218 outlet; #X text 103 245 real part; #X text 200 244 imaginary part; #X connect 0 0 12 0; #X connect 1 0 5 0; #X connect 1 0 9 0; #X connect 4 0 7 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 6 0 11 0; #X connect 6 1 11 1; #X connect 6 1 7 1; #X connect 7 0 13 0; #X connect 8 0 10 0; #X connect 9 0 8 0; #X connect 10 0 11 0; #X connect 11 0 14 0; #X connect 12 0 6 0; #X restore 859 69 pd AbsAngtoReIm; #X text 863 48 100 is 1; #X text 982 47 100 is pi/2; #N canvas 16 481 466 316 ReImtoCoeff 0; #X obj 114 29 inlet; #X obj 236 28 inlet; #X obj 35 216 outlet; #X obj 128 216 outlet; #X obj 237 218 outlet; #X text 28 250 refresh; #X text 161 247 coefficients; #X text 142 265 ff2; #X text 244 266 ff3; #X obj 199 144 +; #X obj 112 100 * -2; #X obj 110 155 t b f; #X obj 200 94 *; #X obj 236 95 *; #X obj 199 168 t b f; #X obj 235 118 t b f; #X obj 225 52 t f f; #X obj 159 62 t f f; #X connect 0 0 10 0; #X connect 0 0 17 0; #X connect 1 0 16 0; #X connect 9 0 14 0; #X connect 10 0 11 0; #X connect 11 0 2 0; #X connect 11 1 3 0; #X connect 12 0 9 0; #X connect 13 0 15 0; #X connect 14 0 2 0; #X connect 14 1 4 0; #X connect 15 0 9 0; #X connect 15 1 9 1; #X connect 16 0 13 0; #X connect 16 1 13 1; #X connect 17 0 12 0; #X connect 17 1 12 1; #X restore 859 135 pd ReImtoCoeff; #X floatatom 912 173 5 0 0 2 ff2 - -; #X floatatom 966 173 5 0 0 2 ff3 - -; #X text 914 -18 zeros; #X floatatom 524 24 5 0 0 2 Gain gain -; #X obj 523 108 t b f; #X obj 524 82 * 0.01; #X floatatom 25 30 5 0 0 2 frequency - -; #X floatatom 106 31 5 0 0 2 gain - -; #X obj 106 53 t b f; #X floatatom 170 32 5 0 0 2 bandwidth - -; #X obj 170 54 t b f; #X obj 56 104 equalizer; #N canvas 0 0 458 308 amplitude 0; #X obj 35 67 inlet~; #X obj 164 71 inlet~; #X text 32 31 real part; #X text 161 33 imaginary part; #X obj 42 126 *~; #X obj 161 126 *~; #X obj 75 174 +~; #X obj 76 207 sqrt~; #X obj 78 253 outlet~; #X text 166 175 amplitude of a complex signal; #X connect 0 0 4 0; #X connect 0 0 4 1; #X connect 1 0 5 0; #X connect 1 0 5 1; #X connect 4 0 6 0; #X connect 5 0 6 1; #X connect 6 0 7 0; #X connect 7 0 8 0; #X restore 56 615 pd amplitude; #X obj 184 613 expr~ atan($v2/$v1); #X floatatom 625 107 5 0 0 2 realPart - -; #X floatatom 739 109 5 0 0 2 imaginaryPart - -; #X floatatom 624 27 5 0 0 2 absoluteValue - -; #X floatatom 739 27 5 0 0 2 angle - -; #N canvas 266 348 464 314 AbsAngtoReIm 0; #X obj 41 46 inlet; #X obj 187 46 inlet; #X text 38 21 absolute value; #X text 185 20 angle; #X obj 103 148 cos; #X obj 104 126 * 0.0314159; #X obj 44 113 t b f; #X obj 104 172 *; #X obj 203 126 * 0.0314159; #X obj 203 98 - 50; #X obj 203 149 cos; #X obj 201 177 *; #X obj 44 91 * 0.01; #X obj 104 222 outlet; #X obj 201 218 outlet; #X text 103 245 real part; #X text 200 244 imaginary part; #X connect 0 0 12 0; #X connect 1 0 5 0; #X connect 1 0 9 0; #X connect 4 0 7 0; #X connect 5 0 4 0; #X connect 6 0 7 0; #X connect 6 0 11 0; #X connect 6 1 11 1; #X connect 6 1 7 1; #X connect 7 0 13 0; #X connect 8 0 10 0; #X connect 9 0 8 0; #X connect 10 0 11 0; #X connect 11 0 14 0; #X connect 12 0 6 0; #X restore 624 69 pd AbsAngtoReIm; #X text 630 45 100 is 1; #X text 746 46 100 is pi/2; #N canvas 16 481 478 328 ReImtoCoeff 0; #X obj 114 29 inlet; #X obj 236 28 inlet; #X obj 35 216 outlet; #X obj 128 216 outlet; #X obj 237 218 outlet; #X text 28 250 refresh; #X text 161 247 coefficients; #X text 142 265 ff2; #X text 244 266 ff3; #X obj 199 144 +; #X obj 200 94 *; #X obj 236 95 *; #X obj 199 188 t b f; #X obj 235 118 t b f; #X obj 225 52 t f f; #X obj 159 62 t f f; #X obj 198 166 * -1; #X obj 112 100 * 2; #X connect 0 0 15 0; #X connect 0 0 17 0; #X connect 1 0 14 0; #X connect 9 0 16 0; #X connect 10 0 9 0; #X connect 11 0 13 0; #X connect 12 0 2 0; #X connect 12 1 4 0; #X connect 13 0 9 0; #X connect 13 1 9 1; #X connect 14 0 11 0; #X connect 14 1 11 1; #X connect 15 0 10 0; #X connect 15 1 10 1; #X connect 16 0 12 0; #X connect 17 0 3 0; #X restore 624 135 pd ReImtoCoeff; #X floatatom 677 173 5 0 0 2 fb1 - -; #X floatatom 731 173 5 0 0 2 fb2 - -; #X text 683 -18 poles; #X floatatom 859 27 5 0 0 2 absoluteValue - -; #X floatatom 974 27 5 0 0 2 angle - -; #X floatatom 859 109 5 0 0 2 realPart - -; #X floatatom 975 108 5 0 0 2 imaginaryPart - -; #X text 532 49 100 is 1; #X text 122 450 needs zexy; #X floatatom 432 532 5 0 0 0 response_length - responsesize; #X text 293 -9 0; #X text 381 -10 fs/2; #X text 479 -9 fs; #N canvas 0 0 1260 923 init 0; #X obj 29 106 s response; #X msg 29 76 resize $1; #X msg 130 75 xticks 0 10 10; #X obj 303 148 s amp; #X msg 325 106 yticks 100 2 5; #X msg 291 74 ylabel 1100 60 80 100 120; #X obj 25 39 r responsesize; #X obj 191 29 loadbang; #X msg 198 190 100; #X obj 199 221 s gain; #X connect 1 0 0 0; #X connect 2 0 0 0; #X connect 4 0 3 0; #X connect 5 0 3 0; #X connect 6 0 1 0; #X connect 7 0 2 0; #X connect 7 0 5 0; #X connect 7 0 4 0; #X connect 7 0 8 0; #X connect 8 0 9 0; #X restore 286 -44 pd init; #X text 498 9 dB; #X connect 0 0 1 0; #X connect 1 0 12 0; #X connect 5 0 30 0; #X connect 5 0 31 0; #X connect 5 1 30 1; #X connect 5 1 31 1; #X connect 8 0 6 0; #X connect 11 0 5 0; #X connect 11 0 10 0; #X connect 12 0 11 0; #X connect 13 0 12 0; #X connect 14 0 45 0; #X connect 14 1 46 0; #X connect 17 0 13 0; #X connect 17 1 18 0; #X connect 17 2 19 0; #X connect 18 0 13 3; #X connect 19 0 13 4; #X connect 21 0 23 0; #X connect 22 0 13 0; #X connect 22 1 13 2; #X connect 23 0 22 0; #X connect 24 0 29 0; #X connect 25 0 26 0; #X connect 26 0 29 0; #X connect 26 1 29 1; #X connect 27 0 28 0; #X connect 28 0 29 0; #X connect 28 1 29 2; #X connect 29 0 12 0; #X connect 30 0 8 0; #X connect 31 0 7 0; #X connect 32 0 39 0; #X connect 33 0 39 1; #X connect 34 0 36 0; #X connect 35 0 36 1; #X connect 36 0 32 0; #X connect 36 1 33 0; #X connect 39 0 13 0; #X connect 39 1 40 0; #X connect 39 2 41 0; #X connect 40 0 13 0; #X connect 41 0 13 1; #X connect 43 0 14 0; #X connect 44 0 14 1; #X connect 45 0 17 0; #X connect 46 0 17 1;