blob: 9152049e6b2fdda082fac4fcf17230071c3107b8 (
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
|
#N canvas 518 150 745 681 10;
#X declare -lib Gem;
#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 29 388 msd;
#X obj 334 282 s \$0-msd;
#X obj 84 338 r \$0-msd;
#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 - - -;
#X obj 30 218 t f f;
#X obj 29 451 tabwrite force;
#X msg 353 194 mass M1 0 1 0;
#X obj 29 409 route massesForcesId;
#X obj 29 431 route M2;
#N canvas 0 0 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.566893 0.594884 0.745 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.00480001 -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.00480001 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.745
-0.594884 -0.566893 -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;
#N canvas 0 0 450 300 (subpatch) 0;
#X array force2 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 326 529 graph;
#X obj 64 564 route massesForcesId;
#X obj 64 543 pmpd;
#X obj 64 606 tabwrite force2;
#X obj 64 586 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 191 474 print;
#X obj 333 52 declare -lib Gem;
#X connect 0 0 2 0;
#X connect 1 0 12 0;
#X connect 2 0 3 0;
#X connect 2 0 14 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 9 0;
#X connect 7 0 34 0;
#X connect 7 0 35 0;
#X connect 7 1 16 0;
#X connect 7 1 24 0;
#X connect 7 2 6 0;
#X connect 8 0 17 0;
#X connect 10 0 8 0;
#X connect 10 0 31 0;
#X connect 11 0 7 0;
#X connect 12 0 20 0;
#X connect 13 0 20 1;
#X connect 14 0 1 0;
#X connect 14 1 15 1;
#X connect 14 1 32 1;
#X connect 16 0 9 0;
#X connect 17 0 18 0;
#X connect 18 0 15 0;
#X connect 20 0 36 0;
#X connect 24 0 9 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 1 11 0;
#X connect 27 0 4 0;
#X connect 30 0 33 0;
#X connect 31 0 30 0;
#X connect 33 0 32 0;
#X connect 34 0 9 0;
#X connect 35 0 9 0;
#X connect 36 0 8 0;
#X connect 36 0 31 0;
#X connect 37 0 31 0;
|