间接平差程序

按间接平差原理写的代码，绝对有用，真实可靠 Dim strFileName As String Dim nn%, un%, tn%, hn% '已知点个数，未知点个数，总点数，观测值个数 Dim Pname() As String '点名数组 Dim Hknown() As Double '已知高程数组，存放已知点高程和高程近似值 Dim be%(), en%() '观测值的起点和终点编号数组，存储的是点序号 Dim h#(), s#() '高差观测值数组和距离观测值数组 Dim A#(), X#(), P#(), L#() '间接平差的系数阵、解向量、权阵和常数向量 '平差计