[工程科技]第四章平面控制網(wǎng)程序設(shè)計(jì)-資料下載頁
2025-01-19 13:00本頁面
【正文】 點(diǎn)點(diǎn)號數(shù)組 T_dirl()、終點(diǎn)點(diǎn)號數(shù)組 T_dir2()、方位角數(shù)組 T_L() ?點(diǎn)名信息： 控制點(diǎn)點(diǎn)名數(shù)組 P_Name() ?存儲點(diǎn)坐標(biāo)： 網(wǎng)中平面控制點(diǎn)數(shù)組 XY() ?（方法一）存儲系數(shù)矩陣、常數(shù)項(xiàng)矩陣以及權(quán)陣： 系數(shù)矩陣數(shù)組 B()、常數(shù)項(xiàng)數(shù)組 L()、權(quán)陣數(shù)組 P() ?（方法二）法方程系數(shù)矩陣、法方程常數(shù)項(xiàng)：權(quán)陣 P()、系數(shù)矩陣數(shù)組 BTPB()、常數(shù)項(xiàng)數(shù)組 BTPL() Function GetstationNumber(name As String) Dim i as Integer For i = 0 To m_Pnumber If P_Name(i) Then 39。將待查點(diǎn)名與已經(jīng)存入點(diǎn)名數(shù)組的點(diǎn)比較 If P_Name(i) = name Then GetstationNumber = i Else ‘待查點(diǎn)是新的點(diǎn)名，將新點(diǎn)名放到 P_Name數(shù)組中 P_Name(i) = name GetstationNumber = i End If Next i End Function 函數(shù) GetstationNumber功能：存儲點(diǎn)名，返回點(diǎn)名對應(yīng)的點(diǎn)號 方法二：法方程系數(shù)項(xiàng)累加程序?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累加到法方程中。為此，可考慮僅進(jìn)行非零系數(shù)的累加。 假若用 B 存放 Ar中的非零元素，用 Bin數(shù)組存放 Ar中的非零元素所對應(yīng)的未知數(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中需要計(jì)算的 5個非零元素為： ATrPrlr（ is） =pr*bs *lr (s=0,1,2,3) 需要的說明是， 第一， ATrPrAr 與 ATrPrlr并不單獨(dú)存在，而是將其值直接向法方程系數(shù)矩陣和常數(shù)項(xiàng)項(xiàng)中進(jìn)行累加；第二，法方程系數(shù)矩陣是對稱矩陣，可考慮僅保存下三角矩陣。 ca_ATPAi函數(shù)（實(shí)現(xiàn)功能：一個誤差方程式組成的法方程累加項(xiàng)） 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ù)項(xiàng) 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ù)用來存放誤差方程非零項(xiàng)所對應(yīng)的未知參數(shù)編號；第 3個參數(shù)是觀測值的權(quán)；第 4個參數(shù)存儲誤差方程的常數(shù)項(xiàng)；第 5個參數(shù)是誤差方程中未知數(shù)的個數(shù)（非零項(xiàng)個數(shù)），也即 B數(shù)組的長度。 上機(jī)內(nèi)容（三） 水準(zhǔn)網(wǎng)平差程序設(shè)計(jì) ； ； ； 。
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1