Module:Sandbox/Hellknowz/CoordDistance

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