1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
#N canvas 35 91 842 667 10;
#X obj 39 413 t a;
#X obj 134 11 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 52 647 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 647 tabwrite~ array98;
#N canvas 0 0 454 304 (subpatch) 0;
#X array array97 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 269 graph;
#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 floatatom 77 479 5 0 0 0 - - -;
#X floatatom 197 477 5 0 0 0 - - -;
#X floatatom 320 478 5 0 0 0 - - -;
#N canvas 0 0 454 304 (subpatch) 0;
#X array array98 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 165 graph;
#X obj 325 647 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 (subpatch) 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 (subpatch) 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 (subpatch) 0;
#X array array8 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 507 165 graph;
#X obj 38 734 dac~;
#N canvas 0 0 450 300 (subpatch) 0;
#X array array99 100 float 0;
#X coords 0 1 100 -1 150 100 1;
#X restore 662 61 graph;
#X obj 320 499 phasor~ 1.5;
#X obj 134 37 t b b b b b;
#X obj 325 623 metro 100;
#X obj 325 597 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 351 600 loadbang;
#X text 159 10 <- create the network;
#X obj 39 709 *~ 0.5;
#X msg 181 256 link 0 2 0.5 0.001;
#X msg 182 277 link 0 3 0.3 0.001;
#X msg 202 324 mass 10 1;
#X msg 203 350 mass 10 1;
#X text 295 325 M \, X0;
#X text 312 256 mass1 \, mass2 \, K \, D;
#X text 281 168 outlet \, mass \, amplitude;
#X text 248 89 inlet \, mass \, amplitude;
#X msg 201 299 mass 10 1;
#X msg 221 378 reset \, mass 0 0;
#X msg 179 191 outPos 2 3 1;
#X msg 133 91 inForce 1 2 1;
#X obj 40 679 hip~ 20;
#X msg 134 116 inForce 2 3 1;
#X msg 162 171 outPos 1 2 1;
#X msg 133 68 inForce 0 1 1;
#X obj 77 498 phasor~ 1.33333;
#X msg 155 149 outPos 0 1 3;
#X text 212 236 mass1 \, mass2 \, K \, D \, Pow \, L0 \, Lmin \, Lmax
;
#X msg 176 218 NLlink 0 1 0.1 0.001 1.1 0 -10 10;
#X obj 77 543 /~ 250;
#X obj 197 544 /~ 10;
#X obj 319 554 /~ 30;
#X obj 39 583 pmpd~ 3 3;
#X connect 0 0 55 0;
#X connect 1 0 26 0;
#X connect 3 0 17 0;
#X connect 3 0 18 0;
#X connect 3 0 19 0;
#X connect 4 0 3 0;
#X connect 8 0 7 0;
#X connect 9 0 3 0;
#X connect 10 0 0 0;
#X connect 11 0 18 0;
#X connect 11 0 53 0;
#X connect 12 0 48 0;
#X connect 13 0 11 0;
#X connect 14 0 25 0;
#X connect 25 0 19 0;
#X connect 25 0 54 0;
#X connect 26 0 47 0;
#X connect 26 0 43 0;
#X connect 26 0 45 0;
#X connect 26 1 49 0;
#X connect 26 1 46 0;
#X connect 26 1 42 0;
#X connect 26 2 32 0;
#X connect 26 2 33 0;
#X connect 26 2 51 0;
#X connect 26 3 40 0;
#X connect 26 3 34 0;
#X connect 26 3 35 0;
#X connect 26 4 41 0;
#X connect 27 0 2 0;
#X connect 27 0 5 0;
#X connect 27 0 16 0;
#X connect 28 0 27 0;
#X connect 29 0 27 0;
#X connect 31 0 23 0;
#X connect 31 0 23 1;
#X connect 32 0 0 0;
#X connect 33 0 0 0;
#X connect 34 0 0 0;
#X connect 35 0 0 0;
#X connect 40 0 0 0;
#X connect 41 0 0 0;
#X connect 42 0 0 0;
#X connect 43 0 0 0;
#X connect 44 0 31 0;
#X connect 45 0 0 0;
#X connect 46 0 0 0;
#X connect 47 0 0 0;
#X connect 48 0 17 0;
#X connect 48 0 52 0;
#X connect 49 0 0 0;
#X connect 51 0 0 0;
#X connect 52 0 55 0;
#X connect 53 0 55 1;
#X connect 54 0 55 2;
#X connect 55 0 2 0;
#X connect 55 0 44 0;
#X connect 55 1 5 0;
#X connect 55 1 44 0;
#X connect 55 2 16 0;
#X connect 55 2 44 0;
|
