#N canvas 182 95 622 419 10;
#X obj 30 129 +~ 5000;
#X obj 29 27 inlet~;
#X obj 31 153 tabread4~ \$0-disto;
#X obj 160 29 inlet~;
#X obj 29 102 *~;
#X obj 160 49 *~ 5000;
#X obj 160 129 +~ 5000;
#X obj 160 153 tabread4~ \$0-disto;
#X obj 30 229 outlet~;
#X obj 294 337 table \$0-disto 10000;
#X obj 31 197 /~;
#X obj 160 71 +~ 100;
#N canvas 25 446 450 300 sqrt 0;
#X obj 20 63 t b b;
#X obj 20 159 f;
#X obj 63 159 + 1;
#X msg 47 136 0;
#X obj 20 104 until;
#X obj 20 44 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 20 219 - 0.5;
#X obj 20 259 t f f f;
#X obj 39 280 *;
#X obj 39 300 + 1;
#X obj 39 320 sqrt;
#X obj 20 340 /;
#X obj 20 239 * 20;
#X obj 20 199 / 9999;
#X msg 20 83 10000;
#X obj 20 179 t f f;
#X obj 20 360 tabwrite \$0-disto;
#X obj 20 18 inlet;
#X connect 0 0 14 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 15 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 12 0;
#X connect 7 0 11 0;
#X connect 7 1 8 0;
#X connect 7 2 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 1;
#X connect 11 0 16 0;
#X connect 12 0 7 0;
#X connect 13 0 6 0;
#X connect 14 0 4 0;
#X connect 15 0 13 0;
#X connect 15 1 16 1;
#X connect 17 0 5 0;
#X restore 313 169 pd sqrt;
#X obj 313 151 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 1 83 640 460 sigmoid 0;
#X obj 23 59 t b b;
#X obj 23 148 f;
#X obj 61 148 + 1;
#X msg 50 125 0;
#X obj 23 102 until;
#X obj 23 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 23 213 - 0.5;
#X obj 23 276 - 0.5;
#X obj 23 298 * 2;
#X obj 23 319 tabwrite \$0-disto;
#X msg 23 81 10000;
#X obj 23 192 / 9999;
#X obj 23 234 * 30;
#X obj 23 171 t f f;
#X obj 23 255 expr ( exp($f1)) / ( 1 + exp($f1));
#X obj 23 15 inlet;
#X connect 0 0 10 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 13 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 10 0 4 0;
#X connect 11 0 6 0;
#X connect 12 0 14 0;
#X connect 13 0 11 0;
#X connect 13 1 9 1;
#X connect 14 0 7 0;
#X connect 15 0 5 0;
#X restore 298 131 pd sigmoid;
#X obj 298 112 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 0 739 509 x_over_xplus 0;
#X obj 17 58 t b b;
#X obj 17 141 f;
#X obj 55 141 + 1;
#X msg 44 118 0;
#X obj 17 96 until;
#X obj 17 39 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 17 315 /;
#X obj 44 269 abs;
#X obj 44 248 * 2;
#X obj 17 208 - 0.5;
#X obj 44 290 + 0.1;
#X msg 17 77 10000;
#X obj 17 189 / 9999;
#X obj 17 359 tabwrite \$0-disto;
#X obj 17 337 * 2;
#X obj 17 228 t f f;
#X obj 17 167 t f f;
#X obj 17 16 inlet;
#X connect 0 0 11 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 16 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 14 0;
#X connect 7 0 10 0;
#X connect 8 0 7 0;
#X connect 9 0 15 0;
#X connect 10 0 6 1;
#X connect 11 0 4 0;
#X connect 12 0 9 0;
#X connect 14 0 13 0;
#X connect 15 0 6 0;
#X connect 15 1 8 0;
#X connect 16 0 12 0;
#X connect 16 1 13 1;
#X connect 17 0 5 0;
#X restore 328 214 pd x_over_xplus;
#X obj 328 194 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 0 588 371 poly 0;
#X obj 16 14 inlet;
#X obj 16 55 t b b;
#X obj 16 140 f;
#X obj 54 140 + 1;
#X msg 43 117 0;
#X obj 16 98 until;
#X obj 16 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 16 209 - 0.5;
#X obj 16 253 expr exp(-$f1*$f1)*($f1+pow($f1 \, 3)*2/3 + pow($f1 \,
5)*4/15);
#X obj 16 275 tabwrite \$0-disto;
#X obj 16 188 / 9999;
#X msg 16 76 10000;
#X obj 16 165 t f f;
#X obj 16 231 * 2;
#X connect 0 0 6 0;
#X connect 1 0 11 0;
#X connect 1 1 4 0;
#X connect 2 0 3 0;
#X connect 2 0 12 0;
#X connect 3 0 2 1;
#X connect 4 0 2 1;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 10 0 7 0;
#X connect 11 0 5 0;
#X connect 12 0 10 0;
#X connect 12 1 9 1;
#X connect 13 0 8 0;
#X restore 345 258 pd poly;
#X obj 345 238 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 298 32 inlet;
#X obj 337 32 loadbang;
#X obj 298 84 sel 0 1 2 3 4;
#X obj 359 283 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 615 471 640 460 cos 0;
#X obj 23 59 t b b;
#X obj 23 148 f;
#X obj 61 148 + 1;
#X msg 50 125 0;
#X obj 23 102 until;
#X obj 23 40 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 23 319 tabwrite \$0-disto;
#X msg 23 81 10000;
#X obj 23 192 / 9999;
#X obj 23 171 t f f;
#X obj 23 15 inlet;
#X obj 23 255 cos;
#X obj 23 234 * 3.14;
#X obj 23 280 * -1;
#X connect 0 0 7 0;
#X connect 0 1 3 0;
#X connect 1 0 2 0;
#X connect 1 0 9 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 0 0;
#X connect 7 0 4 0;
#X connect 8 0 12 0;
#X connect 9 0 8 0;
#X connect 9 1 6 1;
#X connect 10 0 5 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 13 0 6 0;
#X restore 359 301 pd cos;
#X obj 298 60 f;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 10 0;
#X connect 3 0 5 0;
#X connect 4 0 0 0;
#X connect 5 0 11 0;
#X connect 6 0 7 0;
#X connect 7 0 10 1;
#X connect 10 0 8 0;
#X connect 11 0 4 1;
#X connect 11 0 6 0;
#X connect 13 0 12 0;
#X connect 15 0 14 0;
#X connect 17 0 16 0;
#X connect 19 0 18 0;
#X connect 20 0 25 0;
#X connect 21 0 25 0;
#X connect 22 0 15 0;
#X connect 22 1 13 0;
#X connect 22 2 17 0;
#X connect 22 3 19 0;
#X connect 22 4 23 0;
#X connect 23 0 24 0;
#X connect 25 0 22 0;