5800線元法修正版程序編寫

1、5800計算器（0-0）主程序（所有計算程序皆可調動）1.2版本，添加了遺漏的標點符號，修改了豎曲線與隧道，讓隧 道測量步驟簡化一些。此程序根據4850線元法程序改編，本人第一次編寫程序內容可能有 些不盡人意敬請諒解.程序名稱不可更改，包括符號，也不要擅自刪減子程序，如需更 改必須與各子程序相呼應，否則將無法調動程序進行計算。116頁為程序說明與應用步驟具體解釋，1726頁為程序編寫， 所有S開頭后面有橫杠的為各項數據庫，如換線路更改數據庫即可 完成各項計算。注意：程序編寫時有下劃線字符為一次性輸入字符，不可拆分。置儀點X坐標輸入時必須輸入小數，如果無小數將默認調動導線點數據庫（例如3843.

2、000那么請輸入3843.0001并不影響計算）5800計算器(0-0)主程序(所有計算程序皆可調動)程序名(0-0)主程序目錄(U=1):數據庫輸入原始數據計算中邊樁*(U=2):數據庫輸入原始數據反算線外點垂樁距狀態(tài)(線路任一點 坐標反算樁號及偏距)*(U=3):計算平面位置檢查記錄表(U=4):人工輸入原始數據計算中邊樁(數據庫計算線元方位角)(U=5):人工輸入原始數據推算開挖、填筑樁狀態(tài)(不常用)(U=6):數據庫輸入原始數據推算開挖、填筑樁狀態(tài) *(U=7/7.1):計算斜交斜做涵洞單跨橋、斜交正做涵洞七點放樣狀態(tài) 并能避免曲線內單跨橋涵進出水口長度不一致，同時適 用于曲線橋扇形布

3、樁的蓋梁放樣，曲線橋扇形布樁的支 座放樣。*(U=8):數據庫輸入原始數據計算錐坡放樣(U=9):后方交會(U=10):數據庫輸入原始數據求線外兩點交路線的樁號與夾角(U=11):圓心輻射法隧道斷面超欠挖(適合各種隧道線型)*(U=12):手動輸入原始數據求多邊型面積、畝數 *(U=13):數據庫輸入原始數據求設計高程(豎曲線) *(U=14):坐標正反算小程序5800計算器（0-0）主程序（所有計算程序皆可調動）（U=1）數據庫輸入原始數據計算中邊樁（Y）置儀點X坐標（也可輸入導線點編號，輸入導線點編號即可使 用導線點數據庫）（O）置儀點Y坐標（當X坐標輸入導線點編號后則此行不顯示，因數據庫

4、已裝入X和丫坐標）（B）步長（步長就是間隔長度，當要計算大量有相同距離間隔且相 同中邊樁，步長就是好東西了，輸入數量每次計算自動加減樁 號距離）（Q）所求樁號（計算第二個樁開始 Q已經自動加入步長不用手動 輸入，但仍然會顯示給你看，并可修改成別的樁號）（V）中樁到邊樁的方位角，即與中樁前進方向方位角的夾角 （注意: 左轉為負數，右轉為正數）（D）中樁到邊樁的距離（中樁輸入 0）計算完成會顯示四個成果：DMS放樣方位角（置儀點與所求樁號的放樣方位角）I放樣距離（置儀點與所求樁號的放樣距離）所求樁號的X坐標所求樁號的丫坐標按一號繼續(xù)下一步放樣計算5800計算器（0-0）主程序（所有計算程序皆可調動

5、）（U=3）數據庫輸入原始數據計算中邊樁（偏差檢測、資料編寫）（B）步長（步長就是間隔長度，當要計算大量有相同距離間隔且相 同中邊樁，步長就是好東西了，輸入數量每次計算自動加減樁 號距離）（MM）所允許的最大誤差（毫米為單位，比如高速的中線最大誤差是20MM，就輸入20）（Q）所求樁號（計算第二個樁開始 Q已經自動加入步長不用手動 輸入，但仍然會顯示給你看，并可修改成別的樁號）（V）中樁到邊樁的方位角，即與中樁前進方向方位角的夾角 （注意: 左轉為負數，右轉為正數）（D）中樁到邊樁的距離（中樁輸入 0）計算完成會顯示四行成果：DMS放樣方位角（置儀點與所求樁號的 放樣方位角）I放樣距離（置儀點

6、與所求樁號的放樣距 離）所求樁號的X坐標所求樁號的Y坐標按（一）號顯示偏差檢測成果：所求樁號的 X坐標所求樁號的Y坐標所求樁號的雙軸偏差X軸偏差Y軸偏差 按-號下一步計算5800計算器（0-0）主程序（所有計算程序皆可調動）（U=4 ）人工輸入原始數據計算中邊樁（線元角計算）（Y）置儀點X坐標（O）置儀點丫坐標（B）步長（H+）起算點樁號（E）起算點X坐標（F）起算點丫坐標（A）起算點方位角（+-C）起算點曲率（即為半徑分之一，也就是 1/半徑，直線為0,左轉為負，右轉為正）（+-Z）終算點曲率（即為半徑分之一，也就是 1/半徑，直線為0，左轉為負，右轉為正）（G）終算點樁號（Q）所求樁號（既

7、是起算點樁號，因程序內字符轉換沖突只好再輸入）（V）左右夾角（左轉為負，右轉為正，中樁輸入0）（D）中邊樁距離（中樁輸入0）計算完成會顯示四個成果：（此處可忽略，參照U=1計算成果）計算完成按（AC/on） 次，然后按（EXIT ）將內容（Prog 0-0） 清除輸入字母（R），再按（EXE ）顯示為線元方位角數字（注：必須 用度，分，秒抄記，因為計算結果為百進位，度分秒為60進位）注：此計算成果謹適用于數據庫線元角輸入 （即:數據庫曲線段線元角 ZHHY、HYYH、YHHZ 段）5800計算器（0-0）主程序（所有計算程序皆可調動）（U=5）:人工輸入原始數據推算開挖、填筑樁狀態(tài)（不常用）（

8、Y）置儀點X坐標（O）置儀點丫坐標（H+）起算點樁號（E）起算點X坐標（F）起算點丫坐標（A）起算點方位角（+-C）起算點曲率（即為半徑分之一，也就是 1/半徑，直線為0,左轉為負，右轉為正）（+-Z）終算點曲率（同上）（G）終算點樁號（W）實測大地高程（S）變坡點設計高程二變坡點設計高程與實測大地高程之高差（正為填方、負為挖方）（P）填方或挖方的坡比（若1:0.75則輸入0.75填挖坡比全為正）（B）中樁到變坡點的寬度（D）=推算的中樁到開挖、填筑樁距離（D?）采用的中樁到開挖、填筑樁距離（Q）所求開挖、填筑樁號（V）左右夾角（注：只能輸入線路右邊90和左邊-90因為開挖、填筑樁總是垂直的）

9、計算完成顯示四個結果：（同U=6顯示結果相同，按一號下一步計算）5800計算器（0-0）主程序（所有計算程序皆可調動）（U=6）:數據庫輸入原始數據推算開挖、填筑樁狀態(tài)（Y）置儀點X坐標（O）置儀點丫坐標（W）實測大地高程（S）變坡點設計高程（距離地面最近的那個平臺或路面高程）（I）=變坡點設計高程與實測大地高程之高差 （自動計算所得結果， 此處不需輸入。正為填方、負為挖方）（P）填方或挖方的坡比（若1:0.75則輸入0.75填挖坡比全為正）（B）中樁到變坡點的寬度（中樁到開始計算之坡段的坡角）（D）=推算的中樁到開挖、填筑樁距離（自動計算，此處不需輸入）（D?）采用的中樁到開挖、填筑樁距離（

10、此處不需輸入）（Q）所求開挖、填筑樁號（V）左右夾角（注：只能輸入線路右邊90和左邊-90因為開挖、填筑 樁總是垂直的）計算完成會顯示四個成果：DMS放樣方位角（放樣方位角）I放樣距離（置儀點與所求樁的放樣距離） 推算開挖、填筑樁的X坐標 推算開挖、填筑樁的丫坐標5800計算器（0-0）主程序（所有計算程序皆可調動）（U=7斜交斜做涵洞單跨橋、U=7.1斜交正做涵洞七點放樣狀態(tài)）（適 用于曲線橋扇形布樁的蓋梁，曲線橋扇形布樁的支座放樣、并 能避免曲線內單跨橋涵進出水口長度不一致）（曲線橋必備）（Y）置儀點X坐標（O）置儀點丫坐標（+QZK-QXK ）跨距（既是線路方向蓋梁、涵洞的寬度）（Q ）

11、涵洞樁號（中心樁號）顯示四個結果：DMS放樣方位角（置儀點與所求樁的放樣方位角）I放樣距離（置儀點與所求樁的放樣距離）涵洞中樁X坐標涵洞中樁丫坐標按（一）號繼續(xù)計算顯示 R線路方位角（此處無需修改）按（EXE ）繼續(xù)計算（V）轉角（涵洞或者曲線橋的進流水軸與中樁的切線方位角的夾角、 左負，右正）（下面以輸入右側為開始）（D）涵斜長（即是所要放樣的偏距，必須輸入涵洞中樁偏距）顯示四個結果：DMS放樣方位角（置儀點與所求樁的放樣方位角）I放樣距離（置儀點與所求樁的放樣距離）右側涵洞中心點X坐標右側涵洞中心點丫坐標按（一）號繼續(xù)顯示左、右側方向數據（此處以輸入右側為開始，如果先輸入左側則反之）轉下頁

12、U=75800計算器（0-0）主程序（所有計算程序皆可調動）接上頁U=7顯示四個結果：DMS放樣方位角（置儀點與所求樁的放樣方位角）I放樣距離（置儀點與所求樁的放樣距離）右側中心點前進方向放樣樁X坐標（跨距的一半）右側中心點前進方向放樣樁丫坐標（跨距的一半）按（一）號繼續(xù)顯示左、右側方向數據（此處以輸入右側為開始，如 果先輸入左側則反之）顯示四個結果：DMS放樣方位角（置儀點與所求樁的放樣方位角）I放樣距離（置儀點與所求樁的放樣距離）右側中心點后退方向放樣樁 X坐標（跨距的一半） 右側中心點后退方向放樣樁 丫坐標（跨距的一半） 按（一）號繼續(xù)顯示左、右側方向數據（此處以輸入右側為開始，如 果先

13、輸入左側則反之）（V ）左側轉角（此處程序已自動轉向180度，無需輸入數據）（D）涵斜長（即是所要放樣的偏距）顯示四個結果：DMS放樣方位角（置儀點與所求樁的放樣方位角）I放樣距離（置儀點與所求樁的放樣距離）左側涵洞中心點X坐標左側涵洞中心點Y坐標按（一）號繼續(xù)顯示左、右側方向數據（此處以輸入右側為開始，如果先輸入左側則反之）轉下頁U=75800計算器（0-0）主程序（所有計算程序皆可調動）接上頁U=7顯示四個結果：DMS放樣方位角（置儀點與所求樁的放樣方位角）I放樣距離（置儀點與所求樁的放樣距離）左側中心點前進方向放樣樁X坐標（跨距的一半） 左側中心點前進方向放樣樁丫坐標（跨距的一半） 按（

14、一）號繼續(xù)顯示左、右側方向數據（此處以輸入右側為開始，如 果先輸入左側則反之）顯示四個結果：DMS放樣方位角（置儀點與所求樁的放樣方位角）I放樣距離（置儀點與所求樁的放樣距離）左側中心點后退方向放樣樁 X坐標（跨距的一半）左側中心點后退方向放樣樁 丫坐標（跨距的一半）附圖為右夾角75度斜交涵洞U=7斜交斜做七點線路中樁前進方向U=7.1斜交正做七點線路中樁前進方向5800計算器（0-0）主程序（所有計算程序皆可調動）（U=8）:數據庫輸入原始數據計算錐坡放樣（B）正交半路寬度，包括耳墻的寬度（P）橢圓單側斜長軸（+-S）橢圓單側斜短軸（當從近橋0點往遠橋1點推樁號增加時，S 上輸入負值。當從0

15、點往遠橋1點推樁號減少時，S輸入正值）。（Q ）所求樁號（V）轉角（上/下流水軸與中樁的前進切線方位角的夾角，左負右正）（Y）置儀點X坐標（O）置儀點丫坐標（0-1）等分比（必須是 0/0.1/0.2 至 0.8/0.9/0.95/0.985/1,否則在 0 到 1之外會顯示程序行出錯）（0為最靠近橋的點，1為最遠離橋 的點）計算完成會顯示四個成果：DMS放樣方位角（置儀點與所求樁的放 樣方位角）I放樣距離（置儀點與所求樁的放樣距離） 橢圓上對應等分點X坐標 橢圓上對應等分點Y坐標5800計算器（0-0）主程序（所有計算程序皆可調動）（U=9）:后方交會1：（ XA?）輸入A點X坐標2：（YA

16、?）輸入A點丫坐標3：（XB?）輸入B點X坐標4：（YB?）輸入B點丫坐標5：（D1?）輸入A點到P點的直線距離6：（D2?）輸入B點到P點的直線距離1 （順時7：（Q?）輸入A點到P點與B點到P點中間的夾角代碼 針為+1,逆時針為-1）8（ XP=）計算所得P點X坐標9：（YP=）計算所得P點丫坐標置儀點、P點注：計算完成按 EXE繼續(xù)循環(huán)以上19步驟。置儀點、P點APBP逆時針方向已知點、A點已知點、B點APBP順時針方向已知點、B點已知點、A點5800計算器（0-0）主程序（所有計算程序皆可調動）（U=2）:數據庫輸入原始數據反算線外點垂樁距狀態(tài)（坐標反算）（P）實測X坐標（S）實測丫坐

17、標（Q）所求樁號大概范圍計算完成會顯示三個成果：Q所求位置的樁號（垂直樁號位置）I距離中樁的垂直距離DMS與中線方位角的夾角（左負、右正）（U=10）:數據庫輸入原始數據求線外兩點交路線的樁號與夾角（P）線外第一點X坐標 （S）線外第一點丫坐標（W）線外第二點X坐標 （B）線外第二點丫坐標（Q）開始推算的樁號（距離真正的垂直樁號不要太遠，在同一平曲線或兩邊的直線段上最好）計算完成會顯示三個成果：Q線外兩點交路線的樁號I線外第一點交路線的距離DMS交點樁切線前進方向與交點樁到線外第一點方向的轉角（左負、右正）5800計算器（0-0）主程序（所有計算程序皆可調動）（U=11）:圓心輻射法隧道斷面超

18、欠挖（X-SDCQW可獨立運行） 1:（ K?）當前斷面設計樁號2：（CH二？）當前斷面實測高程3: （I二？）實測點距離中樁距離（偏距）4：（W=）所得測點超欠挖數值（負超，正欠）城門式單圓隧道頂圓邊高程點中樁高程點H三心圓斜坡隧道圖示中樁設計高程 0 M5800計算器（0-0）主程序（所有計算程序皆可調動）（U=12）多邊型面積計算程序（MJJS可獨立運行）（N ）觀測點數（實測坐標站數）（最少輸入3個點數）（X1）首站X坐標（Y1）首站丫坐標（XN ）次站X坐標（YN）次站丫坐標（XN ）三站X坐標（YN）三站丫坐標以此類推依次輸入與觀測點數相對應的實測坐標（注：必須依次輸入坐標，不可打

19、亂順序、）計算結束會顯示兩個結果：MIAN-JI二面積AREA(MU)二畝(每畝 666m2)顯示結果初期為面積可再按（EXE ）鍵即可同時顯示面積、畝數坐標輸入順序示意圖7站6站5800計算器（0-0）主程序（所有計算程序皆可調動）（U=13）:數據庫輸入原始數據求設計高程（S-SQX可獨立運行）（K）輸入線路內任意設計樁號顯示一個成果：（H ）設計高程（U=14）:坐標正反算小程序（ZFS可獨立運行）（1）： （N二?）輸入數字1運行正算2：（X=?）輸入已知X坐標 3：（ Y二？）輸入已知Y坐標4：（J=?）輸入已知方位角5：（D=?）輸入已知距離6： （X=）所求點X坐標7： （ Y=

20、）所求點Y坐標（1）（N=?）輸入數字2運行反算2：（X1=?）輸入已知X1坐標 3：（Y1=?）輸入已知Y1坐標4：（X2=?）輸入已知X2坐標 5：（ Y2=?）輸入已知 Y2坐標6：（L=）所求兩點間距離 7：（ F=）所求方位角（已加入象限角）aAB坐標正反算aBAXBXA三角函數關系YABSABXABaABYAYB5800計算器（0-0）主程序（所有計算程序皆可調動）程序名（0 0）運行主程序Lbl hileE ndWhile U=10 : Prog"X-10": WhileEndWhile U=11 : PrOg畋-SDCQW": WhileE ndW

21、hile U=12 : Prog"MJJS": WhileEndWhile U=13 : ProgXSQX": Whi0 : Deg : Cis : Fix 3 : "U"?UWhile U=1: Prog"X-1": WhileEndWhile U=2 : Prog"X-2": WhileEndWhile U=3 : Prog"X-3": WhileEnd While U=4 : Prog"X-4": WhileEndWhile U=5 orU=6 : Prog&

22、quot;X-5-6": WhileEndWhile U=7 orU=7.1 : Prog"X-7-7.1": WhileEndWhile U=8 : Prog"X-8": WhileEndWhile U=9 :Prog"X-9": W leEndWhile U=14 : Prog"ZFS": WhileEnd Goto 0程序名(F1)中樁計算部分(子程序)Rad : Abs( QH) I : Abs(GH)J : A 180+CI+l2(ZC)2J R :E+/ ( cos (A180+CX+XZ C

23、)2J), 0, I ,4) T : F+/( sin(A 180+CX+X：Z C) 2 J), 0, I , 4) K : IfQ_ G : Then R+ R: IfEnd : Deg :180R RRetur n程序名（PAUSE顯示部分（子程序）Lbl 0: Getkey = 25Sto p : Getkey 豐 67 Goto 0Return（注：Slop結尾不是p字母，是一個類似p的符號）程序名（S DXD導線點數據庫While Y = 1 :55555.111 Y :66666.233 O : WhileEndRetur n（注解：While 丫 = 導線點編號：導線點X坐標

24、丫 ：導線點丫坐標 O : WhileEnd注：有多少導線點就要輸入多少段數據最后以 Return結束）程序名（X DXD導線點子程序If Frac（Y） = 0 : Then Prog "S DXD" : Else " O " ? O : IfEndRetur n程序名(X FS)反算子程序TK J : If T=Y And K= O : Then O + 10A (7) O : IfEnd : Pol(T Y,K O) : If J< 0 : The n J+360J : IfEnd5800計算器（0-0）主程序（所有計算程序皆可調動） Ret

25、ur n程序名（X INPUT顯示部分（子程序）"H+"?H: "E"?E:"F"?F: "A"?A: "+C"?C: "+Z"?Z: "G+"?GRetur n(X PUBLIC共用計算中樁，轉角，邊樁，反算，顯示的過程(子程序)Prog "X F"U=11 0 RR+V JProg "X ZS": Prog"X FS": Prog"X XS"Return程序名(XT）兩點斜

26、直線交點部分（子程序）Prog "XXJX"Prog "XFS"If Abs(JR)<1:The n QI Q: Else Q+IQ : IfEndIf K0.001: Then PT:SK: Prog "X FS":Cis: Locate 1,1, "Q":Locate3,1,Q:Locate 1,2,"I":Locate 3,2,I:JR J:f J>180: ThenJ+180J: IfEn d:Prog"X 60":Fix6:Locate 1,4, &qu

27、ot;DMS": Locate5,4,J:Fix 3: Prog "PAUSE": Cis: IfEnd Return (注：此子程序"DMS是分體字符)程序名（X TW填挖部分（子程序）"W"?W: "S"?S:W+S I"I":I 丄"P"?P: "B"?B:Abs(IP)+B D: "D":D 丄"D":?DRetur n程序名(X XJX)子程序tan(A) E:tan(R) F:(EP S FT+K) (E

28、 F) Y:E(Y P)+S O Retur n程序名(X XS)顯示子程序Cis: IfJ < 0: The n J+360J: IfEnd : Prog "X 60":Fix 6: Locate 1,1,"DMS" :Locate 5,1,J: Fix 3: Locate 1,2, "I": Locate 521:Locate 1,3,T:Locate 1,4,K: Prog"PAUSE":Cis_Return (注：此子程序"DMS'是分體字符)程序名(X ZS)正算子程序TK:T+

29、Rec (D,J) T:K+J KReturn5800計算器（0-0）主程序（所有計算程序皆可調動）程序名(X"Y" ?Y: Prog "X"B" ?BLbl 0 : "Q"?Q1）線路坐標正算、不可用于曲線橋的蓋梁與支座放樣DXD""V"?V : "D"?DProg "S PQX"Prog "X PUBLIC"Q+B QGoto 0程序名（X 10）計算線外兩點的樁號、夾角與偏距"P" ?P: "S&qu

30、ot; ?S:"W" ?W: "B" ?B"Q" ?QLbl 0 : Prog "S PQX"Prog "X F"Pol (P W,S B)If J < 0 : Then J+360J AJ: IfE ndProg "X T"Goto 0程序名（X 2）線路坐標反算IIP" ?P"S" ?S"Q" ?QLbl 0 : Prog "S PQX"Prog "X F"R+90 AProg

31、 "X T"Goto 0程序名(X 3)計算平面位置檢查記錄表"B" ?B : "MM" ?SLbl 0 : "Q"?Q"V"?V : "D"?DProg "S PQX"Prog "X PUBLIC"2 2S + 2S Ran # I :(S I ) J : Ing1000 I : Int_LJ+2JRan# )1000 J: Cis : Locate 1,1 , T+I: Locate 1,2, K+J: Locate 1,3 ,I:

32、 Locate 9,3, J: Locate 9,4, (I 2+J2): Prog "PAUSE": Cls_Q+B QGoto 0程序名（X 4）人工輸入原始數據計算線元積分方位角"Y" ?Y: Prog "XDXD""B" ?BLbl 0 : Prog "XINPUT"Lbl 1 : "Q"?Q"V"?V : "D"?DProg "X PUBLIC""R":R ?DMM5800計算器（0-0

33、）主程序（所有計算程序皆可調動）Q+B QIfQ > G: Then GH:Z C : Goto 0: Else Goto 1: IfEnd "Y" ?Y: Prog "X Lbl 0 :If U=5Lbl 1 : Prog "X程序名(X 56)推算開挖、填筑樁狀態(tài)DXD"Then Prog "X INPUT": IfEndTW""Q"?QIf Q > G And U=5: The n GH:Z C: Goto 0: IfEnd"V"?Vf_U=6: Then

34、Prog "SProg "X PUBLIC"Goto 1PQX": IfEnd程序名（X-7-7.1 ）計算斜交斜做涵洞單跨橋、斜交正做涵洞七點放樣狀態(tài)，并 能避免曲線內單跨橋涵進出水口長度不一致，同時適用于曲線橋扇形布樁的蓋 梁放樣，曲線橋扇形布樁的支座放樣（曲線橋必備）"Y" ?Y: Prog "X DXD""+QZKQXK"?B0 D:0V"Q" ?QProg "SPQX"Prog "XPUBLIC"R":R ?DMML

35、bl 0 : "V" ?V: "D" ?DProg "X PUBLIC"D SfU=7 : Then If B>0: Then B 2 sin( Abs (V)D: Else Abs (B)2 D:IfEnd :IfEndIf U=7.1 : Then IL B>0： Then B 2 D: Else Abs(Bsin(V) 2) D:5800計算器（0-0）主程序（所有計算程序皆可調動）IfEnd :lfEnd轉下頁（X-7-7.1 ）繼續(xù)輸入 接上頁（X-7-7.1 ）繼續(xù)輸入U=7 R JIf U =7.1 : Th

36、en If V<0: Then R+V+90 J: Else R+V 90 J: IfEnd :lfEndProg "X ZS": Prog "X FS": Prog "X XS" 2D DU=7 R 180 JJ: Else R+V+90 J: IfEnd :IfEndXS"V: IfEndIf U =7.1 : Then V<0: Then R+V 90 Prog "X ZS": Prog "X FS": Prog "XIf V < 0 : The n

37、V+180 V: Else V 180Goto 0程序名（X 8）錐坡放樣"B" ?B "P" ?P "+-S" ?S "Q" ?Q"V" ?V"Y" ?Y: Prog "X DXD"Lbl 0 : "01"?WB sin Abs(V)+WPDProg "SPQX"Prog "XF"R+V JProg "X ZS"(1 W) Abs (S)DIf S < 0: Then

38、180+R J: Else R J: IfEndProg "XZS"Prog "XFS"Prog "XXS"Goto 0F: Do : "XN"?X: 豐 N:Q+(AF BE)程序名(MJJS多邊面積計算、獨立運行0 Q:Norm2:1 I:?N: "X1"?X: "Y1"?Y:X A: Y B: X E: Y "YN"?Y:Q+(XF YE) 2 Q:X E:Y F:I+1 I:L pWhile I2 S: "MIAN -JI=":

39、Abs (S)J"AREA(MU)=":Abs (1.5S1000)丄(注：LpWhile第二個不是P字母，是一個類似p的符號)5800計算器（0-0）主程序（所有計算程序皆可調動）程序名（S PQX平曲線數據庫If Q < 21512.06: Then 21275.1917° 24.16 °A:0C:21512.06If Q < 21560.28: Then 21512.0631.5 °A:0C:21560.28G:0Lbl 1Retur nH: 40251.006E:8742.304F:218G:0 Z : Goto 1: If

40、EndH: 40065.094E:8595.532F:213 ° 46Z : Goto 1: IfEnd注解：f Q w （終算樁號）：Then （起算樁號）H:（起算X坐標） E:（起算丫坐標） F:（線元方位角） A:（起算點半徑分之一即1半 徑、直線=0）C:終算樁號G:（終算點半徑分之一即1半徑、直線=0)Z : Goto 1: IfEndLbl 1 結束語Return 結束語注：有多少線段就輸入多少段數據（此段平曲線數據僅供參考，圓曲線中點可 忽略，輸入：HY YH即可）（*曲線段線元方位角可使用 U=4計算*）程序名（X 60）子程序Int (J)JN: I nt(60(

41、JN)L:60(60(J N) L) M: N+L 100 + M 10000Retur n程序名(X-9)后方交會Lbl 1:"XA="?A:"YA="?B:"XB="?C:"YB="?D: "D 仁"?E:"D2="?F:-1"Q="?Q:PoC-A,D-B)G:J+QcoSk(GG+EE-FF) 2 G E) H:A+Ecos(H) X:B+Esin(H) Y"XP=":X 丄"YP=":Y 丄Goto 158

42、00計算器（0-0）主程序（所有計算程序皆可調動）程序名(ZFS)坐標正反算小程序Lbl 0"N="?NIf N=1:Then Goto 1 :Else If N=2:The n Goto 2 IfEnd Lbl 1"X="?X: "Y="?Y: "J="?J: "D="?DX+Dcos(J)X: "X=":X 丄Y+Dsin(J)Y: "Y=":Y 丄Goto 0Lbl 2"X1="?X: "Y1="?Y: &qu

43、ot;X2="?U: "Y2="?VU-X G:V-Y HPol(G,H):Cls0:ThenJ+360 F:Else J F:IfEnd"L=":I 丄"F=":F ?DMSIGoto 0程序名（X-F）坐標反算子程序7 DimZQ-H I(Z-C)I(G-H) JA+90(J8+2C)(I8)Z1A+90(J4+2C)(I4)Z2A+90(3J8+2C)(3I8)Z3A+90(J2+2C)(I2)Z4A+90(5J8+2C)(5I8)Z5A+90(6J8+2C)(6I8)Z6A+90(7J8+2C)(7I8)Z7A+90

44、(J+2C)l RE+Abs (I ) (cos (A)+4(cos (Z1)+cos (Z3) +cos (Z5) +cos(Z7)+2(cos (Z2) + cos(Z4)+ cos(Z6) + cos (R)24 TE+Abs (I)(池 (A)+4(sin(Z1) + sin (Z3) + sin (Z5) + sin(Z7)+2(sjn (Z2) + siTL(Z4)+ 也(Z6) + sin ( R)24 KRetur n5800計算器（0-0）主程序（所有計算程序皆可調動）程序名（X-SDCQW圓心輻射類隧道超欠挖程序、此程序適合多種隧道圖形Lbl 0Cls:Fix 3"

45、;K"?KProg "S-SQX"Prog "SQX""CH="?A:"I="?I200R:106.15G:247.44 E300B:81.46 T: -108.35 D191.65F:1000C:18.54 J: 0.05 LLbl 1 If A > ( H+E ):Then R- (A-H-G) 2+12) +LW:Goto 7 :lfEndLbl 2If B=0 :Then Goto 3 :Else If_A> ( H+T )And A<(H+E):Then B- ( A-H-T)

46、 2+( I-D) 2)+LW :Goto 7 :IfEndLbl 3If F=0:Then Goto 4:Else IfA> H And A<(H+T):Then F-I+LW : Goto 7 :lfE _Lbl 4If C=0:Then Goto 6 :IfEndLbl 5If A<H:Then C- ( C-J+H-A)2+12)+L W : Goto 7 :lfE _Lbl 6 If A<H:Then A-H+J-L W: Goto 7Lbl 7"W=":W JGoto 0注解：Lbl 1Cls:Fix 3"K"?K P

47、rog "S-SQX"Prog "SQX""CH="?A:"I="?I(頂圓半徑)R:(頂圓中心點與設計中樁高程的垂直高差，低于設計高輸入負數)G:(頂圓與下線段對接點和中樁的高差)E（兩邊圓半徑）B:（邊圓中心點距離中樁的高差，低于設計高輸入負數）T:（邊圓中心點距離中樁的偏距，超過中樁位置，輸入負數）D（直墻邊線與中樁的設計偏距）F:（底圓半徑，平底隧道輸入0） C:（中樁高程與圓底的高差）J :（棱 鏡頭半徑）LLbl_1（頂圓計算語句）Lbl 2（邊圓計算語句）Lbl 3（直墻計算語句）Lbl_4（平底計算語句）Lbl 5（圓底計算語句）Lbl 6（平底隧道計算語句）Lbl 7（顯示語句）"W=":WJ （顯示超欠挖，負數為超挖，正數為欠挖）Goto 0注意：Goto 7與Lbl_ 7為配套語句如需更改必須同步。程序語句順序不可更改，必須根據隧道斷面從上 到下依次輸入，如您所編隧道程序與當前隧道斷面不符、適當修改Lbl 0下的數據即可，沒有的線段輸入數值0切記。“。