5800计算器程序5
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计算器程序坐标（商洛环城北路）主程序？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正反算程序
1.主程序(1-ZB ZFS)Deg:Fix 6Lbl 9:”I”:”2.YOU JIN”:”MI MA =”?C: Goto 1↙”Lbl 4："3.ZH =>BG"：”1.ZH =>XY”2.XY =>ZH "：”3.ZH =>BG 4.TF =>JS ”:"N="?N↙If N =3;Then Prog “BG JS 20M”: IfEnd↙If N =4: Then Prog “4-TFJS”; IfEnd↙If N ≥5: Then Cls:Stop; IfEnd↙Lbl 9:”ZH=”?S:Prog “1.1-ZFS”:If N=1:Then Goto3:IfEnd↙If N=2:Then Goto2:IfEnd↙Lbl3:”Z=”?Z:”J=”?J:Abs(S-O)→W:Prog”1.2-ZFS”:X+Zcos(F +J)→X:Y+Zsin(F+J) →Y↙If Z=0(带下划线的0为数字0):Then “X=”:X◢"Y="：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z=1: Then”(Y)X=”: X◢“(Y)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z=-1: Then”(Z)X=”: X◢“(Z)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z＞1: Then”(Y)X=”: X◢“(Y)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙If Z＜1: Then”(Z)X=”: X◢“(Z)Y=”：Y◢F-90→F:“F WJ=”：F▼DMS◢(5800里面的度分秒的)Prog “123”：“BG =>Z”:D◢Goto4: IfEnd↙Lbl 2：“(Q)X =”？X:“(Q)Y=” ?Y:X →I:Y →J: Prog"1.3-ZFS"：O+W→S：“(SQ)ZH=”：S◢“(SQ)Z=”：Z◢Goto 4↙Lbl 1:If C=1989:Then Goto 4:0→C:Else Stop:IfEnd↙(密码符号段把原来的密码调到后面去了 )2. 正算子程序(1.2-ZFS )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→F3. 反算子程序(1.3-ZFS)G-90→T：Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z：Lbl 0：Prog "1.2-ZFS"：T+QEW(C+WD)→L：(J-Y)cos（L）-(I-X)sin（L）→Z：If Abs(Z)< -6：Then Goto1: Else W+Z→W:Goto 0↙Lb1 1:0→Z:Prog"1.2-ZFS":(J-Y)÷sin (F)→Z↙4. 数据库子程序(1.1-ZFS)If S＜***:Then Cls:Stop:IfEnd(全线路的起点里程桩号如：If S＜1497534.054:Then Cls:Stop:IfEnd小于1497534.054的全部失败)If S〉*****:Then Cls:Stop:IfEnd↙（同上）If S≦***（线元终点里程）:Then***→U（线元起点X）:***→V（线元起点Y）: ***→O（线元起点里程）:***→G（线元起点方位角）: ***→H（线元起点至终点长度）：***→P（线元起点曲率半径,在这里声明下，如果是直线段的话输1.×10+45就是输1. +45）:***→R（线元终点曲率半径同上）: 0或1、-1→Q：Goto 1 :IfEnd ↙If S≦……………………………………………：Goto 1 :IfEnd ↙………………[注意：输入方法：ZH-HY(ZH点注意P输入1.×10+45就是输1.+45，HY R按照曲线要素半径),HY-YH(P和R都按照曲线要素输入半径),YH-HZ(YH P按照曲线要素半径，R输1.×10+45),HZ-ZH(P和R 都输1.×10+45) Q为转角值看曲线上是左转角-1还是右转角1HZ-ZH Q为0]最后结尾记得一定要输入Lbl 1:1÷P→C:(P-R)÷(2HPR)→D:180÷π→E：Return↙5.BG JS 20M (子程序)Deg; Fix3↙Lbl1:”ZH=”?:Prog“BG SJK”:”Z=”?Z↙If Z=0:Then A→D:”(0)BG =>Z”:D◢Goto1: IfEnd↙If Z=1:Then A→D:”(Y)BG =>Z”:D◢Goto1: IfEnd↙If Z=-1:Then A→D:”(Z)BG =>Z”:D◢Goto1: IfEnd↙If Z＞1:Then A+(Z-1)(C/100)→D:”(Y)BG =>Z”:D◢Goto1: IfEnd↙If Z＜-1:Then A+(-Z-1)(-B/100)→D:”(Z)BG =>Z”:D◢Goto1: IfEnd↙6.BG SJK(标高数据库)If S =K: Then H→A:i(Z)→B: i(Y)→C: IfEnd↙注：K 为桩号里程，H为中桩高程，i(Z)为左横坡，i(Y)为右横坡。
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点坐标。
FX5800计算器的积分程序
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 ……………程序说明：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、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计算器程序5
FX5800计算器测量程序集2.0 版一、程序功能主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。
运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。
2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。
参数置放矩阵中，输入和可读性极好。
3、新增隧道断面欠超挖值放样计算4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。
二、源程序1.主程序1：一般放样正反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 Q: Norm 2:14→DimZ：1→F：Prog＂DX＂:Lb1 X：Prog＂QX＂：90→B：＂PJ＂？B：B→Z[1]：Lb1 0: Norm 2 ：“KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2→F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog＂KM＂：If F=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog＂THB＂:If F=1: Then Goto 1: Else Goto 2：Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂6JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0：Lbl 9:Mat F◢Ｇoto Q２．主程序２：高程、横坡、宽度程序(计算设计任意点高程、横坡及路基设计标准宽度)程序名：2GC14→DimZ：LbI 0:Norm 2: Prog＂QX＂：0→B:”H-B:”?B:B→Z[9]:LbI H: Norm 2: “KM”?Z:Z=-1=> Goto 0:?D:Prog”H”:Fix 3:”H=”:Loc ate 6,4,H◢“I=”: Locate 6,4,I◢Prog＂GD＂：“SJLG=”: Locate 6,4,L◢Goto H3．主程序3：涵洞放样程序（输入置仪点坐标。
CASIO5800计算器程序(JXT)
CASIO5800坐标正反算（线元法）LXJS(主程序)“1.SZ=>NE,2.NE=>SZ”?Q↙LbI 0:Q=1=>Goto 1: Q=2=>Goto 2↙LbI 1:“K”?S:“Z”?Z:“ANG”?M:Prog“SUB1”:“X=”:N◢“Y=”:E◢“FWJ=”:F▶DMS◢Goto 1↙LbI 2:“X=”?B:“Y=”?C:Prog“SUB2”:“K=”:S◢“Z=”:Z◢Goto 2↙SJK(数据库)Goto 1↙LbI 1↙If S＜线元终点桩号:Then线元起点方位角→A:线元起点桩号→O:线元起点X坐标→U: 线元起点Y坐标→V:线元起点半径→P: 线元终点半径→R:线元长度→L:Returu:IfEnd↙注意:更换曲线时，需加时LbI 1。
SUB1(正算子程序)0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫(cos(A+(X÷P+DX2)×180÷π,O,X)→N↙V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+M)→N:E+Zsin(F+M)→E↙SUB2(反算子程序)Lbl 1:0→Z:1→Q:Prog“S JK”:Prog“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“SUB1”:(C-E)÷sin(F+90)→Z↙CASIO5800高程计算GCJS（主程序）LbI 1:Fix 3:?K:Prog“SJK”:R Abs(D-C)÷2→T:If D-C＞0:Then 1→W:Else -1→W: IfEnd↙If K＜A:Then -C→I:Else D→I:IfEnd↙Abs(A-K)→L↙If L-T＞0:Then Z+IL→H:“HS=”:H◢Else Z+IL+W(T-L)2÷2÷R→H:“HS=”:H◢IfEnd↙Goto 1↙SJK(数据库)曲线段If K＜终点里程:Then前坡度→C: 后坡度→D:半径→R:竖曲线交点桩号前→A:竖曲线交点高程→Z:Goto 1: IfEnd↙直线段If K＜终点里程:Then坡度→C: 坡度→D:1×10^(45)→R:起点桩号→A:起点高程→Z:Goto 1: IfEnd↙。
CASIO 5800道路坐标计算器程序
CASIO 5800计算器程序一、程序功能：本程序由一个主程序（AK）及两个子程序：坐标正算程序（SUB1）、坐标反算程序（SUB2）平曲线数据库（PQX）构成，可以根据曲线段的组成部分：直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、止点坐标、起点切线方位角、线元长度、起点曲率半径、止点曲率半径、里程、边距或坐标），对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序：1、主程序（AK）A排在前面，方便运行程序，不用往下翻页了。
Deg：“0→ZX,1→A,2→B”?Z ：“1→JDF,2→XYF”?E：“X(CZ)”?A：“Y”?B 说明：设置角度模式，选择线路0为主线，1为A匝道。
可以自己再增加。
选择计算方法，交点法还是线元法计算坐标，1为交点法，2为线元法。
输入测站坐标，如不需要计算极坐标，即放样的时候需要输入坐标到仪器里面去，则X(CZ)输0，Y不用管可以为任何值，建议把测站坐标输进去，省了放一个点输一次坐标数据到仪器里面去。
只有一条线路可以不需要黄色部分。
“1.Ki→XY,2.XY→Ki”?N：Lbl 0：“Ki”?K：Prog“PQX”IfE=1：Then Prog“JD”：IfEndN=1＝＞Goto 1：N=2＝＞Goto 2Lbl 1?LK-O→W：Prog“SUB1”说明：1为正算，即知道桩号和偏距（注意只能计算边桩，不能计算斜交的点，构造物可以通过后面的ZHIXIAN程序计算），2为反算，即知道坐标，求桩号和偏距。
Ki为桩号，正算直接输，反算需要输入附近桩号，第一次计算最好输好桩号之后，把反算出来的桩号再输进去，重新反算下，如果和第一次反算的桩号一样，那就说明反算的桩号正确。
调用平曲线数据库，输入偏距L（偏距左输负数，右输正数），如果选择的是交点法计算，那需要输入是数据库是交点数据，调用正算子程序SUB1。
If A≠0：Then Pol（X-A,Y-B）：“JULI=”：I◢J<0=>J+360→J：“FWJ=”：J ▶DMS◢Else “Xi=”：X◢“Yi=”：Y◢“FWJ=”：F ▶DMS◢If End ：Goto0说明：正算，如果前面X(CZ)输0，则直接显示X、Y坐标和方位角，否则显示仪器到放样点的距离和方位角。
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计算器使用程序
If : 8000 If : : If : 3500 S ≥ 81046.952 → : V 3500 : : → : : 3500 : : X10 Then 81046.952 206°26′59.1″ R : 1 → → → → → 1 → → 1 O G Q O G → O G → : : : : : Q : : Q 24184.8052 150 IfEnd → ↙ → → ↙ → H ↙ → H 86155.4819 → S P ≥
U :
U H
U :
分段输线 的偏向，左 0。
81196.952 → P V :
Then 81196.952 208°12′52.79″ → R :
24051.4185 2262.529 : IfEnd
86086.8801 3500 S → ≥
83859.481 → : V 10
Then 83859.481 251°48′03.09″ → R :
22381.2171 150 : → IfEnd
84095.8639 → P
数据库建立说明 在平曲线中，直线、缓和曲线、圆曲线的曲线要素要分段输入。 如上第一段为ZH-HY,第二段为HY-YH，第三段为YH-HZ 。 每段平曲线中说明：S表示这条平曲线的使用范围；O表示该平曲线的 起点桩号；U表示起点桩号的X坐标；V表示起点桩号的Y坐标；G表示 该平曲线起点桩号的方位角；H表示该平曲线的长度；P表示该平曲线 起点的半径，R表示该平曲线终点的半径；Q表示该平曲线的偏向，左 偏输-1右偏输1。当曲线半径为0（ZH或HZ点）时输入10X10。
卡西欧5800计算器程序
CASIO fx—5800 计算器工程测量与公路测量程序1、坐标正算"X0=' X：Y0=' Y: I= "：: J='' JX+ICos(J) tU:Y+Isin(J) tV"X=' : U (待求点的X坐标)"丫=" : V (待求点的丫坐标)说明：X0 Y0:已知点坐标I:两点的距离J:方位角2、坐标反算Lbl 0"X1=' X： Y1=' Y: X2=' U: Y2='VPol(U-X,V-Y):J<0 J+360 t J: I=' :I: J=' :J DMsGOTO 0说明：X1Y1 :第一点的坐标，X2Y2第二点的坐标，I:两点的距离，J:方位角3、圆曲线: X0=' X: : Y0=' Y:: FWJ=' D:: QDHAO'=G: : ZDHAO'=C: : R=' RLbl 1: DQHAO=LL<G Or L> C GOTO 2"PY=' K180(L-G) - ( n R) T E2Rsin tFReC(Abs(F),D+: Cls: X=' :X+I+KCos(D+E+90) tA :Y=' :Y+J+Ksin(D+E+90) tBD+Eto:o<0 360+o t0o: FWJ=' :o DMsGoto 1Lbl 2"END说明：XOYO:起始点的坐标, 半径，DQHAO：FWJ:起始点的方位角，QDHAO :起点里程，ZDHAO终点里程，R: 待求点里程，PY:偏移量4、竖曲线: QZHAO '= J: : H+B =B：' 11 =" C: 12=" D: R=' R: T=" T: ((D-C) - 100)"T :S-ACS((D-100) T A:Ab-CD - 100) T SJ-T T XLbl O"DQ= LIf L<X:Then Goto 1:Else If L >Y:Then Goto 1:If End:If End "GC= :B+C(LJ) - 100+A(L-J+T 十(2R) T HGoto 0Lbl 1" END '说明：QZHAO :曲中点里程，H+B:曲中点高程，11:第一坡度，12:第二坡度，R :半径，T : 切线长，DQ :待求点里程。
Fx-5800计算器程序(含定向及放样方位角、距离计算)
Fx-5800计算器程序一、道路放样（含定向及放样方位角、距离计算）1、主程序：1JDZB（利用第一交点坐标，第二交点坐标，第三交点坐标及里程，偏角，半径，缓和曲线长度计算）20→DimZ“JD1X=”:?X:X→Z[1]:“JD1Y=”:?Y:Y→Z[2]: 输入JD1坐标“JD2X=”:?X:X→U:“JD2Y=”:?Y:Y→V: 输入JD2坐标“JD3X=”:?X:X→Z[3]:“JD3Y=”:?Y:Y→Z[4]: 输入JD3坐标I=PoI(U-Z[1],V-Z[2]):If J＜0:Then J+360→J:EIse J→J:IfEnd：J→F:"F12=":F►DMS▲显示起始边方位角I=PoI(Z[3]-U,Z[4]-V):If J＜0:Then J+360→J:EIse J→J:IfEnd：J→Z[5]："F23=":Z[5]►DMS▲显示结束边方位角F-Z[5]→A：If A<-180:Then A+360→A:EIse A→A:If End:"A=":A►DMS▲显示偏角Prog“2FJDA”2、次主程序：2FJDA（利用起始方位角，交点坐标及里程，偏角，半径，缓和曲线长度计算）"HX="?X:"HY="?Y: 输入定向（后视点）坐标"ZX="?H:"ZY="?K: 输入测站点坐标Prog“J”显示定向（后视点）距离和方位角“A=”?A：输入偏角（左“-”右“+”），当利用1JDZB程序时，不用再次输入“R=”?R：输入平曲线半径“LS=”?L：输入缓和曲线长度“JDL=”?N：输入平曲线交点里程“JDX=”?U：输入交点X坐标，当利用1JDZB程序时，不用再次输入“JDY=”?V：输入交点Y坐标，当利用1JDZB程序时，不用再次输入“F=”?F：输入起边方位角，当利用1JDZB程序时，不用再次输入180/R/π→Z:ZL/2→B: “B=”:B►DMS▲缓和曲线角“P=”:L^(2)/（24R）-L^(4)/（2688R^(3)）→P▲内移距“Q=”:L/2-L^(3)/(240R^(2))+L^(5)/(34560R^(4))→Q▲切线增长“T=”:(R+P)tan(Abs(A/2))+Q→T▲显示平曲线切线长度“E=”:(R+P)/Cos(Abs(A/2))-R→E▲显示平曲线外距值“L=”:(Abs(A)-2B)/Z+2L→o▲显示平曲线曲线长度“D=”:2T-o→D▲显示球曲差30→DimZ“ZH=”:N-T→Z[1]▲显示直缓点里程“HY=”:Z[1]+L→Z[2]▲显示缓圆点里程“QZ=”:Z[1]+o/2→Z[3]▲显示曲中点里程“YH=”:Z[1]+o-L→Z[4]▲显示圆缓点里程“HZ=”:Z[1]+o→Z[5]▲显示缓直点里程“ZHX=”:U+Tcos(F+180)→Z[7]▲显示直缓点X坐标“ZHY=”:V+Tsin(F+180)→Z[8]▲显示直缓点Y坐标“HZX=”:U+Tcos(F+A)→Z[15]▲显示缓直点X坐标“HZY=”:V+Tsin(F+A)→Z[16]▲显示缓直点Y坐标0→C:0→W:L-L^(3)/(90R^(2))→C:ZL/6→W:If A<0:Then -W→W: EIse W→W: If End:“HYX=”:Z[7]+Ccos(F+W)→Z[9]▲显示缓圆点X坐标“HYY=”:Z[8]+Csin(F+W)→Z[10]▲显示缓圆点Y坐标“YHX=”:Z[15]+Ccos(F+A+180-W)→Z[13]▲显示圆缓点X坐标“YHY=”:Z[16]+Csin(F+A+180-W)→Z[14]▲显示圆缓点Y坐标If A<0:Then -B→B:EIse B→B:If End:0→S:0→C:0→W:o/2-L→S:SZ/2→W:2Rsin(W)→C:If A<0:Then -W→W: EIse W→W:If End:“QZX=”:Z[9]+Ccos(F+B+W)→Z[11]▲显示曲中点X坐标“QZY=”:Z[10]+Csin(F+B+W)→Z[12]▲显示曲中点Y坐标LbI8:“LP=”?→M:Prog“3ZBJS”:Goto8 输入放样点P里程3、子程序：3ZBJS20→DimZ0→S:0→W:0→D:0→G:If M≤Z[1]:Then F+180→W:F+90→G:N-M→S:U→P:V→Q:Goto5: Else If M≤Z[2]:Then M-Z[1]→S:Z[7]→P:Z[8]→Q:Goto1:Else If M＜Z[4]:Then M-Z[2]→S:Z[9]→P:Z[10]→Q:Goto2:Else If M＜Z[5]:Then Z[5]-M→S:Z[15]→P:Z[16]→Q:Goto1: Else F+A→W:W+90→G:T+M-Z[5]→S:U→P:V→Q:Goto5:If End:LbI 1:ZS^(2)/(6L)→W:3W→G:S-S^(5)/(90R^(2)L^(2))→S:If A<0:Then -W→W:-G→G:EIse W→W:G→G:If End:If M＜Z[2]:Then F+W→W:F+G+90→G:EIse F+A+180-W→W:F+A+180-G-90→G:If End:Goto5:LbI 2:SZ/2→W:2W→G:2Rsin(W)→S:If A<0:Then -W→W:-G→G:EIse W→W:G→G:If End:F+B+W→W:F+B+G+90→G:Goto5:LbI 5:“X=”:P+Scos(W)→Z[13]▲“Y=”:Q+Ssin(W)→Z[14]▲Z[13]→X：Z[14]→Y：Prog“J”：显示放样点（前视点）距离和方位角Goto6:LbI 6:“BZ=”?D: 输入偏距（左“-”右“+”）“X=”:Z[13]+Dcos(G)→Z[17]▲“Y=”:Z[14]+Dsin(G)→Z[18]▲Z[17]→X:Z[18]→Y:Prog“J”显示放样点（前视点）距离和方位角4、子程序：JI=PoI(X-H,Y-K):If J＜0:Then J+360→J:EIse J→J:IfEnd："S=":I▲"F=":J►DMS▲。
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计算器全线坐标计算放样程序.
任意桩号坐标及高程一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。
二、源程序增加变量18→DimZ1.主程序(ZHUCHENXU)"1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N：Lbl 1：”ZHUANGHAO=”?S： Prog "SUB3"：N≥2=>Goto 2： Abs(S -O)→W：”BIANZHU=”?→Z:Prog "SUB1"：Prog"SUB4"：“H=”H◢"XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢ Goto1 Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：P rog "SUB2"： "S=":(O+W) →S◢"Z="Z→Z◢ Z→Z[17] :If N=3:Th en Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:G oto 22.SUB1(正算子程序名)0.1739274226→A:0.3260725774→B 0.0694318442→K:0.330009482→L 1-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+MW D)→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)→Y3.SUB2(反算子程序名)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.000001輸入時按SHIFT---log---(-)---64. 数据库(SUB3)If S<226100:Then Cls:Stop: IfEndIf S<226255.833:Then 226100→O：99037.9736→U： 4282.3590→V：201.3266304→G：1045→P：1045→R：253.543→H：0→Q: Goto 1:IfEndIf S>And S<…………If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：5、曲线主程序: 1-E.BG(SUB4)Fix 3:Prog”Z.EBG”:R Abs(D-C)/2→T:if D-C>θ :Then 1→W:Else -1→W:ifendif S<A:Then -C→I:Else D→I:ifendAbs (A-S)→Lif L-T>θ:Then Z+IL→H:Else Z+IL+W(T-L)2/2/R→H:"HS=":H◢曲线数据库: Z.EBG(SUB4-1)if S<332.599:Then 0.02793→C:-0.03309→D:1800→R:235→A:32. 7→Z: goto 1:ifendif S>322.599 And K<734.085:Then -0.03309→C:-0.00485→D:60 00→R:460→A:25.254→Z: goto 1:ifend----Lbl 1C—前坡:D—后坡:R—呵呵,都知道是什么!A—变坡点:Z—变坡点设计高O—从设计高程点处垂直向下的距离:N—距设计高程处的平距(若你的设计高程线是路中线的话，请把0.75改为0):J—所求桩号处的横坡.6. 边坡放样程序(BIANPO) （SUB6）“QPDJL=”? → Z[3]: “QPDGD=” : Prog “（SUB4）”：H→ Z[4]◢“PG=” ?→ Z[5]：PTK→Z[6]：“P1=” ? → Z[8]：“P2=”? → Z[9]：“P3=” ? → Z[10] (没有的话就删)： Z[7]-Z[4] → Z[11]：If Z[11]〈0 Then AbsZ[11] →Z[11]: “T=”：Z[1 1] ◢Else“W=”：Z[11] ◢IfEnZ[11]÷Z[5] →Z[12]：If Z[12]〈1 Then Z[8]×Z[11] →Z[13]：Else Z[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd: AbsZ [17]-（Z[13]+Z[6] ×Int (Z[12])+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢说明：Z[3]= QPDJL ………………起坡点离中桩距离Z[4]=“QPDGD” ……………起坡点设计标高Z[5]=“PG” ………………坡高Z[6]=“PTK” ……………… 平台宽度Z[7]=“DMG” ………………实测地面高度Z[8]=“P1” ………………一级边坡坡度Z[9]=“P2” ………………二级边坡坡度Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删)Z[14]=“BP+C-J=” ………………边坡超欠挖宽度（+表超，-表欠）三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
CASIO-5800计算器公路测量常用程序
CASIO-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 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２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+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-XYLbI 0:Norm 290→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:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 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:IfEndLbI 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 IfG>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 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3 LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.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. 反算子程序(Ｂ)程序名：BG-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)÷si n(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:ThenQ+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:ThenQ+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I: 11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(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:Then25900→O:11587.421→U:1847.983→V:101。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
FX5800计算器测量程序集2.0 版一、程序功能主要功能：计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本特点：1、优化原所有主程序，所有参变量（如导线点置仪点坐标、正反算选择、偏角、线路选择等），全部在程序头次显示一次，以后运行不需输入。
运行中也可以返回再次选择线路、可以直接以矩阵形式调出线路参数。
2、坐标计算考虑了线元法与交点法相结合，即是一条线路也可以一段用线元法，一段用交点法。
参数置放矩阵中，输入和可读性极好。
3、新增隧道断面欠超挖值放样计算4、高程程序中考虑了初次输入线路选择、计算面与设计面高差，输出中加入显示本桩号路基标准宽度。
二、源程序1.主程序1：一般放样正反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 Q: Norm 2:14→DimZ：1→F：Prog＂DX＂:Lb1 X：Prog＂QX＂：90→B：＂PJ＂？B：B→Z[1]：Lb1 0: Norm 2 ：“KM”?Z：If Z=-1:Then Goto X:Else If Z=-2: Then 2→F :Goto 0: Else If Z=-3: Then Goto 9:IfEnd: Prog＂KM＂：If F=1:Then ?D:Else “X0”?X:“Y0”?Y: IfEnd: Prog＂THB＂:If F=1: Then Goto 1: Else Goto 2：Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂6JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0：Lbl 9:Mat F◢Ｇoto Q２．主程序２：高程、横坡、宽度程序(计算设计任意点高程、横坡及路基设计标准宽度)程序名：2GC14→DimZ：LbI 0:Norm 2: Prog＂QX＂：0→B:”H-B:”?B:B→Z[9]:LbI H: Norm 2: “KM”?Z:Z=-1=> Goto 0:?D:Prog”H”:Fix 3:”H=”:Loc ate 6,4,H◢“I=”: Locate 6,4,I◢Prog＂GD＂：“SJLG=”: Locate 6,4,L◢Goto H3．主程序3：涵洞放样程序（输入置仪点坐标。
选择线路、输入路线右夹角、前进方向偏角、由涵中心桩号计算出各涵角坐标、计算放样点至置仪点方位角及距离)程序名：3JH-XY14→DimZ：Prog＂DX＂:LbI X:Norm 2: Prog＂QX＂：90→B：＂PJ1＂？B：B→C: ＂PJ2＂？C: B→Z[1]：C→Z[8]：LbI 0:Norm 2:1→F: “KM”?Z：If Z=-1:Then Goto X: ?D:Prog”THB”:0→L:“L0”?L:Z[2]+Z[1]-Z[8] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂6JS”:Goto 0:4．主程序4:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：4FBX17→DimZ：LbI B:Norm 2: Prog＂QX＂：0.5→B:“TH-GD”?B:B→Z[17]:LbI 0:Norm 2:2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: “X0”?X:“Y0”?Y:0→M:“M0”?M:M→Z[4]:Prog”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:ElseL-0.75→D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0:Then –Z[4] →G:Goto W:Else Z[4]→G:Goto T:LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else(T+G×Z[13])→S:Goto Z:LbI Z:Fix 2:Abs(P)-S→K:”L0=”: Locate 6,4,K◢Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,P◢Z[4]>0=>Z[4]+I(T-L) →Z[4]:“TW=”: Locate 6,4,Z[4]◢Goto 05.主程序5.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SD15→DimZ：LbI B:Norm 2: Prog＂QX＂:LbI 0:Norm 2: 2→F:90→Z[1]: “KM”?Z：If Z=-1:Then Goto B: Prog“XD1”:” X0”?X:“Y0”?Y: 0→M:“M0”?M:M→Z[8]:Prog“THB”:D→Z[10]:0→D:Prog“H”:Cos(Z[10])*Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R: √((D-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4] →L:Goto L:LbI S: Z[4]-Z[6] →S: √(S 2-(Z[7]-Z[5]) 2) →T:Abs(D-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]→L:Goto L:LbI L: Fix 2:”L0=”: Locate 6,4,L◢Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“H0=”: Locate 6,4,Z[8]-H◢Goto 06：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：6JSX：Y：Z[11]→K(置仪点X坐标)Z[12]→L（置仪点Y坐标）Pol(X-K, Y-L):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◢Fix 3:”S=”:Locate 6,4,I◢7．路基宽度次程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：GD1→S:If Z[3]=1:Then Prog “G1”:Goto 1:Else Prog “G2”:Goto 1: IfEndLbI 1:Z-C→E:(B-A)*E/S+A→L:8．坐标计算次程序（ＴＨＢ）程序名：THBIf Q=2:Then Goto J:1÷P→Ｃ：(P-R)÷(2HPR) →Ｓ：180/Π→E：If F=1:Then：Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:Else:Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then：Prog "Z"：Ｇoto 1:Else: Prog ＂ZX＂：Ｇoto 2: IfEnd:LbI 1:I+D*COS(Z[2]+Z[1]) →X: J+D*Sin(Z[2]+Z[1]) →Y:LbI 2:9.线元法正算子程序(Ａ)程序名：A0.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（Ｚ［２］+ Z[1]）→Ｘ：Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ10.线元法反算子程序(Ｂ)程序名：BG-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 Goto 1：Else W+Ｄ→W:Goto 0: IfEnd:←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D:11.交点法正算子程序(Z)程序名：ZH2/R/24-H∧(4)/2688/R∧(3)→A:H/2-H∧(3)/240/R2→B:(R+A)tan(Abs(P)/2)+B→T:O-T→C:C+H→L:L+ΠR*Abs(P)/180→N:N-H→E:P/Abs( P) →W:0→M:If Z<C:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S:Prog“HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3: IfEnd:If Z>L:Then 180(Z-L+0.5H)/R/Π→S :H/2-H∧(3)/240/R2+Rsin(S)→A:H2/R/24-H∧(4)/2688/R∧(3)+R(1-Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK→Z[2]:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:LbI 2:U+S cos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:12.交点法缓和段转化子程序(HX)程序名：HXS-S∧(5)/40/R2/H2+S∧(9)/3456/R∧(4)/H∧(4)→A:S∧(3)/6/R/H-S∧(7)/336/R∧(3)/H∧(3)+S∧(11)/42240/R∧(5)/H∧(5)→B:90S2/Π/R/H→K:RH/S→M:13.交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:ThenZ+I→Z:S→D:Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:ElesPol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEndLbI 2:14．高程计算子程序（H）程序名：HProg “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Else If Z≤E:Then Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:LbI I:15.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:16．导线点子程序（DX）程序名：DXZ[11] →K:Z[12] →L:“XZ”?K:”YZ”?L:K→Z[11]:L→Z[12]:17．线路选择子程序(线路选择输入0时。