#N canvas 1 53 433 390 10;
#X obj 62 10 inlet;
#X obj 95 355 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 248 expr pow(2*$f1 \, 1/$f2)/2;
#X obj 200 246 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 obj 200 195 moses 1;
#X msg 239 217 1;
#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 12 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;
#X connect 12 0 7 0;
#X connect 12 1 13 0;
#X connect 13 0 7 0;