vb导线间接平差
于 2023-01-20 发布
文件大小:13.37 kB
0 183
下载积分: 2
下载次数: 1
代码说明：
Option Explicit Option Base 1 Dim sAngle() As Double, sdAngle() As Double, sEdge() As Double, s0Edge() As Double "分别存放角度观测值、坐标方位角、观测边长和近似边长 Dim ajk() As Double, bjk() As Double "坐标方位角改正数的系数 Dim detX() As Double, detY() As Double, reX() As Double, reY() As Double "分别存放各测站相对于导线中前一结点的X、Y坐标增量和坐标闭合差 Dim strFileName As String "存放数据文件名（含路径） Dim iType%, iAngleType%, Xa#,
下载说明：请别用迅雷下载，失败请重下，重下不扣分！
发表评论
