【導(dǎo)讀】完成日期：2020年5月14日。畢業(yè)論文（設(shè)計）評審小組意見：

　　

【正文】 MS = D + M + S End Function 20 計算計算卯酉圈半徑 N 如下： Public Function GetN(a As Double, b As Double, RB As Double) As Double 39。計算卯酉圈半徑 N Dim e2 As Double e2 = GetE2(a, b) GetN = a / Sqr(1 e2 * (Sin(RB) ^ 2)) End Function 計算 2e 公式如下： Public Function GetE2(a As Double, b As Double) As Double 39。計算 e^2 GetE2 = (a ^ 2 b ^ 2) / a ^ 2 End Function 在此，最重要的就是坐標(biāo)轉(zhuǎn)換的公式了，代碼如下： 空間大地坐標(biāo)系轉(zhuǎn)換空間直角坐標(biāo)系 (a為地球長半軸 ,b 為地球短半軸 ) Public Sub BLH_XYZ(RBLH As BLH, a As Double, b As Double) 39。空間大地坐標(biāo)系轉(zhuǎn)換空間直角坐標(biāo)系 (a為地球長半軸 ,b 為地球短半軸 ) Dim e2 As Double, N As Double 39。Dim BtoX As New XYZ e2 = GetE2(a, b) N = GetN(a, b, ) = (N + ) * Cos() * Cos() = (N + ) * Cos() * Sin() = (N * (1 e2) + ) * Sin() End Sub 關(guān)于空間直角坐標(biāo)系轉(zhuǎn)換空間大地坐標(biāo)系，我們才用的是迭代法，代碼如下： Public Sub XYZ_BLH(IXYZ As XYZ, a As Double, b As Double) 39?？臻g直角 坐標(biāo)系轉(zhuǎn)換空間大地坐標(biāo)系 (迭代法 ) Dim e2 As Double, N As Double Dim tB As Double, tH As Double, Lb As Double, lH As Double 21 e2 = GetE2(a, b) If = 0 Then = PI / 2 Else = Atn( / ) End If If = 0 And = 0 Then = PI / 2 N = GetN(a, b, ) = / Sin() N * (1 e2) Else tB = Atn( / Sqr( ^ 2 + ^ 2)) mGoTo: N = GetN(a, b, tB) tH = Sqr( ^ 2 + ^ 2) / Cos(tB) N Lb = Atn(( + N * e2 * Sin(tB)) / Sqr( ^ 2 + ^ 2)) If Abs(Lb tB) 1E99 Then tB = Lb GoTo mGoTo Else = Lb N = GetN(a, b, ) = Sqr( ^ 2 + ^ 2) / Cos() N End If End If End Sub 根據(jù)上述的設(shè)計語句，我們可以通過調(diào)用函數(shù)的方法實現(xiàn)坐標(biāo)轉(zhuǎn)換的操作，代碼如下： Public BtoX As New XYZ 22 Public XtoB As New BLH Public pi As Double Public Sub Command1_Click() Dim a As Double, b As Double a = 6378245 b = 6354950 pi = Dim pBLH As New BLH Dim pXYZ As New XYZ If = True Then = Val() = Val() = Val() Call BLH_XYZ(pBLH, a, b) = = = = Str() = Str() = Str() End If If = True Then = Val() = Val() = Val() Call XYZ_BLH(BtoX, a, b) Dim w As Double = Radian_Angular() = Angular_DMS() 23 = Radian_Angular() = Angular_DMS() = = = = Format(, .00000000 ) = Format(, .00000000 ) = Format(, .00000000 ) = Str() = Str() = Str() End If End Sub 程序設(shè)計好之后就是要 檢驗坐標(biāo)轉(zhuǎn)換是否成功了，我們找來了一個已知點。在 空間直角坐標(biāo)系統(tǒng)下的坐標(biāo)值 ： X= Y= Z=200 在 空間大地坐標(biāo)系統(tǒng)的坐標(biāo)值為： B=000: L=009: H= 在文本框輸入已知點的坐標(biāo)，檢測該點在另外一個坐標(biāo)系的坐標(biāo)是否正確： 首先從空間直角坐標(biāo)系統(tǒng)轉(zhuǎn)換到空間大地坐標(biāo)系統(tǒng)，結(jié)果如下 （圖 43） ： 24 圖 43 基本上滿足該點在空間大地坐標(biāo)系統(tǒng)中的坐標(biāo)值。 25 第五章 結(jié)論 工程施工過程中，常常會遇到不同坐 標(biāo)系統(tǒng)間，坐標(biāo)轉(zhuǎn)換的問題。目前國內(nèi)常見的轉(zhuǎn)換有以下幾種： 1，大地坐標(biāo)（ BLH）對平面直角坐標(biāo)（ XYZ）； 2，北京 54 全國 80 及 WGS84 坐標(biāo)系的相互轉(zhuǎn)換； 3，任意兩空間坐標(biāo)系的轉(zhuǎn)換。其中第 2 類可歸入第三類中。所謂坐標(biāo)轉(zhuǎn)換的過程就是轉(zhuǎn)換參數(shù)的求解過程。常用的方法有三參數(shù)法、四參數(shù)法和七參數(shù)法。以下對上述三種情況作詳細(xì)描述如下： 大地坐標(biāo)（ BLH）對平面直角坐標(biāo)（ XYZ） 常規(guī)的轉(zhuǎn)換應(yīng)先確定轉(zhuǎn)換參數(shù)，即橢球參數(shù)、分帶標(biāo)準(zhǔn)（ 3 度， 6 度）和中央子午線的經(jīng)度。橢球參數(shù)就是指平面直角坐標(biāo)系采用什么樣的橢球基準(zhǔn)，對 應(yīng)有不同的長短軸及扁率。一般的工程中 3 度帶應(yīng)用較為廣泛。對于中央子午線的確定有兩種方法，一是取平面直角坐標(biāo)系中 Y 坐標(biāo)的前兩位 *3，即可得到對應(yīng)的中央子午線的經(jīng)度。如 x=3250212m， y=395121123m，則中央子午線的經(jīng)度=39*3=117 度。另一種方法是根據(jù)大地坐標(biāo)經(jīng)度，如果經(jīng)度是在 ~ 度之間，那么對應(yīng)的中央子午線的經(jīng)度 =（ +） /2=117 度，其他情況可以據(jù)此 3 度類推。 另外一些工程采用自身特殊的分帶標(biāo)準(zhǔn)，則對應(yīng)的參數(shù)確定不在上述之列。 確定參數(shù)之后，可以用軟 件進(jìn)行轉(zhuǎn)換，以下提供坐標(biāo)轉(zhuǎn)換的程序下載。 北京 54全國 80 及 WGS84 坐標(biāo)系的相互轉(zhuǎn)換 這三個坐標(biāo)系統(tǒng)是當(dāng)前國內(nèi)較為常用的，它們均采用不同的橢球基準(zhǔn)。 其中北京 54坐標(biāo)系，屬三心坐標(biāo)系，大地原點在蘇聯(lián)的普而科沃，長軸 6378245m，短軸 6356863，扁率 1/；西安 80 坐標(biāo)系，屬三心坐標(biāo)系，大地原點在陜西省徑陽縣永樂鎮(zhèn)，長軸 6378140m，短軸 6356755，扁率 1/； WGS84坐標(biāo)系，長軸 ，短軸 ，扁率 1/。由于 26 采用的橢球基準(zhǔn)不一樣，并且由于投影的局限性，使的全國各地并不存在一至的轉(zhuǎn)換參數(shù)。對于這種轉(zhuǎn)換由于量較大，有條件的話，一般都采用 GPS 聯(lián)測已知點，應(yīng)用 GPS 軟件自動完成坐標(biāo)的轉(zhuǎn)換。當(dāng)然若條件不許可，且有足夠的重合點，也可以進(jìn)行人工解算。詳細(xì)方法見第三類。 任意兩空間坐標(biāo)系的轉(zhuǎn)換 由于測量坐標(biāo)系和施工坐標(biāo)系采用不同的標(biāo)準(zhǔn)，要進(jìn)行精確轉(zhuǎn)換，必須知道至少3個重合點（即為在兩坐標(biāo)系中坐標(biāo)均為已知的點。采用布爾莎模型進(jìn)行求解 。 27 參考文獻(xiàn) ［ 1］ 張坤宜 ， 2020..交通土木工程測量（第三 版） ， 武漢：華中科技大學(xué)出版社 ［ 2］ 王勇， 測量技術(shù)，北京：中國電力出版社 ［ 3］ 王儂、過靜珺， （第二版），北京：清華大學(xué)出版社 ［ 4］ 陳英， Basic 程序設(shè)計 .理論篇，大連：大連理工大學(xué)出版社 28 致謝 大學(xué) 三 年的生活 、學(xué)習(xí)即將結(jié)束， 在這里對在這 三 年中關(guān)心 、幫助過我 的老師、同學(xué)致以衷心的感謝。 首先，感謝系里的各位領(lǐng)導(dǎo)、各位老師，他們?yōu)榱宋覀冞@些來自全國各地的同學(xué)在學(xué)校里安心學(xué)習(xí)、生活，做了大量的工作，正是由于他們面面俱到的工作，才使我順利完 成學(xué)業(yè)，走向社會。 還要感謝尊敬老師 ，本文是在老師三個月來的指導(dǎo)、幫助下完成的。感謝老師在百忙之中一絲不茍、不厭其煩的孜孜教誨，感謝老師在我懈怠之時給予我的鞭策和激勵。老師優(yōu)秀的道德品質(zhì)、嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度、一絲不茍的科研精神、淵博的知識儲備將是我終生學(xué)習(xí)的榜樣。 感謝測繪工程專業(yè)同屆的所有同學(xué)，他們曾給過我許許多多的幫助，和他 們相處的日子令我終生難忘。 感謝善良而偉大的父親、母親給予我的一切。在將來的生活工作中，我將會以他們?yōu)榘駱优ぷ?，誠實做人。