地球上两点间距离的计算公式

1、两点间的球面距离公式 地球上两点间距离 的计算公式篇一 : 地球上两点间距离的计算公式地球上两点间的距离赖宝锋假设地球是一个椭球体，南北长，东西短，用水平面去截椭球， 得到的都是圆面。（设地?心为原点，记为 O，北极记为 N，南极记为 S，以 NS 为 Z 轴，NS为 Z轴正方向。过 O?作垂线，交本初子午线于 A，以OA为 X 轴正方向。按右手 定则再建立 Y 轴，成立体正交坐标系。以北纬为正，南纬为负，东经为正，西经为负。假设南 北两极距离为 2a，赤道半径为 b。那么地球球面方程为x2y2z2b2?b2?a2?1任取地球球面上一点 P，假设纬度为 ?，经度为 ?， ? 2?2，?，则si

2、n?sin2?z2x2?y2?z2又x2y2z2b2?b2?a2?1求得z2?a2b2sin2?a2cos2?b2sin2?而 z与 sin?同号，故z?x2?y2?b2?b?a2z?b?a2a2cos2?b2sin2?42222?b2?bsin?abcos?a2cos2?b2sin2?a2cos2?b2sin2?x?1y?这样，设地球球面上两点 P1， P2，纬度分别为 ?1,?2，经度分别为?1?2，则 P1 坐标为x1?y1?z1?P2 坐标为x2?y2?z2?则|PP?12|? ? 2?118.222?若用角度制，把 ?替换为 180，替换为180，即可。 例如，把 118.222 替

3、换为18032.77 替换为32.77?180，然后代入公式中运算，即可。 给定圆心 O 的经纬度，设为， 这就相当于知道圆心的坐标x0?y0?z0?地球球面方程为f?x2y2 z2b2?b2?a2?1?0?f?x?2x?f2y?f2zb2，?y?b2，?z?a2 这样，地球过 O 的切平面的方程为 2x0b2?2y0b2?2z0b2?0 即x0b2?y0b2?z0b2?0 于是，到 O 距离为 r 且在切平面上的点的轨迹方程为 ?2?r2 ?x0yzb2?00b2?00a2?0令 x?x0?u，y?y0?v，z?z0?w，则?u2?v2?w2?r2?x0y0z0 ?b2u?b2v?a2w?0

4、 u2?v2?w2?r2?w?2?23222222x02x0y0y0z0z0z0z02222222u?4uv?4v?4?4r?4u?4v2 4bbbaaaa22222x0z02x0y0y0z0z022 u?4uv?v?4r2 babbaa222222u2?2a4x0y0uv?v2?b4z0r 22222a4x0y0a4y0?b4z0b4z0r2 u?4242uv?4242v?4242 ax0?bz0ax0?bz0ax0?bz02 22222a4x0y0a4x0y0v2a4x0y0v2a4y0?b4z0b4z0r2 u?4242uv?4242v?4242 ax0?bz0ax0?bz0ax0?bz

5、0ax0?bz0ax0?bz022222a4x0y0a4y0?b4z0a4x0y022b4z0r2?4242?v?4242ax0?bz0ax0?bz0ax0?bz0ax0?bz02222222222224a4y0?b4z0a4x0y02?a8x0y0a4b4x0z0?a4b4y0z0?b8z0 ?22222222a4x0?b4z0ax0?bz0这样，2222422a4x0y0a4b4x0z0?a4b4y0z0?b8z0b4z0r22?v?424224242ax0?bz0ax0?bz0令00?v?bz0?22令a4x0y02u?42v? 42ax0?bz0a4x0y02u?42bz0?42ax0

6、?bz022?再通过且平面方程求出 w，这样，我们得到参数方程4?242?u? ?2v?bz?0?xy0z0u?v)/?w?/?z0?z?w?z0?0?|?0w dzdz再来看 x 或 y，它们都是 ?和 ?的表达式，当 ?确定下来后，由于?x?cos? ?y?sin?它们便由 x 和 y 唯一决定，用反正弦或反余弦或反正切， 可唯一 地得到?。?2k?，k 为某整数xx?0?1?22/b2b2a2?0?d?d?|?0?0?|?0wdzdzx0y0z01 ?0?/22b2b2a2其中，?242?u? ?2?v?bz0?y?arctan x其中 y?v?y0， x?u?x0。其中x0?y0?z0

7、?67篇二 : 3.3.2 两点之间的距离公式篇三 : 球面距离公式计算给定两点间距离在业务上经常需要计算两个地点的距离， 如台风路径预报误差。两点 之间的距离实际上是球面距离，参考了网上搜索后，编写了 VB 源程 序，供大家参考。 yry,2012.5HaikouConst EARTH_RADIUS = 6378.137Const pi = 3.1415926535898Public IS_stationP As BooleanPrivate Sub Command1_ClickDim lon1 As Double, lon2 As Double, lat1 As Double, lat2 AsDouble lon1 = Vallat1 = Vallon2 = Val lat2 = ValLab_距离.Caption = 近“似距离 : “ &Format, “#.0公”里）& ”End SubFunction rad As Double rad = d * pi / 180End Function知道两点经纬度，求近