【正文】 角：待定向邊的長(zhǎng)度應(yīng)大于50m,儀器安置在點(diǎn)上，可測(cè)出邊的陀螺方位角。(3)儀器上井后重新測(cè)定儀器常數(shù)：儀器出來(lái)后，應(yīng)在已知邊上重新測(cè)定儀器常數(shù)2～3次。然后求出儀器常數(shù)的最或然值，并按白塞爾公式m=來(lái)評(píng)定一次測(cè)定中誤差。(4)求算子午線收斂角：一般地面精密導(dǎo)線邊或三角網(wǎng)邊已知的是坐標(biāo)方位角，需要求算的定向邊，也是要求出其坐標(biāo)方位角。地理方位角和坐標(biāo)方位角的關(guān)系，： （）子午線收斂角的符號(hào)可由安置儀器點(diǎn)的位置來(lái)確定，即在中央子午線以東為正，以西為負(fù)；其值可根據(jù)安置儀器點(diǎn)的高斯平面坐標(biāo)求得。 （）式（）中，=表示地面和洞內(nèi)安置陀螺儀地點(diǎn)的子午線收斂角的差數(shù)。(1)陀螺方位角一次測(cè)定中誤差　　在待定邊進(jìn)行陀螺定向前，陀螺儀需在地面已知坐標(biāo)方位角邊上測(cè)定儀器常數(shù)。則測(cè)定儀器常數(shù)平均值的中誤差為： 　　 （）(2)一次定向中誤差陀螺定向邊(即待定邊)的坐標(biāo)方位角為 （）式（）中 —陀螺定向邊的陀螺方位角； — 儀器常數(shù)平均值； — 陀螺定向邊儀器安置點(diǎn)的 子午線收斂角。因確定子午線收斂角的誤差較小，可忽略不計(jì)，上式可寫(xiě)為： （）按要求，陀螺經(jīng)緯儀定向的觀測(cè)順序按3(測(cè)前地面測(cè)定儀器次數(shù))，2(測(cè)定定向邊陀螺方位角次數(shù))，3(測(cè)后地面測(cè)定儀器常數(shù)次數(shù))操作時(shí)，此時(shí)因只有一條定向或定向邊極少，且觀測(cè)陀螺方位角的次數(shù)又少(2次)，則井下陀螺方位角一次測(cè)定中誤差可采用近似的方法計(jì)算。此時(shí)一次定向中誤差為： （）當(dāng)定向邊有多條時(shí)，或用同一臺(tái)儀器在不同洞內(nèi)進(jìn)行多條邊的定向時(shí)，可按雙次觀測(cè)列來(lái)求算陀螺方位角一次測(cè)定中誤差，即 （）式（）中 d — 同一邊兩次測(cè)定陀螺方位角之差； n — 差值的個(gè)數(shù)，即定向邊的個(gè)數(shù)。 加測(cè)陀螺邊后的橫向貫通誤差預(yù)計(jì)在長(zhǎng)距離的大型重鐵路隧道中，通常要測(cè)設(shè)很長(zhǎng)距離的導(dǎo)線，導(dǎo)線在轉(zhuǎn)彎處往往有一些短邊，由于測(cè)角誤差的積累，難以保證高精度的貫通要求，在提高測(cè)角精度較困難的情況下，實(shí)際工作中常采用加測(cè)陀螺定向邊的方法來(lái)建立洞內(nèi)平面控制，可顯著減小測(cè)角誤差對(duì)導(dǎo)線點(diǎn)位誤差的影響，保證隧道的正確貫通,。 ——導(dǎo)線測(cè)角誤差 ——導(dǎo)線量邊誤差 ——陀螺定向中誤差(2)相遇點(diǎn)K在水平重要方向上的預(yù)計(jì)誤差 多條陀螺定向邊的方向附和導(dǎo)線3 貫通誤差預(yù)計(jì)程序設(shè)計(jì) Visual Basic簡(jiǎn)介Visual Basic,簡(jiǎn)稱(chēng)VB，是Microsoft公司推出的一種Windows應(yīng)用程序開(kāi)發(fā)工具。無(wú)論是開(kāi)發(fā)功能強(qiáng)大、性能可靠的商務(wù)軟件，還是編寫(xiě)能處理實(shí)際問(wèn)題的實(shí)用小程序，VB都是最快速、最簡(jiǎn)便的方法。專(zhuān)業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其它任何 Windows 編程語(yǔ)言的功能，而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。學(xué)習(xí)版使編程人員很容易地開(kāi)發(fā)Windows和Windows NT的應(yīng)用程序；專(zhuān)業(yè)版為專(zhuān)業(yè)編程人員提供了功能完備的開(kāi)發(fā)工具；企業(yè)版允許專(zhuān)業(yè)人員以小組的形式來(lái)創(chuàng)建強(qiáng)健的分布式應(yīng)用程序。根據(jù)計(jì)算出量邊誤差引起的貫通誤差。(1)程序用戶(hù)界面在設(shè)計(jì)程序用戶(hù)界面時(shí)，以簡(jiǎn)單、實(shí)用、方便、美觀為原則，設(shè)計(jì)的界面應(yīng)清晰明了，在使用程序時(shí)不會(huì)感到復(fù)雜和困難，以增加程序的實(shí)用性。(a)豎直方向誤差預(yù)計(jì)界面圖(b)水平方向誤差預(yù)計(jì)界面圖(c)加測(cè)陀螺邊誤差預(yù)計(jì)界面圖 (2)對(duì)象屬性的設(shè)置： 對(duì)部分對(duì)象屬性的說(shuō)明對(duì)象屬性屬性值說(shuō)明FormCaption貫通誤差預(yù)計(jì)FormBorder style固定對(duì)話(huà)框，不含最大和最小化按鈕Lable1Caption數(shù)據(jù)導(dǎo)入Lable2Caption預(yù)計(jì)邊長(zhǎng)Lable3Caption起始方位角誤差Lable4Caption測(cè)角中誤差Lable5Caption導(dǎo)線量邊誤差Lable6CaptionR01Lable7CaptionR02Lable8Caption預(yù)計(jì)誤差Lable9Caption水準(zhǔn)路線長(zhǎng)Lable10Caption水準(zhǔn)高差中誤差Lable11Caption三角高程路線長(zhǎng)Lable12Caption三角高差中誤差Lable13Caption觀測(cè)次數(shù)Lable14Caption預(yù)計(jì)誤差Lable19Caption左側(cè)數(shù)據(jù)Lable20Caption右側(cè)數(shù)據(jù)Text2Text空輸入預(yù)計(jì)邊長(zhǎng)Text3Text空輸入起始方位角誤差Text4Text空輸入測(cè)角誤差Text5Text空輸入導(dǎo)線量邊誤差Text6Text空輸入R01值Text7Text空輸入R02值Text8Text空輸出誤差預(yù)計(jì)值Text9Text空輸入水準(zhǔn)線路長(zhǎng)Text10Text空輸入水準(zhǔn)高差中誤差Text11Text空輸入三角高程線路長(zhǎng)Text12Text空輸入三角高差中誤差Text13Text空輸入觀測(cè)次數(shù)Text14Text空輸出豎直方向預(yù)計(jì)誤差Text33Text空輸出加陀螺邊預(yù)計(jì)誤差Command1Caption打開(kāi)Command2Caption開(kāi)始預(yù)計(jì)Command3Caption退出(1)從文件中讀入、值，采用的數(shù)據(jù)文件格式為：第一行，隧道左線布設(shè)的導(dǎo)線點(diǎn)數(shù)，后無(wú)“，”。各部分間用“，”分隔。：可將上述數(shù)據(jù)看成三部分組成，讀入數(shù)據(jù)的具體代碼如下：Dim X As Integer Dim a(2) Dim b(100, 2) As Single Dim i As Integer, k As Integer, j As Integer Dim m As Integer Dim n As Single, f As Single, l As Single l = 0 f = 0 i = 1 k = 1 fname = Open fname For Input As 1 Do While Not EOF(1) If i = 1 Then Input 1, X End If If i = 2 Then Input 1, a(0) If i 2 Then If i = X + 3 Then Input 1, a(1) Else Input 1, m, n b(k, 1) = m b(k, 2) = n k = k + 1 End If End If i = i + 1 Loop 數(shù)據(jù)示例文件 在以上代碼中，自定義數(shù)據(jù)類(lèi)型數(shù)組b(k, 1)和b(k, 2)，用來(lái)存儲(chǔ)導(dǎo)線的點(diǎn)號(hào)和值（或值）。(4)對(duì)豎直方向上的誤差預(yù)計(jì)，在用戶(hù)界面上輸入所需數(shù)據(jù)就可以得到預(yù)計(jì)結(jié)果，代碼如下：Dim e As SingleDim f As SingleDim g As SingleDim h As SingleDim u As IntegerDim v As SingleDim w As SingleDim Y As Singlee = Val()f = Val()g = Val()h = Val()u = Val()v = f * Sqr(e)w = h * Sqr(g)Y = 2 * Sqr((v ^ 2 + w ^ 2) / u) = Y =“”輸出的預(yù)計(jì)結(jié)果。貫通點(diǎn)一側(cè)的數(shù)據(jù)導(dǎo)入代碼如下： fname = Open fname For Input As 1 Do While Not EOF(1) If i1 = 1 Then Input 1, X1 End If If i1 = 2 Then Input 1, a1(0) If i1 2 Then If i1 = X1 + 3 Then Input 1, a1(1) ElseInput 1, M1, n1, g1 b1(k1, 1) = M1 b1(k1, 2) = n1 b1(k1, 3) = g1 k1 = k1 + 1 End If End If i1 = i1 + 1 Loop For i1 = 1 To X1 f1 = f1 + b1(i1, 2) ^ 2 l1 = l1 + b1(i1, 3) ^ 2 NextFor i1 = X1 + 1 To 2 * X1 1 t = t + b1(i1, 2) g1 = g1 + b1(i1, 3) Next 在以上過(guò)程中不僅完成了數(shù)據(jù)的導(dǎo)入，還完成數(shù)據(jù)平方和的連加，并把所得結(jié)果存在變量中，貫通點(diǎn)另一側(cè)的數(shù)據(jù)導(dǎo)入計(jì)算代碼如下： fname = Open fname For Input As 1 Do While Not EOF(1) If i2 = 1 Then Input 1, X2 End If If i2 = 2 Then Input 1, a2(0) If i2 2 Then If i2 = X2 + 3 Then Input 1, a2(1) Else I