#N canvas 1 53 573 455 10; #X obj 62 10 inlet; #X obj 327 9 inlet; #X obj 106 405 outlet; #X obj 240 10 loadbang; #X obj 167 9 inlet; #X obj 167 50 purepd/float_argument \$1; #X obj 327 50 purepd/float_argument \$2; #X obj 74 113 moses; #X obj 167 97 moses 1; #X obj 167 118 + 1e-06; #X text 217 104 prevent divide by 0; #X obj 7 199 expr ($f3/$f2) * sqrt(pow($f2 \, 2) - pow($f1 - $f2 \, 2)); #X obj 152 275 expr 1 - ( (1 - $f3)/(1 - $f2) * sqrt(pow(1 - $f2 \, 2) - pow($f1 - $f2 \, 2)) ); #X connect 0 0 7 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 1; #X connect 5 0 8 0; #X connect 6 0 11 2; #X connect 6 0 12 2; #X connect 7 0 11 0; #X connect 7 1 12 0; #X connect 8 0 9 0; #X connect 9 0 11 1; #X connect 9 0 12 1; #X connect 11 0 2 0; #X connect 12 0 2 0;