#N canvas 507 120 465 400 10;
#X text 168 309 'beta' function for d-biquadcalc-*;
#X obj 18 24 inlet;
#X obj 18 77 unpack f f;
#X obj 95 132 - 1;
#X obj 95 157 d-sq;
#X obj 19 245 -;
#X msg 18 49 \$2 \$1;
#X text 71 23 a \, S;
#X obj 58 132 d-sq;
#X obj 58 157 + 1;
#X obj 19 178 f;
#X obj 19 203 /;
#X obj 18 100 t b a;
#X obj 19 276 sqrt;
#X obj 19 312 outlet;
#X text 70 54 S \, a;
#X text 110 258 e_beta(a \, S) (sqrt((a*a + 1)/S - (a-1)*(a-1)));
#X connect 1 0 6 0;
#X connect 2 0 12 0;
#X connect 2 1 3 0;
#X connect 2 1 8 0;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 5 0 13 0;
#X connect 6 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 10 1;
#X connect 10 0 11 0;
#X connect 11 0 5 0;
#X connect 12 0 10 0;
#X connect 12 1 11 1;
#X connect 13 0 14 0;
