#N canvas 277 167 454 439 10;
#X obj 62 10 inlet;
#X obj 195 405 outlet;
#X obj 240 10 loadbang;
#X obj 167 9 inlet;
#X obj 167 50 purepd/float_argument \$1;
#X obj 62 84 moses 0.5;
#X obj 14 208 expr pow(2*$f1 \, 1/$f2)/2;
#X obj 200 206 expr 1 - (pow(2*(1-$f1) \, 1/$f2)/2);
#X obj 167 97 bang;
#X obj 167 77 moses 1e-06;
#X msg 167 118 1e-06;
#X text 272 98 constrain to >0;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 9 1 7 1;
#X connect 9 1 6 1;
#X connect 10 0 6 1;
#X connect 10 0 7 1;