From 3739ef59d6ffde0f8833626b8fee143a26470e9f Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 10 Apr 2007 05:38:15 +0000 Subject: lots of curves inspired by Golan Levin's processing shapers svn path=/trunk/externals/mapping/; revision=7553 --- logistic_sigmoid.pd | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 logistic_sigmoid.pd (limited to 'logistic_sigmoid.pd') diff --git a/logistic_sigmoid.pd b/logistic_sigmoid.pd new file mode 100644 index 0000000..11c52f9 --- /dev/null +++ b/logistic_sigmoid.pd @@ -0,0 +1,48 @@ +#N canvas 564 83 610 403 10; +#X obj 42 10 inlet; +#X obj 168 349 outlet; +#X obj 426 21 loadbang; +#X obj 353 20 inlet; +#X obj 353 61 purepd/float_argument \$1; +#X obj 353 113 expr 1/(1-$f1) - 1; +#X obj 353 158 expr 1 / (1 + exp($f1)); +#X text 340 157 B; +#X text 340 111 a; +#X text 28 177 A; +#X obj 42 175 expr 1 / (1 + exp(0 - (($f1 - 0.5) * $f2 * 2))); +#X obj 407 191 expr 1 / (1 + exp(0 - $f1)); +#X text 395 191 C; +#X obj 168 292 expr ($f1 - $f2)/($f3 - $f2); +#N canvas 0 22 466 316 constrain 0; +#X obj 71 17 inlet; +#X obj 107 229 outlet; +#X obj 71 169 bang; +#X text 151 169 constrain to >0; +#X obj 71 149 moses 0.0001; +#X msg 71 190 0.0001; +#X obj 71 66 moses 1; +#X text 120 66 constraing to <1; +#X obj 110 86 bang; +#X msg 110 107 0.9999; +#X connect 0 0 6 0; +#X connect 2 0 5 0; +#X connect 4 0 2 0; +#X connect 4 1 1 0; +#X connect 5 0 1 0; +#X connect 6 0 4 0; +#X connect 6 1 8 0; +#X connect 8 0 9 0; +#X connect 9 0 4 0; +#X restore 353 89 pd constrain to 0