Haversine formula: Difference between revisions
Content added Content deleted
(Added Gambas) |
|||
| Line 1,242: | Line 1,242: | ||
return 2 * r * pi / 180 * asin (sqrt (dx * dx + dy * dy + dz * dz) / 2) |
return 2 * r * pi / 180 * asin (sqrt (dx * dx + dy * dy + dz * dz) / 2) |
||
. |
. |
||
print dist 36.12 -86.67 33.94 -118.4 |
print dist 36.12 -86.67 33.94 -118.4 |
||
</syntaxhighlight> |
</syntaxhighlight> |
||