1.程式說明：

DDSG  （大地座標轉施工座標）

SGDD  （施工座標轉大地座標）

↙      （回車命令"EXE"）

K       (施工座標轉換原點線上性上的樁號，如果是起始點為0）

α     （施工座標縱軸與大地座標縱軸之間的交角）

X_{0 、}Y₀  （轉換原點座標）

注：:α、K、X₀ 和Y₀  （建議在編輯程式時把他們的取值輸入到程式裡面，這樣在程式執行時，可以減少輸入這些資料的步驟，提高資料輸入的準確性，避免因資料輸入出錯而造成計算結果的錯誤）

    ‚: 為了統一5800裡面的程式字元程式碼，下面出來命令語句之外，一切字母均為大寫。

2.程式清單：

: ZBZH  (在新建程式中輸入程式名字“座標轉換”）

‚: 正文

Fix 4  (設定小數點位數4位，可以不設定）

Lbl 1：〃DDSG=1，SGDD=2，QITA=END〃?→A↙  (輸入1進入大地轉施工計算，輸入2進入施工轉大地計算，如果輸入其他數就退出ZBZH程式）

While  A=1  or  A=2：If  A=1：Then 〃X（DD)=〃?→X:〃Y（DD)=〃?→Y↙(1.While 判斷A的取值，如果A的取值不是1或者2那麼就要跳過這段程式，進入退出程式的命令列。2.如果輸入1那麼就開始進入大地轉施工座標的計算，這時就要輸入X(DD)和Y(DD),

〃X(SG)=〃: (Y-Y₀)sin(α)+(X-X₀)cos(α)+K→N◢

〃Y(SG)=〃: (Y-Y₀)cos(α)-(X-X₀)sin(α)→E◢

Goto 1↙  

(計算X、Y的施工座標公式 ，如果施工座標的原點就是線性的起點，就不用K 值參加計算，Goto n，無條件轉移到對應的Lbl n）

IfEnd：〃X(SG)=〃?→M : M-K→X:〃Y(SG)=〃?→Y↙ (如果上面的If判斷為假，也就是當A≠1時，那麼程式就跳到IfEnd後面的語句。也就是這段計算施工轉大地的座標，然後就輸入X、Y 的施工座標）

〃X(DD)=〃: Xcos(α)-Ysin(α)+X₀

〃Y(DD)=〃: Xsin(α)+Ycos(α)+Y₀→E◢

Goto 1↙ (無條件轉移到Lbl 1）

While End↙（結束迴圈語句，如果程式一開始就輸入一個非1，或者2的數，然後執行程式就會直接跳過While End之前的所有程式，然後結束程式）

〃ZBZH=〉END〃 （結束座標轉換程式）

編者語：

     進過最後測試，以及用朋友的另一種方式編寫的程式檢驗，計算結果相同，此程式是結合我們現在的工程實際情況編寫的，需要的朋友可以把你們工程的一些設計線性引數發給我！我結合你們工程稍做些改動即可。

    由於本人專業知識和學術術語有限，程式中語言難免會出現銜接邏輯不強的問題，以及其他我沒有發現的問題，還請前輩以及同仁多多指點