当前位置: 首页 > 数据库 > 数据库综合 >正文

数据库实用脚本:计算地球上两个坐标点之间的里程

来源:互联网时间:2021-01-13 19:34:09编辑:网友分享
今天给大家分享计算地球上两个坐标点之间里程不同数据库版本的脚本。 1、SQLServer脚本 –-计算地球上两个坐标点(经度,纬度)之间距离sql函

今天给大家分享计算地球上两个坐标点之间里程不同数据库版本的脚本。

数据库实用脚本:计算地球上两个坐标点之间的里程

1、SQLServer脚本

  1. –-计算地球上两个坐标点(经度,纬度)之间距离sql函数  
  2. CREATE FUNCTION [dbo].[fnGetDistance](@LatBegin REAL, @LngBegin REAL,  
  3.                                       @LatEnd REAL, @LngEnd REAL
  4. RETURNS FLOAT 
  5. AS 
  6. BEGIN 
  7. –-距离(千米) 
  8. DECLARE @Distance REAL 
  9. DECLARE @EARTH_RADIUS REAL 
  10. SET @EARTH_RADIUS = 6378.137 
  11. DECLARE @RadLatBegin REAL,@RadLatEnd REAL,@RadLatDiff REAL,@RadLngDiff REAL 
  12. SET @RadLatBegin = @LatBegin *PI()/180.0 
  13. SET @RadLatEnd = @LatEnd *PI()/180.0 
  14. SET @RadLatDiff = @RadLatBegin - @RadLatEnd 
  15. SET @RadLngDiff = @LngBegin *PI()/180.0 - @LngEnd *PI()/180.0 
  16. SET @Distance = 2 *ASIN(SQRT(POWER(SIN(@RadLatDiff/2), 2) 
  17.                              +COS(@RadLatBegin)*COS(@RadLatEnd)*POWER(SIN(@RadLngDiff/2), 2))) 
  18. SET @Distance = @Distance * @EARTH_RADIUS 
  19. RETURN @Distance 
  20. END 
  21. --使用方法如下: 
  22. SELECT dbo.fnGetDistance(25,30,12.56,15.5) ; 

2、MySQl脚本

  1. –-计算地球上两个坐标点(经度,纬度)之间距离sql函数  
  2. CREATE FUNCTION [dbo].[fnGetDistance](@LatBegin REAL, @LngBegin REAL
  3.                                       @LatEnd REAL, @LngEnd REAL
  4. RETURNS FLOAT 
  5. AS 
  6. BEGIN 
  7. –-距离(千米) 
  8. DECLARE @Distance REAL 
  9. DECLARE @EARTH_RADIUS REAL 
  10. SET @EARTH_RADIUS = 6378.137 
  11. DECLARE @RadLatBegin REAL,@RadLatEnd REAL,@RadLatDiff REAL,@RadLngDiff REAL 
  12. SET @RadLatBegin = @LatBegin *PI()/180.0 
  13. SET @RadLatEnd = @LatEnd *PI()/180.0 
  14. SET @RadLatDiff = @RadLatBegin - @RadLatEnd 
  15. SET @RadLngDiff = @LngBegin *PI()/180.0 - @LngEnd *PI()/180.0 
  16. SET @Distance = 2 *ASIN(SQRT(POWER(SIN(@RadLatDiff/2), 2) 
  17.                              +COS(@RadLatBegin)*COS(@RadLatEnd)*POWER(SIN(@RadLngDiff/2), 2))) 
  18. SET @Distance = @Distance * @EARTH_RADIUS 
  19. RETURN @Distance 
  20. END 
  21. --使用方法如下: 
  22. SELECT dbo.fnGetDistance(25,30,12.56,15.5) ; 

3、Orcale脚本

  1. CREATE OR REPLACE FUNCTION GetDistance 
  2. (lat1 number, lng1 number,lat2 number,lng2 number)  
  3. RETURN NUMBER is  
  4.   earth_padius number := 6378.137;  
  5.   radLat1      number := Radian(lat1);  
  6.   radLat2      number := Radian(lat2);  
  7.   a            number := radLat1 - radLat2;  
  8.   b            number := Radian(lng1) - Radian(lng2);  
  9.   s            number := 0;  
  10. begin  
  11.   s := 2 *  
  12.        Asin(Sqrt(power(sin(a / 2), 2) +  
  13.                  cos(radLat1) * cos(radLat2) * power(sin(b / 2), 2)));  
  14.   s := s * earth_padius;  
  15.   s := Round(s * 10000) / 10000;  
  16.   return s;  
  17. end;  
  18. --使用方法 
  19. select GetDistance(25,30,12.56,15.5) from dual 

【编辑推荐】

上一篇: 怎么用Redis分布式锁才能确保万

下一篇:深入了解MySQL主从复制的原理

您可能感兴趣的文章

相关阅读