aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Haversine-formula/Elena/haversine-formula.elena Normal file
View file

@ -0,0 +1,23 @@
import extensions.
import system'math.
Haversine = (:lat1:lon1:lat2:lon2)
[
var R := 6372.8r.
var dLat := (lat2 - lat1) radian.
var dLon := (lon2 - lon1) radian.
var dLat1 := lat1 radian.
var dLat2 := lat2 radian.
var a := (dLat / 2) sin * (dLat / 2) sin + (dLon / 2) sin * (dLon / 2) sin * dLat1 cos * dLat2 cos.
//var c := 2 * a sqrt; arcsin.
^ R * 2 * a sqrt; arcsin.
].
program =
[
console printLineFormatted("The distance between coordinates {0},{1} and {2},{3} is: {4}", 36.12r, -86.67r, 33.94r, -118.40r,
Haversine(36.12r, -86.67r, 33.94r, -118.40r)).
].