大地主题解算(深度干货.docxVIP

大地主题解算（深度干货 - 超 精 ） 大地主题解算（正算）代码与白塞尔大地主题解算 大地主题解算（正算）代码：根据经纬度和方向角以及 距离计算另外一点坐标 新建模块-＞拷贝下面的大地主题（正算）代码，调用方 法示例： 起点经度：116.235度） 终点纬度：37.435（度） 方向角：50 （度） 长度：500 （米） 终点经纬度（经度，纬度） =Computatio n（37.435,116.235,50,500） Const Pi = 3.1415926535898 Private a, b, c, alpha, e, e2, W, V As Double a 长轴半径 b 短轴 c 极曲率半径 alpha扁率 e 第一偏心率 e2 第二偏心率 W 第一基本纬度函数 V 第二基本纬度函数 Private B1, L1, B2, L2 As Double B1点1的纬度 L1点1的经度 B2点1的纬度 L2点2的经度 Private S As Double 大地线长度 Private A1, A2 As Double A1 点1到点2的方位角 A2 点2到点1的方位角 Fun ction Computatio n(STARTLAT, STARTLONG, ANGLE1, DISTANCE As Double) As Stri ng B1 = STARTLAT L1 = STA