path: root/examples/ann_mlp_example2/example2.pd

#N canvas 519 124 536 237 10;
#N canvas 103 30 712 583 guts 0;
#X obj 18 181 t b b;
#X obj 17 41 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X msg 89 147 0 \, destroy;
#X obj 111 177 gemwin;
#X msg 94 124 reset \, create \, 1;
#X obj 18 390 s masse;
#X obj 266 150 s reset_masse;
#X msg 266 128 bang;
#X text 359 281 <- right border;
#X text 360 303 <- left border;
#X text 360 325 <- top border;
#X text 360 347 <- bottom border;
#N canvas 116 11 813 636 pool 0;
#N canvas 0 0 819 344 fattori 0;
#N canvas 0 0 450 300 graph3 0;
#X array armoniche_caso 100 float 1;
#A 0 1.06332 1.06332 1.06332 1.38999 1.55333 1.55333 1.55333 1.55333
1.55333 1.55333 1.55333 1.71666 1.87999 2.04333 2.04333 2.20666 2.20666
2.20666 2.37 2.53333 2.53333 2.53333 2.69667 2.69667 2.69667 2.69667
2.69667 2.69667 2.69667 3.18667 3.18667 3.18667 3.18667 3.35 3.35 3.51334
3.84001 3.84001 4.00334 4.16668 4.16668 4.16668 4.16668 4.49334 4.65668
4.82001 5.31002 5.47335 5.80002 6.12669 6.61669 6.94336 7.27003 7.43336
7.92337 8.25003 8.5767 8.90337 9.23004 9.72004 10.3734 10.7 11.0267
11.19 11.5167 12.0067 12.4967 13.3134 13.64 13.9667 14.2934 14.9467
16.2534 16.5801 16.7434 17.2334 17.8867 19.0301 19.8467 20.9901 21.6434
22.1334 22.7867 23.1134 23.7667 24.2568 24.5834 24.9101 27.3601 28.3401
29.3201 30.3001 31.4435 32.5868 33.5668 34.5468 36.0168 37.8135 39.7735
50.7169;
#X coords 0 50 99 1 300 300 1;
#X restore 43 13 graph;
#X msg 434 69 \; armoniche_caso const 1;
#X restore 37 37 pd fattori caso;
#X text 34 19 weightened random values;
#X text 32 8 which harmonic am I?;
#X text 236 34 20 cellule;
#X obj 49 82 cellulaSuono 1;
#X obj 48 102 cellulaSuono 2;
#X obj 44 125 cellulaSuono 3;
#X obj 143 86 cellulaSuono 4;
#X obj 140 104 cellulaSuono 5;
#X obj 146 126 cellulaSuono 6;
#X restore 398 132 pd pool;
#N canvas 860 482 327 421 creation 0;
#X obj 43 319 s pd-new;
#X msg 86 95 \; pd filename new ./ \; #N canvas \; #X pop 1 \;;
#X msg 43 289 menuclose;
#X obj 76 238 pack f f f;
#X obj 43 47 sel 0 1;
#X obj 43 29 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 61 72 t b b;
#X obj 76 187 t f f f;
#X obj 103 211 * 10;
#X obj 76 211 * 10;
#X obj 61 163 ch_uzi 30;
#X msg 76 265 obj \$1 \$2 cellulaSuono \$3;
#X connect 2 0 0 0;
#X connect 3 0 11 0;
#X connect 4 0 2 0;
#X connect 4 1 6 0;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 6 1 1 0;
#X connect 7 0 9 0;
#X connect 7 1 8 0;
#X connect 7 2 3 2;
#X connect 8 0 3 1;
#X connect 9 0 3 0;
#X connect 10 1 7 0;
#X connect 11 0 0 0;
#X restore 398 158 pd creation pool;
#X obj 61 214 s link;
#X text 39 39 <- begin (change the metro speed for slow computer);
#X floatatom 38 132 5 0 0 0 - - -;
#X text 359 257 <- give random speed and ambient viscosity;
#X obj 449 446 gemhead;
#X obj 449 467 translateXYZ;
#X msg 166 417 setX \$1;
#X msg 251 418 setY \$1;
#X obj 520 399 * -1;
#X obj 449 487 color 0.5 0 0;
#X obj 501 347 gemmouse 8 8;
#X obj 481 390 - 4;
#X obj 523 380 - 4;
#X obj 90 473 iCircle2D masse 0 0 0.1 8 0 0 -0.0003;
#X obj 53 280 iLine2D masse 3.5 -3.5 3.5 3.5 1000 0 0 2 1;
#X obj 63 305 iLine2D masse -3.5 3.5 -3.5 -3.5 1000 0 0 2 1;
#X obj 78 328 iLine2D masse 3.5 3.5 -3.5 3.5 1000 0 0 2 1;
#X obj 89 351 iLine2D masse -3.5 -3.5 3.5 -3.5 1000 0 0 2 1;
#X obj 449 507 sphere 0.6;
#X obj 18 154 metro 15;
#N canvas 0 0 555 394 osc 0;
#X obj 139 70 dumpOSC 10001;
#X obj 182 106 unpack s f;
#X msg 179 155 \; \$1 \$2;
#X obj 180 131 pack s f;
#X obj 263 113 r x;
#X obj 337 118 r y;
#X obj 258 210 s c_x;
#X obj 354 214 s c_y;
#X obj 348 151 / 25;
#X obj 264 151 / 40;
#X obj 260 176 clip 0 8;
#X obj 348 182 clip 0 8;
#X text 128 29 here is where I connect to EyesWeb to move the main
cell with a webcam following my hand;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 1 1 3 1;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 5 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 10 0;
#X connect 10 0 6 0;
#X connect 11 0 7 0;
#X restore 499 316 pd osc;
#X obj 453 365 r c_x;
#X obj 589 359 r c_y;
#X msg 156 102 cursor 0;
#X msg 126 66 bang;
#X msg 166 150 lighting 1;
#N canvas 450 44 494 396 sounds 0;
#X obj 158 307 dac~;
#X obj 76 66 catch~ mainL;
#X obj 160 153 line;
#X msg 159 131 \$1 10;
#X obj 273 41 vsl 15 128 0 1 0 0 empty empty Volume 0 -8 0 8 -262144
-1 -1 12700 1;
#X obj 144 179 *~;
#X obj 178 179 *~;
#X obj 164 67 catch~ mainR;
#X obj 304 42 loadbang;
#X msg 304 62 1;
#X obj 145 265 +~;
#X obj 177 268 +~;
#X obj 193 233 rev3~ 70 90 3000 20;
#X connect 1 0 5 0;
#X connect 2 0 5 1;
#X connect 2 0 6 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 10 0;
#X connect 5 0 12 0;
#X connect 6 0 11 0;
#X connect 6 0 12 1;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 4 0;
#X connect 10 0 0 0;
#X connect 11 0 0 1;
#X connect 12 0 10 1;
#X connect 12 1 11 1;
#X restore 398 189 pd sounds;
#X text 463 188 <-- here is the main volue control;
#N canvas 463 128 573 394 lights 0;
#X obj 242 277 world_light;
#X obj 242 163 gemhead 1;
#X obj 242 225 rotateXYZ;
#X msg 109 193 debug 0;
#X msg 110 224 debug 1;
#X text 20 169 figure out where the light is;
#X obj 311 47 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 354 133 pack f f;
#X obj 334 159 line;
#X msg 364 42 1;
#X obj 364 23 loadbang;
#X obj 344 298 world_light;
#X obj 346 271 gemhead 1;
#X obj 429 203 loadbang;
#X obj 311 63 metro 20000;
#X msg 400 104 10000;
#X obj 119 57 delay 10000;
#X msg 339 96 300;
#X msg 292 96 50;
#X msg 364 235 1 1 1;
#X msg 422 266 0.6 0.3 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 6 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 2 2;
#X connect 9 0 6 0;
#X connect 10 0 9 0;
#X connect 10 0 15 0;
#X connect 12 0 11 0;
#X connect 13 0 19 0;
#X connect 13 0 20 0;
#X connect 14 0 17 0;
#X connect 14 0 16 0;
#X connect 15 0 7 1;
#X connect 16 0 18 0;
#X connect 17 0 7 0;
#X connect 18 0 7 0;
#X connect 19 0 0 1;
#X connect 20 0 11 1;
#X restore 266 189 pd lights;
#X text 337 49 example "stolen" from pmpd examples. move the main cell
with your mouse (or via osc) every cell is a random harmonic of A (from
1st to 50th) \, the velo of a cell is its volume also.;
#X obj 405 432 s posx;
#X obj 535 427 s posy;
#X obj 43 260 iAmbient2D masse 0 0 0.01 0.01 0.4;
#X obj 86 499 iCircle2D masse 0 0 0.1 0.7 0 0 4;
#X obj 17 19 inlet;
#X obj 85 19 inlet;
#X connect 0 0 5 0;
#X connect 0 1 14 0;
#X connect 0 1 27 0;
#X connect 0 1 28 0;
#X connect 0 1 29 0;
#X connect 0 1 30 0;
#X connect 0 1 31 0;
#X connect 0 1 46 0;
#X connect 0 1 47 0;
#X connect 1 0 33 0;
#X connect 1 0 38 0;
#X connect 2 0 3 0;
#X connect 4 0 3 0;
#X connect 7 0 6 0;
#X connect 16 0 33 1;
#X connect 18 0 19 0;
#X connect 19 0 23 0;
#X connect 20 0 27 0;
#X connect 20 0 47 0;
#X connect 21 0 27 0;
#X connect 21 0 47 0;
#X connect 22 0 21 0;
#X connect 22 0 19 2;
#X connect 22 0 45 0;
#X connect 23 0 32 0;
#X connect 24 0 25 0;
#X connect 24 1 26 0;
#X connect 25 0 20 0;
#X connect 25 0 19 1;
#X connect 25 0 44 0;
#X connect 26 0 22 0;
#X connect 33 0 0 0;
#X connect 35 0 25 0;
#X connect 36 0 26 0;
#X connect 37 0 3 0;
#X connect 38 0 4 0;
#X connect 38 0 39 0;
#X connect 38 0 37 0;
#X connect 39 0 3 0;
#X connect 48 0 1 0;
#X connect 49 0 2 0;
#X restore 18 68 pd guts;
#X obj 17 18 tgl 15 0 empty empty rendering 0 -6 0 8 -262144 -1 -1
0 1;
#X obj 54 46 bng 15 250 50 0 empty empty destroy_gemwin 0 -6 0 8 -262144
-1 -1;
#N canvas 206 22 774 557 train 0;
#X msg 66 15 create 20 4;
#X obj 66 345 unpack f f f f;
#X floatatom 45 391 5 0 0 0 - - -;
#X floatatom 83 390 5 0 0 0 - - -;
#X floatatom 120 392 5 0 0 0 - - -;
#X floatatom 160 394 5 0 0 0 - - -;
#X text 118 405 chaos;
#N canvas 0 0 642 332 inputs 0;
#X obj 122 244 outlet;
#X obj 24 42 inlet;
#X text 23 22 bang;
#X obj 76 19 r 1-X;
#X obj 111 19 r 1-Y;
#X obj 145 19 r 1-Velo;
#X obj 86 47 r 2-X;
#X obj 121 47 r 2-Y;
#X obj 155 47 r 2-Velo;
#X obj 222 20 r 3-X;
#X obj 257 21 r 3-Y;
#X obj 291 21 r 3-Velo;
#X obj 220 46 r 4-X;
#X obj 255 46 r 4-Y;
#X obj 289 46 r 4-Velo;
#X obj 359 23 r 5-X;
#X obj 394 23 r 5-Y;
#X obj 428 23 r 5-Velo;
#X obj 358 51 r 6-X;
#X obj 393 51 r 6-Y;
#X obj 427 51 r 6-Velo;
#X obj 420 99 r posx;
#X obj 464 99 r posy;
#X obj 61 153 pack s f f f f f f f f f f f f f f f f f f f f;
#X obj 127 175 unpack s f f f f f f f f f f f f f f f f f f f f;
#X obj 127 213 pack f f f f f f f f f f f f f f f f f f f f;
#X connect 1 0 23 0;
#X connect 3 0 23 1;
#X connect 4 0 23 2;
#X connect 5 0 23 3;
#X connect 6 0 23 4;
#X connect 7 0 23 5;
#X connect 8 0 23 6;
#X connect 9 0 23 7;
#X connect 10 0 23 8;
#X connect 11 0 23 9;
#X connect 12 0 23 10;
#X connect 13 0 23 11;
#X connect 14 0 23 12;
#X connect 15 0 23 13;
#X connect 16 0 23 14;
#X connect 17 0 23 15;
#X connect 18 0 23 16;
#X connect 19 0 23 17;
#X connect 20 0 23 18;
#X connect 21 0 23 19;
#X connect 22 0 23 20;
#X connect 23 0 24 0;
#X connect 24 1 25 0;
#X connect 24 2 25 1;
#X connect 24 3 25 2;
#X connect 24 4 25 3;
#X connect 24 5 25 4;
#X connect 24 6 25 5;
#X connect 24 7 25 6;
#X connect 24 8 25 7;
#X connect 24 9 25 8;
#X connect 24 10 25 9;
#X connect 24 11 25 10;
#X connect 24 12 25 11;
#X connect 24 13 25 12;
#X connect 24 14 25 13;
#X connect 24 15 25 14;
#X connect 24 16 25 15;
#X connect 24 17 25 16;
#X connect 24 18 25 17;
#X connect 24 19 25 18;
#X connect 24 20 25 19;
#X connect 25 0 0 0;
#X restore 190 226 pd inputs;
#X obj 190 206 metro 100;
#X obj 190 187 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X text 161 408 calm & close;
#X obj 42 421 vsl 15 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 80 421 vsl 15 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 115 421 vsl 15 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X obj 154 425 vsl 15 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 0 1;
#X msg 247 306 save complex.net;
#X msg 247 324 load conplex.net;
#X text 148 15 1- create the ann;
#N canvas 350 135 693 354 train 0;
#X obj 107 286 outlet;
#X msg 73 161 iterations_between_reports 1000;
#X msg 198 224 train-on-file complex.txt;
#X text 200 242 training on files with many patterns may take minutes
\, please be patient.;
#X msg 73 109 desired_error 0.06;
#X msg 77 135 max_iterations 200000;
#X text 69 76 due to the complexity of the input and output data you
should change the default training parameters:;
#X text 219 134 smaller cycle;
#N canvas 190 67 849 551 write 0;
#X obj 65 417 textfile;
#X msg 190 337 clear;
#N canvas 0 0 458 308 alternate 0;
#X obj 103 117 + 1;
#X obj 70 119 f 0;
#X obj 70 171 sel 0 1;
#X obj 70 146 mod 2;
#X msg 95 90 0;
#X obj 68 31 inlet;
#X obj 140 40 inlet;
#X obj 140 63 bang;
#X obj 68 55 bang;
#X obj 65 205 outlet;
#X obj 125 206 outlet;
#X text 59 6 bang;
#X text 139 18 reset to 0 without bang;
#X connect 0 0 1 1;
#X connect 1 0 0 0;
#X connect 1 0 3 0;
#X connect 2 0 9 0;
#X connect 2 1 10 0;
#X connect 3 0 2 0;
#X connect 4 0 1 1;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 8 0 1 0;
#X restore 58 227 pd alternate;
#X obj 24 81 bng 15 250 50 0 empty empty write-once 0 -6 0 8 -262144
-1 -1;
#X obj 457 108 bng 15 250 50 0 empty empty reset 0 -6 0 8 -262144 -1
-1;
#N canvas 0 0 638 328 inputs 0;
#X obj 64 271 outlet;
#X text 118 272 to textfile;
#X obj 24 42 inlet;
#X text 23 22 bang;
#X obj 76 19 r 1-X;
#X obj 111 19 r 1-Y;
#X obj 145 19 r 1-Velo;
#X obj 86 47 r 2-X;
#X obj 121 47 r 2-Y;
#X obj 155 47 r 2-Velo;
#X obj 222 20 r 3-X;
#X obj 257 21 r 3-Y;
#X obj 291 21 r 3-Velo;
#X obj 220 46 r 4-X;
#X obj 255 46 r 4-Y;
#X obj 289 46 r 4-Velo;
#X obj 359 23 r 5-X;
#X obj 394 23 r 5-Y;
#X obj 428 23 r 5-Velo;
#X obj 358 51 r 6-X;
#X obj 393 51 r 6-Y;
#X obj 427 51 r 6-Velo;
#X obj 420 99 r posx;
#X obj 464 99 r posy;
#X obj 61 153 pack s f f f f f f f f f f f f f f f f f f f f;
#X obj 127 175 unpack s f f f f f f f f f f f f f f f f f f f f;
#X obj 127 213 pack f f f f f f f f f f f f f f f f f f f f f;
#X msg 64 236 add \$2 \$3 \$4 \$5 \$6 \$7 \$8 \$9 \$10 \$11 \$12 \$13
\$14 \$15 \$16 \$17 \$18 \$19 \$20 \$21;
#X connect 2 0 24 0;
#X connect 4 0 24 1;
#X connect 5 0 24 2;
#X connect 6 0 24 3;
#X connect 7 0 24 4;
#X connect 8 0 24 5;
#X connect 9 0 24 6;
#X connect 10 0 24 7;
#X connect 11 0 24 8;
#X connect 12 0 24 9;
#X connect 13 0 24 10;
#X connect 14 0 24 11;
#X connect 15 0 24 12;
#X connect 16 0 24 13;
#X connect 17 0 24 14;
#X connect 18 0 24 15;
#X connect 19 0 24 16;
#X connect 20 0 24 17;
#X connect 21 0 24 18;
#X connect 22 0 24 19;
#X connect 23 0 24 20;
#X connect 24 0 27 0;
#X connect 25 1 26 0;
#X connect 25 2 26 1;
#X connect 25 3 26 2;
#X connect 25 4 26 3;
#X connect 25 5 26 4;
#X connect 25 6 26 5;
#X connect 25 7 26 6;
#X connect 27 0 0 0;
#X restore 58 306 pd inputs;
#N canvas 0 0 474 324 outputs 0;
#X obj 131 202 pack f f;
#X obj 129 178 unpack s f f;
#X obj 66 257 outlet;
#X text 120 258 to textfile;
#X obj 24 42 inlet;
#X text 23 22 bang;
#X text 66 77 here go the outputs;
#X obj 91 51 r output1;
#X obj 166 51 r output2;
#X obj 243 51 r output3;
#X obj 318 51 r output4;
#X obj 61 153 pack s f f f f;
#X msg 67 227 add \$2 \$3 \$4 \$5;
#X connect 1 1 0 0;
#X connect 1 2 0 1;
#X connect 4 0 11 0;
#X connect 7 0 11 1;
#X connect 8 0 11 2;
#X connect 9 0 11 3;
#X connect 10 0 11 4;
#X connect 11 0 12 0;
#X connect 12 0 2 0;
#X restore 149 284 pd outputs;
#X obj 230 223 f 0;
#X obj 260 223 + 1;
#X obj 239 257 nbx 5 14 -1e+037 1e+037 0 0 empty empty how_many_datasets
0 -6 0 10 -262144 -1 -1 0 256;
#X text 156 406 todo: write header (a line at the beginning of file
with 3 int: how many tests \, num_input \, num_output);
#X obj 122 190 delay 50;
#X obj 115 159 metro 100;
#X floatatom 346 70 5 100 5000 2 msec_between_snapshots - -;
#X obj 127 80 tgl 15 0 empty empty toggle_on-off 0 -6 0 8 -262144 -1
-1 0 1;
#X obj 219 189 / 2;
#X obj 347 14 loadbang;
#X text 293 224 comment;
#N canvas 262 68 635 591 README 0;
#X text 11 63 how to use: 1) modify [pd inputs] and [ps outputs] inserting
[r] objects to receive input data \, and modify [pack]s to handle the
right number of inputs 2) do the same with [pd outputs] 3) click on
reset 4) toggle ON and start collectng data 5) when you are ready toggle
OFF 6) edit [write filename cr( with the actual filename you want for
your training data (always keep the cr after the filename) 7) open
the file with training data 8) add a line at the beginning and write
3 integers: the 1st is the number of training dataset written (see
"how many datasets" number box) \, the 2nd is how many inputs your
ann has \, the 3th is how many outputs e.g. i collected 100 training
snapshots \, for a ann with 10 ins and 2 outs I write: 100 10 2 at
the very beginning of the file now the training file is ready and can
be read from nn via train-on-file command;
#X text 143 489 please help me getting this patch more usable: - how
to add a line at the very beginning of a text file after i have filled
it? - how to manage inputs and outputs of different sized without forcing
the user to edit the patch?;
#X text 9 7 this tricky patch is usefull to write a file to train ann
and is intended to be used with the nn external;
#X restore 33 13 pd README;
#X text 516 7 by davide morelli info@davidemorelli.it;
#X text 106 14 <--readme!;
#X msg 347 34 500;
#X obj 129 41 inlet;
#X msg 368 328 write complex.txt cr;
#X msg 303 180 0;
#N canvas 0 0 482 332 outputs 0;
#X obj 89 60 key;
#X obj 41 122 sel 97;
#X text 84 101 "a" key;
#X obj 218 120 sel 115;
#N canvas 0 0 458 308 a 0;
#X obj 130 150 s output1;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X connect 1 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X restore 41 145 pd a pressed;
#N canvas 0 0 458 308 s 0;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X obj 130 150 s output2;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X restore 217 142 pd s pressed;
#X text 295 92 "s" key;
#X obj 228 57 keyup;
#X obj 132 123 sel 97;
#X obj 308 120 sel 115;
#X floatatom 19 80 5 0 0 0 - - -;
#X obj 39 183 sel 100;
#X obj 130 184 sel 100;
#X obj 216 181 sel 102;
#X obj 306 181 sel 102;
#N canvas 0 0 462 312 d 0;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X obj 130 150 s output3;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X restore 39 206 pd d pressed;
#N canvas 0 0 470 320 f 0;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X obj 130 150 s output4;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X restore 215 203 pd f pressed;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 10 0;
#X connect 0 0 11 0;
#X connect 0 0 13 0;
#X connect 1 0 4 0;
#X connect 3 0 5 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 7 0 12 0;
#X connect 7 0 14 0;
#X connect 8 0 4 1;
#X connect 9 0 5 1;
#X connect 11 0 15 0;
#X connect 12 0 15 1;
#X connect 13 0 16 0;
#X connect 14 0 16 1;
#X restore 439 206 pd outputs;
#X obj 431 237 r output1;
#X obj 499 236 r output2;
#X floatatom 431 258 5 0 0 0 - - -;
#X floatatom 498 258 5 0 0 0 - - -;
#X floatatom 568 256 5 0 0 0 - - -;
#X floatatom 635 257 5 0 0 0 - - -;
#X obj 568 235 r output3;
#X obj 636 235 r output4;
#X text 431 270 sx;
#X text 496 272 dx;
#X text 566 269 chaos;
#X text 635 269 calm;
#X text 434 171 4 outputs: using keyboard: asdf: a=sx-ness \, s=dx-ness
\, d=chaos-ness \, f=calm-ness;
#X text 363 348 remember to add a line at the beginning of the file
with 3 integers... how_many_patterns 20 4 ...see README;
#X text 142 308 <--we have 20 inputs;
#X text 242 283 <--we have 4 outputs;
#X connect 1 0 0 0;
#X connect 2 0 5 0;
#X connect 2 1 6 0;
#X connect 2 1 7 0;
#X connect 3 0 11 0;
#X connect 3 0 2 0;
#X connect 4 0 2 1;
#X connect 4 0 1 0;
#X connect 4 0 24 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 8 0 7 1;
#X connect 11 0 2 0;
#X connect 12 0 11 0;
#X connect 12 0 2 0;
#X connect 13 0 12 1;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#X connect 15 0 11 1;
#X connect 16 0 21 0;
#X connect 21 0 13 0;
#X connect 22 0 14 0;
#X connect 23 0 0 0;
#X connect 24 0 7 1;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 32 0 30 0;
#X connect 33 0 31 0;
#X restore 40 27 pd write trainfile;
#X text 163 28 1- write a trainfile;
#X text 69 63 2- adjust parameters before training;
#X text 225 205 3- train on the file;
#X text 195 110 higher error allowed;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X restore 114 71 pd train on file;
#X text 217 70 2a- train using a file or;
#N canvas 0 0 900 594 train 0;
#X obj 66 319 outlet;
#N canvas 0 0 793 344 inputs 0;
#X obj 122 244 outlet;
#X obj 24 42 inlet;
#X text 23 22 bang;
#X obj 76 19 r 1-X;
#X obj 111 19 r 1-Y;
#X obj 145 19 r 1-Velo;
#X obj 86 47 r 2-X;
#X obj 121 47 r 2-Y;
#X obj 155 47 r 2-Velo;
#X obj 222 20 r 3-X;
#X obj 257 21 r 3-Y;
#X obj 291 21 r 3-Velo;
#X obj 220 46 r 4-X;
#X obj 255 46 r 4-Y;
#X obj 289 46 r 4-Velo;
#X obj 359 23 r 5-X;
#X obj 394 23 r 5-Y;
#X obj 428 23 r 5-Velo;
#X obj 358 51 r 6-X;
#X obj 393 51 r 6-Y;
#X obj 427 51 r 6-Velo;
#X obj 395 88 r posx;
#X obj 439 88 r posy;
#X obj 550 29 r output1;
#X obj 574 48 r output2;
#X obj 598 68 r output3;
#X obj 615 87 r output4;
#X obj 61 153 pack s f f f f f f f f f f f f f f f f f f f f f f f
f;
#X obj 127 175 unpack s f f f f f f f f f f f f f f f f f f f f f f
f f;
#X obj 127 213 pack f f f f f f f f f f f f f f f f f f f f f f f f
;
#X connect 1 0 27 0;
#X connect 3 0 27 1;
#X connect 4 0 27 2;
#X connect 5 0 27 3;
#X connect 6 0 27 4;
#X connect 7 0 27 5;
#X connect 8 0 27 6;
#X connect 9 0 27 7;
#X connect 10 0 27 8;
#X connect 11 0 27 9;
#X connect 12 0 27 10;
#X connect 13 0 27 11;
#X connect 14 0 27 12;
#X connect 15 0 27 13;
#X connect 16 0 27 14;
#X connect 17 0 27 15;
#X connect 18 0 27 16;
#X connect 19 0 27 17;
#X connect 20 0 27 18;
#X connect 21 0 27 19;
#X connect 22 0 27 20;
#X connect 23 0 27 21;
#X connect 24 0 27 22;
#X connect 25 0 27 23;
#X connect 26 0 27 24;
#X connect 27 0 28 0;
#X connect 28 1 29 0;
#X connect 28 2 29 1;
#X connect 28 3 29 2;
#X connect 28 4 29 3;
#X connect 28 5 29 4;
#X connect 28 6 29 5;
#X connect 28 7 29 6;
#X connect 28 8 29 7;
#X connect 28 9 29 8;
#X connect 28 10 29 9;
#X connect 28 11 29 10;
#X connect 28 12 29 11;
#X connect 28 13 29 12;
#X connect 28 14 29 13;
#X connect 28 15 29 14;
#X connect 28 16 29 15;
#X connect 28 17 29 16;
#X connect 28 18 29 17;
#X connect 28 19 29 18;
#X connect 28 20 29 19;
#X connect 28 21 29 20;
#X connect 28 22 29 21;
#X connect 28 23 29 22;
#X connect 28 24 29 23;
#X connect 29 0 0 0;
#X restore 213 222 pd inputs;
#X obj 213 202 metro 100;
#X obj 213 183 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X msg 84 16 train;
#N canvas 0 0 482 332 outputs 0;
#X obj 89 60 key;
#X obj 41 122 sel 97;
#X text 84 101 "a" key;
#X obj 218 120 sel 115;
#N canvas 0 0 458 308 a 0;
#X obj 130 150 s output1;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X connect 1 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X restore 41 145 pd a pressed;
#N canvas 0 0 458 308 s 0;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X obj 130 150 s output2;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X restore 217 142 pd s pressed;
#X text 295 92 "s" key;
#X obj 228 57 keyup;
#X obj 132 123 sel 97;
#X obj 308 120 sel 115;
#X floatatom 19 80 5 0 0 0 - - -;
#X obj 39 183 sel 100;
#X obj 130 184 sel 100;
#X obj 216 181 sel 102;
#X obj 306 181 sel 102;
#N canvas 0 0 462 312 d 0;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X obj 130 150 s output3;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X restore 39 206 pd d pressed;
#N canvas 0 0 470 320 f 0;
#X obj 86 76 inlet;
#X text 88 56 bang;
#X obj 241 80 inlet;
#X text 243 60 reset;
#X msg 86 101 1;
#X msg 241 110 0;
#X obj 130 150 s output4;
#X connect 0 0 4 0;
#X connect 2 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X restore 215 203 pd f pressed;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 10 0;
#X connect 0 0 11 0;
#X connect 0 0 13 0;
#X connect 1 0 4 0;
#X connect 3 0 5 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 7 0 12 0;
#X connect 7 0 14 0;
#X connect 8 0 4 1;
#X connect 9 0 5 1;
#X connect 11 0 15 0;
#X connect 12 0 15 1;
#X connect 13 0 16 0;
#X connect 14 0 16 1;
#X restore 131 57 pd outputs;
#X obj 130 87 r output1;
#X obj 198 86 r output2;
#X floatatom 130 108 5 0 0 0 - - -;
#X floatatom 197 108 5 0 0 0 - - -;
#X floatatom 267 106 5 0 0 0 - - -;
#X floatatom 334 107 5 0 0 0 - - -;
#X obj 267 85 r output3;
#X obj 335 85 r output4;
#X text 128 14 1- change to training mode;
#X text 204 49 2- change keys if you want;
#X text 220 61 defaults are "a" "s" "d" "f";
#X text 239 182 3- toggle on to start training and off to stop;
#X msg 170 282 run;
#X text 200 283 4- switch to run mode when ready;
#X obj 305 226 inlet;
#X obj 305 249 nbx 8 14 -1e+037 1e+037 0 0 empty empty empty 0 -6 0
10 -262144 -1 -1 0 256;
#X text 344 218 note: while in training mode the right outlet gives
you the mean square error.;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 6 0 8 0;
#X connect 7 0 9 0;
#X connect 12 0 10 0;
#X connect 13 0 11 0;
#X connect 18 0 0 0;
#X connect 20 0 21 0;
#X restore 133 114 pd train on the fly;
#X text 255 113 2b- train on the fly in realtime;
#X text 224 182 3- run the nn switching this metro ON;
#X text 277 213 (note \, you must be in run mode);
#X msg 281 231 run;
#X text 34 403 left;
#X text 75 404 right;
#X text 356 305 4- when you are happy with you nn save it;
#X text 354 323 remember that you can load it also passing filename
as argument;
#X obj 301 404 nbx 8 14 -1e+037 1e+037 0 0 empty empty mse 0 -6 0 10
-262144 -1 -1 0 256;
#X text 300 422 mse is usefull while training on-the-fly: tells you
the global error in the net \, how much net's output differs from desired
output.;
#X obj 66 325 ann_mlp complex.net;
#X connect 0 0 31 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 2 0 11 0;
#X connect 3 0 12 0;
#X connect 4 0 13 0;
#X connect 5 0 14 0;
#X connect 7 0 31 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 15 0 31 0;
#X connect 16 0 31 0;
#X connect 18 0 31 0;
#X connect 20 0 31 0;
#X connect 24 0 31 0;
#X connect 31 0 1 0;
#X connect 31 1 29 0;
#X connect 31 1 20 0;
#X restore 16 142 pd train and run nn;
#X text 101 12 1- start rendering;
#X text 141 142 2- open the subpatch and follow instructions;
#X connect 1 0 0 0;
#X connect 2 0 0 1;