#N canvas 1 53 589 471 10;
#X obj 22 10 inlet;
#X obj 174 435 outlet;
#X obj 270 10 loadbang;
#X obj 167 9 inlet;
#X obj 167 50 purepd/float_argument \$1;
#X obj 167 157 select 0.5;
#X obj 224 209 float;
#X msg 167 181 0.50001;
#X text 225 181 prevent divide by 0;
#X obj 271 243 expr 1 - 2*$f1;
#X obj 22 280 expr (sqrt($f2*$f2 + $f3*$f1) - $f2) / $f3;
#X obj 175 339 expr (1 - 2*$f2)*($f1*$f1) + (2*$f2)*$f1;
#X obj 278 82 * 2;
#X obj 317 126 - 1;
#X obj 278 104 moses 1;
#X connect 0 0 10 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 5 0 7 0;
#X connect 5 1 6 0;
#X connect 6 0 9 0;
#X connect 6 0 10 1;
#X connect 7 0 6 0;
#X connect 9 0 10 2;
#X connect 10 0 11 0;
#X connect 11 0 1 0;
#X connect 12 0 14 0;
#X connect 13 0 11 1;
#X connect 14 0 5 0;
#X connect 14 1 13 0;