fx-5800程序1
5800 计算程序
5800 计算程序Fx-5800 计算器程序QXJS-000 主程序Fix 3:Deg:Lbl 4:“1.SZ=>XY”:“2.XY=>SZ”: “ 1,2= ” ? →Q:” LICHENG= ” ? →S:Prog“QXJSSUB0” ↙Lbl 0:IfQ=1:Then Goto1:IfEnd:IfQ=2:ThenGoto2:IfEnd ↙Lbl 1:”OUT JL=”? → Z: “OUT JD=”?G:Prog“QXJSSUB1”:“XZB=”:N →N ◢“YZB=”:E →E ◢“QXFWJ=”:F →F:F ▲ DMS ◢Goto4 ↙Lbl 2: “XZB=”? →B: “YZB=”? →C:B→N:C→E:Prog“QXJSSUB2”: “LICHENG=”:S →S ◢“OUT JL=”:Z →Z ◢Goto4 ↙说明：Q: 代表正反算，其中 1 为正算， 2 为反算； S: 代表里程； Z ：代表偏移距离； G ：代表偏移角度（以线路前进方向为 X 方向，顺时针转为正； N ： X 坐标； E ： Y 坐标； F ：切线方位角；QXJSSUB0 ( 数据库 )Goto1 ↙Lbl 1IF S<157687.528:THEN2884169.2517→U:471475.6573→V:157547.528→O:98 ° 32 ′ 43.08″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙IF S<157993.605:THEN2884148.1260→U:471614.0539→V:157687.528→O:98 ° 56 ′ 46.93″ →A:306.0771→L:10000→P:10000→R: Return:IfEnd ↙IF S<158133.605:THEN2884095.9086→U:471915.6318→V:157993.605→O:100 ° 42 ′ 0.22″ →A:140→L:10000→P:10^45→R: Return:IfEnd ↙IF S<163641.879:THEN2884069.2735→U:472053.0744→V:158133.605→O:101 ° 6 ′ 4.07″ →A:5508.274→L:10^45→P:10^45→R: Return:IfEnd ↙IF S<163781.879:THEN2883008.7030→U:477458.2815→V:163641.879→O:101 ° 6 ′ 4.08″ →A:140→L:10^45→P:10000→R: Return:IfEnd ↙IF S<164195.661:THEN2882981.4268→U:477595.5984→V:163781.879→O:101 ° 30 ′ 7.93″ →A:413.7833→L:10000→P:10000→R: Return:IfEnd ↙IF S<164335.661:THEN2882890.5519→U:477999.2492→V:164195.6623→O:103 ° 52 ′22.82 ″ →A:140→L:10000→P:10^45→R: Return:IfEnd ↙IF S<171831.142:THEN2882856.3502→U:478135.0069→V:164335.6623→O:104 ° 16 ′26.67 ″ →A:7495.481→L:10^45→P:10^45→R: Return:IfEnd ↙IF S<171961.1406:THEN2881008.2613→U:485399.0830→V:171831.1404→O:104 ° 16 ′26.65 ″ →A:130→L:-10^45→P:-11000→R: Return:IfEnd ↙IF S<172204.6898:THEN2880976.4567→U:485525.1322→V:171961.1406→O:103 ° 56 ′7.81 ″ →A:243.5492→L:-11000→P:-11000→R: Return:IfEnd ↙IF S<172334.6898:THEN2880920.4244→U:485762.1431→V:172204.6898→O:102 ° 40 ′0.93 ″ →A:130→L:-11000→P:-10^45→R: Return:IfEnd ↙说明： S ：里程； 157547.528→O 为线元终点里程；2884169.2517→U 为线元起点 X 坐标； 471475.6573→V 为线元起点Y 坐标； 98 ° 32 ′ 43.08 ″ →A 线元起点切线方位角； 0^45→P 线元起点半径（左转为负右转为正）； 10000→R 线元终点半径（左转为负右转为正）QXJSSUB1 正算子程序0.5 （ 1÷R-1÷P ） ÷L→D:S-O→X ↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙A+(X÷P+DX2)×180÷π→F ↙N+Zcos(F+G) →N:E+Zsin(F+G) →EReturnQXJSSUB2 反算子程序Lbl 1:0→Z ： 1→Q ： Prog“QXJSSUB0”: 0.5 （ 1÷R-1÷P ）÷L→D:S-O→X ↙U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N ↙V+∫( sin(A+(X÷P+DX2)×180÷π,0,X)→E ↙A+(X÷P+DX2)×180÷π→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 ↙IfAbs(W)>0.0001 :Then Goto1:IfEnd ↙Lbl 2: 0→Z ： Prog“QXJSSUB1”:(C-E) ÷sin(F+90) →ZReturnH （高程主程序）Fix 3 ： Lb1 3: ” LICHENG= ” ?Z: Prog“SQXZL”:(P-Q) ÷Abs(P-Q) →W ↙If Z<(H-T):Then(H-Z) × P →X:Goto 2:IfEnd ↙If Z ≥ (H-T) And Z<H:Then (H-Z) × P+(Z-H+T)2 ÷ (2WR)→X:Else (H+T-Z)2 ÷ (2WR)-(Z-H) × Q→X: Goto 2:IfEnd ↙Lb1 2: ” GAO CHENG= ” D-X →X ◢Goto 3SQXZL （竖曲线数据库）Goto 1Lb1 1If Z ≤ 157893.75:Then25000→R:93.75→T:157800→H:421.977→D:-0.0045→P:0.003→Q:Return:IfEnd ↙If Z ≤ 159000:Then25000→R:150→T:158850→H:425.127→D:0.003→P:0.015→Q:Return:IfEnd↙If Z ≤ 165017.5:Then25000→R:117.5→T:164900→H:515.877→D:0.015→P:0.0056→Q:Return:IfEnd ↙If Z ≤ 168207.5:Then25000→R:107.5→T:168100→H:533.797→D:0.0056→P:-0.003→Q:Return:IfEnd ↙If Z ≤ 172175:Then25000→R:75→T:172100→H:521.797→D:-0.003→P:0.003→Q:Return:IfEnd ↙说明： 157893.75 代表竖曲线终点里程， 25000→R 代表竖曲线半径； 93.75→T 代表竖曲线切长； 421.977→D 代表边坡点标高（未改正之前）； -0.0045→P 代表前段坡度，上坡为正，下坡为负；0.003→Q 代表后段坡度，上坡为正，下坡为负；Fx-5800路线高程程序GCQX-000 主程序Lbl 1: Prog“GCQX-SUB000” ↙If R>10^8: Then B+(S-A)(D-B) ÷(C-A)→H: Goto2: IfEnd↙Pol(D-B,C-A):J-Sin-1(I÷2÷R)→F:B+R Cos(F+90)→X:A+RSin(F+90)→Y: Sin-1((S-Y) ÷R)→M:X+R Cos(M)→H: Goto2↙Lbl 2: “H=”:H: Goto1GCQX-000 数据库Goto0↙Lbl 0↙If S<***: Then ***→A(线元起点里程): ***→B(线元起点高程):***→R(线元半径左-右+): ***→C(线元终点里程): ***→D(线元终点高程): Return:IfEnd↙If S<***: Then ***→A: ***→B: ***→R: ***→C: ***→D: Return:IfEnd↙………………………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。
CASIOfx-5800程序
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分段坐标计算
ZD-FANG.YANG计算程序（任意曲线或直线上坐标计算）（分段计算）程序说明：本程序是计算各曲线或直线内任意点中边桩计算程序计算前，先查明里程K处于哪段曲线或是直线内，用这段曲线或是直线的两端点参数计算K的中边桩坐标输入：(1)YOU ZUAN, ，(2)ZUO ZUAN输入1表示右转曲线，2表示左转曲线，左右转曲线的判定需根据A点——B点的顺序，例如一条右转曲线的ZH 点到HY点，输入时，我们以ZH点为A点，HY点为B点，则，曲线为右转，如果以HY点为A点，ZH点为B 点，则曲线为左转。
K(A):A点里程，X(A):A点X坐标Y(A):A点Y坐标FWJ(A): A点方位角R(A):A点半径K(B):B点里程R(B):B点半径K:待求点里程DL:左偏移值DR右偏移值A:左右偏移值的连线与线路的夹角遇到偏角跟设计偏角有误差时，我们通常将误差集中在QZ点，即前半段计算时方位角不变，后半段计算时方位角大于180度要减去180度再输入,小于90度要加上180度再输入）输出：XY中桩坐标，XL,YL为左偏移的点的坐标XR,YR为右偏移的点的坐标程序一：（已调通过）适用于铁路、公路。
立交。
中边桩放样坐标计算，FX-4800计算器ZB-FANG.YANG程序代码如下：Lb1 0:{GE}:U”(1)YOU空格ZUAN空格空格空格空格，(2)ZUO空格ZUAN”: F”K（A）”：A”X（A）”:B”Y（A）”:C”FWJ(A)”: V”R(A)”: G”K（B）”：W”R(B) ”U=2U=-1回车V=0D=0:D=UV-1W=0E=0:E=UW-1Lb1 1:{HORT}:H”K”:O”DL”:R”DR”:T”A”:H>G ⇒Goto 3 回车P=(E-D)÷Abs (G-F):Q= Abs (H-F):I=P×Q回车J=C+(I+2D)×Q×90÷π回车M=C+(I÷4+2D)Q×45÷(2π):N=C+(3×I÷4+2D)Q ×135÷(2π)回车K=C+(I÷2+2D)Q×45÷π回车X=A+Q÷12×(cosC+4(cosM+ cosN)+2 cosK+ cosJ)Y=B+Q÷12×(sinC+4(sinM+sinN)+2sinK+sinJ) Z”XL”=X+ O×cos(J-(180-T))L”YL”=Y+ O×sin(J-(180-T)) X”XR”=X+R×cos(J+T)Y”YR”=Y+R×sin(J+T)Goto 1回车Lb1 3:A=X:B=Y:C=J: D=E:F=G: Goto 0回车（已调通过）FX-4850计算器ZB-FANG.YANG程序代码如下：Lb1 0:{GE}:U”(1)YOU空格ZUAN空格空格空格空格，(2)ZUO空格”: F”K（A）”：A”X （A）”:B”Y（A）”:C”FWJ(A)”: V”R(A)”: G”K（B）”：W”R(B) ”U=2U=-1回车V=0D=0:D=UV-1W=0E=0:E=UW-1Lb1 1:{HORT}:H”K”:O”DL”:R”DR”:T”A”:H>G ⇒Goto 3 回车P=(E-D)÷Abs (G-F):Q= Abs (H-F):I=P×Q回车J=C+(I+2D)×Q×90÷π回车M=C+(I÷4+2D)Q×45÷(2π):N=C+(3×I÷4+2D)Q ×135÷(2π)回车K=C+(I÷2+2D)Q×45÷π回车“X”:X=A+Q÷12×(cosC+4(cosM+ cosN)+2 cosK+ cosJ)“Y”:Y=B+Q÷12×(sinC+4(sinM+sinN)+2sinK+sinJ)”XL”：Z=X+ O×cos(J-(180-T))”YL”:L=Y+ O×sin(J-(180-T))”XR”:X=X+R×cos(J+T)”YR”:Y=Y+R×sin(J+T)Goto 1回车Lb1 3:A=X:B=Y:C=J: D=E:F=G: Goto 0回车分段坐标计算程序5800调试成功Lb1 0”(1)YOU空格ZUAN空格空格空格空格，(2)ZUO空格ZUAN”？U:”K（A）”？F：”X（A）”？A:”Y （A）”？B:”FWJ(A)”？C:”R(A)”？V:”K （B）”？G：”R(B) ”？W回车U=2-1→U回车If V=0：then0 →D: Else UV-1→D：IfEnd 回车If W=0：then0→E: Else UW-1→E：IfEnd回车Lb1 1”K”？H:”DL”？O:”DR”？R:”A”？T:H>G⇒Goto 3 回车(E-D)÷Abs (G-F)→P:Abs (H-F)→Q:P×Q→I 回车C+(I+2D)×Q×90÷π→J回车C+(I÷4+2D)Q×45÷(2π)→M:C+(3×I÷4+2D)Q ×135÷(2π)→N回车C+(I÷2+2D)Q×45÷π→K回车“X=”: A+Q÷12×(cosC+4(cosM+ cosN)+2 cosK+ cosJ)→X“Y=”:B+Q÷12×(sinC+4(sinM+sinN)+2sinK+sinJ)→Y”XL=”：X+ O×cos(J-(180-T))→Z”YL=”:Y+ O×sin(J-(180-T))→L”XR=”:X+R×cos(J+T)→X”YR=”:Y+R×sin(J+T)→YGoto 1回车Lb1 3: X→A: Y→B: J→C: E→D: G→F: Goto 0回车。
5800计算器程序(1)
转] 道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）转载自魁北克之眼转载于2010年03月30日 11:44 阅读(7) 评论(0) 分类：测绘举报错了别怪我一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。
原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。
改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。
程序的特点：1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。
这里摘取直线、曲线及转角表资料如下... 三、程序代码...... 注：路线数据库子程序ROAD－DATA1是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。
5800计算器程序1
5800计算器程序15800计算器程序1计算器程序通常是用来进行基本的数学运算的工具，能够帮助用户进行加减乘除等运算。
下面是一个简单的5800计算器程序的实现，代码行数大约1200字以上。
```python# -*- coding: utf-8 -*-#定义一个函数，用于检查输入是否为有效的数值def is_valid_number(num_str):try:float(num_str)return Trueexcept ValueError:return Falseclass Calculator:def __init__(self):self.result = 0#加法运算def add(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) + float(b)return self.resultelse:return "请输入有效的数字！"#减法运算def subtract(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) - float(b)return self.resultelse:return "请输入有效的数字！"#乘法运算def multiply(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) * float(b)return self.resultelse:return "请输入有效的数字！"#除法运算def divide(self, a, b):if is_valid_number(a) and is_valid_number(b): if float(b) != 0:self.result = float(a) / float(b)return self.resultelse:return "除数不能为0！"else:return "请输入有效的数字！"#主程序if __name__ == '__main__':calculator = Calculatorprint("欢迎使用5800计算器程序！")while True:print("请输入要进行的操作：")print("1. 加法")print("2. 减法")print("3. 乘法")print("4. 除法")print("5. 退出程序")choice = input("请选择操作（输入序号）：")if choice == "1":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.add(num1, num2)}")elif choice == "2":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.subtract(num1, num2)}") elif choice == "3":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.multiply(num1, num2)}") elif choice == "4":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.divide(num1, num2)}")elif choice == "5":print("感谢使用5800计算器程序，再见！")breakelse:print("无效的操作！请重新输入。
FX5800计算器公路桥梁隧道测量程序
FX5800计算器公路桥梁隧道测量程序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）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY”:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂4.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D: Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂ LGD=＂: Loc ate 6,4,P：＂ RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: D o:＂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 :P rog＂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=＂: Locate 6,4,G◢LpWhi le Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>B reak: 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[1 0]: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＂J S＂: 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”:P rog”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:If End:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2: ” L X=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,M-H◢L pWhile 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→Z:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2]→J:Is in(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)÷34 560÷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)÷59 9040÷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)÷35300 97000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HP rog “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: LbI 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:IFEn d:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:” FWJ=”: Locate 6,4,J：F ix 3:” S=”:Locate 6,4, I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“X Z”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。
CASIO fx-5800部分程序语句简要说明
CASIO fx-5800部分程序语句简要说明1.Norm 1 指数显示Norm 2 小数显示2.?→x 只显示？字符+?→x 显示字符+？？x 显示x?“字符”？x 显示字符+？有→则不显示该变量当前值3.（判断表达式）语句1 : 语句2。
如果判断表达式为真（或非零），则不跳过语句1.如果判断表达式为假（或是零），则会跳过语句1.4. If...then…else…ifend如果语句为真，则执行then（不执行else）,然后执行ifend.如果语句为假，则执行else（不执行then）,然后执行ifend.5. Break 中断语句中断For，Do，While循环，并从该循环的下个命令起继续运行6. Dsz使控制变量递减一，在变量的值为零时执行转移7. IszIsz<变量>:<语句1> <语句2>，变量应为A~Z以 1 为增量逐次增加变量的值，当变量的值不等于0 时，执行语句1，否则执行语句28. ClsDsz<变量>:<语句1> <语句2>。
变量应为A~Z。
以1 为减量逐次减小变量的值，当变量的值不等于0 时，执行语句1，否则执行语句29. Locate 定位显示语句句法1：Locate <列数>, <行数>,<数值>句法2：Locate <列数>, <行数>,<表达式>句法3：Locate <列数>, <行数>, "字符串"fx-5800P 的屏幕最多可以显示4 行、16 列字符，因此定位语句中的列数值应为大于等于1、小于等于16 的整数，行数值应为大于等于1、小于等于4 的整数。
10. Lbi n ~ Goto n Goto n~Lbl n无条件转移至Lbi n 位置11. Getkey返回与上次按键相对应的代码,Getkey=12. DO ~ LpWhile循环语句Do <语句块> LpWhile<条件>先执行语句块，然后测试条件，条件为真时重复执行语句块，否则执行<条件>后的语句。
5800使用程序说明
Fx-5800程序使用说明本程序为本人自编含正反算、高程、超高、加宽及水准测量一体；可进行路基填挖坡角、高程放样；还可以换算路面各种结构成进行放样。
特别是反算可以对任意点进行反算坐标、高程并计算得出坡角，在实际应用中（1人看全站仪，1人拿棱镜，1人打桩）速度达可以让拿棱镜和打桩人员跑起来工作）。
其实有了本程序，测量是一件很轻松的工作，如果你还在用传统的程序测量方法，还在为计算标高、换算坡角等天天晚上加班计算后第二天还要移桩，真应该认真看看本程序，它可以让你的测量速度快最少一至两倍以上。
一份好的程序必须结合设计施工图进行编程可以让测量达到最快速度，如果有谁想要代编程序请联系：QQ：9286330；以下为某二级公路放样程序使用说明：一、运行A—XY程序：1、 X1？………………….输入测站点X位标；2、 Y1？………………….输入测站点Y位标；3、 X2？………………….输入后视点X位标；4、 Y2？………………….输入后视点Y位标；5、 Z2？………………….（1）输入测站点Z位标；或（2）输入后视点Z位标6、A=…………………….显示全站仪对后视的方位角（此时可将全站仪转到5800上显示的方位角并固定好水平位置，按仪器锁定方位角，然后将仪器对准后视点（为了保证更好精度，对准棱镜杆与后视控制点交叉处也可），放开锁定方位角即可进行测量）7、S=…………………….显示全站仪与后视点水平距离；8、 HS？………………….输入高差：（1）、若Z2？时输入测站点Z，则输入数据0；（2）、若Z2？时输入后视点Z，则输入全站仪对后视的高差数据；9、 LJG？……………….. 输入仪器高或棱镜高：（1）、若Z2？时输入测站点Z，则输入仪器仪高；（2）、若Z2？时输入后视点Z，则输入棱镜高；注意：5、8、9三步的关联，否则实测高程计算不对10、 LM？…………………输入路线号（如有匝道等多条线路时选择数据，若只有一条路则按“EXE”进入下一步，即选默认路线）11、 K？…………………输入预测点大概桩号（如测站测K25+200~K25+800，则可输入其桩号之间的数，如K25+300即输入25300即可，此桩号仅用于当数据多时加快后面的计算器运行速度）二、运行A—FY程序（当运行A—XY程序时自动运行，若不换测站点时才能直接运行本程序，即不用输入第一步数据，但换站时必需运行A—XY程序）（一）、正算放样（即根据已知桩号和边桩距离放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：1）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、K？………………….输入放样点桩号；4、B？………………….输入放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；5、A=…………………….显示全站仪与放样点的方位角（此时可将全站仪转到5800上显示的方位角进行对放样点方向）；6、S=…………………….显示全站仪与放样点水平距离HD；7、CS？………………….输入放样点与测站点的高差VD；8、LJG？………...…….. 输入放样点的棱镜高；9、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第13步重测放出真正的填（挖）坡角；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第9步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（二）、反算放样一：（即根据在任意点先测出方位角、距离、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：2）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、A3？…………………输入全站仪与放样点的方位角（即全站仪上方位角读数）；4、S3？………………….输入全站仪与放样点水平距离HD；5、CS？………………….输入放样点与测站点的高差VD；7、LJG？………...…….. 输入放样点的棱镜高；8、PQ B=…………… ...显示实测点根据高程计算后需向路内（或外）移动“水平”距离（注：向中线为负值，向路外侧为正值，若为原地面放样还应按此值估算因地面坡度增加的水平距离进行加减）；若需移位大应按第3步重测放出真正的填（挖）坡角；9、显示：K=…………….显示放样点桩号；B=…………….显示放样点（左、右边桩）距中线距离（左边桩为负数，右边桩为正数，中桩为“0”）；10、显示：a、填方：T=（放样点至路床顶填土高度）、T0=（放样点至路面填土高度）、SC B=（按测点高程计算出的距中边距B，左边桩为负数，右边桩为正数）；b、挖方：W=（放样点至路床顶挖土深度）、W0=（放样点至路面挖土深度）、SC B=（按测点高程计算出的距中理论边距B，即坡角边距）；11、显示：实测点X、Y坐标；12、显示：H=（实测点高程）、H0=（设计高程）（中桩为中线高程，边桩为路肩设计高程）、JK=（设计加宽值）13、重复反回第1步进行重新放样；（若对同一桩号按第8步数据计算需移位较大时，必需对同一桩号按数据移位后重测复核至找到坡角为此，一般重测一次即可）（注：重测复核时，在输入B值时会显示出SC B=（按刚测完点移位后的理论宽度）方便输入预测点B值，若地面不平就用SC B值加（减）上地面坡度造成的水平距离增加）（三）、反算放样二：（即根据在任意点先测出XY坐标、高差反算出：路线桩号及填、挖土边桩坡角进行放样）1、 KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：3）2、Q？………………….输入测量边桩与路线夹角（默认为90度）；3、X3？…………………输入全站仪上X坐标；；4、Y3？………………...输入全站仪上Y坐标；5~13步说明与(二)相同：（四）、已知设计坐标进行放样（如桥梁已知坐标放样等）：1、KX1：AK2：XK3：XY4：SP5：Stop6？…..输入进行测量的方法（输入：4）2、使用说明与第（三）条只差在多显示方位角A、距离S进行放样，其它计算数据仅作参考对照用。
卡西欧5800计算器的详细编程
CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算”X0=〃?X:”Y0=〃?Y:”I=〃?I:”J=〃?JX+ICos(J)→U:Y+ISin(J)→V”X=〃:U （待求点的X坐标）”Y=〃:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0”X1=〃?X:”Y1=〃?Y:”X2=〃?U:”Y2=〃?VPol(U-X,V-Y):J<0 J+360→J”I=〃:I”J=〃:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线”X0=〃?X: ”Y0=〃?Y:”FWJ=〃?D:”QDHAO=〃?G: ”ZDHAO=〃?C: ”R=〃?R Lbl 1”DQHAO=〃?LL<G Or L＞C GOTO 2”PY=〃?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls”X=〃:X+I+KCos(D+E+90) →A”Y=〃:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o”FWJ=〃:o DMSGoto 1Lbl 2”END〃说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线”QZHAO =〃?J: ”H+B〃=?B:”I1=〃?C:”I2=〃?D:”R=〃?R:”T=〃?T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S”T〃:SJ-T→XJ＋T→YLbl 0”DQ=〃?LIf L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End”GC=〃:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1”END〃说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。
FX5800计算器公路测量常用程序集 一
FX5800计算器公路测量常用程序集一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型. 二、源程序 1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XY Lb1 0:Norm 2 F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量) Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2 Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0: Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0 ２．主程序２：高程序横坡程序(设计任意点高程及横坡) 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix 3:” H=”:Locate 6,4,H◢“ I=”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：3JS X：Y：1268．123→K(置仪点X坐标) 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 3:” S=”:Locate 6,4,I◢ 4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名：4JH-XY LbI 0:Norm 2 90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量) 1→F:Prog”THB”:?L: Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0: 5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBX LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd LbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T: LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd: LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z: LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z: LbI 3:L+Z[12]+G×Z[7]:Goto z: LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z: LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“ TW=”: Locate 6,4,Z[5]◢ Goto 0 6．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名：6GD Prog “G0”Z-C→E:(B-A)×E/S+A→L:L: 7．坐标计算次程序（ＴＨＢ）程序名：THB 18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ：(P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘ Lbl 1：?Ｄ：Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3 LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3 LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ) 程序名：A 0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MW Ｓ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LW Ｓ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ：Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ) 程序名：B G-90→Ｔ：Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"：T+QEW(C+WＳ) →Ｌ：(J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D: 10．高程计算子程序（H）程序名：H Prog“S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else If ZGoto 0:W=2=>Goto 1: LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd: LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V: 12．数据子程序(附后示例) ①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
Fx5800计算器程序(对称平曲线)
Fx-5800计算器程序一、程序名称：B-D-PQX(对称平曲线)Prog “ZJZB”:“A”?→A：“R”?→R：“LS”?→L：“JDL”?→N：“JX”?→U：“JY”?→V：“F”?→F：180/π/R→Z:ZL/2→B:L2/24/R- L^(4)/2688/R^(3)+L^(6)/506880/R^(5)→P:L/2-L^(3)/240/R^(2)+L^(5)/34560/R^(4) →Q“T=”:(R+P)tan(Abs(A/2))+Q→T▲“L=”:(Abs(A)-2B)/Z+2L→o▲“E=”(R+P)/Cos(Abs(A/2))-R→E▲“ZH=”:N-T→E▲“HY=”:E+L→Z〔1〕▲“QZ=”:E+o/2→Z〔2〕▲“YH=”:E+o-L→Z〔3〕▲“HZ=”:E+o→Z〔4〕▲LbI 8: “XL”?→M:Prog“ZBJS”:Goto 8二、子程序：ZBJS180/π/R→Z:ZL/2→B:L^(2)/24/R-L^(4)/2688/R^(3) +L^(6)/506880/R^(5)→P:L/2-L^(3)/240/R^(2)+L^(5)/34560/R^(4)→Q(R+P)tan(Abs(A/2))+Q→T(Abs(A)-2B)/Z+2L→o(R+P)/Cos(Abs(A/2))-R→EN-T→EE+L→Z〔1〕E+o/2→Z〔2〕E+o-L→Z〔3〕E+o→Z〔4〕0→W:0→Y:If M≤E:Then M-E→X:Goto 3:IfEnd:If M≤Z〔1〕:Then Goto 1:IfEnd:If M≤Z〔3〕:Then Goto 2:IfEnd:If M＜Z〔4〕:Then Goto 1:IfEnd: If M≥Z〔4〕:Then Z〔4〕-M→X:Goto 3:IfEndLbI 1:If M≤Z〔1〕:Then M-E→G:EIse Z〔4〕-M→G: IfEnd:G-G^(5)/(40R^(2)L^(2))+G^(9)/3456/(RL)^(4) →X:G^(3)-(6RL)-G^(7)/(336R^(3)L^(3))+G^(11)/42240/(RL)^(5)→Y:ZG^(2)/2/L →W:Goto 3LbI 2:M- Z〔1〕→G:RSin(B+GZ)+Q→X:R-RCos(B+GZ)+P→Y:B+ZG→WLbI 3:If M≥Z〔3〕:Then F+A→C:If A＞0:Then C+90→D:IfEnd:EIse C-90→D:IfEnd:EIse F+180→C:If A＞0:Then F+90→D:EIse F-90→D: IfEnd: IfEnd“X=”:U+(T-X)Cos(C)+YCos(D)→Z〔7〕▲“Y=”: V+(T-X)Sin(C)+Y Sin(D)→Z〔8〕▲Z〔7〕→Z〔5〕: Z〔8〕→Z〔6〕:Prog “J”LbI 4:“BZ”?→S:If M≤Z〔3〕:Then Goto 5:EIse Goto 6:IfEndLbI 5:F→C:If A＜0:Then -W→W:EIse W→W:IfEnd:Goto 7LbI 6:F+A→C:If A＞0:Then -W→W:EIse W→W:IfEndLbI 7:“X=”:Z〔7〕+SCos(C+W+90)→Z〔5〕▲“Y=”:Z〔8〕+SSin(C+W+90)→Z〔6〕▲Prog“J”三、子程序：JI=PoI(Z〔5〕-H, Z〔6〕-K):If J＜0:Then J+360→J:EIse J→J: IfEnd“F=”:J◆DMS“D=”:I▲四、子程序：ZJZB30→Dim Z:“HX”?→Z〔5〕:“HY”?→Z〔6〕: “ZX”?→H: “ZY”?→K:Prog“J”五、B-D-PQX(对称平曲线)说明1、▲——代表计算器中显示符号（黑色实心三角符号，在计算器中输入方法：SHIFT+X2）。
5800程序
一、FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU 主程序"1.ZS,2.FS" ?→Q输入1正算，输入2反算“NEW=0,OLD≠0”?ZIf Z=0:Then “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2Lbl 1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?LLbl Z:Z=1=> Prog“01”：Z=2=> Prog“02”选择数据库文件，可增加H- F→X:0.5(E-D)÷(G-F)→NC+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→PA+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→UB+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→VQ=2=>Goto 4：Cls：Fix 3"Xn=":Locate 4，1，U："Yn=": Locate 5，2，V：“FWJ=”：P▶DMS◢Norm 2：Cls：Goto 1Lbl 2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S“KMDG=”？H ：90→O:0→L：Goto Z （H线路范围内的任意桩号）Lbl 4:Pol（R-U，S-V）：J<0 => J+360→JWhile abs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=>P+360→P:IF P-J>0:then -I→L:else I→L：ifendGoto 3: Whileend：H+Icos（J-P）→H:Goto ZLbl 3:Cls：Fix 3“KM=”: Locate 4，1，H：“PY=”: Locate 4，2，L◢Norm 2：Cls：Goto 201（数据库子程序）If H<=第一曲线终点桩号：then 第一曲线起点X→A：第一曲线起点Y→B：第一曲线起点方位角→C：起点曲率→D：终点曲率→E：起点桩号→F：终点桩号→G：return：ifend……………IF S<171961.1406:THEN2881008.2613→U:485399.0830→V:171831.1404→O:104 ° 16 ′ 26.65 ″ →A:130→L:-10^45→P:-11000→R: Return:IfEnd ↙程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；2、（NEW=0，OLD≠0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素X0：曲线起点X坐标；Y0：曲线起点Y坐标；C0:曲线起点方位角；R0-1、 RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；SP、 EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。
卡西欧5800计算程序
5800计算程序本程序使用高斯四节点法为计算内核,可以计算任意里程偏距坐标,反算里程和边距,计算任意点高程,分正常计算和设计计算,支持多条线路.支持两种以中线为旋转轴的超高方式,支持加宽,支持带绿化带,支持开口线和坡脚线计算.本程序仅提供大家参考,计算器主程序：ZHU-CHENG-XULbi0:“1，ZS=FS，2ZS，3FS，4XY＝＞SG，5。
”？U:U=1＝＞Prog”ZS=FS”:U=2＝＞Porg”ZS”:U=3＝＞Porg”FS”: U=4＝＞Porg”XY＝＞SG”:…………Goto0://计算器总的主程序，进入选择各种分支计算程序。
1为公路三维计算，2为普通正算，3为普通反算，4为大地坐标转施工坐标。
选择错误重新选择。
公路三维部分正反算选择程序：ZF=FS“1LZ＝＞XY，2XY＝＞LZ,3BIANPO-FY”？U： //正反算选择，正算选1，反算选2If U=1: ThenProg”ZS-XH”:IfEnd://进入正算循环主程序IfU=2:Then Prog”FS-XH”:IfEnd: //进入反算循环主程序IfU=3:ThenProg”BIANPO-FY”:IfEnd://进入边坡开挖主程序正算循环主体程序ZS-XH“1PT-2SJ”？W：//普通计算和设计边距计算选择“XL-XZ“？U //选择线路1～NIfW=1: Then //运行普通计算模式边踞自由输入Lbi0:”L=”?L:”Z=”?Z: //输入桩号和边距Porg”ZS-XH-1“：Goto0:IfEnd:运行正算循环子程序IfW=2:Then //运行设计计算模式边距按设计输入Lbi1:”L=”?//输入桩号Porg”0。
5LUKUAN”://录入公路加宽后，左右侧设计边距Porg”ZS-XH-1“：Goto1:IfEnd:运行正算循环子程序正算循环子程序ZS-XH-1Prog”PM-XL-XZ”: //进入平面线路选择程序对线路线元进行选择Prog”CHAOXIAN-CL” //里程超限处理Prog”GL-ZS”: //进入坐标正算程序Prog”GL-BZ-ZS” //进入公路边桩正算程序Prog”GC-XL-XZ”: //进入高程线路选择程序对线路线元进行选择Prog”GC”://进入高程部分提取中桩高程IfW=1:ThenProg”B-H”://普通计算时进入边桩高程部分提取边桩高程ElseZ[3] →Z: //按设计计算时候代入减去半边绿化带后的路基边距Prog”ZS-XS”: //进入正算显示程序，提取正算三维结果反算循环主体程序FS-XH“XL-XZ”？U：//选择线路 1～NLbio：“L”？L：“X=”？T：“Y=”？S： //输入起算假定桩号，实测X YProg”GL-FS”: /进入公路反算程序Prog”FS-XS”:Goto0: //进入反算显示程序坐标正算程序GL-ZS.1739274226→I:.3260725774→J:.0694318442→K:.3300094782→E //四节点法计算系数录入1-E→F：1-K→M：Q+KrO(C+KD) →K: 数据库要用X、Y、Q作为起点坐标方位角Q+ErO(C+ED) →E:Q+FrO(C+FD) →F:Q+MrO(C+MD) →M:X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M)) →X: //计算出X坐标Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M)) →Y: //计算出Y坐标Q+Or(C+D) →Q： //计算出算点方位角边桩坐标计算程序ZS-BZX+Zcos(Q+90) →G //计算出边桩X坐标Y+ZSin(Q+90) →M //计算出边桩Y坐标公路反算程序GL-FS20→V: //V值设置为20，为第一次反算控制Do:Porg”PM-XL-XZ”://进入平面线路选择程序Porg:”CHAOXIAN-CL”://里程超限处理程序IfV＞10: // V越小反算速度可能越慢，但是半径过小有可能算不出来，10为建议值Then Porg”GL-JY-ZS”://进入公路简易正算二节点程序Else Porg”GL-ZS”: //进入公路正算4节点程序IfEnd:T-X→I:S-Y→J: //试算点与测点X，Y距离差Pol(I,J):J-Q→J: //方位角转换为接近试算点到测点的值：Rec(I,J): //计算出X差和Y差（X里程，J边）I+(1-CJ-2DJ) →V //计算出里程大致差距（此公式为加速反算）L+V→L：//修改后的里程Abs(V) →V: //修改值的绝对值LpWhile V＞1m: //小于一毫米通过，大于一毫米循环计算中桩高程计算程序GCIf I-J＜0:Then1→H:IfEnd: //开口向上部分赋值IfI-J=0:ThenGoto1: IfEnd: //无竖曲线部分赋值IfI-J＞0:Then-1→IfEnd: //开口向下时赋值(L-C)I+K+(L-C)^2/(2E)H→I：//计算得出竖曲线部分中桩高程Goto2:Lbi1:K+(L-C)I→I: Lbi2: //计算得出无竖曲线部分中桩高程边桩高程计算程序B-H（L-C）/（D-C）→P: //计算点占本线元长比例3P^(2^(S))-2P^(3^(S)) →P: //计算得线性和高次抛物线系数F+P（T-F）→E： //初步计算计算点横坡If V=1:Then If N= -1:Then //直线和直缓，缓直,曲线左偏时Z＜0：ThenIfE＞Z[4]:ThenZ[4]→E: IfEnd : //计算左侧时，横坡大于一般横坡取一般横坡I+Abs(Z)E→O: IfEnd : //左侧高程IfZ＞0:Then I+ZF→O:IfEnd: //右侧高程得数If N=1:Then IfZ＜0:Then I+Abs(Z)E:IfEnd: //曲线右偏时，左侧高程得得IfZ＞0:Then If E＞Z[4]:Then Z[4]→E:IfEnd //右侧高程横坡大于一般横坡，取一般横坡I+ZE→O:IfEnd: IfEnd: IfEnd: //右侧高程得数IfV=2:ThenIf Z＞0:Then I+ZE→O:IfEnd://圆曲线全超高和S曲线超高渐变部分右侧高程得数IfZ＜0:ThenI-Abs(Z)E→O:IfEnd:IfEnd: // 圆曲线全超高和S曲线超高渐变部分左侧高程得数设计标准路面宽度子程序 CHANGSHU12→Z[1]：//选择12米为路面半宽度，根据设计修改1.5→Z[2]：//选择1.5米为绿化带半宽-0.02 →Z[4] //一般横坡录入路面宽度子程序 0。
卡西欧5800程序
卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版1.主程序：一般坐标计算及放样程序-----交点法程序名:1-JDLal 0:10→DimZ:Norm 2:1→A:＂A: XY=1,KMD=2＂? A:A=1=>Goto 1:A=2=>Goto 2: （选择正算还是反算）Lal 1:Lal A:Prog＂QX＂: 90→B ＂PJ＂?B:B→Z[1]: （默认与道路切线方向90度）Lal B:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂:?D:（输入正算计算里程，输入-1则停止，输入- 2转反算），偏距默认中桩0，左为-，右为+，）Porg＂Z＂:I+Dcos(Z[2]+Z[1]→X:J+Dsin(Z[2]+Z[1]→Y:Fix 3:＂X=＂:Locate 6,4,X: ＂Y=＂:Locate 6,4,Y: ＂FWJ＂=:Locate 6,4,Z[2]◢（显示坐标，切线方位角）Prog “S-Z”: Prog “3-GC”: “H=”：H◢（高程计算并显示，如不需要高程此部分可以省略） Prog＂5-SD＂:＂-CW +QW=＂:M◢（隧道超欠挖，如不需要此部分可以省略）LpWhile Z≠-1(Goto B此处也可以用这个命令)Lal 2 Prog＂QX＂: （选线，默认（线路1） X1=1，（线路2）X2=2.........）Lal C:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: （反算时输入大概桩号，输入-1则停止，输入-2正算）Prog＂K＂: ＂X0＂?X: ＂Y0＂?Y: Porg＂B＂Fix 3: ＂KM＂:Lcoate6,4,Z: ＂D=＂:Locate 6,4,D◢Prog “S-Z”: Prog “3-GC”: “H=”：H◢Prog＂5-SD＂:＂-CW +QW=＂:M◢LpWhile Z≠-1(Goto C此处也可以用这个命令)2．线路中线元段判别子程序（K）程序名：KIf Z[3]=0:Then Return: IfEnd:If Z[3]=1:Then Prog “X1”:Return:IfEnd：If Z[3]=2:Then Prog “X2”:Return:IfEnd：If Z[3]=n:Then Prog “Xn”:Return:IfEnd.....（后面可以增加N条线路！！但需要在QX程序里面＂QX:?=0,X1=1,X2=2，Xn=n＂做更改）。
fx-5800p计算器程序
X=RB-SC（32005.7801+V(133.9123+0.7032V)）;
S=SinB;C=CosB;V=Sin2B;R=6367558.49686;B为纬度。
T=tgB;h=T2;E=67.385254×10-4；M=W2；W=CosB;
Q=l+E;N=6399698.90178/ ;l=L+L0。
具体操作步骤
步骤
按 健
显 示
步骤
按 健
显 示
1
AC
光标闪动
2
FILE
文件屏幕
3
上下移光标
DA HUAN ZHI
4
EXE
B=?
5
43°42′10″EXE
L=?
6
127°26′51″EXE
A=
7
129 EXE
P=?
8
6EXE
X=4842055.202
9
EXE
Y=22374857.150
10
EXE
OK
计算结果：X=4842055.202;Y=22374857.150
“Y=”：D+（（（（H-18）H-（58H-14）E+5）M÷20+Q-H）M÷6+1）NW◣
”OK”
4、变量名称和存储器内容
此程序是大地坐标化为直角坐标，即B、L坐标化为X、Y坐标。
B-----该计算点的纬度（°′″）；
L-----该计算点的经度（°′″）；
A------经度所在中央子午线度数（°）；
EXE
H=319.709
27
EXE
OK
计算结果
边号
水平距离
fx-5800p 部分程序
CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?JX+ICos(J)→U:Y+ISin(J)→V＂X=″:U （待求点的X坐标）＂Y=″:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?VPol(U-X,V-Y):J<0 J+360→J＂I=″:I＂J=″:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1＂DQHAO=″?LL<G Or L＞C GOTO 2＂PY=″?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o＂FWJ=″:o DMSGoto 1Lbl 2＂END″说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S＂T″:SJ-T→XJ＋T→YLbl 0＂DQ=″?LIf L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1＂END″说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。
卡西欧fx-5800P程序
卡西欧fx-5800P程序1坐标反算(ST)Lb1 1：＂X1=＂？A：＂Y1=＂？BLb2 2：＂X2=＂？C：＂Y2=＂？D＂S(1-2)=＂：POL(C－A,D－B)→S▲IF J﹥0：Then J→T：Else J+360→T：If End＂T=＂：T→DMS▲＂K=＂？ＫIf K=1：Then Goto1：If EndIf K=2：Then Goto2：If EndIf K=3：Then C→A：D→B：Goto 2：If End 0说明：1、首先输入架站点坐标X0、Y0（O点）。
2、再输入后视点坐标XP、YP（P点）。
3、计算出O―P的边长S和方位角J。
4、当K＝1时，重新输入O、P点的坐标。
5、当K＝2时，以原O点坐标不变，重新输入新P点坐，计算出边长S和方位角J。
6、当K＝3时，以原P点坐标为架站点坐标O（X0、Y0），重新输入新的P点坐标，计算出边长S和方位角J。
2 坐标正算(XY)LbI 0：＂X0=＂？A：＂Y0=＂？B：＂P(1→Z，2→F)=＂？PIf P=1：Then Goto2：Else Goto5：If EndLbI 2：＂XA=＂？C：＂YA=＂？D＂S(0－A)=＂：POL(C－A，D－B)→S▲IF J﹥0：Then J→F：Else J+360→F：If End＂T(0－A )=＂：F→DMS▲Goto6Lb1 5：＂T(0－A )=＂？FLb16：＂S(0－P )=＂？S：＂E(∠AOP=)＂？EE+F→T：＂XP=＂：A+Rec(S，T) →X▲＂YP=＂：B+J→Y▲If T≥360：Then T-360→T：If End＂T(0－P)=＂：T→DMS▲＂K=＂？KIf K=1：Then Goto0：If EndIf K=2：Then Goto6：If EndIf K=3：Then X→A：Y→B：T+180→F：Goto6：If End说明：1、首先输入架站点O（X0、Y0）坐标2、输入判断值P: 当P=1时输入后视点的坐标，计算出到后视点距离＂S(0－A)=＂S和方位角T(0－A )=F; 当P=2时直接输入后视点的方位角T(0－A )=F。
5800计算程序
COSIO FX5800线元法正反算程序①主程序 TYQXJS10→DimZ ↙“1.SZ=＞XY=＞：“2.XY=＞SZ”：？N：If N=1:Then Goto 1:Else Goto 2 :IfEnd↙Lbl 1 : Prog “DXD”:Lbl 3 : ？S：？Z：Prog “QXYS1”：1÷P→C ：（P-R）÷（2HPR）→D：180÷π→E ：Abs (S- O) →W : 90 →Z[3]: Porg “SUB1”: “XS=”: X◢“YS=”：Y◢“Fs=” : (F-Z[3]) ►DMS◢Pol (X-Z[1],Y-Z[2]) ↙If J≤0: Then J+360→J : IfEnd↙“J=” : J ►DMS◢“I=”: I ◢-1→T: “HDJS”？T : If T ≠ -1 ：Then Prog “HDJS” : IfEnd↙Goto 3↙Lbl 2 : ？X : ? Y : X→I : Y →J : 90→Z[3] : prog “SUB2” : “ S=” : O +W ◢“Z=”:Z ◢ Goto 2↙如果正算时需要计算斜交涵洞,就把Lbl 1语句段中的90→Z[3]改为斜交右夹角→Z[3],Lbl 2语句段中的Z[3]=90是永远不用改动的。
注意：不用再计算斜交时要记得改回来,不然会出现很不可思议的错误。
②子程序1 （SUB2）0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K →M：U+W（Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+ QEFW(C+FWD))+Acos(G+QEMW(C+MWD))）→X：V+W （Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+ QEFW(C+FWD))+ Asin(G+ QEMW(C+MWD)) ) →Y：G+ QEW(C+WD)+ Z[3] →F：X+Zcos (F) →X：Y+Zsin (F) →Y↙③子程序2 (SUB2)？S: Prog “QXYS1”:1÷P→C:(P-R) ÷(2HPR) →D:180÷π→E:G-90→T:Abs((Y-V) cos(T)-(X-U) sin(T)) →W: 0→Z: Lbl 0: Prog “SUB1”: T+ QEW(C+WD) →L:(J-Y) cos(L)-(I-X) sin(L) →Z: If Abs(Z)＜0.000001 ：Then Goto 1: Else W+Z→W: IfEnd: Goto 0↙Lbl 1:0→Z: Prog “SUB1”: (J-Y) ÷sin(F) →Z↙④导线点数据库 (DXD)“DIAN HAO”?A: If A=点号：Then X坐标→Z[1]: Y坐标→Z[2]: IfEnd↙以此类推。
5800隧道超欠挖程序
卡西欧计算器FX-5800正反算、隧道超欠挖计算程序正算主程序(ZS)：Lb1 0：?S：?Z：Prog “PM-SJ”：Abs(S-O) → W：Prog "SUB1"："XS="：X ◢"YS="：Y◢F-90→F:S→ K:Prog“SQX”：“H=”：H◢Goto 0反算主程序(FS)Lb1 0: ?S：?X：？Y：Prog“PM-SJ”：X→ I：Y→ J：Prog "SUB2"："S="：O+W→S◢"Z="：Z◢S→ K:Prog“SQX”：“H=”：H◢Goto 0隧道3心圆放样主程序（SD-3XY）正算子程序(SUB1)1÷P→ C：(P-R)÷(2HPR) → D：180÷π→ E：0.1739274226→ A：0.3260725774→ B：0.0694318442→ K：0.3300094782→ L：1-L→ F：1-K→ M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+F WD))+Acos(G+QEMW(C+MWD))) → X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+F WD))+Asin(G+QEMW(C+MWD))) → Y：G+QEW(C+WD)+90→ F：X+ZcosF→X：Y+ZsinF→ Y反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sin（T）) → W：0→ Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD)→L：(J-Y)cosL-(I-X)sinL → Z：ifAbsZ<1E-6：thenGoto1：ElssW+Z → W：Goto 0：IfEndLbl 1：0→ Z：Prog "SUB1"：(J-Y)÷sinF→ Z子程序（平面线形数据库）PM-SJifS ≥？（线元起点里程）AndS＜？（线元止点里程）：Then？→U（线元起点X坐标）：？→V（线元起点Y坐标）：？→O（线元起点里程）：？→G（线元起点方位角）：？→H（线元长度）：？→P（线元起点曲率半径）：？→R （线元终点曲率半径）：？→Q（线元左右偏标志：左负右正）：IfEnd子程序（竖曲线计算公式）SQX。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
X—5800P 公路中线、边桩程序一、主程序 ZBJS18→DimZ:“X0 =”? K: “Y0 =”? D: ? A: ?R: “Ls =”? L: 180/（πR）→ Z [8]: 0.5L-L3/（240R2）→Q:“T=”:(R+L2/(24R))tan(0.5A)+Q→T◢Z[8]L/2→B:“O=”: A/Z[8]+L→O◢(本行中O为字母)“E=”: (R+ L2/(24R))/ （Cos(0.5A)）-R→E◢“JD=”？ Z: “ZH=”:Z-T→Z[18]◢“HY=”: Z[18]+L→ Z[1] ◢“QZ=”: Z[18]+0.5O→Z[9] ◢(本行中O为字母)“YH=”: Z[18]+O- L →Z[2]◢(本行中O为字母)“HZ=”: Z[18]+O→Z[3]◢(本行中O为字母)“P(1,2)=”?P:“X(JD)=”? U: “Y(JD)= ”? V: “FWJ=”?F:Lbl0: “K=”?M:If M≤Z[18]： Then GoTo 6：IfendIf M ≤Z[1]： Then GoTo 1: IfEndIf M <Z[2]： Then GoTo 2: IfEndIf M ≥ Z[3] ：Then GoTo 7：IfEndIf M ≥ Z[2] ：Then GoTo 5：IfEndLbI 1 : M- Z[18]→G ：√-- ((G-G5/(40R2L2))2+(G3/(6RL)-G5/(336R3L)2) →Z[10]:If P<2 :Then F+Z[8]G2/(6L)→C:F+BG2/L2→H：Else F-Z[8]G2/（6L）→C:F-BG2/L2→H：GoTo 3: IfendLbI 2: M-Z[1] →G:R(1-Cos(B+Z[8]G))+L2/（24R）→W:√￣(W2+(RSin(B+Z[8]G)+Q)2) →Z[10]:If P<2 :Then F+tan-1(W/(R Sin(B+Z[8]G)+Q)) → C:F+B+Z[8]G→H：Else F-tan-1(W/(R Sin(B+Z[8]G)+Q))→C:F-B-Z[8]G→H：IfendLbI 3:“X=”: U+T Cos(F-180)+Z[10] Cos（C）→X:“Y=”: V+T Sin(F-180)+Z[10] Sin（C）→Y:Prog“A ”:LbI 4: X →Z[6]: Y→Z[7]:“S=”?S:“Z(X)=”:Z[6]+S cos(H-90)→X◢“Z(Y)=”:Z[7]+S Sin(H-90)→Y◢ Prog“A ”:“Y(X)=”:Z[6]+S Cos(H+90)→X◢“Y(Y)=”:Z[7]+S Sin(H+90)→Y◢ Prog“A ”: GoTo 0:LbI5: Z[3]-M→G:(T-G+G5/(40R2L2))Sin(A)+(G3/(6RL)-G5/(336R3L))Cos(A)→Z[4]:T+(T-G+G5/(40R2L2))Cos(A)-(G3/(6RL)-G5/(336R3L))Sin(A)→Z[5]: √￣(Z[4] 2+Z[5] 2) → Z[10]:If P<2 :Then F+tan-1(Z[4]/Z[5]) →C: F+A-BG2/L2→H:Else F- tan-1(Z[4]/Z[5])→C: F+A-BG2/L2→H :GoTo 3: IfEndLbI6: Z-M→ Z[10]: F+180 →C: F→ H: GoTo 8:LbI7: T+M-Z[3] →Z[10]:If P<2:Then F+A →C:Else F-A →C: C→H: IfEnd:LbI8:“X=”: U+Z[10] cos(C)→ X◢“Y=”: V+Z[10] Sin(C)→ Y◢ Prog “A ”:GoTo 4子程序一： A0→I：0→J：Pol（X-K，Y-D）:“D=”: I →Z[11]◢If Y-D≥0 Then “F=”: J→ Z[12]◢（本行中O为字母）Else “F=”: 360+J →Z[12] ◢ IfEnd子程序二(虚交交点座标计算) XJJDZB?N: N-1→N：“TA=”?A ： 0 →Ο(字母)： 0→ Q：LbI 0：“AB=”?S：“TB=”?B:（S+O）SinB/ Sin（A+B）+Q→Q：（S+O）SinA/ Sin（A+B）→O：A+B→A：“ZJ-A=”:A◢N-1→N：If N=0:Then GoTo 1：Else: GoTo 0:IfendLbI 1：“JD1(TA)=”?I: “T1=”:Q◢“Z(JD )=”: I+Q→Z◢Z-I →K：?F:If K≥0:Then F→H: Else F+180 →H:Ifend“（TA）X=”?C:“(TA) Y=”?D:“U=”:C+AbsKcosH→ U◢“V=”:D+Abs(K SinH)) → V◢Prog “ZBJS ”子程序三(距离、方位角计算)（可独立使用）： DF ？A:? B:LbI 0: ？X: ?Y:0→I:0→J: PoL(X-A,Y-B): “D=”： I →D◢If Y-B≥ 0:Then“F=”： J→ F◢Else “F=”： 360+J →F◢ Ifend :GoTo 0二、独立程序：导线坐标计算DXZB“X0”？X: “Y0”？ Y:LbI 0:？I：？S: F+I →F:“X=”:X+ScosF →X◢“Y=”: Y+SsinF→Y◢If F＜0:Then F=360+F :IfendIf F＞360:Then “F=”: F-360→F◢ Ifend : Goto 0 序号I S--导线间距X--坐标Y--坐标方位角BP0º0′0"134.26X0坐标240.63Y0坐标193.744120º12′45"起始边方位角FºJD1TA -21º45′57" 36.77 408.0642.259 98º26′48" JD1TB -16º29′25" 30.56 449.86239.377 81º57′23" JD2 14º01′28" 64.05 686.88252.686 95º58′51" JD3 37.73 938.19``说明：一、当放线为虚交时，启动<虚交交点座标计算>程序：即：子程序三；二、当放线为单交时，启动主程序即可计算；三、程序中符号说明：（1）. 启动主程序时:X0 ?、Y0 ?——请分别输入仪器点X坐标、Y坐标值Ls ?——输入缓和曲线长；R ?——输入圆曲线半径长度；ZJ-A ?——输入交点总偏角度数；T、O、E、分别为计算出的曲线元素；JD ?——输入总交点里程（一般由公里数输至厘米,且以米为单位）；1，2 ?——输入曲线偏向：左偏输入2，右偏输入1；X（JD）? Y（JD）?——分别输入总交点的X、Y坐标；CD ?—输入放样点里程桩号；F ?——输入前一个交点至欲放样曲线交点的方位角；X=、Y=—计算出的放样点中桩坐标；D=、F=——计算出的置仪点至放样点的距离及方位角；S ?、N ?——分别为中桩至左、右侧边桩的距离；Zx=、Zy=、Yx=、Yy=——计算出的左、右边桩位置的X、Y坐标；D=、F=——置仪点到放样点的距离、方位角：（2）.启动虚交程序时N ? 虚交交点个数；A?—第一虚交偏角；S?—相联两虚交点间间距，共计N-1段；B ?——分别第二至第N个虚交交点的偏角；JD(TA) ?——输入TA点的交点里程桩号；T1=—第一切线长度；JD=——计算出的总交点的里程桩号；F ?——欲放样曲线的第一虚交至前一个曲线交点的方位角；C ?、D ?——分别为TA点的X、Y坐标。
当按提示输入完数据后，程序自动转入主程序进行正常计算。
程序应用计算示例：一、局部坐标系统：ZJD坐标（2631644.924，622165.644）某曲线 Ls=45m，TA：ay=1°19′28″，TB=：az=12°18′03″，AB=24.810 ，TC=：az=29°43′56″，AB=16.540 ，R=120m，JD1-TA里程：K47+862.59，选择TA置仪器，即置仪点TA坐标：（2831619.125，622137.680），后视归零点坐标：（2831359.947，621873.850）。
ZJD坐标（2831644.924，622165.644）;ZJD=47+900.637;A=40°42′31″提示行显示数据输入及结果显示Ls？55 P= 1.05I A？1°19′28″Q= 27.45AB? 24.810 Xp= 54.71I B？12°18′03″Yp= 4.20AB? 16.540I B？29°43′56″R? 120T= 72.36L= 140.260E= 9.112T1= 34.313T2= 68.410JD? K47+862.59ZH= K47+828.27HY= K47+883.27QZ= K47+898.4YH= K47+913.53HZ= K47+968.53X A? 1619.125Y A? 2137.680F°? 47°18′19″Z(Y)? 2 (-1)X0? 1359.947Y0? 1873.850K? K47+900（一）1、各中桩坐标及放样角度、平距结果如下：桩号X Y Deg S 备注K47+600 1441.065 1944.682 227°18′19″262.59 直线K47+828.27 1595.853 2112.456 227°18′19″34.32 ZHK47+860 1617.948 2135.217 244°27′51″ 2.73 ZH~HY K47+883.27 1636.028 2149.829 35°42′22″20.82 HYK47+900 1650.479 2158.234 33°14′49″37.49 HY~YH K47+913.53 1662.930 2163.509 30°31′31″50.85 YHK47+940 1688.536 2170.097 25°02′04″76.60 YH~HZ K47+968.53 1716.799 2173.956 20°22′30″104.19 HZK48+000 1748.060 2177.571 17°11′29″134.97 直线（一）2、各右边桩（右6米）坐标及放样角度、平距结果如下：桩号X Y Deg S 备注K47+600 1436.655 1948.751 225°59′47″262.66 直线K47+828.27 1591.443 2116.524 217°23′17″34.84 ZHK47+860 1613.861 2139.609 159°52′17″ 5.61 ZH~HY K47+883.27 1632.658 2154.793 51°39′47″21.82 HYK47+900 1647.831 2163.618 42°06′02″38.69 HY~YH K47+913.53 1660.905 2169.157 36°59′40″52.31 YHK47+940 1687.480 2176.004 29°16′39″78.37 YH~HZ K47+968.53 1716.109 2179.916 23°31′58″105.78 HZK48+000 1747.371 2183.531 19°40′24″136.20 直线（一）3、各左边桩（左6米）坐标及放样角度、平距结果如下：桩号X Y Deg S 备注K47+600 1445.475 1940.614 228°36′51″262.66 直线K47+828.27 1600.263 2108.387 237°13′18″34.84 ZHK47+860 1622.035 2130.824 293°00′04″7.45 ZH~HY K47+883.27 1639.399 2144.865 19°30′53″21.51 HYK47+900 1653.127 2152.850 24°02′39″37.23 HY~YH K47+913.53 1664.956 2157.862 23°45′58″50.08 YHK47+940 1689.591 2164.191 20°37′03″75.29 YH~HZ K47+968.53 1717.488 2167.996 17°07′46″102.93 HZK48+000 1748.749 2171.611 14°40′08″133.99 直线二、统一坐标系统某曲线 Ls=50m，TA：az=24°40′00″，TB=：az=54°48′35″，AB=126.048 ，R=157.93m，JD2TA里程：K48+854.06，选择TA置仪器，即置仪点TA坐标：（2831051.905，621376.212），后视ZH归零点坐标：（2830949.681，621362.269）。