#N canvas 1 53 589 471 12; #X obj 42 10 inlet; #X obj 349 13 inlet; #X obj 106 405 outlet; #X obj 220 10 loadbang; #X obj 147 9 inlet; #X obj 147 50 purepd/float_argument \$1; #X obj 349 54 purepd/float_argument \$2; #X obj 42 113 moses; #X obj 147 97 moses 1; #X obj 147 121 + 1e-06; #X text 202 106 prevent divide by 0; #X obj 7 199 expr $f3 - $f3*pow(1 - $f1/$f2 \, 3); #X obj 152 275 expr $f3 + (1 - $f3) * pow(($f1 - $f2) / (1 - $f2) \, 3); #X obj 349 121 float; #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 13 0; #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; #X connect 13 0 11 2; #X connect 13 0 12 2;