数据库实用脚本:计算地球上两个坐标点之间的里程
2023-03-14 22:17:51 时间
今天给大家分享计算地球上两个坐标点之间里程不同数据库版本的脚本。
1、SQLServer脚本
- –-计算地球上两个坐标点(经度,纬度)之间距离sql函数
- CREATE FUNCTION [dbo].[fnGetDistance](@LatBegin REAL, @LngBegin REAL,
- @LatEnd REAL, @LngEnd REAL)
- RETURNS FLOAT
- AS
- BEGIN
- –-距离(千米)
- 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
- RETURN @Distance
- END
- --使用方法如下:
- SELECT dbo.fnGetDistance(25,30,12.56,15.5) ;
2、MySQl脚本
- –-计算地球上两个坐标点(经度,纬度)之间距离sql函数
- CREATE FUNCTION [dbo].[fnGetDistance](@LatBegin REAL, @LngBegin REAL,
- @LatEnd REAL, @LngEnd REAL)
- RETURNS FLOAT
- AS
- BEGIN
- –-距离(千米)
- 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
- RETURN @Distance
- END
- --使用方法如下:
- SELECT dbo.fnGetDistance(25,30,12.56,15.5) ;
3、Orcale脚本
- CREATE OR REPLACE FUNCTION GetDistance
- (lat1 number, lng1 number,lat2 number,lng2 number)
- RETURN NUMBER is
- earth_padius number := 6378.137;
- radLat1 number := Radian(lat1);
- radLat2 number := Radian(lat2);
- a number := radLat1 - radLat2;
- b number := Radian(lng1) - Radian(lng2);
- s number := 0;
- begin
- s := 2 *
- Asin(Sqrt(power(sin(a / 2), 2) +
- cos(radLat1) * cos(radLat2) * power(sin(b / 2), 2)));
- s := s * earth_padius;
- s := Round(s * 10000) / 10000;
- return s;
- end;
- --使用方法
- select GetDistance(25,30,12.56,15.5) from dual
相关文章
- 数据孤岛是业务效率的无声杀手
- 2023展望:新的一年将给大数据分析领域带来什么?
- 阿里云ADB基于Hudi构建Lakehouse的实践
- 大数据在医疗保健领域的使用案例
- 微软增加说明:KB5021751 更新扫描已经 / 即将过时 Office 过程中不会触碰用户隐私
- 2022 Gartner全球云数据库管理系统魔力象限发布 腾讯云数据库入选
- 场景化、重实操,分享一个实时数仓实践案例
- Arctic的湖仓一体践行之路
- 分布式计算MapReduce究竟是怎么一回事?
- 淘系数据模型治理优秀实践
- 大数据分析对医疗保健的影响
- 当我们说大数据Hadoop,究竟在说什么?
- 2022年及以后大数据的五个发展趋势
- 网易严选离线数仓治理实践
- 2023 年数据治理趋势
- 一份“靠谱”的年度经营计划,你学会了吗?
- 漫谈对大数据的思考
- 测试一下,读懂数据的能力,你有吗?
- 用艺术的眼光探索数据之美
- 聊聊数据分析成果如何落地