fx-5800P平曲线超高、加宽计算程序实用

曲线任意坐标正反算5800pTYQXJS(主程序名)LbI 0:4→Dimz:Cls"1.SZ→XY""2.XY→SZ"?→N:Cls"XO"?U: "YO"?V: "SO"?O:"FO"?G: "LS"?H: "RO"?P:"RN"?R:?Q 1÷P→C：(P-R)÷(2HPR) →D：180÷π→EN=2=>Goto 2LbI 1:Cls:?S:S=0=>Goto 0?Z:Abs(S-O)→WProg"SUB1":Cls"XS=":X◢"YS=":Y◢"FS=":F-90 ►DMS◢Goto 1LbI 2:Cls:?XX=0=>Goto 0?Y:X→I:Y→JProg"SUB2":O+W→S:Cls"S=":S◢"Z=":Z◢Goto 2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)0.1739274226→A:0.3260725774→B0.0694318442→K:0.330009482→L1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→XX+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→YSUB2(子程序名)G-90→T(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→ZLbI 4:Prog"SUB1"T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)＜1E-6:Then 0→Z :Prog"SUB1":(J-Y)÷sin(F)→ZElse W+Z→W:Goto 4:IfEnd数据库If S≤终点桩号：Then1→N:。

Casio fx- 5800P 道路中边桩计算（线元法）主程序QZFix 3:Deg:Lbl 4:″1.SZ=>XY″：″2.XY=>SZ″：″1，2″？Q：″S=″？S：Prog″Z1″↙Lbl 0:If Q=1:Then Goto 1:IfEnd:If Q=2:Then Goto 2:IfEnd↙Lbl 1: ″B=″?Z: ″F=″?G:Prog ″Z2″: ″X=″:N→N◢″Y=″:E→E◢″QXFWJ″:F→F:F DMS◢Goto 4↙Lbl 2: ″XZB=″?→B: ″YZB=″?→C:B→N:C→E:Prog ″Z3″: ″LICHENG=″:S→S◢″OUT JL=″:Z→Z◢Goto 4↙数据库子程序Z1Lb l 1↙If S<5126.802:Then 34304.063→U:72029.684→V:5046.802→O:99°09′36″→A:80→L:220→P:10^(45) →R:Return:IfEnd↙If S<5239.113:Then 34281.903→U:72106.431→V:5126.802→O:109°34′38.5″→A:112.311→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5319.113:Then 34224.270→U:72212.249→V:5239.113→O:109°34′30″→A:80→L: 10^(45)→P:-200 →R:Return:IfEnd↙If S<5444.453:Then 34222.582→U:72289.106→V:5319.113→O:98°07′05.2″→A:125.34→L: -200→P:-200 →R:Return:IfEnd↙If S<5524.453:Then 34243.645→U:72410.593→V:5444.453→O:62°12′40.3″→A:80→L: -200→P: 10^(45) →R:Return:IfEnd↙If S<5644.634:Then 34289.939→U:72475.663→V:5524.453→O:50°45′04.7″→A:120.181→L: 10^(45)→P:10^(45) →R:Return:IfEnd↙If S<5724.634:Then 34365.976→U:72568.732→V:5644.634→O:50°45′05.2″→A:80→L: 10^(45)→P:200 →R:Return:IfEnd↙正算子程序Z205(1/r-1/p)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+G)→N:E+Zsin(F+G)→E↙Return反算子程序 Z3Lbl 1:0→Z:1→Q:Prog”Z1”:0.5(1/R-1/P)/L→D:S-O→X↙U+∫(cos(A+(X/P+DX^2)*180/pi(),0,X)→N↙V+∫(sin(A+(X/P+DX^2)*180/pi(),0,X)→E↙A+(X/P+DX^2)*180/pi()→F↙N+Zcos(F+90)→N:E+Zsin(F+90)→E↙Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J)→W:S+W→S↙If Abs(W)>0.0001:Then Goto 1:IfEnd↙Lbl 2:0→Z: ″Z2″:(C-E)/sin(F+90)→Z↙Retun注：1：数据库里面的角度为线元起算方位角；2：L，P为线元起始半径，直线以及缓和段取10^45,左负右正；3：主程序1为正算，2为反算，S所需算的桩号，B边桩距离，F边桩起算夹角，左负右正；“SQXJS”↙“KBPO=”?J:”BG=”?B:”I1=”?C:”I2=”?D:”R=”?R↙“QIEXIAN=”:R*Abs(D-C)/2→T◢“QIDIAN=”:J-T→X◢“ZHONGDIAN=”:J+T→Y◢If D-C>0:Then 1→V:Else -1→V:IfEnd↙LBl 0↙“JSK=”?L↙If L≤X:Then B-(T-(L-X))*C+V*(L-X)^2/(2R)→W:Else B+(T-(Y-L))*C+V*(Y-L)^2/(2R) →W:IfEnd↙“JSGC=”:W◢Goto 0↙Return“J表示变坡点桩号，B为变坡点高程，C前纵坡坡度，D后纵坡坡度，R为竖曲线半径，T切线长，X起点桩号，Y终点桩号，V计算参数（凹形取1，凸形取-1），L 需要计算的桩号，W计算点高程“ZBFS”↙Deg:ClsStat:FreqOn:Fix 3↙Lbl 0↙“XA(m)=”?A: “YA(m)=”?B↙“XB(m)=”?C: “YB(m)=”?D↙Pol(C-A,D-B):Cls↙If J<0:Then J+360→R:Else J→R:IfEnd↙“DIST A→B(m)=”:I◢“BEAR A→B(DMS)=”:R DMS ◢ClrStat:FreqOn↙Lbl 1↙0→M↙“ANGEL(Deg)=”?→Q↙“DIST(m)=”?→S↙Q+R→M↙A+S*cos(M)→X↙B+S*sin(M)→Y↙“XC(m)=”:X◢“YC(m)=”:Y◢0→N↙“ANGEL2(Deg)=”?→P↙“DIST2(m)=”?→T↙P+R→N↙A+T*cos(N)→U↙B+T*sin(N)→Z↙“XD(m)=”:U◢“YD(m)=”:Z◢“FAN=”?W↙If W=0:Then Goto 0:Else Goto 1:IfEnd↙Return。

1.ZBJS (坐标计算主程序) 10→Dim Z:“1.ZX,2.YX”?C:“1.ZS,2.FS”?E:E=2=>Goto 2“X00”?A:“Y00”？BLbl 1:?K:?Z:Prog“1.YS”:Prog“1.HQ”:“X=”:X-Z sin(Z[1]) →Q▲“Y=”:Y+Z cos(Z[1]) →S▲Pol(Q-A,S-B):J<0=>J+360→J“D=”:I▲“F=”:J▼DMS▲Goto 10→KLbl 2:“XP”?Q:“YP”?S:“HP”?I:I→Z[4]Lbl 3:Prog“1.YS”:Prog“1.HQ”:(X-Q)sin(Z[1]+90)-(Y-S)cos(Z[1]+90) →I:If Abs(I)≥0.0001:Then K-I→K:Goto 3:IfEnd“K=”:K▲“Z=”:(X-Q)sin(Z[1])-(Y-S)cos(Z[1]) →Z▲Prog“2.GC”:Prog“1.R”Goto 21.YS (平曲线要素子程序)If C=1:Then If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd: If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd:IfEndIf C=2:Then If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd: If K≤53038.260(下一交点ZH点桩号):Then 2379.165→U(交点X):2429.939→V(交点Y):52792.353→D(交点桩号):9°9′7.1″→O(线路转角): -1→W(左转-，右转+):1900→R（半径）:0→M（一缓长）:200→N(二缓长):157.583→T(第一切线长):246.615→P(第二切线长):403.491→L(曲线长):90°22′58.6″→F(起点方位角):Return:IfEnd:IfEnd1.HQ (坐标计算子程序)K-D+T→IIf I≤0:Then I→X:0→Y:0→Z[1]:Goto 1:IfEndIf I≤M:Then I-I∧(5)÷(40R2M2) →X:I∧(3)÷(6RM)-I∧(7) ÷(336 R∧(3) M∧(3)) →Y:90I2÷(πRM) →Z[1]:Goto 1:IfEndIf I≤L-N:Then180(I-M)÷（Rπ）+90M÷（Rπ）→Z[1]:Rsin(Z[1])+M ÷2-M∧(3)÷（240R2）→X:R(1-cos(Z[1]))+M2÷（24R）→Y:Goto 1:IfEndIf I≤L:Then L-I→I:F+W O-W(90I2÷（πRN）) →Z[1]: I∧(3)÷(6RN)→J: I-I∧(5)÷(40R2N2) →I:U+P cos(F+W O)+I cos(F+W O+180)+WJsin(F+W O+180)→X:V+P sin(F+W O)+I sin (F+W O+180)-WJcos (F+W O+180) →Y:Return:IfEndIf I>L:Then K-D+T-L→J:F+W O→Z[1]:U+P cos(Z[1])+J cos(Z[1])→X:V+Psin(Z[1])+Jsin(Z[1])→Y:Return:IfEndLbl 1:X→I:WY→J:U+Tcos(180+F)+Icos(F)-Jsin(F)→X:V+Tsin(180+F)+Isin(F)+Jcos(F)→Y:F+WZ[1]→Z[1]1.R (半径计算子程序)说明：X表示圆心至测设线的距离，Y表示圆心至设计高程的距离。

公路路线座标正反算及高程计算程序Fx-5800计算机程序1.FYJS 主程序Fix 3: “1.SZ=>NE:2.NE=>SZ:3.S=>H”:?Q:Q=1 => Goto1:Q=2 => Goto2: Q=3 => Goto3←┘Lbl 1: ＂K＂?S: ＂-B,0,+B＂?Z: “PJ”?M:Prog“5.DAT-SJK”:Prog“2.SUB1”: N+Zcos (F+M) →N:E+Zsin(F+M) →E←┘Prog“4.FY”：Goto 1←┘Lbl 2: “X”?B: “Y”?C:＂K＂?S: Pro g“3.SUB2”: “K=”:S◢“-B,0,+B=”:Z◢Goto 2←┘Lbl 3: ＂K＂?S ：Prog“5.1GCJSCX”: Goto 3＂K＂?S: 所计算点桩号＂-B,0,+B＂?Z: 计算点左右边距左- 右+ 中0“PJ”?M 所计算点斜距的右夹角“X”?B: 反算实测X坐标“Y”?C:反算实测Y坐标＂K＂?S: 反算点附近大概桩号2.SUB1 正算子程序0.5（1÷R-1÷P）÷L→D:S-O(字母 )→X←┘U+∫(cos(A+(X÷P+DX^(2))×180÷π,0,X)→N←┘V+∫(sin(A+(X÷P+DX^(2))×180÷π,0,X)→E←┘A+(X÷P+DX^(2))×180÷π→F←┘3.SUB2 反算子程序Lbl 1:0→Z：1→Q：Prog“5.DAT-SJK”: Prog“2.SUB1” :Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S:Abs(W)>0.0001 => Goto1←┘Lbl 2: 0→Z：Prog“2.SUB1”:(C-E) ÷sin(F+90) →Z4.FY 放样子程序"HS:X"?N:"HS:Y"?E :"CE:X"?G:"CE:Y"?H:Pol(N-G,E-H): J<0=>J+360→J: " FWJ=": J►DMS◢"JL=": I◢"HS:X"?N: 后视点（计算点）X坐标"HS:Y"?E : 后视点（计算点）Y坐标"CE:X"?G: 测站点X坐标"CE:Y"?H: 测站点Y坐标5.1高程计算子程序（5.1GCJSCX）Prog“ 6.SQX-DAT”:Z[6] Abs(Z[2]- Z[1]) ÷2→Z[3]:if Z[2]- Z[1]>θ :Then 1→Z[4]:Else -1→Z[4]:ifendif S<K:Then - Z[1]→T:Else Z[2]→T:ifendAbs (K-S)→Z[5]if Z[5]- Z[3]>θ:Then Z[7]+T Z[5]→Z[8]:“HS=”：Z[8]◢Else Z[7]+T Z[5]+ Z[4] (Z[3]- Z[5])2÷2÷Z[6]→Z[8]: “HS=”：Z[8]◢ifend5.DAT-SJK 数据库子程序Goto1←┘同时保存多个曲线时的指针Lbl 1←┘IF S<476533.296（线元终点里程）:Then31°24'29.07″→A（线元起点方位角）:476088→O（线元起点里程）:4689534.997→U（线元起点X）:479874.003→V（线元起点Y）:1045→P（线元起点曲率半径）:1045→R（线元终点曲率半径）:445.296→L（线元起点至终点长度）: R eturn:IfEnd←┘IF S<476803.296:Then31°45'48.37″→A:476533.296→O:4689913.601→U:480108.413→V:1045→P:12000→R: 270→L: Return:IfEnd←┘IF S<477106.771:Then32°24'28.85→A:476803.296→O:4690142.627→U:480251.404→V:12000→P:12000→R: 303.475→L: Return:IfEnd←┘IF S<477376.771:Then33°51'25.2″→A:477106.771→O:4690396.754→U:480417.272→V:12000→P:1045→R: 270→L: Return:IfEnd←┘IF S<488923.776:Then34°30'05.68→A:477376.771→O:4690619.834→U:480569.372→V:1045→P:1045→R: 11547.005→L: Return:IfEnd←┘IF S<489353.776:Then34°30'05.68″→A:488923.776→O:4700135.844→U:487109.930→V:1045→P:-10000→R:430→L: Return:IfEnd←┘IF S<490817.499:Then33°16'10.99″→A:489353.776→O:4700491.941→U:487350.944→V:-1000 0→P:-10000→R: 1463.723→L: Return:IfEnd←┘IF S<491247.499:Then24°52'59.52″→A:490817.499→O:4701770.051→U:488061.643→V:-1000 0→P:-1045→R: 430→L: Return:IfEnd←┘IF S<509336.037:Then23°39'04.83″→A:491247.499→O:4702162.678→U:488236.961→V:-1045→P:-1045→R: 18088.538→L: Return:IfEnd←┘程序名：(6.SQX-DAT)(高程竖曲线要素子程序)if S<332.599:Then 0.02793→Z[1]:-0.03309→Z[2]:1800→Z[6]:235→K:32.7→Z[7]: goto 1:ifendif S <734.085:Then -0.03309→Z[1]:-0.00485→Z[2]:6000→Z[6]:460→K:25.254→Z[7]: goto 1:ifend-- Lbl 1Z[1]—前坡: Z[2]—后坡: Z[6]—竖曲线半径 K—变坡点桩号: Z[7]—变坡点设计高三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当曲线半径在左时，P、R取负值，当曲线半径在右时，P、R取正值，当曲线半径为无穷大（即直线）时，P、R以10的45次代替。

工程测量中fx-5800P计算器基本程序的编写及实际放线的应用刘兵策刘杰摘要在日常工程测量工作中，计算器是必不可少的工具。

目前行业内用fx-5800P。

本文介绍测量工作中坐标正反算、大地转施工、施工转大地等常用程序的原理及编写，并对其比较复杂的实际放线的灵活应用进行解析，为类似的测量工作提供借鉴。

关键词工程测量fx-5800P程序应用1 引言控制测量是施工的基础，为了便于施工，放线一般使用施工坐标系，坐标轴平行于建筑物主轴线。

对于建筑物主轴线与坐标轴不平行的，为了方便放线，一般不再改变坐标系，用计算器程序进行计算，迅速判断需要定位的点。

利用fx-5800P计算器根据测出的坐标数据计算出与设计图纸上的差值，指挥棱镜进行移动，找到准确的设计位置。

测量工作中主要用到坐标正反算，大地转施工，施工转大地等常用程序，下面介绍这几个程序的原理和编写，总结一些在实际工作中的应用。

2 Fx-5800计算器程序的原理与编写2.1 大地坐标转换为施工坐标大地坐标转换为施工坐标见图1。

Xp、Yp分别是P点在XOY坐标系中的纵横坐标，xp，yp分别是xo’y坐标系中的纵横坐标值，Xo，Yo分别是xo’y坐标系的坐标原点o’在XOY坐标系中的纵、横坐标值，Δα为两坐标系坐标纵轴的夹角。

将P点从XOY坐标系转换到xo’y坐标系中，即大地转施工的公式如下：图1 大地坐标与施工坐标转换图xp=（Yp-Yo）sinΔα+（Xp-Xo）cosΔα；yp=（Yp-Yo）cosΔα-（Xp-Xo）sinΔα；用fx-5800P编制程序时，只要输入大地坐标的原点o’的坐标和要转换的点P点的大地坐标，即在坐标系XOY坐标系中的坐标，再用上述公式带入，输出P点的施工坐标。

基本程序如下：“X1=”?A:”Y1=”?B: (输入xoy的原点的大地坐标）“X2=”?U:”Y2=”?V: (输入要转换的P点的大地坐标）“F=”:F (输入方位角）“X=”:（V-B)sinF+（U-A）cosF->X (输出P点的施工坐标X值）“Y=”:（V-B)cosF-（U-A）sinF->Y (输出P点的施工坐标Y值）输出坐标时，可以用计算器中的一个极坐标的逆运算代替，即去掉最后两行，换成Pol（U-A,V-B):J<0=>J+360->J“W=”:J-F->WRec（I，W）这种方法计算器的运算效率比较高，编程也比较简便。

卡西欧FX5800---辛普森公式(万能公式)复化辛普森公式1.Lbl 0：“XA=”?A：“YA=”?B: “CA=”?C：“1/RA=”?D：“1/RB=”?E：“DKA=”?F:“DKB=”?G2.Lbl 1:“DKI=”?H：“DL=”?O：“DR=”?R：IF H＞G:THEN Goto0 IFEND3.(E-D)/Abs(G-F)→P:Abs(H-F) →Q: P×Q→I:D+I→T4.C+(I+2D)×Q×90/π→J5. C+(I/4+2D)Q×45/(2π) →M: C+(3I/4+2D)Q×135/(2π) →N6. C+(I/2+2D)Q×45/π→K7. A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12 →X8.B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12 →Y9.”FW=”:J▲DMS ▲10. “X=”:X▲11. “Y=”:Y▲12.“XL=”: X+Ocos(J-90) →U ▲13.“YL=”: Y+Osin(J-90) →V▲14.“XR=”:X+Rcos(J+90)→ W▲15.“YR=”:Y+Rsin(J+90)→ Z▲16.Goto 1程序结束程序说明：A- 曲线元起点A的坐标；B- 曲线元起点B的坐标；C- 曲线元起点A的切线坐标方位角；F- 曲线元起点A的里程；G- 曲线元起点B的里程；H- 曲线上待求点i的里程；D- 曲线元起点A的曲率；E- 曲线元终点B的曲率；XL-左边线点位X坐标；YL-左边线点位Y坐标；XR-右边线点位X坐标；YR-右边线点位Y坐标；X- 中线点位纵坐标；Y- 中线点位横坐标；DL-左边线距中线平距；DR-右边线距中线平距；该程序需要输入的数据为：（1）.曲线元起点A的坐标及切线坐标方位角，计算器上用“XA”，“YA”，“CA”显示；（2）.曲线元起点A和B的曲率，计算器上用I÷RA，I÷RB显示（曲线左偏时取“-”）；（3）.曲线元起点A和终点B的里程，计算器上用“DKA”，“DKB”显示；（4）.输入待求点里程和该点距左右的水平距离，计算器上用“DKI”，“DL”，“DR”显示；每算完一个待求点的中线及边线坐标，程序又让输入下一点的“DKI”，“DL”，“DR”当输入的“DKI”大于“DKB”时，此时输入下一个曲线元起点的曲率和里程，即可计算下一个曲线中线及边线点位坐标。

5800平曲线超高、加宽计算程序5800CG JK JSLbI 0:Cls:“Z H”?C:“H Z”?E:“L B K”?A:“H P”?B:“Z-,Y+”?Z:“L S”?G:“C G”?P:“J K”?X←∣P+B→O: 0.04G÷O→N:Goto 1←∣LbI 1:Cls:D o：“C D，<0=﹥R e t u r n!”?S:I f S<0:T h e n G o t o0:I f E n d←∣S＜C=﹥Goto5←∣S>E=﹥Goto5←∣S＞C+G=﹥Goto2←∣N+C→H:(S-C)/G→L:L O-B→I:L X+A→J←∣I f S＜H:T h e n-B J→D:A I→F:E l s e-I J→D:A I→F:IfEnd←∣Goto4←∣LbI 2:S＞E-G=﹥Goto3←∣X+A→J:-P(A+X)→D:A P→F: Goto4←∣LbI 3:E-N→K:(E-S)/G→L:(4L3-3L4)X+A→J:L O-B→I←∣I f S＜K:T h e n-I J→D:A I→F:E l s e-B J→D:A I→F:IfEnd←∣Goto4←∣LbI 4:If:Z＜0: J→H:A→K:D→L:F→M:Goto6:IfEnd←∣If Z≥0:T h e n A→H:J→K:F→L:D→M:Goto6:IfEnd←∣LbI 5:A→H:A→K:-BA→L:-BA→M:Goto6←∣Lbl 6:C l s←∣“Z K=”:L o c a t e4,1,H←∣“Y K=”:L o c a t e4,2,K←∣“Z-H=”:L o c a t e5,3,L←∣“Y-H=”:L o c a t e5,4,M▲Goto1←∣Lbl 0:C l s:“R e t u r n”：S t o p←∣说明：该程序适用于绕中轴旋转的一、二级公路，在三、四级公路上，有的设计也采用Ⅰ类加宽（本程序），有的则采用Ⅱ类加宽，只需将Lbi3中的=(4L3-3L4)X+A→J 改为L X+A→J即可。

FX5800计算器公路测量常用程序集一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C 型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。

3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。

0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。

输入-2,返回选择线路。

程序名：0（数子0）1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z[1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A:A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂:Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCProg＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂H=＂:Lcoate 6,4,H-Z[9]：＂I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂LGD=＂:Lcoate 6,4,P：＂RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：4BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0.75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfEnd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂LX=＂:Locate 6,4,T：Prog＂ZD＂:＂TW=＂:Lcoate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ?D: Porg＂A＂:Z[2]+90→A:I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:”TW=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z →Z[9]:Prog”C”:L→Z[10]:Prog”K”:Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:Else –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhile X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S:S=0=>Goto 1: √(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2)-V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ”LX=”: Locate 6,4,L:Prog”ZD”:“H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos(S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: IfEnd:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Return:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→D:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2] →J:Isin(J→S:Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H ∧(6)÷506880÷R∧(5)- H ∧(8)÷154828800÷R∧(7)→A:H ÷2-H∧(3)÷240÷R2+ H ∧(5)÷34560÷R∧(4)- H ∧(7)÷8386560÷R∧(6)+ H ∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:ILbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名： C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:”FWJ=”: Locate 6,4,J：Fix 3:”S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。

CASIO-5800公路高程及加宽计算程序全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.1主程序KG【路基宽度与超高值计算程序】Deg:21→DimZ:“PEG=”？Z:Goto1Lbl0:“PEG=”？Z:IfZ≥Z[3]-UAndZ≤Z[6]:ThenGoto2:IfEndLbl1:Prog“Z”:R=0=>Goto2: (本节计算曲线要素)IfA＜0:Then-1→I:Ele1→I:IfEnd确认路线转向,左负右正I→Z[7]:Ab（A）→AL^(2)÷(24R)→P:L÷2-L^(3)÷(240R^(2))→Q:90L÷(πR）→B(R+P)tan（A÷2)+Q→TR(A-2B)π÷180→O计算切线长计算圆曲线长计算曲线长计算ZH点计算HY点计算YH点计算HZ点R(A-2B)π÷180+2L→CK-T→Z[3]Z[3]+L→Z[4]Z[4]+O→Z[5]Z[5]+L→Z[6]Lbl2:Prog“K1”:(本节计算路基宽与左右超高值)待求点位于直线线元时IfR=0:ThenZ[21]某Z[20]→Z[1]:Z[1]→Z[2]:Goto3:IfEnd待求点位于ZH前的直线段时IfZ≤Z[3]:ThenZ[20]某Z[21]→Z[1]:Z[1]→Z[2]:Goto3:IfEnd全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.待求点位于笫一缓和曲线时IfZ＞Z[3]AndZ＜Z[4]:ThenZ[21]→J:M→N:Z[20]→D:Z[4]-Z[3]→S:Z-Z[3]→F:Prog“ZG”:V→Z[1]-M→N:W→D:(Z[4]-Z[3])÷2→S:IfZ≤Z[3]+SAndZ＞Z[3]:ThenZ[21]D→Z[2]:Goto3:EleZ-(Z[3]+S)→E:Prog“ZG”:V→Z[2]:Goto3:IfEnd:IfEnd待求点位于圆曲线时IfZ≥Z[4]AndZ≤Z[5]:ThenZ[20]M→Z[1]:IfZ[3]=Z[4]:ThenZ[1]→Z [2]:Goto3:EleW→D:-MD→Z[2]:Goto3:IfEnd:IfEnd待求点位于笫二缓和曲线时IfZ＞Z[5]AndZ≤Z[6]:ThenM→J:Z[21]→N:Z[20]→D:Z[6]-Z[5]→S:Z-Z[5]→E:Prog“ZG”:V→Z[1]-M→J:W→D:(Z[6]-Z[5])÷2→S:IfZ＞Z[5]+SAndZ≤Z[6]:ThenZ[21]D→Z[2]:Goto3:EleZ-Z[5]→E:→Prog“ZG”:V→Z[2]:IfEnd:IfEndLbl3:0→D:Prog“H”:Cl:Fi某2“H=”:Locate8,1,H:线路右转时IfZ[7]＞0:Then“L=”:Locate8,1,Z[1]+H:“R=”:Locate8,3,Z[2]+H:左设计高右设计高路基总宽路基左宽(本节显示计算结果)显示中桩设计高程“KUAN=”:Locate10,4,W+Z[20]◢Cl:“KUANL=”:Locate11,1,Z[20]:全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.“R=”:Locate11,2,W:线路左转时路基右宽Ele“L=”:Locate8,2,Z[2]+H:“R=”:Locate8,3,Z[1]+H:左设计高右设计高路基总宽“KUAN=”Locate10,4,W+Z[20]◢Cl:“KUANL=”:Locate11,1,W:路基左宽“R=”:Locate11,2,Z[20]:IfEnd:路基右宽Goto02子程序K1【路基宽度计算程序】4.25→Z[20]:-0.0212→Z[21]:Prog“Z”:Z[20]为路基半幅宽,Z[21]为路基横坡值IfZ＞Z[3]AndZ＜Z[4]:T hen2Z[20]→A:G→B:Z[4]-Z[3]→C:Z-Z[3]→E:IfEnd待求点位于笫一缓和曲线IfZ＞Z[5]AndZ≤Z[6]:ThenG→A:2Z[20]→B:Z[6]-Z[5]→C:Z-Z[5]→E:IfEnd(B-A)E÷C+A→WZ≤Z[3]=>2Z[20]→W待求点位于ZH前的直线段时待求点位于笫二缓和曲线时IfZ≥Z[4]AndZ≤Z[5]:ThenG→W:IfEnd待求点位于圆曲线时R=0=>2Z[20]→W待求点位于直线线元时Fi某2:W-Z[20]→W:Return3子程序H【路基高程中桩计算程序】Prog“S0”:I÷100→I:C-T→E:Z-F→L:C+T→E:G-TI→Q:IfT=0:全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.ThenQ+LI→H:Goto0:EleIfZ＜F:ThenQ+LI→H:Goto0:EleIfZ≤E:ThenQ+LI+L^(2)÷2÷R→H:Goto0:IfEn d:IfEnd:IfEndLbl0:IfD≠0:ThenProg“I”:H+V→Z[8]:IfEnd:Return4子程序ZG【路基超高值计算程序】D((N-J)E÷S+J)→V:Return5子程序Z【路基坐标宽度超高值要素程序】(也是路基坐标计算子程序)IfZ＞74009.522AndZ≤74262.228:Then137.4033→U:362°51′35″→F:74205. 803→K:3015783.911→某:522375.5984→Y:120→R:45→L:-33°34′0.6″→A:10→G:0.0588→M:IfEndU-直线长度;F-方位角;K-交点桩号;某-交点某坐标;Y-交点Y坐标;R-曲线半径;L-缓和曲线长;A-转角值(左负右正);G-路基整幅宽;M-路基超高值.IfZ＞72900.557AndZ≤72959.892:Then0→R:72900.557→Z[3]:3014697.12→Z[ 16]:522932.0175→Z[17]:302°4′54.3″→F:IfEnd直线线元及断链时的解决方式R-曲线半径;Z[3]-直线段起点桩号;Z[16]-起点中桩某坐标;Z[17]-起点中桩Y坐标;F-方位角.6子程序S0【高程竖曲线要素程序】IfZ≥74003.6AndZ≤74134.2:Then-1200→R:34.2→T:74100→C:2022.92→G:3.6→I:IfEndR-竖曲线半径(凸负凹正);T-竖曲线切线长;C-竖曲线交点桩号;全线路基中桩高程左右超高值以及路基加宽计算程序.要素子程序输入简便,在5800中输入待求点中桩桩号,计算器自动显示待求桩左,中,右,高程.左右路基宽.G-交点高程;I-直线段坡度(上正下负)。