-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathloca.haversine-alt.pd
196 lines (196 loc) · 4.3 KB
/
loca.haversine-alt.pd
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
189
190
191
192
193
194
195
196
#N canvas 345 1047 1198 734 10;
#X obj 28 25 inlet;
#X obj 28 673 outlet;
#X obj 924 19 inlet;
#X obj 971 19 inlet;
#X obj 978 647 v loca.earth-rad;
#X obj 506 672 outlet;
#X obj 514 78 unpack f f;
#X msg 978 617 bang;
#X floatatom 978 676 15 0 0 0 - - -, f 15;
#X obj 826 144 unpack f f;
#X obj 826 176 deg2rad;
#X obj 938 140 f \$1;
#X obj 997 144 f \$2;
#X obj 826 87 t l b b;
#X obj 826 636 outlet;
#X obj 826 289 expr acos(sin($f1)*sin($f3)+cos($f1)*cos($f3)*cos($f4-$f2))
;
#X obj 896 173 deg2rad;
#X obj 951 172 deg2rad;
#X obj 1006 173 deg2rad;
#X text 118 334 http://www.movable-type.co.uk/scripts/latlong.html
;
#X obj 28 427 atan2;
#X obj 28 406 sqrt;
#X obj 62 405 sqrt;
#X obj 28 447 * 2;
#X obj 62 384 -;
#X msg 62 362 1 \$1;
#X obj 28 339 t f f;
#X obj 28 210 sin;
#X obj 83 207 sin;
#X obj 138 206 cos;
#X obj 193 206 cos;
#X obj 28 179 / 2;
#X obj 83 182 / 2;
#X obj 28 74 unpack f f;
#X obj 28 125 - \$1;
#X obj 83 128 - \$2;
#X obj 28 98 t f f;
#X obj 28 301 expr $f1 + ($f2 * $f3 * $f4);
#X obj 28 542 * 6372.8;
#X obj 28 148 deg2rad;
#X obj 83 149 deg2rad;
#X obj 138 148 deg2rad;
#X obj 193 149 deg2rad;
#X obj 28 232 t f f;
#X obj 28 257 *;
#X obj 83 232 t f f;
#X obj 83 257 *;
#X obj 193 120 f \$1;
#X obj 83 98 t f b;
#X obj 641 213 f \$1;
#X obj 503 527 sqrt;
#X obj 506 631 * 6372.8;
#X obj 569 243 deg2rad;
#X obj 498 244 deg2rad;
#X obj 641 245 deg2rad;
#X text 577 266 ph1;
#X text 510 270 th1;
#X obj 568 214 - \$2;
#X obj 696 219 f \$1;
#X obj 696 251 deg2rad;
#X obj 572 103 t f b b, f 8;
#X text 644 273 th2;
#X text 711 276 ph2;
#X obj 502 375 sin;
#X obj 530 373 sin;
#X obj 504 408 -;
#X text 534 410 dz;
#X obj 609 357 cos;
#X obj 582 358 cos;
#X obj 587 383 *;
#X obj 647 360 cos;
#X obj 586 412 -;
#X text 620 412 dx;
#X obj 731 361 sin;
#X obj 698 362 cos;
#X obj 703 392 *;
#X text 736 396 dy;
#X obj 498 310 t f f f;
#X obj 503 431 t f f;
#X obj 502 456 *;
#X obj 585 434 t f f;
#X obj 584 459 *;
#X obj 705 414 t f f;
#X obj 704 439 *;
#X obj 502 486 +;
#X obj 502 508 +;
#X obj 503 547 / 2;
#X obj 505 571 expr asin($f1);
#X obj 505 594 * 2;
#X obj 577 285 t f f;
#X obj 641 294 t f f;
#X obj 826 367 * 6372.8;
#X text 352 17 3 implementations for the haversine formula;
#X connect 0 0 6 0;
#X connect 0 0 13 0;
#X connect 0 0 33 0;
#X connect 2 0 11 1;
#X connect 3 0 12 1;
#X connect 4 0 8 0;
#X connect 6 0 53 0;
#X connect 6 1 60 0;
#X connect 7 0 4 0;
#X connect 9 0 10 0;
#X connect 9 1 16 0;
#X connect 10 0 15 0;
#X connect 11 0 17 0;
#X connect 12 0 18 0;
#X connect 13 0 9 0;
#X connect 13 1 11 0;
#X connect 13 2 12 0;
#X connect 15 0 91 0;
#X connect 16 0 15 1;
#X connect 17 0 15 2;
#X connect 18 0 15 3;
#X connect 20 0 23 0;
#X connect 21 0 20 0;
#X connect 22 0 20 1;
#X connect 23 0 38 0;
#X connect 24 0 22 0;
#X connect 25 0 24 0;
#X connect 26 0 21 0;
#X connect 26 1 25 0;
#X connect 27 0 43 0;
#X connect 28 0 45 0;
#X connect 29 0 37 2;
#X connect 30 0 37 3;
#X connect 31 0 27 0;
#X connect 32 0 28 0;
#X connect 33 0 36 0;
#X connect 33 1 48 0;
#X connect 34 0 39 0;
#X connect 35 0 40 0;
#X connect 36 0 34 0;
#X connect 36 1 41 0;
#X connect 37 0 26 0;
#X connect 38 0 1 0;
#X connect 39 0 31 0;
#X connect 40 0 32 0;
#X connect 41 0 29 0;
#X connect 42 0 30 0;
#X connect 43 0 44 0;
#X connect 43 1 44 1;
#X connect 44 0 37 0;
#X connect 45 0 46 0;
#X connect 45 1 46 1;
#X connect 46 0 37 1;
#X connect 47 0 42 0;
#X connect 48 0 35 0;
#X connect 48 1 47 0;
#X connect 49 0 54 0;
#X connect 50 0 86 0;
#X connect 51 0 5 0;
#X connect 52 0 89 0;
#X connect 53 0 77 0;
#X connect 54 0 90 0;
#X connect 57 0 52 0;
#X connect 58 0 59 0;
#X connect 60 0 57 0;
#X connect 60 1 49 0;
#X connect 60 2 58 0;
#X connect 63 0 65 0;
#X connect 64 0 65 1;
#X connect 65 0 78 0;
#X connect 67 0 69 1;
#X connect 68 0 69 0;
#X connect 69 0 71 0;
#X connect 70 0 71 1;
#X connect 71 0 80 0;
#X connect 73 0 75 1;
#X connect 74 0 75 0;
#X connect 75 0 82 0;
#X connect 77 0 63 0;
#X connect 77 1 68 0;
#X connect 77 2 74 0;
#X connect 78 0 79 0;
#X connect 78 1 79 1;
#X connect 79 0 84 0;
#X connect 80 0 81 0;
#X connect 80 1 81 1;
#X connect 81 0 84 1;
#X connect 82 0 83 0;
#X connect 82 1 83 1;
#X connect 83 0 85 1;
#X connect 84 0 85 0;
#X connect 85 0 50 0;
#X connect 86 0 87 0;
#X connect 87 0 88 0;
#X connect 88 0 51 0;
#X connect 89 0 67 0;
#X connect 89 1 73 0;
#X connect 90 0 64 0;
#X connect 90 1 70 0;
#X connect 91 0 14 0;