Packages

geocalc

0.0.2
0.8.5 0.8.4 0.8.3 0.8.2 0.8.1 0.8.0 0.7.2 0.7.1 0.7.0 0.6.1 0.6.0 0.5.6 0.5.5 0.5.4 0.5.3 0.5.2 0.5.1 0.5.0 0.4.0 0.3.0 0.2.1 0.2.0 0.1.1 0.1.0 0.0.4 0.0.3 0.0.2

Calculate distance, bearing and more between latitude/longitude points.

HexDocs

Current section

Files

Jump to
Readme
27 Versions
0 Dependencies
Dependants
Files
Activity
geocalc lib geocalc.ex
Raw

lib/geocalc.ex 

defmodule Geocalc do

  def distance_between([point_1_lat, point_1_lng], [point_2_lat, point_2_lng]) do

    r = 6_371_000

    point_1_lat_rad = radian(point_1_lat)

    point_2_lat_rad = radian(point_2_lat)

    diff_lat = radian(point_2_lat - point_1_lat)

    diff_lng = radian(point_2_lng - point_1_lng)

    a = :math.sin(diff_lat / 2) * :math.sin(diff_lat / 2) + :math.cos(point_1_lat_rad) * :math.cos(point_2_lat_rad) * :math.sin(diff_lng / 2) * :math.sin(diff_lng / 2)

    c = 2 * :math.atan2(:math.sqrt(a), :math.sqrt(1 - a))

    r * c

  end



  def radian(lat_or_lng) do

    lat_or_lng * :math.pi / 180

  end

end