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