ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

计算两个坐标点之间的距离(高德地图)

2022-07-25 09:33:41  阅读:43  来源: 互联网

标签:180.0 endLongitude 地图 radLatitude2 radLatitude1 坐标 var PI 高德


参考这个文章,Java写的,改写成Delphi版本:

function MeasuerDistance(const startLongitude,startLatitude,endLongitude,endLatitude:Double):Integer;
begin
  const Earth_RAdius=6378137;
  var radLatitude1 := startLatitude * PI / 180.0;
  var radLatitude2 := endLatitude * PI / 180.0;
  var a := abs(radLatitude1 - radLatitude2);
  var b := abs(startLongitude * PI / 180.0 - endLongitude * PI / 180.0);
  var s := 2 * arcsin(sqrt(power(sin(a / 2), 2) + cos(radLatitude1) * cos(radLatitude2) * power(sin(b / 2), 2)));
      s := s * EARTH_RADIUS;
      result :=round(round(s * 10000) / 10000); // 返回距离单位是米
end;

 向作者表示感谢!

 

标签:180.0,endLongitude,地图,radLatitude2,radLatitude1,坐标,var,PI,高德
来源: https://www.cnblogs.com/kinglandsoft/p/16516295.html

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有