blob: 58de4900259c59811726ebf49d99dc4634fc5375 (
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
|
#N canvas 516 277 669 559 10;
#X obj 30 174 until;
#X obj 30 244 - 100;
#X obj 30 198 f;
#X obj 58 198 + 1;
#X obj 30 152 t f b;
#X msg 74 174 0;
#X msg 373 168 reset;
#X obj 334 148 t b b b;
#X obj 334 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 30 264 / 100;
#X floatatom 128 152 5 0 0 0 - - -, f 5;
#X obj 30 218 t f f;
#X msg 353 194 mass M1 0 1 0;
#N canvas 0 50 450 300 (subpatch) 0;
#X array force 200 float 3;
#A 0 0.123457 0.126247 0.129132 0.132118 0.135208 0.138408 0.141723
0.145159 0.148721 0.152416 0.15625 0.160231 0.164366 0.168663 0.17313
0.177778 0.182615 0.187652 0.192901 0.198373 0.204082 0.21004 0.216263
0.222767 0.229568 0.236686 0.244141 0.251953 0.260146 0.268745 0.277778
0.287274 0.297265 0.307787 0.318878 0.330579 0.342936 0.355999 0.369823
0.384468 0.4 0.416493 0.434028 0.452694 0.47259 0.493827 0.516529 0.540833
0.566894 0.594884 0.625 0.1083 0.0972 0.0867 0.0768 0.0675 0.0588 0.0507
0.0432 0.0363 0.03 0.0243 0.0192 0.0147 0.0108 0.00749999 0.0048 0.0027
0.0012 0.000299999 0 -0.000300001 -0.0012 -0.0027 -0.0048 -0.0075 -0.0108
-0.0147 -0.0192 -0.0243 -0.03 -0.0363 -0.0432 -0.0507 -0.0588 -0.0675
-0.0768 -0.0867 -0.0972 -0.1083 -0.12 -0.1323 -0.1452 -0.1587 -0.1728
-0.1875 -0.2028 -0.2187 -0.2352 -0.2523 -0 0.2523 0.2352 0.2187 0.2028
0.1875 0.1728 0.1587 0.1452 0.1323 0.12 0.1083 0.0972 0.0867 0.0768
0.0675 0.0588 0.0507 0.0432 0.0363 0.03 0.0243 0.0192 0.0147 0.0108
0.0075 0.0048 0.0027 0.0012 0.000300001 0 -0.000299999 -0.0012 -0.0027
-0.0048 -0.00749999 -0.0108 -0.0147 -0.0192 -0.0243 -0.03 -0.0363 -0.0432
-0.0507 -0.0588 -0.0675 -0.0768 -0.0867 -0.0972 -0.1083 -0.625 -0.594884
-0.566894 -0.540833 -0.516529 -0.493827 -0.47259 -0.452694 -0.434028
-0.416493 -0.4 -0.384468 -0.369823 -0.355999 -0.342936 -0.330579 -0.318878
-0.307787 -0.297265 -0.287274 -0.277778 -0.268745 -0.260146 -0.251953
-0.244141 -0.236686 -0.229568 -0.222767 -0.216263 -0.21004 -0.204082
-0.198373 -0.192901 -0.187652 -0.182615 -0.177778 -0.17313 -0.168663
-0.164366 -0.160231 -0.15625 -0.152416 -0.148721 -0.145159 -0.141723
-0.138408 -0.135208 -0.132118 -0.129132 -0.126247;
#X coords 0 1 200 -1 200 140 1;
#X restore 327 368 graph;
#X obj 30 284 * 1;
#X text 167 152 link length;
#X text 359 127 reset;
#X text 65 133 draw;
#X msg 362 213 mass M2 1 1 0;
#X obj 30 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 30 98 t b b;
#X msg 30 132 200;
#X text 31 9 This abstraction help to draw link forces regarding to
it's elongation;
#X obj 30 390 route massesForcesId;
#X obj 30 369 pmpd;
#X obj 30 412 route 1;
#X msg 334 240 link test M1 M2 0.1 0 -2 0.5 10 \, setL test 0.1;
#X msg 354 260 link test2 M1 M2 3 0 2 0 0.5 \, setL test2 0.3;
#X msg 30 304 posX M2 0 \, bang \, posX M2 \$1 \, bang \, get massesForces
M2;
#X msg 76 348 print;
#X obj 52 329 r \$0-pmpd;
#X obj 334 280 s \$0-pmpd;
#X obj 30 432 tabwrite force;
#X connect 0 0 2 0;
#X connect 1 0 9 0;
#X connect 2 0 3 0;
#X connect 2 0 11 0;
#X connect 3 0 2 1;
#X connect 4 0 0 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 31 0;
#X connect 7 0 26 0;
#X connect 7 0 27 0;
#X connect 7 1 12 0;
#X connect 7 1 18 0;
#X connect 7 2 6 0;
#X connect 8 0 7 0;
#X connect 9 0 14 0;
#X connect 10 0 14 1;
#X connect 11 0 1 0;
#X connect 11 1 32 1;
#X connect 12 0 31 0;
#X connect 14 0 28 0;
#X connect 18 0 31 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 8 0;
#X connect 21 0 4 0;
#X connect 23 0 25 0;
#X connect 24 0 23 0;
#X connect 25 0 32 0;
#X connect 26 0 31 0;
#X connect 27 0 31 0;
#X connect 28 0 24 0;
#X connect 29 0 24 0;
#X connect 30 0 24 0;
|
