#N canvas 1 53 589 471 10; #X obj 22 10 inlet; #X obj 412 9 inlet; #X obj 174 405 outlet; #X obj 270 10 loadbang; #X obj 167 9 inlet; #X obj 167 50 purepd/float_argument \$1; #X obj 412 50 purepd/float_argument \$2; #X obj 167 97 select 0.5; #X obj 224 149 float; #X msg 167 121 0.50001; #X text 225 121 prevent divide by 0; #X obj 271 213 expr 1 - 2*$f1; #X obj 22 250 expr (sqrt($f2*$f2 + $f3*$f1) - $f2) / $f3; #X obj 175 309 expr (1 - 2*$f2)*($f1*$f1) + (2*$f2)*$f1; #X connect 0 0 12 0; #X connect 1 0 6 0; #X connect 3 0 5 0; #X connect 3 0 6 0; #X connect 4 0 5 0; #X connect 5 0 7 0; #X connect 6 0 13 1; #X connect 7 0 9 0; #X connect 7 1 8 0; #X connect 8 0 11 0; #X connect 8 0 12 1; #X connect 9 0 8 0; #X connect 11 0 12 2; #X connect 12 0 13 0; #X connect 13 0 2 0;