不同坐標(biāo)系的轉(zhuǎn)換及其程序設(shè)計畢業(yè)論文-資料下載頁
2025-06-28 09:03本頁面
【正文】 * (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() 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() = = = = = = 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三維坐標(biāo)轉(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) + Y * (Sin(Ex) * Cos(Ez) + Cos(Ex) * Sin(Ez) * Sin(Ey)) + z * (Cos(Ex) * Cos(Ey))) + dz = Format(Xx, ) = Format(Yy, ) = Format(Zz, ) End SubPrivate 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) * 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 SubPrivate Sub Command3_Click() = = = = = = = = = = = = = End SubPrivate Sub Command4_Click()EndEnd Sub致謝 本文在王愛生老師的細心指導(dǎo)下完成，從選題和大方向上到修改、定稿都有老師足跡。老師是治學(xué)嚴(yán)謹(jǐn)，謙虛，不斷追求完善的的精神給我了深刻的教誨，老師的平易近人和穩(wěn)定的心態(tài)讓我明白做事情不要指望一蹴而就，要腳踏實地，務(wù)實才是最重要的，這些財富必將影像我以后的日常工作和學(xué)習(xí)。由衷的感謝老師。同時，在此次畢業(yè)設(shè)計過程中我也學(xué)到了許多了關(guān)于坐標(biāo)轉(zhuǎn)換方面的知識，編程技能也有了很大的提高。另外，我還要特別感謝老師對我論文寫作的指導(dǎo)，他們?yōu)槲彝瓿蛇@篇論文提供了巨大的幫助。最后我要向我的父母致謝，感謝他們對我的理解和支持。掩卷而思，唯有感激，唯有自省，唯有不懈地追尋！33
法律信息相關(guān)推薦
鄂ICP備17016276號-1