Anonymous user
Haversine formula: Difference between revisions
→{{header|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,!</lang>
{{output}}
<pre>Haversine distance = 2887.26</pre>
| |||