[工程科技]第四章平面控制網(wǎng)程序設(shè)計-資料下載頁
2025-01-19 13:00本頁面
【正文】 點點號數(shù)組 T_dirl()、終點點號數(shù)組 T_dir2()、方位角數(shù)組 T_L() ?點名信息： 控制點點名數(shù)組 P_Name() ?存儲點坐標： 網(wǎng)中平面控制點數(shù)組 XY() ?（方法一）存儲系數(shù)矩陣、常數(shù)項矩陣以及權(quán)陣： 系數(shù)矩陣數(shù)組 B()、常數(shù)項數(shù)組 L()、權(quán)陣數(shù)組 P() ?（方法二）法方程系數(shù)矩陣、法方程常數(shù)項：權(quán)陣 P()、系數(shù)矩陣數(shù)組 BTPB()、常數(shù)項數(shù)組 BTPL() Function GetstationNumber(name As String) Dim i as Integer For i = 0 To m_Pnumber If P_Name(i) Then 39。將待查點名與已經(jīng)存入點名數(shù)組的點比較 If P_Name(i) = name Then GetstationNumber = i Else ‘待查點是新的點名，將新點名放到 P_Name數(shù)組中 P_Name(i) = name GetstationNumber = i End If Next i End Function 函數(shù) GetstationNumber功能：存儲點名，返回點名對應的點號 方法二：法方程系數(shù)項累加程序?qū)崿F(xiàn) Dim t As Integer, i As Integer, j As Integer t = 2 * m_Pnumber For i = 0 To t For j = 0 To i BTPB(i, j) = BTPB(i, j) + Ar(i) * Ar(j) * Pr Next j Next i 上面即為將 PrBrTBr累加到 BTPB()的程序代碼。 由于一個誤差方程最多有 4個（角度誤差方程中非零元素為 36個）非零元素， Ar中有大量的 0元素， PrATrAr中有 16個非零元素，其余的都是 0，所以上面的程序只有 16次累加是有意義的，其余的都是將 0累加到法方程中。為此，可考慮僅進行非零系數(shù)的累加。 假若用 B 存放 Ar中的非零元素，用 Bin數(shù)組存放 Ar中的非零元素所對應的未知數(shù)的編號，一般情況而言，設(shè) B和Bin數(shù)組為： B={b0,b1,b2,b3} Bin={i0,i1,i2,i3} 那么 , PrATrAr中的 16個非零元素為： ATrPrAr（ is,it） =Pr *bs *bt (s,t=0,1,2,3) 上式中， PrATrAr（ is,it）表示 ATrPrAr的第 is行，it列的元素。同理 ATrPrlr中需要計算的 5個非零元素為： ATrPrlr（ is） =pr*bs *lr (s=0,1,2,3) 需要的說明是， 第一， ATrPrAr 與 ATrPrlr并不單獨存在，而是將其值直接向法方程系數(shù)矩陣和常數(shù)項項中進行累加；第二，法方程系數(shù)矩陣是對稱矩陣，可考慮僅保存下三角矩陣。 ca_ATPAi函數(shù)（實現(xiàn)功能：一個誤差方程式組成的法方程累加項） Public Function ca_ATPAi (B() As Double, Bin() As Double, p As Double, Li As Double, m As Integer) Dim k As Integer, s As Integer, i As Integer, j As Integer Dim ai As Double, aj As Double For k = 0 To m i = Bin(k) ai = B(k) BTPL(i) = BTPL(i) p * ai * Li 39。BTPL用來存儲常數(shù)項 For s = 0 To m j = Bin(s) aj = B(s) BTPB(i, j) = BTPB(i, j) + p * ai * aj 39。BTPB數(shù)組用來存儲法方程系數(shù)矩陣 Next s Next k End Function ca_ATPAi函數(shù)共有 5個參數(shù)，第 1個參數(shù)用來存儲誤差方程系數(shù)；第 2個參數(shù)用來存放誤差方程非零項所對應的未知參數(shù)編號；第 3個參數(shù)是觀測值的權(quán)；第 4個參數(shù)存儲誤差方程的常數(shù)項；第 5個參數(shù)是誤差方程中未知數(shù)的個數(shù)（非零項個數(shù)），也即 B數(shù)組的長度。 上機內(nèi)容（三） 水準網(wǎng)平差程序設(shè)計 ； ； ； 。
教學課件相關(guān)推薦
鄂ICP備17016276號-1