matlab 计算大圆距离,已知两点经纬度计算两点之间的大圆距离

Const r As Double = 6378137 '地球半径常量

Const PI As Double = 3.1415926 '圆周率常量

Private Type LatLog

lat As Double

log As Double

End Type

'已知两点经纬度求大圆距离

Private Function GetGroundDistance(latlogA As LatLog, latlogB As LatLog) As Double

w1 = Pers2Act(latlogA.lat)

w2 = Pers2Act(latlogB.lat)

j1 = Pers2Act(latlogA.log)

j2 = Pers2Act(latlogB.log)

alpha = Arccos(Cos(w1) * Cos(w2) * Cos(j1 - j2) + Sin(w1) * Sin(w2))

d = alpha * r

GetGroundDistance = d

End Function

'弧度转角度

Private Function Act2Pers(act As Double) As Double

Act2Pers = act / PI * 180

End Function

'角度转弧度

Private Function Pers2Act(pers As Double) As Double

Pers2Act = pers / 180 * PI

End Function

'反余弦函数

Private Function Arccos(x As Double) As Double

Arccos = PI / 2 - Atn(x / Sqr(-x * x + 1))

End Function

'测试

Private Sub MainFunction()

Dim a As LatLog

Dim b As LatLog

a.lat = 45

a.log = 8

b.lat = 45

b.log = 9

Debug.Print GetGroundDistance(a, b)

End Sub

matlab 计算大圆距离,已知两点经纬度计算两点之间的大圆距离相关推荐

已知一点经纬度，方位角，距离，求另一点经纬度
参考了博文:http://blog.csdn.net/pyx6119822/article/details/52298037 ------------------------------------- ...
根据两点经纬度计算距离
根据两点经纬度计算距离这些经纬线是怎样定出来的呢?地球是在不停地绕地轴旋转(地轴是一根通过地球南北两极和地球中心的假想线),在地球中腰画一个与地轴垂直的大圆圈,使圈上的每一点都和南北两极的距离相等 ...
根据两点经纬度计算两点距离...工具类
/** * 根据两点经纬度计算距离 * 直接调用使用即可 * @author tarena * */ public class DistanceUtil { public static f ...
php 经纬度两点间距离公式,PHP根据两点间的经纬度计算距离，php两点经纬度计算...
PHP根据两点间的经纬度计算距离,php两点经纬度计算这是一个不错的示例,直接贴代码,首先要知道纬度值.经度值 /** * @desc 根据两点间的经纬度计算距离 * @param float $l ...
Python 优雅地利用两点经纬度计算地理空间距离
一.基本原理处理地理数据时,经常需要用到两个地理位置间的距离.比如 A 点经纬度(30.553949,114.357399),B点经纬度(129.1344,25.5465),求 AB 两点之间的距离 ...
mysql 经纬度距离自定义函数_mysql 经纬度计算距离自定义函数
这些经纬线是怎样定出来的呢? 地球是在不停地绕地轴旋转(地轴是一根通过地球南北两极和地球中心的假想线),在地球中腰画一个与地轴垂直的大圆圈,使圈上的每一点都和南北两极的距离相等,这个圆圈就叫作&quo ...
JAVA已知圆心经纬度和半径求圆周点的经纬度
JAVA已知圆心经纬度和半径求圆周点的经纬度项目中遇到一个需求,需要根据传入的圆心经纬度和半径参数获得圆周点的经纬度,在网上查询了很多没有找到能用的算法,从GPT中获取到了一个简洁的用java实现的 ...
两点经纬度计算方位角，以正北为0度
//根据两点经纬度计算方位角,以正北为0度public static double computeAzimuth(Double lat1,Double lon1, Double lat2,Double ...
算法【二叉树】学习笔记 - 已知结点数计算可构建出多少种二叉树
算法[二叉树]学习笔记 - 已知结点数计算可构建出多少种二叉树卡特兰数相关知识点排列组合公式排列 Arrangement 组合 Combination 分步计算简化参考资料题目:已知3个 ...
已知一点经纬度，如何得到该点的高程
已知一点经纬度,如何得到该点的高程:https://www.advancedconverter.com/map-tools/find-altitude-by-coordinates

matlab 计算大圆距离,已知两点经纬度计算两点之间的大圆距离

matlab 计算大圆距离,已知两点经纬度计算两点之间的大圆距离相关推荐

最新文章

热门文章