blob: 5063a9354b2b8b8a6979508522e2325330586221 (
plain)
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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
#N canvas 173 68 902 582 12;
#X declare -path ../;
#X obj 16 98 t b b;
#X obj 16 50 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 73 233 unpack s f f;
#X obj 177 293 vsl 15 128 0 127 0 0 empty empty empty 0 -8 0 8 -262144
-1 -1 12700 1;
#X obj 121 343 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 4535 1;
#X obj 16 71 metro 50;
#X msg 305 305 setK \$1;
#X msg 379 279 setD \$1;
#X msg 452 251 setM \$1;
#X floatatom 305 230 5 0 20 0 - - -;
#X floatatom 379 228 5 0 30 0 - - -;
#X floatatom 452 228 5 3 100 0 - - -;
#N canvas 796 335 379 269 gem 0;
#X obj 197 20 gemhead;
#X msg 47 96 0 \, destroy;
#X obj 13 124 gemwin;
#X obj 197 152 circle 0.5;
#X obj 182 47 inlet;
#X obj 182 72 unpack s f f;
#X obj 197 124 translateXYZ;
#X obj 13 19 inlet;
#X obj 13 45 sel 1;
#X obj 227 99 / 30;
#X obj 273 99 / 30;
#X msg 13 71 reset \, create \, 1;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 4 0 5 0;
#X connect 5 1 9 0;
#X connect 5 2 10 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 8 1 1 0;
#X connect 9 0 6 1;
#X connect 10 0 6 2;
#X connect 11 0 2 0;
#X restore 19 233 pd gem;
#X obj 19 186 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#N canvas 513 286 485 188 structure 0;
#N canvas 272 241 298 174 link_left 0;
#X obj 194 68 inlet;
#X obj 194 121 outlet;
#X obj 31 95 link2D \$0-link 70 1 0 0;
#X obj 31 38 mass2D border_mass 1 -64 0;
#X connect 0 0 2 1;
#X connect 2 1 1 0;
#X connect 3 0 2 0;
#X restore 22 57 pd link_left;
#N canvas 345 616 329 171 link_down 0;
#X obj 181 53 inlet;
#X obj 181 106 outlet;
#X obj 18 80 link2D \$0-link 70 1 0 0;
#X obj 18 23 mass2D border_mass 1 0 -64;
#X connect 0 0 2 1;
#X connect 2 1 1 0;
#X connect 3 0 2 0;
#X restore 117 90 pd link_down;
#N canvas 506 199 290 152 link_up 0;
#X obj 187 52 inlet;
#X obj 187 105 outlet;
#X obj 24 79 link2D \$0-link 70 1 0 0;
#X obj 24 22 mass2D border_mass 1 0 64;
#X connect 0 0 2 1;
#X connect 2 1 1 0;
#X connect 3 0 2 0;
#X restore 121 29 pd link_up;
#X obj 222 93 outlet;
#N canvas 703 434 355 273 link_right 0;
#X obj 191 65 inlet;
#X obj 191 118 outlet;
#X obj 28 92 link2D \$0-link 70 1 0 0;
#X obj 28 35 mass2D border_mass 1 64 0;
#X connect 0 0 2 1;
#X connect 2 1 1 0;
#X connect 3 0 2 0;
#X restore 320 58 pd link_right;
#X obj 120 57 mass2D \$0-mass 8 37 19;
#X connect 0 0 5 0;
#X connect 1 0 5 0;
#X connect 2 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 5 0 2 0;
#X connect 5 0 1 0;
#X connect 5 0 0 0;
#X connect 5 0 4 0;
#X restore 62 206 pd structure;
#X obj 305 279 / 10;
#X obj 305 253 + 1;
#X obj 64 100 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 30 124 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 379 204 0;
#X obj 586 207 loadbang;
#X obj 118 263 + 64;
#X obj 164 263 + 64;
#X obj 379 252 / 10;
#X text 42 47 <- click here;
#X msg 305 204 3;
#X msg 586 262 resetF;
#X obj 657 212 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 586 233 t b b;
#X msg 599 284 force2D -100 140;
#X obj 51 123 s \$0-link;
#X obj 16 147 s \$0-mass;
#X msg 621 309 reset;
#X obj 452 279 s \$0-mass;
#X obj 305 337 s \$0-link;
#X text 691 209 <- reset the simulation;
#X text 52 182 <- visualization (need gem);
#X obj 40 445 osc~;
#X obj 40 420 mtof;
#X obj 40 395 line;
#X obj 97 394 *;
#X obj 39 471 *~;
#X obj 97 445 line~;
#X obj 39 497 dac~;
#X obj 97 369 / 256;
#X msg 97 419 \$1 100;
#X msg 40 369 \$1 100;
#X msg 452 203 20;
#X obj 460 13 declare -path ../;
#X obj 599 338 s \$0-mass;
#X obj 586 361 s \$0-link;
#X text 169 48 The mass is connected to the 4 borders of the screen
with 4 links (without damping). The movement of the masses (should)
follow a chaotic equation.;
#X text 304 130 You can change physical properties of the system. Take
care of numerical instability (especially with fast movement);
#X text 303 181 K;
#X text 377 181 D;
#X text 451 180 M;
#X connect 0 0 31 0;
#X connect 0 1 30 0;
#X connect 1 0 5 0;
#X connect 2 1 21 0;
#X connect 2 2 22 0;
#X connect 5 0 0 0;
#X connect 6 0 34 0;
#X connect 7 0 34 0;
#X connect 8 0 33 0;
#X connect 9 0 16 0;
#X connect 10 0 23 0;
#X connect 11 0 8 0;
#X connect 13 0 12 0;
#X connect 14 0 2 0;
#X connect 14 0 12 1;
#X connect 15 0 6 0;
#X connect 16 0 15 0;
#X connect 17 0 30 0;
#X connect 18 0 31 0;
#X connect 19 0 10 0;
#X connect 20 0 28 0;
#X connect 21 0 4 0;
#X connect 21 0 46 0;
#X connect 22 0 3 0;
#X connect 22 0 44 0;
#X connect 23 0 7 0;
#X connect 25 0 9 0;
#X connect 26 0 50 0;
#X connect 27 0 28 0;
#X connect 28 0 26 0;
#X connect 28 0 29 0;
#X connect 28 1 32 0;
#X connect 29 0 49 0;
#X connect 32 0 49 0;
#X connect 32 0 50 0;
#X connect 37 0 41 0;
#X connect 38 0 37 0;
#X connect 39 0 38 0;
#X connect 40 0 45 0;
#X connect 41 0 43 0;
#X connect 41 0 43 1;
#X connect 42 0 41 1;
#X connect 44 0 40 1;
#X connect 44 0 40 0;
#X connect 45 0 42 0;
#X connect 46 0 39 0;
#X connect 47 0 11 0;
|
