【正文】 (jd Fix(jd) Fix((jd Fix(jd)) * 100) / 100) * 10000End SubPrivate Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single)Private Sub Form_Load() 39。54 Call Pro54 ElseIf = 1 Then 39。計算目標(biāo)中央子午線經(jīng)度和帶號 L = HuToDo(L) If L L0 Then n = n + 1 ElseIf L L0 Then n = n 1 End If L0 = IIf(L L0, L0 + lenL, L0 lenL) L = DoToHu(L) 39。54 Call ConPro54 ElseIf = 1 Then 39。計算開始的中央子午線經(jīng)度和帶號 n = Val(Left(, 2)) If lenL = 6 Then L0 = n * lenL lenL / 2 ElseIf lenL = 3 Then L0 = n * lenLEnd If 39。臨帶計算Private Sub cmdNear_Click()X = Val(): Y = Val(Mid(, 3)) 39。80 Call Pro80 End If 39。根據(jù)橢球進行投影計算 If = 0 Then 39。80 Call ConPro80 End If 39。根據(jù)橢球進行投影反算 If = 0 Then 39。Y坐標(biāo)還要再減500km Y = Y 50000039。80 Call ConPro80 調(diào)用80橢球系高斯反算公式 End If = Format(HuToDo(B), ) = Format(HuToDo(L), ) End IfEnd Sub39。Y坐標(biāo)還要再減500km Y = Y 500000 If = 0 Then 39。Y坐標(biāo)加500公里加帶號 Y = Y + n * 1000000 + 500000 = Format(X, ) = Format(Y, ) ElseIf = True Then 39。54 Call Pro54 調(diào)用54橢球系高斯正算公式 ElseIf = 1 Then 39。根據(jù)橢球進行投影計算 If = True Then 39。正算 If lenL = 6 Then n = Int(L / lenL + 1)L0 = n * lenL lenL / 2ElseIf lenL = 3 Then n = Int((L ) / lenL + 1) L0 = n * lenLEnd If ElseIf = True Then 39。投影計算Private Sub cmdCalc_Click()B = Val() L = Val() X = Val(): Y = Val(Mid(, 3)) 39。圖42 角度轉(zhuǎn)化弧度結(jié)果圖43 弧度轉(zhuǎn)化角度結(jié)果 本次設(shè)計根據(jù)高斯的正反算公式寫出了基于VB語言的程序設(shè)計，其程序設(shè)計任務(wù)完成了由地理坐標(biāo)向北京54平面坐標(biāo)系和西安80平面坐標(biāo)系轉(zhuǎn)換的功能，以及由北京54坐標(biāo)系和西安80坐標(biāo)系向地理坐標(biāo)系轉(zhuǎn)換的功能，同時也有同一平面坐標(biāo)系不同投影帶之間的換帶計算和同一平面坐標(biāo)系相同投影帶臨帶計算等相互轉(zhuǎn)換的功能。 角度與弧度的轉(zhuǎn)化 角度與弧度的轉(zhuǎn)化的主要問題在于它們之間相互轉(zhuǎn)化所應(yīng)用的公式，如角度轉(zhuǎn)化為弧度所用公式是：1弧度=180/π度；弧度轉(zhuǎn)化角度所用公式是：1度=π/180弧度。（4）計算曲線元素長度和主樁點平面坐標(biāo)，在計算加樁點的平面坐標(biāo)。 （2）高斯投影的正算和反算，即高斯正算由大地坐標(biāo)（B，L）算出高斯坐標(biāo)（x，y），高斯反算由高斯坐標(biāo)（x，y）算出大地坐標(biāo)（B，L）。但對于地形條件較差、緩曲角較大、緩和曲線常數(shù)(A)較小的情況則是不適合的,而采用極座標(biāo)法,則能較方便準(zhǔn)確地測設(shè)緩和曲線。莫點的坐標(biāo)也可以用坐標(biāo)原點至該點的坐標(biāo)方位角和水平距離表示。某點的坐標(biāo)也可以看作是坐標(biāo)原點至該點的坐標(biāo)增量。/Pi）輸出結(jié)果輸出結(jié)果終止程序 Pi=圖31 角度與弧度轉(zhuǎn)化程序流程圖本設(shè)計主要闡述了高斯投影分帶以及高斯投影坐標(biāo)正、反算的推導(dǎo)公式，從而根據(jù)公式來編寫基于VB語言基礎(chǔ)上的換帶及坐標(biāo)轉(zhuǎn)換程序。其程序流程圖如圖31所示：啟動程序輸入任意角度N輸入任意弧度LL=N*（Pi/180176。角度=弧度*180176。本文是通過Mircosoft Virtual Basic ，使其實現(xiàn)同時計算大量測量數(shù)據(jù)，并且運用于日常工作中。不管是編制一個小的應(yīng)用程序，還是開發(fā)一套大型的專業(yè)系統(tǒng)軟件，甚至是開發(fā)一個跨越Internet 的分布式應(yīng)用系統(tǒng)軟件，Visual Basic 都為用戶提供了合適的工具。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來指定組件的屬性和方法。VB的中心思想就是要便于程序員使用，無論是新手或者專家。此外，用戶除了可以使用單獨的Visual Basic ,Visual Basic 程序設(shè)計系統(tǒng)還被包括在Excel Access 等眾多Windows功能應(yīng)用軟件中，以供用戶進行二次開發(fā)。Basic 實際上是一個短語的縮寫，這個短語就是 Beginners all purpose symbolic instruction code ，其中文意思為“初始者通用符號指令代碼語言”。同Visual Studio ，用Visual Basic 、最簡單[8]。Visual Basic ，目前應(yīng)用最為廣泛的仍然是1998年推出的Visual Basic 。因為在路線轉(zhuǎn)折處道路中線的實際位置應(yīng)為曲線位置，而非切線位置.第三章 系統(tǒng)的開發(fā)工具及開發(fā)流程 Visual Basic Visual Basic是美國微軟（Microsoft）公司研制的Windows環(huán)境下的應(yīng)用程序開發(fā)工具。 。交點JD的里程是由中線丈量中得到，根據(jù)交點的里程和圓曲線測設(shè)元素，即可推算圓曲線上各主點的里程并加以校核。 （3）對中樁量距精度及樁位限差應(yīng)符合規(guī)定；曲線測量閉合差也應(yīng)符合規(guī)定。這樣設(shè)置的樁均為整樁號。中線測量中一般均采用整樁號法。而坐標(biāo)法成為高速公路放樣的主要方法，坐標(biāo)法放樣線路中線的這個操作過程中，最重要的一部就是計算線路放樣點的坐標(biāo)。所謂“非完整”的含義是第一緩和曲線和第二緩和曲線的半徑不是165。非對稱線形分為完全非對稱線形和非對稱非完整線形兩種，所謂“完全非對稱曲線”的含義就是第一緩和曲線和第二緩和曲線起點處（ZH或HZ）的半徑為165。在與直線連接處半徑為165。其中緩和曲線的曲率半徑是從165。公路中線應(yīng)滿足的幾何條件是：線形連續(xù)平滑；線形曲率連續(xù)（中線上任一點不出現(xiàn)兩個曲率值）；線形曲率變化率連續(xù)（中線上任一點不出現(xiàn)兩個曲率變化值）。道路中線測量是通過直線和曲線的測設(shè)，將道路中線的平面位置具體地敷設(shè)到地面上去，并標(biāo)定出其里程，供設(shè)計和施工之用。曲線按其線形可分為：圓曲線、緩和曲線、復(fù)曲線和豎曲線等。當(dāng)線路方向改變時，在轉(zhuǎn)向處需用曲線將兩直線連接起來。換帶計算公式：用 a 表示橢球長半軸，b 表示橢球短半軸，為扁率，為第一扁心率，為第二扁心率，為卯酉圈曲率半徑，為子午圈曲率半徑，B 表示經(jīng)度，L 表示緯度。帶互相之間的鄰帶坐標(biāo)換算，而且也適用于任意帶之間的坐標(biāo)換算。帶以及6176。帶，3176。由于在換帶計算中，這種方法理論上是嚴(yán)密的，精度最高，而且通用性最強，它不僅適用于6176。其解法是把某投影帶(比如I帶)內(nèi)有關(guān)點的平面坐標(biāo)(x，y)，利用高斯投影反算公式換算成橢球面上的大地坐標(biāo)(l，B)，進而得到L1=Lo+l；然后再由大地坐標(biāo)(l，B)，利用投影正算公式換算成相鄰帶的(第Ⅱ帶)的平面坐標(biāo)(x，y)。在高海拔地區(qū)、離中央子午線較遠的投影變形區(qū)域，高斯克呂格投影正反算作為通用而嚴(yán)密的間接換帶計算方法，可以彌補橢球模型的不足之處，為保證工程質(zhì)量起到應(yīng)有的作用。 對于海拔較高的地區(qū)，可以選擇測區(qū)的平均高程面作為投影面，解決投影變形的問題。所以需要通過嚴(yán)密換算公式，將國家坐標(biāo)實現(xiàn)高精度的轉(zhuǎn)換，形成獨立的坐標(biāo)系統(tǒng)。通常建立獨立坐標(biāo)系的方法是以一個國家控制點和方位角作為起算數(shù)據(jù)，觀測邊投影到平均高程面。 由于在換帶計算中，把橢球面上的大地坐標(biāo)作為過渡坐標(biāo)，因而稱為間接換帶法。計算公式： .式中：； ； ； .在測量項目中，有些測區(qū)剛好處于投影帶邊緣，甚至有些工程橫跨兩個或兩個以上投影帶，如交通、水利、電力等較長的線路，為了坐標(biāo)統(tǒng)一的需要，可以進行坐標(biāo)換帶，將相鄰帶的坐標(biāo)換成同一系統(tǒng)的數(shù)據(jù)。，即正形投影條件。投影變換必須滿足的條件a. x坐標(biāo)軸投影成中央子午線，是投影的對稱軸。正投影過程，在橢球上有對稱于中央子午線的兩點P1和P2，它們的大地坐標(biāo)分別為（L,B）及（l,b），其中l(wèi)為橢球面上p點的經(jīng)度與中央子午線的經(jīng)度L0之差：l=LL0，P點在中央子午線之東，l為正，在西則為負，則投影后的平面坐標(biāo)一定為P1’(X,Y)和P2’(X,Y)。（2）中央子午線投影后長度不變。高斯正算公式就是由大地坐標(biāo)（L，B）求解高斯平面坐標(biāo)（x，y），即（L,B）=(X,Y)的坐標(biāo)轉(zhuǎn)換。、0176。n ,中央經(jīng)線為西經(jīng)177176。西半球有60個投影帶,編號160,各帶中央經(jīng)線計算公式:L0=360176。、6176。東半球有60個投影帶,編號160,各帶中央經(jīng)線計算公式:L0=3176。30′東經(jīng)1176。30′西經(jīng)178176。30′4176。30′起,每3176。 3176?；厮愕?176。其投影代號n和中央經(jīng)線經(jīng)度L0的計算公式為:L0=(6n3)176。為第一帶,中央經(jīng)線為3176。分為一個投影帶,全球共分為60個投影帶,東半球從東經(jīng)0176。 6176。分帶,對比例尺為 1:1萬及大于1:1萬的圖采用3176。由于其投影精度高，變形小，而且計算簡便（各投影帶坐標(biāo)一致，只要算出一個帶的數(shù)據(jù)，其他各帶都能應(yīng)用），因此在大比例尺地形圖中應(yīng)用，可以滿足軍事上各種需要，能在圖上進行精確的量測計算。這個狹長的帶狀的經(jīng)緯線網(wǎng)叫做高斯克呂格投影帶。他的兩部力作1943年《旋轉(zhuǎn)托球上的高斯克呂格坐標(biāo)》及1955年《克拉斯托夫斯基橢球上的高斯和地理坐標(biāo)》，在理論及實踐上都豐富和發(fā)展了高斯克呂格投影。高斯克呂格投影得到世界許多測量家的重視和研究。為了方便地實際應(yīng)用高斯克呂格投影，德國學(xué)者巴烏蓋爾在1919年建議采用3176?；?176。或1176。假想用一個圓柱橫切于地球橢球體的某一經(jīng)線上，這條與圓柱面相切的經(jīng)線，稱中央經(jīng)線。~360176。~270176。~180176。~90176。 。 ；3 坐標(biāo)方位角為第三象限角，則：=180176。坐標(biāo)反算公式：，由于反三角函數(shù)計算的結(jié)果有多值性所以在計算坐標(biāo)方位角之前，要先計算象限角。圖21 兩點間坐標(biāo)關(guān)系如圖21所示，已知A點坐標(biāo)、A、B兩點間距離和坐標(biāo)方位角，計算出B點坐標(biāo)的過程叫做坐標(biāo)正算，已知直線AB起點A的坐標(biāo)為（xA，yA），AB邊的邊長及坐標(biāo)方位角分別為SAB和αAB，需計算直線終點B的坐標(biāo)；已知A、B兩點的坐標(biāo)，計算出A、B兩點間距離和坐標(biāo)方位角的過程叫做坐標(biāo)反算，已知直線AB兩端點的坐標(biāo)分別為（xA，yA）和（xB，yB），則可以計算出直線邊長DAB和坐標(biāo)方位角αAB。坐標(biāo)正反算坐標(biāo)正反算的過程就是根據(jù)已知點的坐標(biāo)、點間距離、點之間的坐標(biāo)方位角，來進行之間的相互計算。通過VB語言寫入各個曲線要素，完成對圓曲線的測設(shè)。程序分為正算和反算兩部分。程序主要分為三部分，第一部分是高斯正算，第二部分是高斯反算，第三部分臨帶計算。本文的主要內(nèi)容是研究有：（1）我國采用的橢球系有北京54坐標(biāo)系和西安80坐標(biāo)系，這次編程計算就是采用這兩種橢球系，并采用實用公式按6度和3度分帶投影，以及臨帶換帶計算。而內(nèi)業(yè)資料的計算方法及其所需到的精度，則又直接取決于外業(yè)所用儀器及具體的放樣目標(biāo)和內(nèi)業(yè)計算所用到的辦公軟件和計算方法。鑒于上述需求，開發(fā)一套新系統(tǒng)顯得尤為迫切，若能實現(xiàn)直接利用開發(fā)語言進行編輯（如Visual Basic ），設(shè)計出一個能夠準(zhǔn)確計算工程測量中所需的數(shù)據(jù)，又能將現(xiàn)有的數(shù)據(jù)通過此系統(tǒng)實現(xiàn)實地的放樣，將在很大程度上減少人工的計算和操作工作，大大地提高工作效率。在工程測量中，內(nèi)業(yè)資料計算占有很重要的比重，內(nèi)業(yè)資料計算的準(zhǔn)確無誤與速度直接決定了測量工作是否能夠快速、順利地完成。現(xiàn)如今社會的科技技術(shù)的快速發(fā)展使得工程測量的計算數(shù)據(jù)量急劇增加，進而研制開發(fā)出一些輔助計算的工具成了非常必要的問題。處在計算機和工程測量學(xué)的交叉地帶的輔助計算系統(tǒng)，其海量的數(shù)據(jù)的快速計算和計算精準(zhǔn)度不但是工程技術(shù)人員和測量學(xué)者遇到的新問題，同時也是計算機的一個典型應(yīng)用，是在技術(shù)不斷發(fā)展、數(shù)據(jù)密集和計算密集的應(yīng)用越來越多的今天所提