#N canvas 125 3 842 750 10;
#X text 281 321 Id \, M \, X0;
#X text 312 244 Id \, mass1 \, mass2 \, K \, D;
#X text 243 170 id \, outlet \, mass \, amplitude;
#X msg 221 378 reset;
#X obj 39 413 t a;
#X msg 202 324 mass 1 10 1;
#X obj 134 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 52 654 tabwrite~ array99;
#X obj 424 497 metro 100;
#X obj 424 471 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 190 658 tabwrite~ array98;
#N canvas 0 0 454 304 graph1 0;
#X array array97 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 269 graph;
#X msg 201 299 mass 1 10 1;
#X msg 15 54 \; pd dsp 1 \;;
#X obj 15 29 loadbang;
#X obj 450 474 loadbang;
#X msg 299 402 forceX 2 1;
#X obj 197 498 phasor~ 1;
#X obj 77 498 phasor~ 0.3;
#X floatatom 77 479 5 0 0 0 - - -;
#X floatatom 197 477 5 0 0 0 - - -;
#X floatatom 320 478 5 0 0 0 - - -;
#X msg 203 350 mass 1 10 1;
#X msg 161 145 out 1 0 1 1;
#X msg 162 171 out 1 1 2 1;
#X msg 163 197 out 1 2 3 1;
#N canvas 0 0 454 304 graph1 0;
#X array array98 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 165 graph;
#X obj 325 658 tabwrite~ array97;
#X obj 88 521 tabwrite~ array9;
#X obj 208 522 tabwrite~ array8;
#X obj 332 523 tabwrite~ array7;
#N canvas 0 0 450 300 graph1 0;
#X array array9 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 507 61 graph;
#N canvas 0 0 454 304 graph1 0;
#X array array7 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 507 269 graph;
#N canvas 0 0 454 304 graph1 0;
#X array array8 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 507 165 graph;
#X text 210 89 id \, inlet \, mass \, amplitude;
#X msg 134 116 in 1 2 3 1;
#X obj 37 714 dac~;
#X msg 182 222 link 1 0 1 0.1 0.001;
#X msg 181 244 link 1 0 2 0.5 0.001;
#X msg 182 267 link 1 0 3 0.3 0.001;
#X obj 39 629 hip~ 20;
#X obj 178 634 hip~ 20;
#X obj 312 632 hip~ 20;
#N canvas 0 0 450 300 graph1 0;
#X array array99 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 61 graph;
#X obj 39 599 pmpd~ 3 3;
#X obj 320 499 phasor~ 1.5;
#X msg 133 68 in 1 0 1 1;
#X msg 133 91 in 1 1 2 1;
#X obj 134 37 t b b b b b;
#X obj 405 635 metro 100;
#X obj 405 609 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 431 612 loadbang;
#X obj 77 543 /~ 50;
#X obj 38 689 +~ 0;
#X obj 197 544 /~ 20;
#X obj 321 546 /~ 20;
#X text 159 10 <- create the network;
#X connect 3 0 4 0;
#X connect 4 0 44 0;
#X connect 5 0 4 0;
#X connect 6 0 48 0;
#X connect 8 0 28 0;
#X connect 8 0 29 0;
#X connect 8 0 30 0;
#X connect 9 0 8 0;
#X connect 12 0 4 0;
#X connect 14 0 13 0;
#X connect 15 0 8 0;
#X connect 16 0 4 0;
#X connect 17 0 29 0;
#X connect 17 0 54 0;
#X connect 18 0 28 0;
#X connect 18 0 52 0;
#X connect 19 0 18 0;
#X connect 20 0 17 0;
#X connect 21 0 45 0;
#X connect 22 0 4 0;
#X connect 23 0 4 0;
#X connect 24 0 4 0;
#X connect 25 0 4 0;
#X connect 35 0 4 0;
#X connect 37 0 4 0;
#X connect 38 0 4 0;
#X connect 39 0 4 0;
#X connect 40 0 7 0;
#X connect 40 0 53 0;
#X connect 41 0 10 0;
#X connect 41 0 53 0;
#X connect 42 0 27 0;
#X connect 42 0 53 0;
#X connect 44 0 40 0;
#X connect 44 1 41 0;
#X connect 44 2 42 0;
#X connect 45 0 30 0;
#X connect 45 0 55 0;
#X connect 46 0 4 0;
#X connect 47 0 4 0;
#X connect 48 0 46 0;
#X connect 48 0 47 0;
#X connect 48 0 35 0;
#X connect 48 1 23 0;
#X connect 48 1 24 0;
#X connect 48 1 25 0;
#X connect 48 2 37 0;
#X connect 48 2 38 0;
#X connect 48 2 39 0;
#X connect 48 3 12 0;
#X connect 48 3 5 0;
#X connect 48 3 22 0;
#X connect 48 4 3 0;
#X connect 49 0 7 0;
#X connect 49 0 10 0;
#X connect 49 0 27 0;
#X connect 50 0 49 0;
#X connect 51 0 49 0;
#X connect 52 0 44 0;
#X connect 53 0 36 0;
#X connect 53 0 36 1;
#X connect 54 0 44 1;
#X connect 55 0 44 2;