5800计算程序

合集下载

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，每增加一个工程增加一个文件。

5800卡西欧计算器程序大全

5800卡西欧计算器程序大全1.基本数学运算程序-加法：输入两个数字，然后计算它们的和。

-减法：输入两个数字，然后计算它们的差。

-乘法：输入两个数字，然后计算它们的积。

-除法：输入两个数字，然后计算它们的商。

-平方根：输入一个数字，然后计算它的平方根。

-幂运算：输入两个数字，然后计算第一个数字的第二个数字次方。

2.科学计算程序-对数运算：输入一个数字和一个底数，然后计算它们的对数。

-三角函数：输入一个角度，然后计算它的正弦、余弦和正切值。

-阶乘计算：输入一个数字，然后计算它的阶乘。

-指数函数：输入一个数字，然后计算e的这个数字次方。

-随机数生成：生成一个随机数。

3.金融计算程序-终值计算：输入本金、利率和时间，然后计算将来其中一时刻的价值。

-现值计算：输入将来其中一时刻的价值、利率和时间，然后计算现在的价值。

-年金支付计算：输入每期支付的金额、利率和时间，然后计算总支付金额。

-贷款利率计算：输入贷款金额、每期支付金额和时间，然后计算贷款利率。

-折现计算：输入每期支付金额、利率和时间，然后计算折现值。

4.统计计算程序-平均值计算：输入一组数字，然后计算它们的平均值。

-中值计算：输入一组数字，然后计算它们的中值。

-方差计算：输入一组数字，然后计算它们的方差。

-标准差计算：输入一组数字，然后计算它们的标准差。

-相关系数计算：输入两组数字，然后计算它们的相关系数。

以上只是一部分5800卡西欧计算器程序的示例，卡西欧计算器还提供了更多的功能，例如单位转换、时间计算、日期计算等等，可以根据实际需求选择使用。

希望以上内容对您有所帮助。

CASIO5800计算器测量计算程序

CASIO5800计算器测量计算程序
程序功能：温度单位转换和体积计算
--------------------------------------------------------------
1.温度单位转换：
a.华氏度转摄氏度：C=(F-32)*5/9
b.摄氏度转华氏度：F=C*9/5+32
2.体积计算：
a.圆柱体体积计算：V=π*r^2*h
b.球体体积计算：V=(4/3)*π*r^3
--------------------------------------------------------------
程序开始：
1.清零操作：
a.按下【AC】键，确保计算器归零。

2.温度单位转换：
a.输入待转换的温度值，例如华氏度的数值。

b.使用【-】键计算华氏度转摄氏度，或者使用【+】键计算摄氏度转华氏度。

c.输入转换得到的温度值。

3.体积计算：
a.选择需要计算的体形，例如圆柱体或球体。

b.输入相应的参数，例如半径和高度。

c.使用【×】键计算圆柱体体积，或者使用【÷】键计算球体体积。

d.输入计算得到的体积值。

--------------------------------------------------------------
程序结束。

这只是一个简单的示例程序，CASIO5800计算器具有更多的功能和测量计算程序。

用户可以根据需要自行设计和编写更复杂的程序。

5800程序

5800程序本程序由3个主程序、5个子程序及3个参数子程序组成。

主要用于公路测量中坐标正反算，设计任意点高程及横坡计算，程序坐标计算使用于任何线型。

一、主程序1、程序名:1ZD-XY(一般放样正反算程序，①正算坐标，放样点至置仪点方位角及距离；②反算桩号及距中线距离)Lbl 0:Norm 2:Deg:“F=”?F:(正反算判断，F=1正算，F=2反算)90→Z[1]:(与路线右边夹角)Prog“THB”:F=1=>Goto 1:F=2=>Goto 2:Lbl 1:Fix 3: “ X=”:Locate 6,4,X◢“ Y=”:Locate6,4,Y◢:Prog“3JS”: Goto 0:Lbl 2: Fix 3: “KM=”:Locate 6,4,Z◢:“ D=”:Locate 6,4,D◢:Goto 02、程序名:2GC(高程、横坡程序，计算任意点高程及横坡)Lbl 0:Norm 2:“KM”?Z:?D:Prog“H” :Fix 3: “ H=”:Locate6,4,H◢“ I=”:Locate6,4,I◢:Goto 03、程序名:3JS(极坐标放样计算程序，计算放样点至置仪点方位角及距离)X:Y:1234，123→K:(置仪点X坐标)4567，456→L:(置仪点Y坐标)Y-L→E:X-K→F:Pol(F,E):Lf J<0:Then J+360→J:IfEnd:“FWJ=”:J▲DMS◢Fix 3: “ S=”: Locate6,4,I◢二、子程序1、程序名:THB(坐标计算子程序)18→DimZ: “KM”?Z: Prog“X0”:1÷P→C:(P-R)÷(2HPR) →S:180÷π→E: F=1=>Goto 1:F=2=>Goto 2:Lbl 1:?D:Abs(Z-O)→W: Prog“A”:X:Y: Goto 3:Lbl 2:?X:?Y:X→I:Y→J: Prog“B”:O+W→Z:D→D: Goto 3:Lbl 3:If F=1:Then X:Y:Else Z:D:IfEnd注:Z为反算的桩号，D为反算的点到中线的距离。

5800计算器程序

5800计算器程序坐标（商洛环城北路）主程序？S:If S≤173.546: Then 0(零)→O(欧):999→H: 89º40＇35＂→G: 87565.571→U: 949090.466→V: 1Χ1045→P: 1Χ1045→R: 0→Q:If S≤323.546: Then173.546→O(欧) :150→H: 89º40＇35＂→G: 87566.551→U: 95083.009→V: 1Χ1045→P: 650→R: 1→Q: Goto1:If S≤478.577: Then323.546→O(欧): 888→H: 96º17＇14.79＂→G: 87561.633→U: 95232.84→V: 650→P: 650→R: 1→Q: Goto1:If S≤628.577: Then478.577→O(欧): 150→H: 109º57＇10.85＂→G: 87526.525→U: 95383.466→V: 650→P: 1Χ1045→R: 1→Q: Goto1:If S≤793.786: Then628.577→O(欧): 999→H: 116º33＇50.64＂→G: 87464.69→U: 95520.03→V: 1Χ1045→P: 1Χ1045→R: 1→Q: Goto1:If S≤893.786: Then793.786→O(欧): 100→H: 116º33＇51＂→G: 87390.809→U: 95667.799→V: 1Χ1045→P: 400→R: 1→Q: Goto1:If S≤1041.764: Then893.786→O(欧): 888→H: 123º43＇34.1＂→G: 87342.436→U:95755.241→V: 400→P: 400→R: 1→Q: Goto1:If S≤1141.764: Then1041.764→O(欧): 100→H: 144º55＇20.73＂→G: 87239.63→U: 95860.502→V: 400→P: 1Χ1045→R: 1→Q:If S≤1194.723: Then1141.764→O(欧): 999→H: 152º5＇4＂→G: 87153.353→U: 95910.924→V: 1Χ1045→P: 1Χ1045→R: 0→Q:If S≤1313.138: Then1194.723+5.277→O(欧): 999→H: 152º5＇4＂→G: 87106.556→U: 95935.718→V: 1Χ1045→P: 1Χ1045→R: 0→If S≤1433.138: Then1313.138→O(欧): 120→H: 152º5＇4＂→G: 87006.583→U: 95988.686→V: 1Χ1045→P: 400→R: -1→Q: Goto1:If S≤1592.985: Then1433.138→O(欧): 888→H: 143º29＇24.28＂→G: 86903.589→U: 96050.033→V: 400→P: 400→R: -1→Q: Goto1:If S≤1712.985: Then1592.985→O(欧): 120→H: 120º35＇37.08＂→G: 86797.255→U: 96167.956→V: 400→P: 1Χ1045→R: -1→Q:If S≤2117.663: Then1712.985→O(欧): 999→H: 111º59＇57＂→G: 86746.851→U: 96276.724→V: 1Χ1045→P: 1Χ1045→R: 0→Q: Goto1:If S≤2247.663: Then2117.663→O(欧): 130→H: 111º59＇57＂→G:86595.26→U: 96651.938→V: 1Χ1045→P: 400→R: 1→Q: Goto1:If S≤2394.992: Then2247.663→O(欧): 888→H: 121º18＇35.03＂→G: 86540.174→U: 96769.522→V: 400→P: 400→R: 1→Q: Goto1:If S≤2524.922: Then2394.922→O(欧): 130→H: 142º24＇10.9＂→G: 86442.467→U: 96878.585→V: 400→P: 1Χ1045→R: 1→Q: Goto1:LbI1: Prog“C”注：O（欧）(桩号)H（长度）G（方位角）U（X坐标）V（Y坐标）P（起点半径）R（终点半径）Q（左（-1），右（1））Goto1：IfEnd(每小段之后输入的，在每段的末尾)LbI1: Prog“C”（本程序完成后输入的，在程序最末尾）5800计算器高程程序（商洛环城北路）主程序?S:If S≤21.6177:Then 0(零)→O(欧):0.273→I:726.970→A:0(零)→O（欧）If S≤97.836:Then 21.6177→O（欧）:727.560→A:0.0273→I:-1→Q:6000→If S≤1194.723:Then 97.836→O（欧）:730.1251→A:0.04→I:0（零）→If S≤1370:Then 1200→O（欧）:774.0006→A:0.04→I:0（零）→If S≤1650:Then 1370→O（欧）:780.800→A:0.04→I:1→Q:GotoIf S≤2210:Then 1650→O(欧):784.160→A:-0.016→I:0（零）→If S≤2450: Then2210→O（欧）:775.200→A:-0.016→I:-1→Q:10000→If S≤2919: Then2450→O（欧）:774.240→A:0.008I:0（零）→Q:GotoIf S≤3161: Then 2919→O（欧）:777.992→A:0.008→I:-1→Q:11000→If S≤3370:Then 3161→O（欧）:782.590→A:0.03→I:0（零）→Q:GotoIf S≤3550:Then 3370→O（欧）:788.860→A:0.03→I:1→Q:4000→If S≤5744.274:Then 3550→O（欧）:790.210→A:-0.015→I:0（零）→If S≤5973.726:Then 5744.274→O（欧）:757.296→A:1→Q:-0.015→I:20000→If S≤6912.549:Then 5973.726→O（欧）:752.538→A:-0.0265→I:0（零）→If S≤14271.532:Then 14000→O（欧）:783.460→A:-0.015→I:0（零）→If S≤14382.468:Then 14271.532→O（欧）:779.387→A:-0.015→I:-1→Q:40000→If S≤15089.066:Then 14382.468→O（欧）:777.8783→A:-0.0122→I:0（零）→If S≤15242.934:Then 15089.066→O（欧）:769.238→A:-0.0122→I:1→Q:20000→If S≤15637.211:Then 15582.789→O（欧）:759.994→A:-0.019→I:-1→Q:10000→If S≤15689.638:Then 15637.211→O（欧）:759.045→A:-0.015→I:0（零）→LbI 1:Prog “ZH”A:前一个标高 O（欧）：前一个桩号 ZH是通用公式I：坡比 Q为零指在竖曲线的直线部分，+1为凸曲线，-1为凹曲线有半径的地方输入半径，没有的则不输现有的公式不能计算左右边桩的高程，如果要计算的话就在通用公式里加上0.015Z即：A+(S-O欧)I-Q*(S-O欧)2/(2R)→H⊿变为：A+(S-O欧)I-Q*(S-O欧)2/(2R)-0.015Z→H⊿改变后计算容易出现错误，轻易不要改变原公式。

5800计算器程序

TYQXJS(主程序名)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:?Q1÷P→C：(P-R)÷(2HPR) →D：180÷π→EN=2=>Goto 2LbI 1:Cls:?SS=0=>Goto 0 (注:當S輸入0時,程序會由LbI 0開始重新運行)Z:Abs(S-O)→WProg"SUB1":Cls"XS=":X◢"YS=":Y◢"FS=":F-90 ►DMS◢Goto 1LbI 2:Cls:?XX=0=>Goto 0 (注:當X輸入0時,程序由會LbI 0開始重新運行)Y:X→I:Y→JProg"SUB2":O+W→S:Cls"S=":S◢"Z=":Z◢Goto 2注:紅色部可以不要,亦可以要,它的作用是將S或X輸入0時,程序會重新由頭開始運行,(即是可以計算下段線元)SUB1(子程序名)0.→A:0.→B0.→K:0.→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])→X (剩號可省略)X+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注:1E-6即是10的負6次方,亦即是等於0.輸入時按SHIFT---log---(-)---6亦可直接將If Abs(Z)＜1E-6寫成If Abs(Z)＜0.注意:本程序是根據yhhf編寫的4800P改寫而成,以下是源程序及算例大家有問題亦可在以下網址查看及向yshf發問/celiang/article_view.asp?id=380&author=yshf曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

CASIO5800程序编辑说明

CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。

卡西欧计算器5800程序

1、ZXKW（直线开挖）“D=”?D:“PD=”?F:“ZXJ=”?L:Lbl 0:“Y=”?Y:“Z=”?Z“T=”:Abs(Y)-((Z-D)*F+L)→T◢“ZL=”:Z-(D+0.3)◢GoTo 0本程序适用于直线段渠道开挖，坐标为工程坐标，D为坡脚处高程，PD为坡度，ZXJ为待放样边坡坡脚距中心线的水平距离，T表示棱镜所应水平移动距离，T为正值时向中心线方向移动，负值时向中心线外移动。

“ZL=”表示为垂直向下开挖深度。

Lbl 0前各数值为定量，后各数值为变量，Lbl 0后的0为01234的0.2、ZXDM(直线段面)“M=”?M:“N=”?N:“Q=”?Q:“O=”?O:L bl 0:“X=”?X:“Y=”?Y:“Z=”?Z“F=”(X-M)COS(Q)+(Y-N)SIN(Q)+O→F◢“G=”-(X-M)SIN(Q)+(Y-N)COS(Q) →G◢“T=”:Abs(G)-((Z-96)*2+8.88-0.67) ◢GoTo 0本程序适用于直线段渠道开挖，坐标为大地坐标，M、N为某段直线起点在大地坐标中的大地坐标值，O为直线起点处桩号值，F为桩号，G为中心距，T表示棱镜所应水平移动距离，T为正值时向中心线方向移动，负值时向中心线外移动。

3、ZJZB(直角坐标)“A=”?A:“B=”?B:Lbl 0:“C=”?C:“D=”?DPol(C-A,D-B)“L=”:I→L◢J≤0 ＝＞ J+360°→J“Q=”:J→Q◢GoTo 0本程序适用于坐标反算，A、B为起算点坐标值，C、D为待定点坐标值，L为起算点与待定点间水平距离，Q为起算点与待定点间的方位角。

4、JZB(极坐标)“A=”?A:“B=”?B:Lbl 0:“L=”?L: “Q=”?QRec(L,Q)“X=”:I+A→X◢“Y=”:J+B→Y◢GoTo 0本程序适用于坐标正算，A、B为起算点坐标值，L为起算点与待定点间水平距离，Q为起算点与待定点间的方位角，X、Y为待定点坐标。

卡西欧5800计算程序自己编写实用计算程序

1．单圆曲线(YQX1)（张队提供）“KO”?O:“X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号，X0为输入起算点X坐标，Y0为输入起算点Y坐标，JDX输入曲线所在交点X坐标，无输入0，JDY为输入曲线所在的Y坐标，无输入0，FWJ为输入起算点的方位角，F0为输入交点处的转角，带正负号，N为转角方向，线路左转输入+1，线路右转输入-1，R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=” Z[1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）2.YQX-ZB(圆曲线中边桩放样)“R”?R:（圆曲线半径）“P”?P：(线路转角)“F”?F:（起始方位角）“G”?G:（线路转向信息，左转为-1，右转为+1）“ZY-X”?M:?N:(ZY点坐标)“L=”πRP÷180→A◢(曲线弧长)F+90G→F(ZY点的径向方位角)“O-X”:M+Rcos (F) →A◢（圆心X坐标）“O-Y”:N+Rsin (F)→B◢（圆心Y坐标）“ZY-ZH”:?Z(ZY点桩号)Lb1 0:“JM-ZH”:?K: (加密点桩号)K-Z→V: (加密点曲线弧长)180V÷(πR) →U: (加密点曲线弧长所对应的圆心角)F+180+GU→U: (圆心至加密点的方位角)“XP=”:A+Rcos(U) →S◢(加密点中桩X坐标)“YP=”:B+Rsin(U) →T◢(加密点中桩Y坐标)“BZ”:?W: (边桩宽度)“XL=”:S+GWcos(U)◢(左边桩X坐标)“YL=”:T+GWsin(U)◢(左边桩Y坐标)“XR=”:S-GWcos(U)◢(右边桩X坐标)“YR=”:T-GWsin(U)◢(右边桩Y坐标)Goto 0：3．(ZX-ZB) 直线段中边桩放样“QD-X,Y”:?A:?B: (起点坐标（A,B）)“QD-ZH”:?Z: (起算点桩号)“ZD-X,Y”:?C:?D: (终点坐标（C,D）)Pol(C-A,D-B):J<0=>J+360→J: (线路方位角) LbI 0：“ZD-ZH”:?K: (加密点桩号)K-Z→V: (加密点到起算点极径)“XP=”:A+Rec(K,F) →M◢(加密点中桩X坐标)“YP=”:B+J →N◢(加密点中桩Y坐标) “BZ”:?W: (边桩宽度)F-90→U(中桩到边桩向量的方位角)“XL=”:M+Rec(W,U)◢(左边桩X坐标)“YL=”:N+J◢(左边桩Y坐标)“XR=”:M-I◢(右边桩X坐标)“YR=”:N-J◢(右边桩Y坐标)Goto 0：。

卡西欧计算器5800程序

If Z≥25900 And Z≤26157.8:Then -200000→R:157.8→T:26000→C:37.1→G:0.01222→I:Goto 0:IfEnd:
If Z≥26157.8 And Z≤27421.915:Then 300000→R:171.915→T:27250→C:32.65→G:-0.00356→I:Goto 0:IfEnd:
If Z≥26915.555 And Z≤27316.952:Then 26915.555→O:11382.792→U:2842.531→V:105。55’51.83”→G:401.396→H:1800→P: 1800→R:1→Q:Goto 0:IfEnd:
……
LbI 0:O:U:V:G:H:P:R:Q:
程序名: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,Ｙ◢
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（Ｚ［２］）→Ｙ

正确5800计算器公式

]一、曲线程序5800“Q”?Q:“W”?W:“K”?K:“R”?R:“F”?F:“N”?N:“V”?V:“G”?G◢“M=”:V÷2-V∧(3) ÷(240R2) →M◢“P=”:V2÷(24R)-V∧(4) ÷(2688R∧(3)) →P◢“L=”: ΠRN÷180+V→L◢“T=”:（R+P）tan(N÷2)+M→T◢“A=”:Q-T→A◢“B=”:A+V→B◢“D=”:A+L→D◢“C=”:D-V→C◢Rec(T,F+180)回车键“Z[1]= ”:W+I→Z[1] ◢“Z[2]= ”:K+J→Z[2] ◢Rec(T,F+GN) 回车键“Z[3]= ”:W+I→Z[3] ◢“Z[4]= ”:K+J→Z[4] ◢Lbl 零回车键“S”?S:“H”?H:“E”?E 回车键S÷(Abs(S+10×10-9))→U:Abs(S)→S回车键If H＜A:Then Goto1:Else If H＜B:Then Goto 2：Else If H ＜C:Then Goto 3: Else If H＜D:Then Goto 4: Else Goto 5:If End If End If End If End If End回车键Rec(Q-H,F+180)回车键W+I→X:K+J→Y回车键Rec(S,F+180-(180-E)U)回车键X+I→X◢Y+J→Y◢SU→S回车键Goto 零回车键Lbl 2回车键H-A→Z◢90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3)+ Z∧(11)÷42240 R∧(5)V∧(5)→Z回Lbl 6回车键Rec(X,F) 回车键Z[1]+I→X:Z[2]+J→Y回车键Rec(Z,F+90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+OG+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 3回车键H-A-V→Z回车键180V÷(2RΠ)→T回车键180Z÷(RΠ)+T→O回车键“X=”:Rsin(o)+M→X回车键R(1-cos(O))+P→Z回车键Goto 6 回车键Lbl 4回车键D-H→Z回车键90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3))+ Z∧(11)÷(42240 R∧(5)V∧(5))→Z回车键Rec(X,F+GN+180) 回车键Z[3]+I→X:Z[4]+J→Y回车键Rec(Z,F+GN+180-90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+GN+180-OG-(180-E)U) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 5回车键Rec(H-D+T，F+GN) 回车键W+I→X:K+J→Y回车键Rec(S，F+GN+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零Q说明：1、Q?交点桩号列37+549、输37549，W?交点X坐标，K?交点Y坐标，R半径，F？方位角，N转角值，V?缓和曲线，G?左右转角列-1左、1右，S?左右边桩距离左负右正，H?所求点桩号，E?公路角度。

5800计算器程序

1 R(园曲半径)2 S(缓曲长，为零时是园曲)3 T(转角，左“-”，右“+”)4 W(ZH或ZY至JD的方位角)5 X(JD的纵坐标)6 Y(JD的横坐标)7 Z(JD的桩号)8 P=S^2/R/24-S^4/R^3/2688+S^6/R^5/422409 Q=S/2-S^3/R^2/240+S^5/R^4/3456010 U=S+πRAbsT/18011 V=Q+(P+R)tan(AbsT/2)12 M(计算点桩号)13 N(计算点横向距离，左“-”，右“+”)14 O(计算点纵向距离，后“-”，前“+”)15 L=M-Z+V16 L>U/2=>L=U-L:U=-1:W=W+T+180:≠>U=1⊿17 L≤0=>Z=0:Q=L:P=0: ≠>L≥S=>Z=180(L-S/2)/R/π:Q=Q+RsinZ:P=P+R-RcosZ: ≠>S=RS:Z=90L^2/S/π:Q=L-L^5/S^2/40+L^9/S^4/3456: P=L^3/S/6-L^7/S^3 /336+L^11/S^5/42240⊿⊿18 Q=Q-V:P=PUT/AbsT:T=W+ZUT/AbsT+90U19 X=X+QcosW-PsinW+NcosT+OsinT20 Y=Y+QsinW+PcosW+NsinT-OcosT21 Z=T-90坐标正算（由里程、偏距算坐标）1 L(计算点桩号)2 M(计算点横向距离，左“-”，右“+”)3 N(计算点纵向距离，后“-”，前“+”)4 Prog “QXYS”:Prog “JSZB”5 “X=”:X:Pause 0:“Y=”:Y坐标反算（由坐标计算里程、偏距）1 L=Q(有效里程，最好是起点里程): M=0: N=02 G(实测点纵坐标X): H(实测点横坐标Y)3 Lb1 0：Prog “QXYS”:Prog “JSZB”4 F=(H-Y)sinZ+(G-X)cosZ L=L+F：AbsF≥1E-3=>GOTO 0⊿5 “Li Cheng=”:L:PAUSE 0：“Ju Li=”:D=(H-Y)cosZ-(G-X)sinZ子程序——QXYS1 L≥Q=>L＜V=>Q=…：R=…：S=…：T=…：U=…：V=…：W=…⊿⊿2 ……3 L≥Q=>L＜V=>Q=…：R=…：S=…：T=…：U=…：V=…：W=…⊿⊿式中：Q(起点里程) R(起点纵坐标X)S(起点横坐标Y) T(起点方位角)U(起点半径，左“－”，右“＋”) V(终点里程)W(终点半径，左“－”，右“＋”)子程序——JSZB1 O=45(L-Q)/U/π: P=5.625(L-Q)2*(W-1-U-1)/(V-Q)/π2 I=T+O+P：J=T+2O+4P：K=T+3O+9P：Z=T+4O+16P3 X=R+(L-Q)*(cosT+4(cosK+cosI)+2cosJ+cosZ)/12-MsinZ +NcosZ4 Y=S+(L-Q)*(sinT+4(sinK+sinI)+2sinJ+sinZ)/12+McosZ+Nsin Z坐标正算（由里程、偏距算坐标）1 L(计算点桩号)2 M(计算点横向距离，左“-”，右“+”)3 N(计算点纵向距离，后“-”，前“+”)4 Prog “QXYS”:Prog “JSZB”5 “X=”:X:Pause 0:“Y=”:Y坐标反算（由坐标计算里程、偏距）1 L=Q(有效里程，最好是起点里程): M=0: N=02 G(实测点纵坐标X): H(实测点横坐标Y)3 Lb1 0：Prog “QXYS”:Prog “JSZB”4 F=(H-Y)sinZ+(G-X)cosZ L=L+F：AbsF≥1E-3=>GOTO 0⊿5 “Li Cheng=”:L:PAUSE 0：“Ju li=”:D=(H-Y)cosZ-(G-X)sinZ(H-Y)sinZ+(G-X)cosZ=(H-Y)cos（Z-90）+(G-X)sin（ Z-90）子程序——QXYS1 L≥Q=>L＜V=>Q=…：R=…：S=…：T=…：U=…：V=…：W=…⊿⊿2 ……3 L≥Q=>L＜V=>Q=…：R=…：S=…：T=…：U=…：V=…：W=…⊿⊿式中：Q(起点里程) R(起点纵坐标X)S(起点横坐标Y) T(起点方位角)U(起点半径，左“－”，右“＋”) V(终点里程)W(终点半径，左“－”，右“＋”)子程序——JSZB1 O=45(L-Q)/U/π: P=5.625(L-Q)2*(W-1-U-1)/(V-Q)/π2 I=T+O+P：J=T+2O+4P：K=T+3O+9P：Z=T+4O+16P3 X=R+(L-Q)*(cosT+4(cosK+cosI)+2cosJ+cosZ)/12-MsinZ +NcosZ4 Y=S+(L-Q)*(sinT+4(sinK+sinI)+2sinJ+sinZ)/12+McosZ+Nsin Z-MsinZ=+Mcos(Z+90)+McosZ=+Msin(Z+90)5800坐标正算（由里程、偏距算坐标）1 “LI CHENG:”？ L(计算点桩号)2 “S-HX(L“-”，R“+”):”？M(计算点横向距离，左“-”，右“+”)3 “S-ZX(Q“-”，H“+”:”？N(计算点纵向距离，后“-”，前“+”)4 Prog “QXYS”:Prog “JSZB”5 “X=”:X◢“Y=”:Y坐标反算（由坐标计算里程、偏距）1 Q→L(有效里程，最好是起点里程): 0→M: 0→N2 “X=”？G(实测点纵坐标X): “Y=”？H(实测点横坐标Y)3 Lb1 0：Prog “QXYS”:Prog “JSZB”:4 (H-Y)sinZ+(G-X)cosZ F： L+F→L：IF AbsF≥1E-3 THEN GOTO 0⊿5 “Li Cheng=”:L◢“Ju Li=”:(H-Y)cosZ-(G-X)sinZ子程序——QXYS1 IF L≥Q AND L＜V THEN …→Q：…→R：…→S：…→T：…→U：…→V：…→W:IF END2 ……3 IF L≥Q AND L＜V THEN…→Q：…→R：…→S：…→T：…→U：…→V：…→W:IF END式中：Q(起点里程) R(起点纵坐标X)S(起点横坐标Y) T(起点方位角)U(起点半径，左“－”，右“＋”) V(终点里程)W(终点半径，左“－”，右“＋”)子程序——JSZB1 45(L-Q)/U/π→O: 5.625(L-Q)2*(W-1-U-1)/(V-Q)/π→P2 T+O+P→I： T+2O+4P→J： T+3O+9P→K： T+4O+16P→Z3 R+(L-Q)*(cosT+4(cosK+cosI)+2cosJ+cosZ)/12-MsinZ +NcosZ→X4 S+(L-Q)*(sinT+4(sinK+sinI)+2sinJ+sinZ)/12+McosZ+Nsin Z→Y。

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计算器程序辛普森公式程序(通用)解析

1．”XLZB”：坐标计算主程序V=19:Fixm↓（与预留的自由变量数有关！）｛O｝∶O“1.ZX 2.BX” ↓Q=0↓LbI 1↓O≠1=>｛QG｝:Q”L”:G”XJJD”:△（显示“L”输入边桩宽度，均为正值，显示“XJJD”输入边桩测点与线路中线上点的连线与线路中线上点的切线的夹角，如右法线为90度，左法线为270度或者-90度，其余同理。

）Prog”ZB”:X=X+Rec(Q,T+G):Y=Y+J:”X=”：X ：Pause 0 :”Y=” ：Y▲(X”X=”：Pause 0 : Y”Y=” ：▲)”T=” ：T→DMS▲(T”T=” ▲)Goto 1(注释：括号内写法为Casio4800P计算器显示方式)2．“ZB”:坐标计算子程序V=19:Fixm↓（与预留的自由变量数有关！）W=21↓（与预留的自由变量数有关！）｛K｝:↓LbI 2↓F=0：W=27=>F=39.903：△（注释：方框内数字27[第七段]为断链的段号；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[W+3a]+Z[W]+F：K≥Z[W+3a] =>K≤E =>V=W－1：≠＞W=W+1: Goto 2△△↓K≥24200=>K=K－F：△（方框为断链点的后桩号，即去向桩号，如遇断链，依此增加即可！）S=K－Z[V+3a+1]:P=(Z[V+2a+1] －Z[V+a+1])÷Z[V+1]:I=P*S:C=Z[V+4a+1]:D=Z[V+a+1]:J=C+(I+2D)*S*90/π:L=1：X=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos(C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos(C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Y=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin(C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin(C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:T=J:3 ．“SJK.DAT”:数据库主程序Mcl:Defm(20+7a):Z[21]=?:……Z[21+3a]=?:Z[21+4a]=?:Z[21+5a]=?:Z[21+6 a]=?:Prog”SJK”:(输入程序时，Defm后须换成相应数据，a为曲线元段数)4．“SJK”：数据库计算子程序a=?:V=20:T=0:B=?(a:曲线元段数；B:等分数，最少为2，一般为4就可以满足要求)LbI 0↓F=0：T=6=>F=39.903：△（注释：方框内数字6[第七段减一]为断链的段号减去1所得；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[V+3a+1]+Z[V+1]+F:Z[V+3a+2]=E：S=Z[V+1] :I=Z[V+2a+1] －Z[V+a+1]:C=Z[V+4a+1]: D=Z[V+a+1]:J= C+(I+2D)*S*90/π:Z[V+4a+2]=J:L=1：Z[V+5a+2]=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos(C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos(C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Z[V+6a+2]=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin(C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin(C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:V=V+1:T=T+1:T＞a-2 =>”END OF THE PROGRAM” ▲△Goto 0为了使程序能够计算连续多个曲线元的坐标，减少计算过程中的数据输入，可利用CASIOfx-4800/4850P计算器提供的扩展变量设置曲线元数据库，假定某一段线路包含有a个曲线元，则可设置曲线元数据库如下表所示：曲线元数据库设置表扩展变量Z[1]~Z[20]用作自由变量，可以用来弥补字母变量的不足，此项设置可自由选择！因此，数据库的起点本程序从Z[21]开始，表中Z[21]~Z[21+3a]以及Z[21+4a]、Z[21+5a]、Z[21+6a]需预先置入，表中空白部分由程序自动计算生成。

5800万能程序

5800万能曲线计算程序（分段计算）一：ZBJS (母程序)Lb1 1: "DKI"?H:Prog"M"↓(E-D)÷Abs(G-F) →P: Abs(H-F) → Q: P×Q→I↓C＋（I＋2D）×Q×90÷π→J↓"J=":J▲C＋（I÷8＋2D）×Q×45÷（4π）→M↓C＋（3I÷8＋2D）×Q×135÷（4π）→N↓C＋（5I÷8＋2D）×Q×225÷（4π）→U↓C＋（7I÷8＋2D）×Q×315÷（4π）→V↓C＋（I÷4＋2D）×Q×45÷（2π）→K↓C＋（I÷2＋2D）×Q×45÷π→W ↓C＋（3I÷4＋2D）×Q×135÷（2π）→Z↓?T↓A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosW＋cosZ）＋cosJ）→X↓B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinW＋sinZ）＋sinJ）→Y↓"X=":X▲"Y=":Y▲"DL"？O: "DR"？R↓"XL=":X+Ocos(J-（180-T）)▲"YL=":Y+Osin(J-（180-T）) ▲"XR=":X+Rcos(J+T) ▲"YR=":Y+Rsin(J+T) ▲Goto 1↓二、M（子程序）（数据库）If H≤19052.852（终点桩号）：Then（起点桩号）18892.852→F:（终点桩号）19052.852→G：（起点X坐标）2521815.012→A:（起点Y坐标）405844.892→B：（起点切线方位角）181.2275833→C：起点曲率→D:终点曲率→E: Goto 0:If End换行If H≤19152.874（终点桩号）：Then（起点桩号）19052.852→F:（终点桩号）19152.874→G：（起点X坐标）2521655.036→A:（起点Y坐标）405811.512→B：（起点切线方位角）177.9535388（弧度）→C：起点曲率→D:终点曲率→E: Goto 0:If End换行同上下一个线元要素。

5800计算程序

5800P全线中边桩坐标计算程序“XLZBJSCX” ◢CLS : FIX 4 : 12→DIM Z ↙LB1 1 ↙“K=”?K ◢（计算里程）IF K<本段曲线终点里程 AND K≥上段曲线终点里程：THEN 本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：曲线偏角→A : 1→I （注：左偏曲线输入-1→I,右偏曲线输入1→I）: 半径→R : 缓和曲线→L : 交点 X→B :交点 Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : GOTO 2 : IFEND↙…………LB1 2 ↙（曲线要素计算）L/2-L^3/(240*R^2)+L^5/(34560*R^4) →M ↙L^2/(24*R)-L^4/(2688*R^3) →P ↙(R+P)*TAN(A/2)+M→T ↙(切线长)π*A*R/180+L→S ↙（曲线长）90*L/(R*π) →G ↙（缓和曲线总偏角）B+T*COS (E+180)→ Z[7] ↙（ZH点X）C+T*SIN(E+180)→ Z[8] ↙（ZH点Y）Z[1]-S→Z[3] ↙(ZH点里程)Z[1]-S+L→Z[4] ↙(HY点里程)Z[1]-L→Z[5] ↙(YH点里程)GOTO 3 ↙LB1 3 ↙(判断里程点与曲线关系)IF K≤Z[3] AND K> Z[2] : THEN GOTO 4 : IFEND ↙IF K≤Z[4] AND K> Z[3] : THEN GOTO 5 : IFEND ↙IF K≤Z[5] AND K> Z[4] : THEN GOTO 6 : IFEND ↙IF K≤Z[1] AND K> Z[5] : THEN GOTO 7 : IFEND ↙LB1 4 ↙（里程小于直缓点直线独立坐标）K- Z[3] →X : 0→Y : E→O : PROG“TYZBCX” ：GOTO 1 ↙LB1 5 ↙（第一缓和曲线独立坐标）K- Z[3] →H ↙H-H^5/(40*R^2*L^2)+H^9/(3456*R^4*L^4) →X ↙H^3/(6*R*L)-H^7/(336*R^3*L^3) →Y ↙90*H^2/( R*π*L) →O ↙IF I>0 ：THEN O +E→O : ELSE E-O →O : O<0=>360+O→O : IFEND ↙PROG“TYZBCX” ：GOTO 1 ↙LB1 6 ↙（圆曲线独立坐标）K- Z[4] →H ↙H*180/( R*π)+G→O ↙R*SIN O+M→X ↙R*(1-COS O)+P→Y ↙IF I>0 ：THEN O +E→O : ELSE E-O →O : O<0=>360+O→O : IFEND ↙PROG“TYZBCX” ：GOTO 1 ↙LB1 7 ↙（第二缓和曲线独立坐标）Z[1] -K →H ↙H-H^5/(40*R^2*L^2)+H^9/(3456*R^4*L^4) →U↙H^3/(6*R*L)-H^7/(336*R^3*L^3) →V ↙90*H^2/( R*π*L) →O ↙T*(1+COS A)-U*COS A-V*SIN A→X ↙T*SIN A-U*SIN A+V*COS A→Y ↙IF I>0 ：THEN F-O→O : O<0=>360+O→O : ELSE F+O →O : IFEND ↙PROG“TYZBCX” ：GOTO 1 ↙子程序：“TYZBCX” ↙（统一坐标计算）IF I<0 : THEN -Y→Y : IFEND ↙“QXJ=” : O◢（切线方位角）Z[7]+X*COS E-Y*SIN E→Z[9] ↙Z[8]+X*SIN E+Y*COS E→Z[10] ↙“XI=” : Z[9] ◢（中线X）“YI=” : Z[10] ◢（中线Y）“PJ=”?J◢(输入边桩与线路夹角，左-右+)“PD=”?D◢（输入边桩距）Z[9]+D*COS(O+J) →Z[11] ↙Z[10]+D*SIN(O+J) →Z[12] ↙“XP=”: Z[11] ◢（边桩X）“YP=”: Z[12] ◢（边桩Y）RETURN↙。

卡西欧5800计算器坐标正反算程序(带详细说明)

卡西欧5800程序完整版＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfE nd←┚LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚F-90→F←┚＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢＂ZY=＂: Y+Lsin(F+K) →Z[4]◢＂QXFWJ=＂:F DMS◢Abs(Z) →Z:Goto 8←┚LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢＂FSJL=＂:Z◢Lbl 8正算子程序（ZS）（不运行）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+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）+90→F：X+ZcosF→X：Y+ZsinF→Y3反算子程序（FS）（不运行）G-90→T：Abs（（Y-V））cos（T）-（X-U）sin（T）→W：0→Z←┚Lbl 0←┚prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then Goto1：E lse W+Z→W：IfEnd :Goto 0←┚Lbl 1：0→Z：Prog＂ZS＂：（J-Y）÷sinF→ZZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K ＞259.562: Then Goto D：IfEnd:IfEnd:IfEnd:IfEnd←┚LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto WLbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Pr og ＂WN＂:Goto WLbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Pr og ＂WN＂:Goto WLbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q: Prog ＂WN＂:Goto WLbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角）＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢＂Y1=＂:Z[4]+Tsin（F+N+ O）→V◢U→Z: V→M: GotoP←┚LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚＂JL=＂:I◢（仪站至测点的距离）＂FWJ=＂:J DMS◢（仪站至测点的方位角）Goto0备注：1．规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。