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

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

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

[[375073]]

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 

 

责任编辑:华轩 来源: 今日头条
相关推荐

2023-12-01 15:50:46

2010-04-06 18:04:09

Oracle数据库

2019-10-31 08:22:39

shell脚本Linux

2011-04-15 10:21:07

Oracle数据库运算

2019-07-31 08:03:45

Oracle数据库巡检脚本

2022-07-30 07:50:40

数据库字段存储

2011-03-11 15:49:52

Oracle数据库

2019-10-16 00:37:36

Oracle数据库游标数

2010-08-10 09:17:12

2018-12-12 19:10:01

Oracle数据库自动备份

2010-07-06 12:34:28

SQL Server数

2020-12-18 09:10:36

数据库SQL Server存储空间

2011-09-20 15:19:15

Python

2010-04-29 16:36:19

Oracle数据库

2010-07-08 13:48:38

同步两个SQLServ

2021-01-08 16:27:52

SQL数据库开发

2021-12-16 16:20:57

GoWebSocketLinux

2020-08-14 08:13:49

列表差异编程

2010-03-18 14:22:46

Python数据库连接

2010-03-30 10:18:45

Oracle数据库
点赞
收藏

51CTO技术栈公众号