求地球经纬度间距

转载 2017年08月04日 19:05:23
 CREATE FUNCTION [dbo].[fnGetDistance] 
 --LatBegin 开始经度
 --LngBegin 开始维度
(@LatBegin REAL, @LngBegin REAL, @LatEnd REAL, @LngEnd REAL) 
       RETURNS FLOAT
       AS
BEGIN
       --距离(千米)  www.2cto.com  
       DECLARE @Distance      REAL
       DECLARE @EARTH_RADIUS  REAL
       SET @EARTH_RADIUS = 6378.137 
       
       DECLARE @RadLatBegin  REAL,
               @RadLatEnd    REAL,
               @RadLatDiff   REAL,
               @RadLngDiff   REAL
       
       SET @RadLatBegin = @LatBegin *PI()/ 180.0 
       SET @RadLatEnd = @LatEnd *PI()/ 180.0 
       SET @RadLatDiff = @RadLatBegin - @RadLatEnd 
       SET @RadLngDiff = @LngBegin *PI()/ 180.0 - @LngEnd *PI()/ 180.0 
       
       SET @Distance = 2 *ASIN(
               SQRT(
                   POWER(SIN(@RadLatDiff / 2), 2)+COS(@RadLatBegin)*COS(@RadLatEnd) 
                   *POWER(SIN(@RadLngDiff / 2), 2)
               )
           )
       
       SET @Distance = @Distance * @EARTH_RADIUS 
       --SET @Distance = Round(@Distance * 10000) / 10000 
       
       RETURN @Distance
END

第7周:神经网络基础-人工智能工程师直通车

-
  • 1970年01月01日 08:00

给定地球上两点的经纬度,求两点之间沿地球表面最短的弧线距离

给定地球上两点的经纬度,计算两点之间的距离           问题: 设地球上的两点A和B的的经纬度分别为A:a1, a2 (a1,a2的单位为度,a1表示经度,a2表示纬度,B亦然) 和B:b1,...
  • sunjianqiang12345
  • sunjianqiang12345
  • 2017-03-05 01:16:43
  • 1153

C语言实验:已知地球上两点的经度和纬度求其球面距离

要求:地球的平均半径为6371千米,已知地球上两个城市A、B的经度和纬度,编程序求出这两个城市之间的地面距离。 首先,固定两点,a(x1,y1,z1),b(x2,y2,z2)。 由...
  • zhengnanlee
  • zhengnanlee
  • 2013-03-24 10:14:02
  • 8282

计算地球经纬度两点之间的弧长

根据经纬度,计算地球上两点之间的距离: public static double getDistance(double lngA,double latA,double lngB,double lat...
  • majian_1987
  • majian_1987
  • 2013-04-11 13:54:50
  • 1880

如何通过经纬度粗略计算地球两点之间的距离?直接上代码

我们通过两点之间的经纬度,可以知道两点之间大致的夹角是多少度(相对地心来说)。这个可以通过勾股定理大致求得,当然这样求出来的角度不是很准,但足够用了。 可以通过下列式子计算两点之间的夹角。x1,y1为...
  • sinat_23079759
  • sinat_23079759
  • 2016-09-21 14:21:03
  • 3334

已知经纬度,球地球上两点之间距离(考虑地球曲率)

  • 2011年09月16日 15:19
  • 15KB
  • 下载

计算地球上任意两点(经纬度)距离

 /**  * 计算地球上任意两点(经纬度)距离  *   * @param long1  *            第一点经度  * @param lat1  *            第...
  • luo_xia530
  • luo_xia530
  • 2017-03-04 11:51:13
  • 96

地球经纬度和米换算

经度的定义是过某点的经线面和本初子午面之间的夹角。纬度的定义是过某点的球面切面垂线与赤道平面之间的线面角。可见,如果不加限定,1"之间的距离没有意义。 假设地球为一半径为R的表面光滑圆球体, ...
  • u010429424
  • u010429424
  • 2015-01-25 23:37:10
  • 997

计算地球上两点的直线距离

现微软已经为我们直接提供了这个方法 GeoCoordinate的GetDistanceTo 参数是GeoCoordinate的对象,用来计算两个GeoCoordinate的距离。...
  • fengyarongaa
  • fengyarongaa
  • 2011-10-08 23:23:36
  • 1796

Delphi 根据经纬度计算地球上两点之间的距离

EARTH_RADIUS = 6378137.0;    //单位M              function getRad(d: Double): Double;       begin  ...
  • gzxiaorou
  • gzxiaorou
  • 2015-03-22 15:35:41
  • 481
收藏助手
不良信息举报
您举报文章:求地球经纬度间距
举报原因:
原因补充:

(最多只允许输入30个字)