Module:Sandbox/Hellknowz/CoordDistance

Module documentationcreatepurge

You might want to create a documentation page for this Scribunto module.
Editors can experiment in this module's sandbox (create | mirror) and testcases (create) pages.
Add categories to the /doc subpage. Subpages of this module.

local main = {}

function main.HaversineDistance(frame)

    local lat1 = frame.args["lat1"]
    local lon1 = frame.args["lon1"]
    local lat2 = frame.args["lat2"]
    local lon2 = frame.args["lon2"]
    local radius = 6371 -- km

    local dlat = math.rad(lat2-lat1)
    local dlon = math.rad(lon2-lon1)
    local a = math.sin(dlat/2) * math.sin(dlat/2) + math.cos(math.rad(lat1)) * math.cos(math.rad(lat2)) * math.sin(dlon/2) * math.sin(dlon/2)
    local c = 2 * math.atan2(math.sqrt(a), math.sqrt(1-a))
    return radius * c

end

return main