41 lines
1.2 KiB
Text
41 lines
1.2 KiB
Text
#N canvas 1 91 443 410 10;
|
|
#X obj 271 54 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
|
|
-1;
|
|
#X obj 130 139 print dLat;
|
|
#X obj 200 139 print dLon;
|
|
#X obj 80 139 print R;
|
|
#X msg 56 192 36.1234 128.139 36.1238 128.123;
|
|
#X obj 270 139 print a;
|
|
#X obj 320 139 print c;
|
|
#X obj 370 139 print d;
|
|
#X text 74 10 Calculate distance between two latitude-longitude points?
|
|
(Haversine formula) ==> https://stackoverflow.com/a/27943;
|
|
#X obj 80 116 v R\$0;
|
|
#X obj 130 116 v dLat\$0;
|
|
#X obj 200 116 v dLon\$0;
|
|
#X obj 270 116 v a\$0;
|
|
#X obj 320 116 v c\$0;
|
|
#X obj 370 116 v d\$0;
|
|
#X obj 18 253 expr d\$0=R\$0*c\$0 \; c\$0=2*atan2(sqrt(a\$0) \, sqrt(1-a\$0))
|
|
\; a\$0=sin(dLat\$0/2)*sin(dLat\$0/2)+cos($f2*6.28319/360)*cos($f4*6.28319/360)*sin(dLon\$0/2)*sin(dLon\$0/2)
|
|
\; dLon\$0=($f3-$f1)*6.28319/360 \; dLat\$0=($f4-$f2)*6.28319/360 \;
|
|
R\$0=6371;
|
|
#X obj 18 42 inlet;
|
|
#X obj 18 374 outlet;
|
|
#X text 63 374 dist (km);
|
|
#X connect 0 0 9 0;
|
|
#X connect 0 0 10 0;
|
|
#X connect 0 0 11 0;
|
|
#X connect 0 0 12 0;
|
|
#X connect 0 0 13 0;
|
|
#X connect 0 0 14 0;
|
|
#X connect 4 0 15 0;
|
|
#X connect 9 0 3 0;
|
|
#X connect 10 0 1 0;
|
|
#X connect 11 0 2 0;
|
|
#X connect 12 0 5 0;
|
|
#X connect 13 0 6 0;
|
|
#X connect 14 0 7 0;
|
|
#X connect 15 0 17 0;
|
|
#X connect 16 0 15 0;
|