Anonymous user
Haversine formula: Difference between revisions
→{{header|FOCAL}}: only output significant digits
(→{{header|FBSL}}: add FOCAL) |
(→{{header|FOCAL}}: only output significant digits) |
||
Line 1,323:
1.11 S AS = FSQT(AS) / 2
1.12 S HDIST = D * FATN(AS / FSQT(1 - AS^2))
1.13 T %6.2,"Haversine distance ",HDIST,!
*G</lang>
{{output}}
<pre>Haversine distance = 2887.
Note that FOCAL lacks a built-in arcsine function, but appendix D of the FOCAL manual shows how to compute it using arctangent and square root instead.
|