【文章內(nèi)容簡介】 （）式（）中 — 儀器常數(shù)平均值中誤差； — 待定邊陀螺方位角平均值中誤差； — 確定子午線收斂角的中誤差。因確定子午線收斂角的誤差較小，可忽略不計，上式可寫為： （）按要求，陀螺經(jīng)緯儀定向的觀測順序按3(測前地面測定儀器次數(shù))，2(測定定向邊陀螺方位角次數(shù))，3(測后地面測定儀器常數(shù)次數(shù))操作時，此時因只有一條定向或定向邊極少，且觀測陀螺方位角的次數(shù)又少(2次)，則井下陀螺方位角一次測定中誤差可采用近似的方法計算。因地面井下都采用同一臺儀器，使用同一種觀測方法，一般都由同一觀測者操作，可認為一次測定陀螺方位角的條件大致相同，可取=。此時一次定向中誤差為： （）當定向邊有多條時，或用同一臺儀器在不同洞內(nèi)進行多條邊的定向時，可按雙次觀測列來求算陀螺方位角一次測定中誤差，即 （）式（）中 d — 同一邊兩次測定陀螺方位角之差； n — 差值的個數(shù)，即定向邊的個數(shù)。這時陀螺方位角平均值中誤差為： （）按式求算一次定向中誤差。 加測陀螺邊后的橫向貫通誤差預(yù)計在長距離的大型重鐵路隧道中，通常要測設(shè)很長距離的導(dǎo)線，導(dǎo)線在轉(zhuǎn)彎處往往有一些短邊，由于測角誤差的積累，難以保證高精度的貫通要求，在提高測角精度較困難的情況下，實際工作中常采用加測陀螺定向邊的方法來建立洞內(nèi)平面控制，可顯著減小測角誤差對導(dǎo)線點位誤差的影響，保證隧道的正確貫通,。(1)若井下導(dǎo)線起算邊采用陀螺經(jīng)緯儀定向，并在支導(dǎo)線中每隔一定距離加測陀螺定向邊，共加測了N條陀螺定向邊，而將整個導(dǎo)線分為N段方向附和導(dǎo)線，各段導(dǎo)線的重心分別為、......、,則當角度按方向附和導(dǎo)線平差后，同時顧及陀螺定向邊本身的誤差影響時，導(dǎo)線終點K的點位誤差估算公式為： () （）+ （） 式中（）、（） 、——各導(dǎo)線點至本導(dǎo)線重心O的距離在y軸和x軸上的投影長。 ——導(dǎo)線測角誤差 ——導(dǎo)線量邊誤差 ——陀螺定向中誤差(2)相遇點K在水平重要方向上的預(yù)計誤差 多條陀螺定向邊的方向附和導(dǎo)線3 貫通誤差預(yù)計程序設(shè)計 Visual Basic簡介Visual Basic,簡稱VB，是Microsoft公司推出的一種Windows應(yīng)用程序開發(fā)工具。是當今世界上使用最廣泛的編程語言之一，它也被公認為是編程效率最高的一種編程方法。無論是開發(fā)功能強大、性能可靠的商務(wù)軟件，還是編寫能處理實際問題的實用小程序，VB都是最快速、最簡便的方法。 “Visual”指的是采用可視化的開發(fā)圖形用戶界面（GUI）的方法，一般不需要編寫大量代碼去描述界面元素的外觀和位置，而只要把需要的控件拖放到屏幕上的相應(yīng)位置即可；“Basic”指的是BASIC語言，因為VB是在原有的BASIC語言的基礎(chǔ)上發(fā)展起來的，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。專業(yè)人員可以用 Visual Basic 實現(xiàn)其它任何 Windows 編程語言的功能，而初學(xué)者只要掌握幾個關(guān)鍵詞就可以建立實用的應(yīng)用程序。 VB提供了學(xué)習(xí)版、專業(yè)版和企業(yè)版，用以滿足不同的開發(fā)需要。學(xué)習(xí)版使編程人員很容易地開發(fā)Windows和Windows NT的應(yīng)用程序；專業(yè)版為專業(yè)編程人員提供了功能完備的開發(fā)工具；企業(yè)版允許專業(yè)人員以小組的形式來創(chuàng)建強健的分布式應(yīng)用程序。(1)程序設(shè)計思路；①根據(jù)已有資料在CAD上做導(dǎo)線圖，在圖上量取、值；②將、記錄在文本中；③將文本資料導(dǎo)入程序中，計算、值，并累計求和，存在設(shè)定的變量中；④根據(jù)輸入的測角中誤差和計算的，計算出測角誤差引起的貫通誤差。根據(jù)計算出量邊誤差引起的貫通誤差。根據(jù)輸入的起始方位角誤差，計算出起算數(shù)據(jù)誤差引起的貫通誤差；⑤把各種誤差求和，即可完成橫向貫通誤差預(yù)計；⑥豎直方向的誤差預(yù)計，輸入水準線路長、水準高差中誤差及三角高程線路長、三角高差中誤差（若只有一種測量方法，就輸一種）；⑦把各種誤差求和，就可完成豎直方向誤差預(yù)計；⑧若需加測陀螺邊，則先將數(shù)據(jù)存儲在文本中，然后導(dǎo)入程序中按加測陀螺邊后的誤差預(yù)計公式進行貫通誤差預(yù)計；⑨將預(yù)計最終結(jié)果顯示出。(1)程序用戶界面在設(shè)計程序用戶界面時，以簡單、實用、方便、美觀為原則，設(shè)計的界面應(yīng)清晰明了，在使用程序時不會感到復(fù)雜和困難，以增加程序的實用性。 所示。(a)豎直方向誤差預(yù)計界面圖(b)水平方向誤差預(yù)計界面圖(c)加測陀螺邊誤差預(yù)計界面圖 (2)對象屬性的設(shè)置： 對部分對象屬性的說明對象屬性屬性值說明FormCaption貫通誤差預(yù)計FormBorder style固定對話框，不含最大和最小化按鈕Lable1Caption數(shù)據(jù)導(dǎo)入Lable2Caption預(yù)計邊長Lable3Caption起始方位角誤差Lable4Caption測角中誤差Lable5Caption導(dǎo)線量邊誤差Lable6CaptionR01Lable7CaptionR02Lable8Caption預(yù)計誤差Lable9Caption水準路線長Lable10Caption水準高差中誤差Lable11Caption三角高程路線長Lable12Caption三角高差中誤差Lable13Caption觀測次數(shù)Lable14Caption預(yù)計誤差Lable19Caption左側(cè)數(shù)據(jù)Lable20Caption右側(cè)數(shù)據(jù)Text2Text空輸入預(yù)計邊長Text3Text空輸入起始方位角誤差Text4Text空輸入測角誤差Text5Text空輸入導(dǎo)線量邊誤差Text6Text空輸入R01值Text7Text空輸入R02值Text8Text空輸出誤差預(yù)計值Text9Text空輸入水準線路長Text10Text空輸入水準高差中誤差Text11Text空輸入三角高程線路長Text12Text空輸入三角高差中誤差Text13Text空輸入觀測次數(shù)Text14Text空輸出豎直方向預(yù)計誤差Text33Text空輸出加陀螺邊預(yù)計誤差Command1Caption打開Command2Caption開始預(yù)計Command3Caption退出(1)從文件中讀入、值，采用的數(shù)據(jù)文件格式為：第一行，隧道左線布設(shè)的導(dǎo)線點數(shù)，后無“，”。從第三行開始是點號和值。各部分間用“，”分隔。然后是值，格式和上面的相同。：可將上述數(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ù)類型數(shù)組b(k, 1)和b(k, 2)，用來存儲導(dǎo)線的點號和值（或值）。(2)計算、值并求、的平方和，存在變量中，終于代碼如下：For i = 1 To X f = f + b(i, 2) ^ 2 Next For i = X + 1 To 2 * X 1 l = l + b(i, 2) ^ 2 Next(3)計算橫向預(yù)計誤差，并輸出成果，重要代碼如下：a = Val()b = Val()c = Val()d = Val()R01 = Val()R02 = Val()Mq1 = Sqr((c ^ 2 / p) * f + (d / a) ^ 2 * l + (b / p) ^ 2 * R01 ^ 2 + (b / p) ^ 2 * R02 ^ 2)Mq2 = Sqr((c / p) ^ 2 * f + (d / a) ^ 2 * l)Mq = Sqr(Mq1 ^ 2 + Mq2 ^ 2) = 2 * Mq =“”輸出的是結(jié)果。(4)對豎直方向上的誤差預(yù)計，在用戶界面上輸入所需數(shù)據(jù)就可以得到預(yù)計結(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 ^