【導(dǎo)讀】成統(tǒng)一規(guī)范，尤其是坐標系統(tǒng)的統(tǒng)一。由于各測量單位工作目的不同，所選擇的。國家80坐標系、北京54坐標系、獨立地方坐標及各種坐標。在同一坐標系下坐。標的表示方式又有空間直角坐標、大地坐標、平面坐標。根據(jù)不同的測繪需求，系間的坐標轉(zhuǎn)換模型），并利用vb語言實現(xiàn)坐標轉(zhuǎn)換的過程。

　　

【正文】 e2) + H) * Sin(Br) = Round(X, 3) = Round(Y, 3) = Round(Z, 3) End Sub Private Sub Command4_Click() Dim B(), tgB() As Double Dim Ba, Br, La, Lr, c, p, k, t0, t1, t2 As Double a = XAa e2 = XAe2 e12 = XAe12 X = Val() Y = Val() Z = Val() c = a * Sqr(1 + e12) p = (c * e2) / Sqr(X ^ 2 + Y ^ 2) k = 1 + e12 t0 = Z / Sqr(X ^ 2 + Y ^ 2) t1 = t0 + (p * t0) / Sqr(k + t0 ^ 2) Do Until Abs(t1 t2) = 0 t1 = t2 t2 = t0 + (p * t1) / Sqr(k + t1 ^ 2) Loop Br = Atn(t2) Lr = PI + Atn(Y / X) w = Sqr(1 e2 * (Sin(Br) ^ 2)) N = a / w 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 25 H = Sqr(X ^ 2 + Y ^ 2) / Cos(Br) N Ba = Txt(Br) La = Txt(Lr) = Ba = La = H End Sub Private Sub Command5_Click() Dim a, e2, N, Ba, Br, La, Lr, H, X, Y, Z, tgB, tgB1 As Double a = WGSa e2 = WGSe2 H = Val() Br = Rad() Lr = Rad() N = a / Sqr(1 e2 * (Sin(Br)) ^ 2) X = (N + H) * Cos(Br) * Cos(Lr) Y = (N + H) * Cos(Br) * Sin(Lr) Z = (N * (1 e2) + H) * Sin(Br) = Round(X, 3) = Round(Y, 3) = Round(Z, 3) End Sub Private Sub Command6_Click() Dim B(), tgB() As Double Dim Ba, Br, La, Lr, c, p, k, t0, t1, t2 As Double a = WGSa e2 = WGSe2 e12 = WGSe12 X = Val() 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 26 Y = Val() Z = Val() c = a * Sqr(1 + e12) p = (c * e2) / Sqr(X ^ 2 + Y ^ 2) k = 1 + e12 t0 = Z / Sqr(X ^ 2 + Y ^ 2) t1 = t0 + (p * t0) / Sqr(k + t0 ^ 2) Do Until Abs(t1 t2) = 0 t1 = t2 t2 = t0 + (p * t1) / Sqr(k + t1 ^ 2) Loop Br = Atn(t2) Lr = PI + Atn(Y / X) w = Sqr(1 e2 * (Sin(Br) ^ 2)) N = a / w H = Sqr(X ^ 2 + Y ^ 2) / Cos(Br) N Ba = Txt(Br) La = Txt(Lr) = Ba = La = H End Sub Private Sub Command7_Click() = = = = = = 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 27 End Sub Private Sub Command8_Click() End End Sub Private Sub Form_Load() PI = XAa = 6378140: XAb = : XAc = : XAe2 = : XAe12 = BJa = 6378245: BJb = : BJc = : BJe2 = : BJe12 = WGSa = 6378137: WGSb = : WGSc = : WGSe2 = : WGSe12 = End Sub Function Rad(Txt As String) As Double s = Val(Txt) du = Fix(s) fe = Fix((s du) * 100) mi = Round((s du fe * ) * 10000, 4) Rad = (du + fe / 60 + mi / 3600) * PI / 180 End Function Function Txt(ra) As Double d = ra * 180 / PI du = Fix(d) fe = Fix((d du) * 60) mi = Round(((d du) * 60 fe) * 60) Txt = du + fe * + mi * End Function 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 28 三維坐標轉(zhuǎn)換程序設(shè)計代碼 Private Sub Command1_Click() Dim k, Ex, Ey, Ez, dx, dy, dz Dim X, z, Y, Yy, Xx, Zz k = Val() Ex = Val() Ey = Val() Ez = Val() dx = Val() dy = Val() dz = Val() X = Val() Y = Val() z = Val() Xx = (k + 1) * (X * Cos(Ey) * Cos(Ez) + Y * Cos(Ey) * Sin(Ez) z * Sin(Ey)) + dx Yy = (k + 1) * (X * (Cos(Ex) * Sin(Ez) + Sin(Ex) * Sin(Ey) * Cos(Ez)) + Y * (Cos(Ex) * Cos(Ez) + Sin(Ex) * Sin(Ey) * Sin(Ez)) + z * Sin(Ex) * Cos(Ey)) + dy Zz = (k + 1) * (X * Sin(Ex) * Sin(Ez) + Cos(Ex) * Sin(Ey) * Cos(Ez) 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 29 + Y * (Sin(Ex) * Cos(Ez) + Cos(Ex) * Sin(Ez) * Sin(Ey)) + z * (Cos(Ex) * Cos(Ey))) + dz = Format(Xx, ) = Format(Yy, ) = Format(Zz, ) End Sub Private Sub Command2_Click() Dim k, Ex, Ey, Ez, dx, dy, dz Dim X, z, Y, Yy, Xx, Zz k = Val() Ex = Val() Ey = Val() Ez = Val() dx = Val() dy = Val() dz = Val() Xx = Val() Yy = Val() Zz = Val() X = ((Xx dx) * Cos(Ey) * Cos(Ez) + (Yy dy) * (Cos(Ex) * Sin(Ez) + Sin(Ex) * Sin(Ey) * Cos(Ez)) + (Zz dz) * (Sin(Ex) * Sin(Ez) + Cos(Ex) 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 30 * Sin(Ey) * Cos(Ez))) / (k + 1) Y = ((Xx dx) * Cos(Ey) * Sin(Ez) + (Yy dy) * (Sin(Ex) * Sin(Ey) * Sin(Ez) + Cos(Ex) * Cos(Ez) + (Zz dz) * (Sin(Ex) * Cos(Ez) + Cos(Ex) * Sin(Ex) * Sin(Ey)))) / (k + 1) z = ((Xx dx) * (Sin(Ey)) + (Yy dy) * Sin(Ex) * Cos(Ey) + (Zz dz) * (Cos(Ex) * Cos(Ey))) / (k + 1) = Format(X, ) = Format(Y, ) = Format(z, ) End Sub Private Sub Command3_Click() = = = = = = = = 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 31 = = = = = End Sub Private Sub Command4_Click() End End Sub 江蘇師范大學(xué)本科生畢業(yè)設(shè)計 不同坐標系的轉(zhuǎn)換及其程序設(shè)計 32 致謝 本文在 王愛生 老師的細心指導(dǎo)下完成，從選題和大方向上到修改、定稿都有老師足跡。老師是治學(xué)嚴謹，謙虛，不斷追求完善的的精神給我了深刻的教誨，老師的平易近人和穩(wěn)定的心態(tài)讓我明白做事情不要指望一蹴而就，要腳踏實地，務(wù)實才是最重要的，這些財富必將影像我以后的日常工作和學(xué)習(xí)。由衷的感謝老師。 同時，在此次畢業(yè)設(shè)計過程中我也學(xué)到了許多了關(guān)于坐標轉(zhuǎn)換方面的知識，編程技能也有了很大的提高。另外，我還要特別感謝老師對我論文寫作的指導(dǎo)，他們?yōu)槲彝瓿蛇@篇論文提供了巨大的幫助。最后我要向我的父母致謝，感謝他們對我的理解和支持。 掩卷而思，唯有感激，唯有自省，唯有不懈地追尋！