卡西欧5800p三维坐标计算程序(交点法)
5800坐标计算程序交点法
CASIO FX—5800P交点法计算中边桩坐标1、主程序Lbl0 :90→C: "ZH”? Q：Prog“JDSJ”：“JL”? W：“J IAJIAO”? K:Goto1Lbl1： R= 0 => Goto3： Abs(B)πR÷180-(L+M)÷2→G：M→S: 1→Z Lbl2:S^2÷24÷R-S^(4)÷2688÷R^(3)→P:S÷2-S^(3)÷240÷R^2→O：IfZ=1:Then L→S:P→U:O→V:(R+U-(R+P)cos(Abs(B)))÷sin(Abs( B))+O→T:(R+P-(R+U)cos(Abs(B)))÷sin(Abs(B))+V→S:F-T→D:Q≤D=>Goto3If Q ≤ D+L: Then Q - D →J : L →U: Goto 4: IfEndIf Q ≤ D+L+G: Then Q-D-L→J: Goto 5: IfEndIf Q ≤ D+M+L+G: Then Q - D- L- M- G →J: M →U: Goto 4: IfEnd Q > D+M+L+G => Goto0Lbl3： N+(Q - F)cos(A) →X： E+(Q - F)sin(A) →Y：A+C→S： Goto9：Lbl4:J-J^(5)÷40÷(RU)^2+J^(9)÷3456÷(RU) ^(4)→H：J^(3)÷6÷(RU) -J^(7)÷336÷(RU) ^(3)+J^(11)÷42240÷(RU)^(5) →I: J = Q-D => Goto 6Goto7:Lbl5： 90(2Q - 2D- L)÷π÷R →U： Rsin(U)+o→H: R( 1 - cos(U)) + P →ILbl6： If B< 0: Then - I→I: IfEndN -Tcos(A)+Hcos(A) - Isin(A) →X： E-Tsin(A) + Hsin(A) +Icos(A) →Y：Goto8Lbl 7： If B> 0: Then –I →I: IfEndN+Scos(A+B)+Hcos(A+B)-Isin(A+B)→X：E+Ssin(A+B)+Hsin(A+B)+Icos(A+B) →YLbl 8：R →U： If B< 0: Then –R →U: IfEndIf J=Q-D: Then C+A+90J^2÷π÷U÷L→S: Goto9:IfEndIf J= Q-D -L- M- G: Then C+A+B - 90J^2÷π÷U÷M →S: Goto9: IfEndIfQ≤D+ L+ G: ThenQ-D-L →J : C+A+90L÷π÷U+180J÷π÷U→S: Goto9: IfEndLbl 9： X+Wcos(S-90+K) →X: Y+Wsin(S-90+K) →Y：“X=”: X◢“Y=”: Y◢“U=”:(S-90+K) ◢Goto02、子程序0.1739274226 →A:0.3260725774 →B:0.3300094782→L:0.0694318442 →K:1-L →F:1-K →M:1÷P→C:(P-R) ÷(2HPR) →D:180÷π→E:G+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+B cos(Z[2]) →X:X+B cos(Z [3]) →X: X+A cos(Z [4])→X:U+WX→X:A sin(Z [1]) →Y:Y+B sin(Z [2]) →Y:Y+B sin(Z [3]) →Y:Y+Asin(Z [4]) →Y:V+WY→Y:G+QEW(C+WD)+90→F:“F=”:F-90+J◢X+Z cos(F-90+J) →X:Y+Z sin (F-90+J) →Y3、曲线要素If Q≤桩号：Then 交点桩号→F:交点X坐标→N:交点Y坐标→E:起点方位角→A：夹角→B:第一缓和曲线长度→L:第二缓和曲线长度→M:GotoA:If End………………Lbl A:Return程序中各变量含义：JD ── 交点桩号 FJDX ── 交点X坐标NJDY ── 交点Y坐标 EFWJ ── 起始方位角 APJ ──偏角（左-- 右+） BR ── 圆曲线半径 RLS1 ── 第一缓和曲线长 LLS2 ── 第二缓和曲线长 M。
卡西欧fx-5800p计算器测量程序
卡西欧fx-5800p计算器测量程序（作者：水江华）1.坐标反算程序"ZBFS QH1-4"◢Deg：Fix 3←┘"X+YiS(m）="?A←┘Lb1 0:"X+YiE(m)，0=>END="?B←┘Abs（B）=0=>Goto E←┘Arg（B-A)→JJ<0=>J+360→J"DIST(m）="：Abs（B-A)◢"α（DMS)=":J▶DMS◢Goto 0←┘Lb1 E:"ZBFS QH1-4=>END"2.坐标正算程序"ZBZS QH1-3"◢Deg：Fix 3←┘"XS(m)= "？A:"YS(m)= "？B←┘Lb1 1:"DIST(m)= "？L←┘If L≤0:Then Goto 2:IfEnd←┘"α（Deg)="？R←┘A+Lcos（R）→C←┘B+Lsin（R）→D←┘Fix 3："XE(m)= ":C◢"YE(m)= ":D◢Goto 1←┘Lb1 2:"ZBZS QH1-3=>END"3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢Deg:Norm 1:FreqOn←┘n→N←┘If List Y[N]=0:Then N-1→DimZ:Goto 0←┘Else N→DimZ:Goto 1: IfEnd←┘Lb1 0: "CLOSE Or CONECT TRA VE"◢"ANGLE NUM=":N◢"SIDE NUM=":N-1◢"UNKNOWN P NUM=":N-2◢"CLOSE(0)，CONNECT(≠0)="?→Z←┘Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘C+Di→U：U→V←┘If A>0：Then Pol（C-A，D-B）：Cls←┘J<0=>J+360→J：J→R←┘"DIST A→B(m)="：I◢"αA→B(DMS)="：R▶DMS◢IfEnd←┘If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘E+Fi→V←┘"XD(m)，≤0=>αC→D(Deg)="？G←┘If G>0：Then "YD(m)= "？H←┘Pol（G-E，H-F）：Cls←┘J<0=>J+360→J：J→S←┘"DIST C→D(m)="：I◢"αC→D(DMS)="：S▶DMS◢Else "αC→D(Deg)="？S：IfEnd←┘Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。
CASIO fx-5800p测角后方交会坐标计算程序
• 输入子程序前,按
键,
• 记录下机器的剩余内存字节数,设为F
• 输入完SUBQ4−3子程序后,按 键返回,
• 记录下机器的剩余内存字节数,设为B
• 应有F−B=148字节,否则,子程序输入有误！
ቤተ መጻሕፍቲ ባይዱ
测角后方交会坐标计算母机程序qh43逐屏图片输入完subq43子程序后按键返回
测角后方交会坐标计算
母机程序QH4−3逐屏图片
• 主程序——QH4−3 • 一个子程序——SUBQ4−3。
主程序QH4−3逐屏图片
• 主程序输入是否正确的数字检查方法！
• QH4−3主程序需要占用612字节内存。
• 输入主程序前,按
键,
• 记录下机器的剩余内存字节数,设为F
• 输入完QH4−3主程序后, 按 键返回,
• 记录下机器的剩余内存字节数,设为B
• 应有F−B=612字节,否则,主程序输入有误！
子程序SUBQ4−3逐屏图片
• 子程序输入是否正确的数字检查方法！
• SUBQ4−3子程序需要占用148字节内存。
5800坐标程序(新)计算交角
逐桩坐标曲线计算主程序（casio fx-5800p）QXJSA JSLbl 1：“KP=”?SProg“QXJSC"Lbl 1“BIAN JU Z(—)，Y（+）”？Z“JIA JIAO="?WProg“QXJSB—1”“XP=”:N◢“YP=”:E◢“QU XIAN FWJ=”：F ►DMS◢Goto 1QXJSCGoto 1Lbl 1If S〈*＊*（线元终点里程）：Then＊＊*(线元起点方位角）→A：***(线元起点里程）→O：＊＊* (线元起点X）→U：**＊（线元起点Y）→V：*＊＊(线元起点曲率半径)→P：*＊*（线元终点曲率半径）→R：**＊（线元起点至终点长度)→L：Return:IfEnd………………………..If S<＊＊*：Then＊＊*→A:**＊→O：＊*＊→U:＊＊*→V:＊**→P：*＊＊→R: **＊→L：Return:IfEndQXJSB—10.5（1÷R-1÷P）÷L→D:S-O→XU+∫（cos(A+（X÷P+DX²)×180÷π,0，X）→NV+∫(sin（A+(X÷P+DX²)×180÷π，0，X）→EA+(X÷P+DX²）×180÷π→FN+Zcos（F+W）→NE+Zsin（F+W）→EQXJSB-2Lbl 1：0→Z:1→Q：Prog“QXJSC”: Prog“QXJSB—1"Pol(N—B+10^(—46), E—C+10^(-46）)：Isin(F-90-J）→W:S+W→SAbs（W)〉0。
0001 => Goto 1Lbl 2：0→Z：Prog“QXJSB—1”：(C—E) ÷sin（F+90) →ZQXJSA—1 JSLbl 1“N=”？B: “E=”？C:B—N：C-E：Prog“QXJSB-2”：“KP=”:S◢“S(—Z，+Y)”：Z◢Goto 1注:坐标计算适合直线和圆曲线,回旋曲线。
CASIO 5800综合曲线坐标计算程序(使用中)
C A SI O f x-5800P综合曲线坐标计算程序说明：该程序适用于计算器C ASI O f x-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。
1、α? 输入转角：左转为负，右转为正2、R?输入圆曲线半径3、LS? 输入缓和曲线长度4、J D(DK)?输入交点里程桩号5、X(JD)?输入本交点X 坐标6、Y(JD)?输入本交点Y 坐标7、F W J?输入待求点切线方位角9、J? 输入0 程序计算中桩，输入 1 程序计算边桩10、JSDK? 输入里程桩号主程序名：ZHQ X1. Deg：Fix 4↙2. Lb1 A↙3. ＂α＂?A：?R：＂LS＂?C：＂JD(DK)＂?D：＂X(JD)＂?N：＂Y(JD)＂?E：＂FWJ＂?F↙4. Lb1 B↙5. ?J ↙6. C∧2÷24÷R-C∧（4）÷2688÷R∧（3）→P↙7. C÷2-C∧（3）÷240÷R∧2→Q↙8. 90×C÷兀÷R→B↙9. ＂T=＂：(R+P)tan(Abs(A)÷2)+Q→T◢10. ＂E=＂：(R+P)÷c o s(A÷2)-R→W◢11. ＂L=＂：(Abs(A)-2×B)兀R÷180+2×C→L◢12. ＂ZH=＂：D-T→G◢13. ＂HY=＂：G+C→H◢14. ＂QZ=＂：G+L÷2→I◢15. ＂YH=＂：G+L-C→K◢16. ＂HZ=＂：G+L→M◢17. If A＜0：Th en-1→S：E l se1→S：If End↙（本行中0 为数字）18. F+A÷2+90×S→U↙19. W+R→V↙20. N+V×cos(U)→B↙21. E+V×sin(U)→O↙（本行中O 为字母）22. Lbl 1 ↙23. ＂JS DK＂?Z↙24. If Z≤G：Th en T+G-Z→L ↙25. F+180→V ↙26. ＂FW J=＂：F→U◢27. Goto 2 ↙28. IfEnd ↙29. If Z≤H：Th en Z-G→L ↙30. L-L∧(5)÷(90×R∧2×C∧2)→V↙31. 30×L∧2×S÷(兀RC)→L ↙32. F+180→P ↙33. F+L→Q↙34. ＂FW J=＂：F+3×L→U◢35. Goto 4 ↙36. IfEnd ↙37. If Z≤K：Th en F+A÷2+90×S+180+180(Z-I)×S÷R÷兀→L↙38. ＂FW J=＂：L+90×S→U：If U≥360：The n U-360→U◢39. Else U→U◢40. IfEnd：G o to5：If End↙41. If Z≤M：Th en M-Z→L↙42. L-L∧(5)÷(90×R∧2×C∧2)→V↙43. 30×S×L∧2÷(兀RC)→L ↙44. F+A→P ↙45. F+A+180-L→Q↙46. ＂FW J=＂：F-3×L+A→U：If U≥360：Th en U-360→U◢47. Else U→U◢48. IfEnd：G o to4：If End↙49. If Z>M：Then Z-M+T→L↙50. F+A→U ↙51. U→V ↙52.G o to2 ↙53. Lbl 2 ↙54. ＂X=＂：N+L×cos(V)→X◢55. ＂Y=＂：E+L×sin(V)→Y◢56. G o to6 ↙57. If End↙58. Lbl 3 ↙59. ?W60. ＂XL=＂：X+W×cos(U-90)→P◢61. ＂YL=＂：Y+W×sin(U-90)→Q◢62. ＂XR=＂：X+W×cos(U+90)→P◢63. ＂XL=＂：Y+W×sin(U+90)→Q◢64. G o to1 ↙65. Lbl 4 ↙66. ＂X=＂：N+T×cos(P)+V×cos(Q)→X◢67. ＂Y=＂：E+T×sin(P)+V×cos(Q)→Y◢68. G o to6 ↙69.Lbl 5 ↙70. ＂X=＂：B+R×cos(L)→X◢71. ＂Y=＂：O+R×sin(L)→Y◢（本行中O 为字母）72. G o to6 ↙73. Lbl 6 ↙74. J=1 G o to3 ↙75. G o to1 ↙。
CASIO+FX-5800P+综合曲线坐标计算程序(正确)2010.1.17
圆曲线坐标计算交点桩号YK20+734.498；N=2889769.961；E=527002.305 ；方位角314'24'58.3' 转角27'19'31.4' 切线长度T1= 814.345 ；T2= 814.347 ；半径R=3000 ；曲线长度LS1：170；LC=1260.752；LS2= 170 曲线总长=1600.752 求ZH,HY,QZ,YH,HZ以及圆心点的坐标。
1、A？输入转(偏)角；左转为负，右转为正。
转角27'19'31.4'2、R？输入曲线半径。
30003、LS？输入缓和曲线长度。
1704、JD（DK）？输入交点里程桩号。
20734.498结果显示T = 814.347 W=87.776 L=1600.754 ZH=19920.151;HY=20090.151; QZ=20720.528; YH=21350.905; HZ=21520.9055、X（JD）？输入本交点X坐标。
2889769.9616、Y（JD）？输入本交点Y坐标。
527002.3057、FWJ？输入直缓(ZH)点切线方位角。
314'24'58.3'8、J？输入0程序计算中桩，输入1程序计算边桩。
09、Z？输入里程桩号。
ZH=19920.151FWJ:314.416 X=2889200.028 Y= 527583.973完（FWJ:314.416=314'24'57.6' ）ZH(2889200.026 527583.975) HY(2889320.140 527463. 682)QZ(2889816.373 527076.808) YH(2890382.383 526801.950)HZ(2890543.311 526747.167)例如2:JD15:4013872.8781;456031.1661 JD16:4015349.321;451808.075ZH:75+137.901 ay:16.45.49.69 R=9000 缓和曲线长：490 T=1571.257 JD(DK) =76709.158 FWJ=289-16-12.85 给我算一下74+400;75+300;75+800;76+500左中线坐标。
卡西欧5800曲线坐标计算程序-正确
CASIO4800改5800p坐标计算程序-角度以度为单位1、该程序适用于计算器CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。
2、A？输入转角：左转为负，右转为正3、R？输入圆曲线半径4、LS？输入缓和曲线长度5、JD？输入交点桩号6、J？输入0程序计算中桩，输入1程序计算边桩7、N？E？输入交点X、Y坐标8、FW 待求点切线方位角9、当计算交角为60°时，则公式改为（U+60），（U-120）1 ？A：？R：“LS”？C：“JD”？D2 C∧2/24/R-C∧4/2688/R∧3→P 求缓和曲线内移、值3 C/2-C∧3/240/R∧2→Q 切距差4 90C/兀/R→B 缓和曲线角度β05 (R+P)tan(AbsA/2)+Q→T 切线长6 (R+P)/cos(A/2)-R→W 外矢距7 ((AbsA)-2B)兀R/180+2C→L 缓和曲线长8 D-T→G 直缓点里程9 G+C→H 缓圆点里程10 G+L/2→I 曲中点里程11 G+L-C→K 圆缓点里程12 G+L→M 缓直点里程13 ？N：？E：？F：？Ｊf为方位角14 If A＜0：Then -1→S：Else 1→S：IfEnd15 F+A/2+90S→U16 W+R→V17 N+VcosU→B18 E+VsinU→O19 Lbl 120 ？Z21 If Z≤G：Then T+G-Z→L22 F+180→V23 F→U24 Goto 225 IfEnd26 If Z≤H：Then Z-G→L27 L-L∧5/(90R∧2C∧2)→V28 30L∧2S/(兀RC)→L29 F+180→P30 F+L→Q31 “FW=“：F+3L→U◢32 Goto 433 IfEnd34 If Z≤K：Then F+A/2+90S-180+180(Z-I)S/R/兀→L35 “FW=“：L+90S→U36 Goto 537 IfEnd38 If Z≤M：Then M-Z→L39 L-L∧5/(90R∧2C∧2)→V40 30SL∧2/(兀RC)→L41 F+A→P42 F+A+180-L→Q43 F-3L+A→U44 Goto445 IfEnd46 If Z>M：Then Z-M+T→L47 F+A→U48 U→V49 Goto 250 IfEnd51 Lbl 252 “X=“：N+LcosV→X◢53 “Y=“：E+LsinV→Y◢54 Goto 655 Lbl 356 ？W57 “XL=”：X+Wcos(U-90) ◢58 “YL=”：Y+Wsin(U-90) ◢59 “XR=”：X+Wcos(U+90) ◢60 “YR=”：Y+Wsin (U+90) ◢61 Goto 162 Lbl 463 ”X=“：N+TcosP+VcosQ→X◢64 ”Y=“：E+TsinP+VsinQ→Y◢65 Goto 666 Lbl 567 “X=”：B+R cosL→X◢68 “Y=”：O+RsinL→Y◢69 Goto 670 Lbl 671 J=1=> Goto 372 Goto 1注：◢为输出指令，只要在后面加上，即把前面的结果输出在屏幕上。
CASIO5800交点法程序
日志转到我空间分享给好友复制网址隐藏签名档小字体选用该信纸上一篇下一篇返回日志列表转载自钱¥霸转载丁2010年02月01日10:09阅读（2）评论（0）分类：工程技术丛书举报道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）一、前言本程序是《CASIOx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。
原道路坐标放样计算程—仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。
改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是：1. 使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦；2. 坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）;3. 坐标反算方面，输入平■面坐标，即可计算对应的桩号和距中距离（含左右信息）；4. 对丁存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。
程序的特点：1. 可进行中桩坐标的正、反算，程序代码简洁，便丁阅读和改写；2. 主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐；3. 使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算〉〉第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600。
这里摘取直线、曲线及转角表资料如下（若图片不活晰，请参见参见教材P161附录1）:三、程序代码注：路线数据库子程序ROAD DATA促根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。
卡西欧5800交会法坐标计算程序
交会法坐标计算JHZBJS由4800P改编程序如下:?Q:?V:?X:?Y:I=0:Pol(X-Q,Y-V):If J<0:Then J+360→J:IfEnd ：?D:?M:?A:(I+D+M) ÷2→W:“F0=”:J+2Sin-1(√((W-D)(W-I)÷(ID)))→F◢X→G:Y→H:Rec(D,F):Q+I→X:V+J→Y:X→B:Y→C:G→X:H→Y:Pol(X-B,Y-C):“F=”:If J<0:Then J+360→J:IfEnd◢A-2sin-1(√((W-D)(W-M)÷(MD)))◢注解:在5800P中只对4800P中第三程序进行应用修改,即采用三角形三条边为已知条件求算仪器点位的坐标值及提取零方向(变量F±180)或终方向方位角(变量J)；在本程序中重新定义了零方向的坐标为（Q，V），终方向的坐标仍是（X，Y）。
没有象4800P那样多次调用“O-S”和“S-O”是不希望使用时把握不住那些是要输入的变量值，那些是想要的结果值。
如果之后要知道仪器点的坐标,可以提取变量B和C,程序设计已转入。
零方向与终方向形成的夹角A意义不大，在这里未利用。
可以将实测A值与计算出的两方位角值之差进行比较，在使用棱镜杆观测时完全不必复核A值，只有在使用人手扶棱镜时才需注意，防止偏差过大造成大的错误。
如果不需要完全掌握A的偏差,如心算,则?A:和: A-2sin-1(√((W-D)(W-M)÷（MD))）◢可以不必输入计算器中。
另外新编一个是通过观测显示的方位、平距和高差综合计算测点坐标的程序如下：Cls:Fix 3:28→DimZ:“X1=”?I: 第一方向点X坐标I→Z[1]:“Y1=”?I: 第一方向点Y坐标I→Z[2]:“H1=”?I: 第一方向点高程I→Z[3]:“X2=”?I: 第二方向点X坐标I→Z[4]:“Y2=”?I: 第二方向点Y坐标I→Z[5]:“H2=”?I: 第二方向点高程I→Z[6]:Pol(Z[4]-Z[1],Z[5]-Z[2]):I→Z[21]: 第一方向点到第二方向点的理论距离J→Z[22]: 第一方向点到第二方向点的方位角Z[22]<0 => 360+Z[22]→Z[22]:“D1=”?I: 在第一方向点归零后观测的平距I→Z[7]:“h1=”?I: 在第一方向点归零后观测的高差I→Z[8]:“v1=”?I: 第一方向点的镜高I→Z[11]:“D2=”?I: 在第二方向点观测的平距I→Z[9]:“h2=”?I: 在第二方向点观测的高差I→Z[10]:“v2=”?I: 第二方向点的镜高I→Z[12]:“a2=”?I: 在第二方向点观测的水平角度I→Z[13]:Z[22]+cos-1((Z[21]2+Z[7]2-Z[9]2)/(2Z[7]Z[21]))→Z[23]:Z[22]+180-cos-1((Z[21]2+Z[9]2-Z[7]2)/(2Z[9]Z[21]))→Z[24]:Rec(Z[7],Z[23]):Z[1]+I→Z[14]:Z[2]+J→Z[15]:Rec(Z[9],Z[24]):Z[4]+I→Z[16]:Z[5]+J→Z[17]:(Z[14]+Z[16])/2→Z[18]: 计算出的仪器点X坐标(Z[15]+Z[17])/2→Z[19]: 计算出的仪器点Y坐标(Z[3]+Z[11]-Z[8]+Z[6]+Z[12]-Z[10])/2→Z[20]: 仪器点的高程(未减仪高)Pol(Z[1]-Z[18],Z[2]-Z[19]):I→Z[25]: 计算出的仪器点到第一点的平距J→Z[26]: 计算出的仪器点到第一点的方位角Z[26]<0 => 360+Z[26]→Z[26]:Pol(Z[4]-Z[18],Z[5]-Z[19]):I→Z[27]: 计算出的仪器点到第二点的平距J→Z[28]: 计算出的仪器点到第二点的方位角Z[28]<0 => 360+Z[28]→Z[28]:Cls:“X0=”:“Y0=”:“Z0=”:Locate 7,1,Z[18]:Locate 8,2,Z[19]:Locate 11,3,Z[20]◢Cls:“FWJ1=”:Z[26]►DMS◢“JL1=”:Locate 11,4,Z[25]◢“FWJ2=”:Z[28]►DMS◢“JL2=”:Locate 11,4,Z[27]◢Stop这里强调第一方向点要归零，第二方向点Z[13]记录了水平角但未在程序中参与计算比较，可以用Z[28]-Z[26]再与Z[13]比较看误差多大。
fx-5800p全线坐标放样（交点法）正反算程序
fx-5800p全线坐标放样（交点法）正反算程序fx-5800p全线坐标放样（交点法）正反算程序【QXFYZFS】（主程序名）20→Dim?〝1.ZS.2.FS〞？J：J≠1?Goto2：90→H：〝X（CZ）〞？U：〝Y（CZ）〞？V?Lbi1：〝Kp＝〞？P：〝Z-Y+〞？D：Prog〝SUJUKU〞：M+O→N：Prog〝SUBA〞：Prog〝SUBB〞：F-Dcos(Z-H)→F：G-Dsin(Z-H)→G：〝X=〞〝Y=〞〝〞Z?DMS◢U=0?Goto1:Pol(F-U,G-V):J＜0?360+J→J：〝DH〞〝〞J?DMS◢Goto1?Lbi2：〝GAILUE(Kp＝)〞?P:〝X=〞？U:〝Y=〞?V?Lbi3：Prog〝SUJUKU〞:M+O→N:Prog〝SUBA〞:Prog〝SUBB〞:Z-90→A:(V-G)cos(A)-(U-F)sin(A)→H:IfAbs(H)＞0.0001：ThenH+P→P:Goto3:IfEnd:(G-V)÷sin(A)→D〝=〞〝〞Goto2?使⽤说明：20→Dim：扩展额外变量寄存器〝1.ZS.2.FS〞：选择正反算（正算=1反算≠1）90→H：边桩与线路正交〝X（CZ）〞〝Y（CZ）〞：输⼊测站点X、Y坐标值〝Kp＝〞、〝Z-Y+〞：输⼊所求点桩号和距中（左-右+中0）〝GAILUE(Kp＝)〞：反算时，输⼊所求点概略桩号〝X=〞〝Y=〞：反算时，输⼊所求点X、Y坐标值〝X=〞〝Y=〞〝〞：显⽰所求点X、Y值及所求点切线⽅位⾓。
〝DH〞〝〞：显⽰所求点放样距离及放样⽅位⾓（放样）。
10.〝〞〝〞：反算时，显⽰所求点桩号及距中（左-右+中0）。
〝U=0?Goto1〞〝〞〝〞【SUBA】⼦程序AIfO＜0:Then-1→W:Else1→W:IfEnd:WO→A?B2÷24÷R-B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6]:C2÷24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7]:B÷2-B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]C÷2-C^(3)÷240÷R2+C^(5)÷34560÷R^(4)→Z[9]Z[8]+(R+Z[7]-(R+Z[6]cos(A))÷sin(A)→S:Z[9]+(R+Z[6]-(R+Z[7]cos(A))÷sin(A)→T:ARπ÷180+（B+C）÷2→L:L-B-C→Q：（R+(Z[6]+Z[7])÷2）cos(A÷2)-R→E：K-S→Z[1]:Z[1]+B→Z[2]:Z[1]+L-C→Z[4]:Z[4]+C→Z[5]【SUBB】⼦程序BX–Scos（M→F:Y-sin(M→G:P＞Z[1]?Goto1:X→F:Y→G:P-K→Z[16]:0→Z[17]:M→A:M→Z:Goto5?Lbl1:P＞Z[2]?Goto2:P-Z[1]→L:L→Z[14]:B→Z[15]:Prog〝SUBC〞:WZ[17]→Z[17]:M→A：M+90WL(BRπ→Z：Goto5:Lbl2:P＞Z[4]?Goto3:P-Z[1]→L:90(2L-B)÷R÷π→A:Rsin(A)+Z[8]→Z[16]:W(R(1-cos(A))+Z[6]→Z[17]:M+WA→Z:M→A:Goto5:Lbl3:P＞Z[5]?Goto4:Z[5]-P→L:L→Z[14]:C→Z[15]:Prog〝SUBC〞:X+Tcos(N→F:Y+Tsin(N→G:-Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL2÷(CRπ→Z:Goto5:Lbl4:X→F:Y→G:P-Z[5]+T→Z[16]:0→Z[17]:N→A:N→Z:Goto5:Lbl5:F+Z[16]cos(A)-Z[17]sin(A→F:G+Z[16]sin(A)+Z[17]cos(A→G:Z＜0?360+Z→Z【SUBC】⼦程序CIfZ[14]=0:Then0→Z[16]:0→Z[17]:ElseZ[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[14]^(9)÷3456÷(RZ[15])^(4)→Z[16]:Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]:IfEnd 【】IfP＜1000:Then522.056→K：5683.105→X：1447.559→Y:183°17°55.68°→M:-19°37°25.5°→O:2500→R:0→B:0→C:Return：IfEnd?IfP＜2000:Then1182.2→K：5317.799→X：868.262→Y:337°0°1.8°→M:10^(-50)→O:1→R:0→B:0→C:Return：IfEnd?IfP＜3000:Then……0→B:0→C:Return：IfEnd?1182.2→K”。
fx-5800P计算器编程(交点法)实例泸定县市政道路工程-路1-坐标放样
交点法、积木法
ROAD-JM1
工程程序命名
ROAD-JM2
ROAD-JM3
ROAD-SUB1
ROAD-SUB2 ROAD-SUB3
XY-A
交点法、积木法 支程序命名
XY-B
刘宾龙
2011年9月20日
输入桩 号：起 点和第
615.915→D:683.120→E:If P≤E:Then 650.300→K:3307775.247→X:521229.008→Y:206°01′39.5″→M:-7°18′45.8″→O(是 英文O不是零):515→R:0→B:0→C:Goto 1:IfEnd 回车键、执行键（就是EXE）
683.120→D:950.620→E:If P≤E:Then 766.505→K:3307665.102→X:521191.694→Y:198°42′53.7″→M:-18°23′39.1″→ O(是英文O不是零):515→R:0→B:0→C:Goto 1:IfEnd 回车键、执行键（就是EXE）
1855.600→D:2345.823→E:If P≤E:Then 1897.208→K:3306569.750→X:521050.756→Y:201°34′32.3″→M:9°34′51.3″→ O(是英文O不是零):496→R:0→B:0→C:Goto 1:IfEnd 回车键、执行键（就是EXE）
桩号输入
（以上为 交点法设 计输入， fx-5800P 计算器编 程时只需 要设计交 点坐标， 利用圆起 点和曲中 点等）
ROAD-2改 XY改
ROAD-DATA1改
P.Z改
在一台fx-5800P-计算器上编程时
ROAD-JD
交点法、积木法
5800(交点法)坐标计算及反算
5800(交点法)坐标计算及反算程序清单：1、JDF1J-PQXYS(交点法1-平曲线要素)5→Dimz↙“JD”?A↙“JD X”?B↙“JD Y”?C↙“FWJ”?F↙“L(a-),R(a+)”?O↙(字母O)“R”?R↙“LS1”?E↙“LS2”?K↙If E<1:Then 1*10^(-9) →E:IfEnd↙If K<1:Then 1*10^(-9) →K:IfEnd↙E2 ÷(24R)- E^(4)÷(2688R^(3))→Z[1]↙E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))→Z[2]↙((E2-K2 )÷(24R))÷Sin(Abs(O))→X↙(字母O)“T1=”：(R+E2÷(24R)-E^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))-X→Z[3] ◢(字母O)“T2=”：(R+K2÷(24R)-K^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+K÷2-K^(3)÷(240R2)+K^(5)÷(34560R^(4))+X→Z[4] ◢(字母O)“L=”：Abs(O)πR÷180+(E+K)÷2→L◢(字母O)“LY=”:L-(E+K)→Y◢tan-1（（R+Z[1]）÷(Z[3]-Z[2]))→J↙“E=”:(R+Z[1])÷sin(J)-R→X◢A-Z[3]→X：X+E→Y↙If E<1：Then “ZY=”：X◢:Else “ZH=”：X◢IfEnd↙“HY=”：Y◢“QZ=”：X+E+(L-K-E)÷2→Y◢X+L-K→Y：X+L→X↙If K<1：：Then “YZ=”：X◢:Else “YH=”：Y◢IfEnd↙“HZ=”：X◢Prog“JDF2J-JSMS”↙2、JDF2J-JSMS(交点法2-计算模式)LbI 0↙“1 KD=>XY,2 XY=>KD”？Z↙If Z=1:Then Goto 1:IfEnd↙If Z=2:Then Goto 2:IfEnd↙LbI 1↙“JS K”?P:“BZ(m)”?D:“BJ(°)”?W↙Prog“JDF3JPZS”↙“X=”:X◢“Y=”:Y◢If Z=1: Then Goto 1：Goto 1：IfEnd↙LbI 2↙“X”?X:“Y”?Y:“BJ(°)”?W↙Prog“JDF4JPFS”↙“JS K”:P◢“BZ(m)=”:D◢If Z=2: Then Goto 2:Goto 2:IfEnd↙3、JDF3JPZS (交点法3平曲线正算)LbI 1↙F→J↙B-Z[3]cos（F）→X↙C-Z[3]sin（F）→Y↙E→G↙If P≤A-Z[3]:Then A-Z[3]-P→I:-I→M:0→N:F+W→H: Goto5：IfEnd↙(数字0)If P≤A-Z[3]+E:Then P-A+Z[3]→I:90I2÷(REπ)→H: O<0=>-H→H：(前面为字母0，后面为数字0)H+W+F→H: Goto 3: IfEnd↙If P≤A-Z[3]+L-K:Then P-A+Z[3]-E→I: Goto 4:Else Goto2: IfEnd↙LbI 2↙B+Z[4]cos(F+O)→X↙(字母0)C+Z[4]sin(F+O)→Y↙(字母0)F+O+180→J↙(字母0)K→G↙If P≤A-Z[3]+L:Then A-Z[3]+L-P→I:90I2÷(RKπ)→H: O>0=>-H→H：(前面为字母0，后面为数字0)H+J+W+180→H: Goto 3 :Else P-A+Z[3]-L→I:-I→M:0→N:（数字0)J+W+180→H: Goto 5：IfEnd↙LbI 3↙I-I^(5)÷(40(RG)2)→M↙I^(3)÷(6GR)-I^(7)÷(336(RG)^(3))→N↙Goto 5↙LbI 4↙(E+2I)×90÷(πR)→H↙Rsin(H)+Z[2]→M↙R(1-cos(H))+Z[1]→N↙O<0=>-H→H↙(前面为字母0，后面为数字0)J+H+W→H↙Goto 5↙LbI 5 ↙If P≤A-Z[3]+L-K:Then O<0(前面为字母0，后面为数字0)=>-N→N:Else O>0(前面为字母0，后面为数字0)=>-N→N: Goto 6: IfEnd↙LbI 6 ↙X+Mcos(J)-Nsin(J)+Dcos(H)→X↙Y+Msin(J)+Ncos(J)+Dsin(H)→Y↙4、JDF4JPFS(交点法4平曲线反算)X→U:Y→V:0→D:F-W→J↙(数字0)A+(Y-C)cos(J)-(X-B)sin(J)→P↙LbI 1↙Prog“JDF3JPZS”↙H-180→J↙(V-Y)cos(J)-(U-X)sin(J)→I↙If Abs(I)<10^(-4):Then Goto 2:Else P+I→P: Goto1: IfEnd↙LbI 2↙(V-Y)÷sin(H)→D↙程序简介本套程序共有1个主程序，3个子程序，适用于CASIO-5800用户。
fx-5800P坐标高程计算程序交点法17页
CASIOfx-5800P单交点通用型曲线坐标高程计算程序一、说明：本程序采用交点法计算道路基本型曲线坐标及高程，在建立好数据库后，能连续计算全线各桩号的中边桩坐标及高程。
本程序共包括一个主程序和九个子程序，其中有坐标计算、高程计算、坡口坡脚线放样，锥坡放样坐标计算等子程序。
二、内容：1．PM5-3 XYZJS（主程序）“SINGLE BASIC TYPE CURVE”◢“METHOD OF COORDINATE PM5-3”◢Deg:ClrStat:FreqOn:Fix 340→DimZ“INPUT(0) Or DATA(Else)”?N“FUNCTION”?PProg “SUB5-35”If Z[30]<0:Then -1→Z[20]:Else 1→Z[20]:IfEndAbs(Z[30])→DPol(Z[26]-Z[28],Z[27]-Z[29]):ClsIf J<0: Then J+360→Z[11]:Else J→Z[11]:IfEnd 计算ZH→JD 方位角Z[11]+Z[30]+180→Z[16] 计算HZ→JD方位角If Z[16]>360:Then Z[16]-360→Z[12]:Else Z[16]→Z[12]:IfEndIf Z[12]>180:Then Z[12]-180→Z[23]:Else Z[12]+180→Z[23]:IfEnd计算JD→HZ方位角S2÷（24R）-S4÷(2688R3)→Z[1] 计算第一缓和曲线内移值0.5S-S3÷(240R2)+S5÷(34560R4)→Z[2] 计算第一缓和曲线切线增长值T2÷(24R)-T4÷(2688R3)→Z[3] 计算第二缓和曲线内移值0.5T-T3÷(240R2)+T5÷(34560R4)→Z[4] 计算第二缓和曲线切线增长值(R+Z[3])÷sin(D)-(R+Z[1])÷tan(D)+Z[2]→Z[5] 计算第一切线长(R+Z[1])÷sin(D)-(R+Z[3])÷tan(D)+Z[4]→Z[6] 计算第二切线长90S÷(πR)→Z[7]:90T÷(πR)→Z[8] 计算第一、二缓和曲线偏角πR(D-Z[7]-Z[8])÷180→Z[9] 计算圆曲线长度S+T+Z[9]→Z[10] 计算曲线总长度Z[25]-Z[5]→List X[1] 计算直缓点桩号1→K:Prog “SUB5-37”List X[1]+S→List X[2]:List X[2]+Z[9]→List X[3] 计算缓圆点、圆缓点桩号Z[26]-Z[5]cos(Z[11])→List Y[1]:Z[27]-Z[5]sin(Z[11])→List Freq[1]If S≠0:Then“ZH PEG(m)=”:List X[1]◢显示直缓点桩号Else “ZY PEG(m)=”:List X[1]◢显示直圆点桩号IfEnd“X(m)=”:List Y[1]◢显示直缓(圆)点X坐标“Y(m)=”:List Freq[1]◢显示直缓(圆)点Y坐标“H（m）=”:Z[24]◢显示直缓(圆)点Z坐标“FWJ=”:Z[11] ►DMS◢显示直缓(圆)点切线方位角1→K:Z[11]→Z[13]:Prog “SUB5-34”调子程序计算直缓点边桩坐标2→K:If S≠0:Then Prog “SUB5-31”调子程序计算缓圆点中边桩坐标Else List Y[1]→List Y[K]:List Freq[1]→List Freq[K]Z[11]→Z[17]:IfEnd3→K: Prog “SUB5-32”调子程序计算圆缓点中边桩坐标List X[1]+Z[10]→List X[4] 计算缓直点桩号4→K:Prog “SUB5-37”If T≠0:Then Z[26]+Z[6]cos(Z[23])→List Y[4]Z[27]+Z[6]sin(Z[23])→List Freq[4] 计算缓直点中桩坐标“HZ PEG(m)=”:List X[4]◢显示缓直(圆)点桩号“X(m)=”:List Y[4]◢显示缓直(圆)点X坐标“Y(m)=”:List Freq[4]◢显示缓直(圆)点Y坐标“H（m）=”:Z[24]◢显示缓直(圆)点Z坐标“FWJ=”:Z[23] ►DMS◢显示缓直点切线方位角Z[23]→Z[13]:Prog “SUB5-34”调子程序计算缓直(圆)点边桩坐标Else List Y[3]→List Y[K]:List Freq[3]→List Freq[K]:IfEndIf R<30: Then 5→I: Else If R<60: Then 10→I: Else 20→I: IfEnd :IfEnd “INT DIST(m)=”?OIf O>0: Then O→I: IfEnd“ONLY CALC +PEG(1)”?→GIf G=1:Then Goto 1:IfEndK+1→K:Int(Z[31]÷I)I+I→List X[K]If List X[K]>List X[1]:Then Prog “SUB5-31”:Else Prog “SUB5-33”:IfEnd DoK+1→K:List X[K-1]+I→List X[K]If List X[K]≤ List X[1]:Then Prog “SUB5-33”Else If List X[K] ≤ List X[2]:Then Prog “SUB5-31”Else If List X[K] ≤ List X[3]:Then Prog “SUB5-32”Else If List X[K] ≤ List X[4]:Then Prog “SUB5-31”Else Prog “SUB5-33”IfEnd:IfEnd:IfEnd:IfEndLpWhile List X[K]+I<Z[32]Lbl 1Do“+PEG(m)=”?FIf F<Z[31]:Then Break:IfEndIf F>Z[32]:Then Break:IfEndK+1→K:F→List X[K]If List X[K]≤ List X[1]:Then Prog “SUB5-33”Else If List X[K] ≤ List X[2]:Then Prog “SUB5-31”Else If List X[K] ≤ List X[3]:Then Prog “SUB5-32”Else If List X[K] ≤ List X[4]:Then Prog “SUB5-31”Else Prog “SUB5-33”IfEnd:IfEnd:IfEnd:IfEndLpWhile F>0“PM5-3→END”2．SUB5-31（缓和段坐标计算子程序）If List X[K] ≤ List X[2]:Then S→H:List X[K]-List X[1]→LElse T→H:List X[4]-List X[K]→L:IfEndIf H≠0:Then L-L5÷（40R2H2）+L9÷（3456R4H4）-L13÷（599040R6H6）→X L3÷（6RH）-L7÷（336R3H3）+L11÷（42240R5H5）-L15÷（9676800R7H7）→Y √（X2+Y2）→Z[14]:tan-1(Y÷X)→Z[15]Else 0→Z[14]:0→Z[15]:IfEndIf List X[K]≤ List X[2]:Then Z[11]+Z[20]Z[15]→Z[16]List Y[1]+Z[14]cos(Z[16])→List Y[K]List Freq[1]+Z[14]sin(Z[16])→List Freq[K]If H≠0:Then Z[11]+90Z[20]L2÷(πRH)→Z[13]Else Z[11]→Z[13]:IfEndIf List X[K] =List X[2]:Then Z[13]→Z[17]:IfEndElse Z[12]-Z[20]Z[15]→Z[16]List Y[4]+Z[14]cos(Z[16])→List Y[K]List Freq[4]+Z[14]sin(Z[16])→List Freq[K]If H≠0:Then Z[12]-90Z[20]L2÷(πRH)→Z[13]:Else Z[12]→Z[13]:IfEndZ[13]+180→Z[13]:IfEndIf Z[13]<0:Then Z[13]+360→Z[13]:Else If Z[13]>360:Then Z[13]-360→Z[13]:IfEnd:IfEndProg “SUB5-37”If List X[K] =List X[2]:Then “HY PEG(m)=”Else If G=1:Then “+PEG(m)=”Else“INT PEG(m)=”:IfEnd:IfEndList X[K]◢显示桩号“X(m)=”:List Y[K]◢显示X坐标“Y(m)=”:List Freq[K]◢显示Y坐标“H（m）=”:Z[24]◢显示Z坐标“FWJ=”:Z[13] ►DMS◢显示切线方位角Prog “SUB5-34”:Return3.SUB5-32（圆曲线曲线段坐标计算子程序）List X[K]-List X[2]→L90L÷(πR)→Z[15]:2Rsin(Z[15])→Z[14]Z[17]+Z[20]Z[15]→Z[16]List Y[2]+Z[14]cos(Z[16])→List Y[K]List Freq[2]+Z[14]sin(Z[16])→List Freq[K]Z[17]+2Z[20]Z[15]→Z[13]If Z[13]<0:Then Z[13]+360→Z[13]:Else If Z[13]>360:Then Z[13]-360→Z[13]:IfEnd:IfEndProg “SUB5-37”If List X[K] =List X[3]:Then If T≠0:Then “YH PEG(m)=”Else “YZ PEG(m)=”:IfEndElse If G=1:Then “+PEG(m)=”Else“INT PEG(m)=”:IfEnd:IfEndList X[K]◢显示桩号“X(m)=”:List Y[K]◢显示X坐标“Y(m)=”:List Freq[K]◢显示Y坐标“H（m）=”:Z[24]◢显示Z坐标“FWJ=”:Z[13] ►DMS◢显示切线方位角Prog “SUB5-34”:Return4.SUB5-33（直线段坐标计算子程序）If List X[K]≤ List X[1]:Then List X[1]-List X[K]→LList Y[1]-Lcos(Z[11])→List Y[K]List Freq[1]-Lsin(Z[11])→List Freq[K]Z[11] →Z[13]Else List X[K]-List X[4]→LList Y[4]+Lcos(Z[23])→List Y[K]List Freq[4]+Lsin(Z[23])→List Freq[K]Z[23]→Z[13]:IfEndProg “SUB5-37”If G=1:Then“+PEG(m)=”Else“INT PEG(m)=”:IfEndList X[K]◢显示桩号“X(m)=”:List Y[K]◢显示X坐标“Y(m)=”:List Freq[K]◢显示Y坐标“H（m）=”:Z[24]◢显示Z坐标“FWJ=”:Z[13] ►DMS◢显示切线方位角Prog “SUB5-34”:Return5.SUB5-34（边桩坐标计算子程序）“WL(m),0 NO=”?MIf M<0:Then Prog “SUB5-39”Else If M>0:Then “ANGLE→L(Deg)=”?AZ[13]-A→Z[21]List Y[K]+Mcos(Z[21])→Z[18]List Freq[K]+Msin(Z[21])→Z[19]“XL(m)=”:Z[18]◢“YL(m)=”:Z[19]◢If P=1:Then Prog “SUB5-36”:IfEndElse NO:IfEnd:IfEnd“WR(m),0 NO=”?WIf W<0:Then Prog “SUB5-39”Else If W>0:Then “ANGLE→R(Deg)=”?AZ[13]+A→Z[22]List Y[K]+Wcos(Z[22])→Z[18]List Freq[K]+Wsin(Z[22])→Z[19]“XR(m)=”:Z[18]◢“YR(m)=”:Z[19]◢If P=1:Then Prog “SUB5-36”:IfEndElse NO:IfEnd:IfEndReturn6.SUB5-35(平曲线要素数据库子程序，可扩充为多条线路)If N=2:Then Goto 1:IfEndIf N=0:Then Goto 2:IfEnd“+PEG(m)=”?→FIf F≤47129.607:Then 第一交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:ReturnElse If F≤48000:Then 第二交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:ReturnElse If F≤49009.82:Then 第三交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:ReturnElse If F≤50200:Then 第四交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:Return IfEnd:IfEnd:IfEnd:IfEndLbl 1:If F≤47129.607:Then 第一交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:ReturnElse If F≤48000:Then 第二交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:Return:Else If F≤49009.82:Then 第三交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:ReturnElse If F≤50200:Then 第四交点桩号→Z[25]:交点X坐标→Z[26]:交点Y坐标→Z[27]:前交点X坐标→Z[28]:前交点Y坐标→Z[29]:转角（左负右正）→Z[30]:第一缓和曲线长度→S:圆曲线半径→R:第二缓和曲线长度→T:本平曲线起点桩号→Z[31]:本平曲线终点桩号→Z[32]:ReturnIfEnd:IfEnd:IfEnd:IfEndLbl 2“JD PEG(m)=”?→Z[25]“JD X(m)=”?→Z[26]“JD Y(m)=”?→Z[27]“ZD X(m)=”?→Z[28]“ZD Y(m)=”?→Z[29]“TURNING ANGLE,-L +R(Deg)=”?→Z[30]“Lh1(m)=”?S“R(m)=”?R“Lh2(m)=”?T“START PEG(m)=”?→Z[31] 本平曲线起点桩号“END PEG(m)=”?→Z[32] 本平曲线终点桩号Return7.SUB5-36(锥坡放样坐标计算子程序)“ZHUIPO FANGYANG”◢“LONG R(m)=”?U 锥坡椭圆的长轴半径U“FW→LONG（Deg）=”?C 锥坡长轴的方位角C“SHORT R(m)=”?V 锥坡椭圆的短轴半径V“LONG→SHORT ANGLE（Deg）=”?Z 锥坡长半轴与短半轴的夹角If Z≥0:Then 1→D:Else -1→D:IfEnd 短半轴在长半轴右侧夹角为正，反之则为负U-V→L 计算锥坡椭圆长短轴的半径差Lbl 1“ADD ANGLE(Deg)=”?J 取锥坡椭圆的等分角度If J>Abs(Z):Then Return:IfEndC+DJ→HZ[18]+Vcos(H)→X:Z[19]+Vsin(H)→YIf J≤90:Then J→H:C→Q:Else 180-J→H:C+180→Q:IfEndLcos(K)→EX+Ecos(Q)→X 计算锥坡椭圆等分角度所对应的椭圆弧点X坐标Y+Esin(Q)→Y 计算锥坡椭圆等分角度所对应的椭圆弧点Y坐标“X(m)=”:X◢显示X坐标“Y(m)=”:Y◢显示Y坐标Goto 18．高程计算子程序（SUB5-37）Prog “SUB5-38”0．5Z[35]Abs(0.01(Z[37]-Z[36]))→Z[38]If Z[37]>Z[36]:Then 1→D:Else -1→D:IfEndIf List X[K]<Z[33]:Then -0.01Z[36]→H:Else 0.01Z[37]→H:IfEndAbs(Z[33]-List X[K])→LIf L>Z[38]:Then Z[34]+HL→Z[24]:Else Z[34]+HL+D(Z[38]-L)2÷(2Z[35])→Z[24]:IfEndReturn9．高程数据库子程序：SUB5-38（两条线路，可扩充为多条线路）If N=0:Then Goto 1:Else If N=2:Then Goto 2:IfEnd:IfEndIf List X[K]≤46500:Then 46150→Z[33]:361.26→Z[34]:40000→Z[35]:-0.3→Z[36]:-1.2→Z[37]:ReturnElse If List X[K]≤47200:Then 46800→Z[33]:353.46→Z[34]:20000→Z[35]:-1.2→Z[36]:1→Z[37]:ReturnElse If List X[K]≤48400:Then 47500→Z[33]:360.46→Z[34]:20000→Z[35]:1→Z[36]:-1.6→Z[37]:ReturnElse If List X[K]≤49600:Then 48700→Z[33]:341.26→Z[34]:10000→Z[35]:-1.6→Z[36]:2.45→Z[37]:ReturnElse 49800→Z[33]:368.21→Z[34]:150000→Z[35]:2.45→Z[36]:2.7→Z[37]:Return IfEnd:IfEnd:IfEnd:IfEndLbl 1:“C PEG(m)=”?→Z[33]“C H(m)=”?→Z[34]“R(m)=”?→Z[35]“I1=”?→Z[36]“I2=”?→Z[37]ReturnLbl 249840→Z[33]:369.19→Z[34]:100000→Z[35]:2.45→Z[36]:2.8→Z[37]:Return10.SUB5-39（坡口坡脚线坐标计算子程序）“TIANWA LINE”◢“L(1) Or R(Else)=”?C 选择中线左右，1为左，其它为右“DIST→ZX(m)=”?U 起坡点与中桩距离常数“H→ZX(m)=”?V 起坡点与中桩高差常数“T(1) Or W(Else)=”?Z 填方边坡为1，其它为挖方边坡“i=”?E 填方或挖方边坡坡度Lbl 1“FY DIST(m)=”?Q 实际计算距离If C=1:Then List Y[K]+Qcos(Z[13]-90)→Z[18]List Freq[K]+Qsin(Z[13]-90)→Z[19]Else List Y[K]+Qcos(Z[13]+90)→Z[18]List Freq[K]+Qsin(Z[13]+90)→Z[19]:IfEnd“X(m)=”:Z[18]◢“Y(m)=”:Z[19]◢Q-U→L: LE→BIf Z=1:Then Z[24]-V-B→Z[39]:Else Z[24]+V+B→Z[39]:IfEnd“JS H(m)=”:Z[39]◢计算出应有高程“SC H(m)=”？→Z[40] 输入实测高程Z[40]-Z[39]→H“GC(m)=”:H◢显示实测高程与计算高程的差异If Abs(H)<0.05:Then “FANGYANG OK！”◢Return:Else Goto 1:IfEnd希望以上资料对你有所帮助，附励志名言3条：1、宁可辛苦一阵子，不要苦一辈子。
卡西欧5800-交点法-任意里程坐标计算程序(对称型、不对称型、有无缓和曲线、单圆曲线型)
Fx-5800p单交点对称型、不对称型、有无缓和曲线单圆曲线型任意里程坐标计算本程序适用于单交点对称型、不对称型、有无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中的交点数据进行复核验证，专为“线元法的中边桩坐标正反算程序”提供：起点坐标和起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！本程序由一个主程序QXJS和三个子程序（QXJS1、QXJS2、QXJS3）构成，运行时只需运行主程序QXJS即可！主程序名：QXJS24→Dimz↙Cls :＂K（JD）＂?K :＂X（JD）＂?X :＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R :＂FWJ（ZH）＂?M : ＂α（Z-,Y+）＂?O : M+O→N :Prog ＂QXJS1＂↙Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate4,2,T : Locate 4,3,L : Locate 4,4,Q◢Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1] ◢Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5] ◢LbI 0 : ＂K×+×××＂?P : ＂Z＂?D : If D≠0 :Then ＂90°＂?H : IfEnd : Prog ＂QXJS2＂↙If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢Goto 0 : IfEnd↙If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G:＂QXFWJ(Z)=＂: Z▶DMS◢Goto 0 : IfEnd↙If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Goto 0 : IfEnd↙子程序1名： QXJS1If O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙B² ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙C² ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙B÷2-B^(3)÷240÷R² →Z[8] ↙C÷2-C^(3)÷240÷R² →Z[9] ↙Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙RAπ÷180+(B+C) ÷2→L↙RAπ÷180-(B+C) ÷2→Q↙(R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E↙K-S→Z[1] ↙Z[1]+B→Z[2] ↙Z[2]+Q÷2→Z[3]↙Z[1]+L-C→Z[4]↙Z[4]+C→Z[5]↙子程序2名： QXJS2X-Scos(M)→Z[19]:Y-Ssin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙If P＞Z[1]:Then Goto 1 :IfEnd↙Z[1]-P→L↙X-(S+L)cos(M)+Dcos(Z+H)→F↙Y-(S+L)sin(M)+Dsin(Z+H)→G↙M→Z : Goto 5↙LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂QXJS3＂↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+90WL² ÷(BRπ)→Z↙Goto 5↙LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙ Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+WZ[11]→Z↙Goto 5↙LbI 3 : If P＞Z[5]:Then Goto 4 :IfEnd↙Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂QXJS3＂↙Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙N-90WL² ÷(CRπ)→Z↙Goto 5↙LbI 4 : P-Z[5]→L↙X+(T+L)cos(N)+Dcos(Z+H)→F↙Y+(T+L)sin(N)+Dsin(Z+H)→G↙N→Z↙Goto 5↙LbI 5 : 360Frac((Z+360)÷360)→Z↙子程序3名： QXJS3If Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙Z[12]- Z[12]^(5)÷40÷(RZ[13])²+ Z[12]^(9)÷3456÷(RZ[13])^(4)→Z[14]↙Z[12]^(3)÷6÷(RZ[13])-Z[12]^(7)÷336÷(RZ[13])^(3)+Z[12]^(11) ÷42240÷(RZ[13])^(5)→Z[15] ↙IfEnd↙程序说明：已知数据输入：K（JD）? 交点桩号X（JD）? 交点X坐标Y（JD）? 交点Y坐标LS1 ? 第一缓和曲线长度LS2 ? 第二缓和曲线长度R ? 圆曲线半径FWJ（ZH）? 交点前（即前交点至本交点也即ZH点）的正切线方位角α（Z-,Y+）? 本交点处线路转角（左转为负，右转为正，度分秒输入）K×+×××? 待求桩号Z ? 待求桩号距中距离（左负值，右正值，中为0）90°? 斜交右角（线路切线前进方向与边桩右侧夹角）垂直中桩即输90计算结果显示：T1= 第一切线长T2= 第二切线长L= 曲线总长LY= 圆曲线长E= 曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号X= ；Y= 待求点的坐标（L-左，Z-中，R-右）QXFWJ(Z)=待求点的中桩切线方位角（在求中桩坐标时显示）。
卡西欧5800p三维坐标计算程序(交点法)
卡西欧5800p 三维坐标计算程序(交点法)ROAD-000 Deg: Fix 3:20 →DimZ ↙ "ZS[1],FS[2]"?J If J=l: Then Goto θ:Else Goto 4: IfEnd ↙ Lbl θ↙ "XS"?U:"YS"?V ↙ Lbl 1↙ "KP"?P ↙ Prog "ROAD- DATA "↙ M+0→N ↙ Prog "ROAD- SUB1 "↙ Prog "ROAD- SUB2 "↙Cls ：＂XP=＂:Locate6,1,F:（X 坐标在第一行第六列显示）＂YP=＂:Locate5,2,G: （Y 坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate12,3,＂FWJ=＂: （桩号在第三行第四列显示） Z ▶DMS ◢ Prog ＂SQX-JDF ＂ （方位角在第四行显示） If U=θ:Then Goto 3:Else Pol(F-U,G-V):IfEnd ↙Lbl 2↙ If J<θ: Then J+360→J: IfEnd ↙"A1=":J ▶DMS ◢ "Dl=":I ◢ Lbl 3↙"DANGLE"(输入边距夹角)?H:If H=θ:Then Goto 1:IfEnd:?D (输入边距)↙ "XB=":F+DCos(Z+H)→Z[11]:"YB=":G+DSin(Z+H)→Z[12]:Cls ：＂XB=＂:Locate6,1, Z[11]: （X 坐标在第一行第六列显示）＂YB=＂:Locate5,2, Z[12]: （Y 坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate9,3,＂BJ=＂:Locate12,3,D: （桩号在第三行第四列显示） Prog ＂SQX-JDF ＂If U=θ:Then Goto 3:Else Pol(Z[ll]-U,Z[12]-V):IfEnd ↙Goto 2 ↙ Lbl4 ↙ "XB"?U:"YB"?V:"KP"?P ↙Lbl 5↙ Prog"ROAD-DATA"↙ M+0→N ↙Prog "ROAD-SUB1 "↙ Prog "ROAD-SUB2 "↙Z-90→A ↙ (V-G)Cos(A)-(U-F)Sin(A)→H ↙If Abs(H)>0.0001:ThenP+H →P:Goto 5:IfEnd ↙"K=":P ◢ "D=":(G-V)÷Sin(A)→D ◢ Goto4↙ROAD-SUBlIf O<θ: Then -1→W ：Else1→W:IFEnd: WO →A ↙B 2÷24÷R- B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6]↙C 2+24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7]↙B÷2- B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]↙C÷2- C^(3)÷240÷R2+C^(5)÷3456÷R^(4)→Z[9]↙Z[8]+(R+Z[7]-(R+Z[6])Cos(A))÷Sin(A)→Z[18]↙Z[9]+(R+Z[6]-(R+Z[7])Cos(A))÷ Sin(A)→T↙RAπ÷180+(B+C)÷2→L↙ L-B-C→Z[19]↙(R+(Z[6]+Z[7])÷2)÷Cos(A÷2)-R→E↙K-Z[18]→Z[1]↙ Z[1]+B→Z[2]↙ Z[2]+ Z[19]÷2→Z[3]↙Z[1]+L- C→Z[4]↙ Z[4]+C→Z[5]↙ROAD-SUB2X- Z[18]cos(M)→F:Y- Z[18]in(M)→G↙If P>Z[1]:Then Goto 1: IfEnd↙X-F:Y→G:P-K→Z[16]:θ→Z(17]:M→A:M→Z:Goto 5↙Lbl1↙ If P>Z[2]: Then Goto2: IfEnd↙P-Z[1]→L:L→Z[14]: B→Z[15]: Prog "ROAD- SUB3"↙WZ[17]→Z[17]:M→A:M+90WL2÷(BRπ)→Z: Goto5↙Lbl2↙ If P>Z[4]: Then Goto 3: IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→A↙RSin(A)+Z[8]→Z[16]:W(R(l-Cos(A))+Z[6])→Z[17]↙M+WA→Z: M→A: Goto 5↙Lbl3↙ If P>Z[5]:Then Goto 4: IfEnd↙Z[5]-P→L:L→Z[14]:C→Z[15]: Prog "ROAD- SUB3"↙X+TCos(N)→F: Y+TSin(N)→G↙-Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL2÷(CRπ)→Z:Goto5↙Lbl4↙X→F:Y→G:P-Z[5]+T→Z[16]:θ→Z[17]:N→A:N→Z:Goto5↙Lbl5↙F+Z[16]Cos(A)-Z[17]Sin(A)→F↙G+Z[16]sin(A)+Z[17]Cos(A)→G↙If Z<θ: Then Z+360 →Z: IfEnd↙ROAD-SUB3If Z[ 14] =θ:Thenθ→Z[16]:θ→Z[l7]:Else↙Z[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[l4]^(9)÷3456÷(RZ[l5])^(4)→Z[16]↙Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]↙IfEnd↙ROAD-DATA4695.549→D:6239.502→E:If P≦E:Then5065.776 → K:64971.195→X: 4498337.276→Y: 271°38’42.5”→M: -35°33°8.7°→ O: 600→R:80→B:80 → C: Goto 1:IfEnd↙E→D: 6721.764 → E:If P≦E: Then 6490.625 → K: 65936.919→ X: 498586.969→Y: 236°05'33.8"→M: 34° 36' 47.3" → O: 500→ R:120→B: 130→C:Goto 1:IfEnd↙E → D: xxx →E:If P≦E: Then …… Goto l:IfEnd↙Lbl 1:If P<4695.549 Or P>xxx:Then Cls:Locate 5,2,"KPERROR"◢Stop: Ifend: Return↙数据库说明:计算起点或本交点ZH桩号→D:计算终点或下一个交点ZH点桩号→E:If P ≦E:Then本交点桩号→K:交点X坐标→X:交点Y坐标→Y:交点上直线方位角→M:交点转角(左负右正)→O:本交点平曲线半径→R:第一缓和曲线长度→B:第二缓和曲线长度→C:Goto 1: IfEnd↙"使用使用说明：1、以道路中线的前进方向（即站在线路中线面向大里程方向）区分左右。
5800计算器交点法正算程序
Lbi3:”Xp=”:N+Z[3]Cos(F-180)+DCos(C)→X▲
”Yp=”:E+Z[3]Sin(F-180)+DSin(C)→Y▲
Lbi4:”PJ=”? S
IfS=0:thenGoto O: ifend
”BX=”:X+SCos(H+90)→Z[20]▲
”BY=”:Y+SSin (H+90)→Z[21]▲
Goto 4
0.5Q-Q3÷(240R2)→Z[2]:计算第二缓和曲线增量
180÷Rπ→Z：
Z[1]+（R+ Q2÷(24R)- Q4÷(2688R3)-(R+ L2÷(24R)- L4÷(2688R3)).Cos(Abs(A))）÷Sin(Abs(A))→Z[3]计算第一切线长
Z[2]+（R+ L2÷(24R)- L4÷(2688R3)-(R+ Q2÷(24R)- Q4÷(2688R3)).Cos(Abs(A))）÷Sin(Abs(A))→Z[4]计算第二切线长
√(K2+I2)→D:
F+Ptan-1(K÷I)→C:
F+A-PZQG2÷2Q2→H:
Goto 3
Lbi6:T-M→D: (改动)
F+180→C:F→H:
Goto 8
Lbi7:Z[4]+M-Z[11]→D:F+A→C:C→H
Lbi8:”XP=”:N+DCos(C)→X▲
”XP=”:E+DSin(C)→Y▲
F+PZG2÷6L→C:计算切线方位角
F+PZLG2÷2L2→H:Goto 3
CASIO fx-5800P计算器路线坐标高程计算程序
CASIO fx—5800P计算器路线坐标计算程序（单个交点）主程序名CALXY （计算中桩、边桩坐标）Lbl 1：“ZZ”? →Z[27] ：“D(-+m)”? →D：If D≠0 ：Then “∠(DMS)”? →V：Ifend』If Z[27]≤Z[17]：Then Z[18]+ (Z[27] —Z[17]) Cos( F)+D Cos( F+V)：“X=”：Ans▲Z[19]+ (Z[27] —Z[17]) Sin( F )+D Sin( F+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[17] And Z[27]≤Z[20]：Then Z[27] —Z[17] →L：Prog “HHXY”：Z[18] +I Cos( F+ JH）+D Cos( F+WH+V)：“X=”：Ans▲：Z[19] +I Sin(F+ JH）+D Sin( F+WH+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[20] And Z[27]≤Z[24] —Z[6]：Then Z[27] —Z[20] →L：Prog “YUXY”：Z[21] +I Cos( Z[23]+ JH）+D Cos( Z[23]+WH+V)：“X=”：Ans▲：Z[22] +I Sin(Z[23]+ JH）+D Sin( Z[23]+WH+V)：“Y=”：Ans▲：Ifend』If Z[27]＞Z[24] —Z[6] And Z[27]≤Z[24]：Then Z[24] —Z[27] →L：Prog “HHXY”：Z[25] +I Cos( C—JH）—D Cos( C—WH+V)：“X=”：Ans▲：Z[26] +I Sin(C—JH）—D Sin( C—WH+V)：“Y=”：Ans▲：Ifend』If Z[27] ＞Z[24]：Then Z[25] —(Z[27] —Z[24]) Cos( C )—D Cos( C+V)：“X=”：Ans▲Z[26] —(Z[27] —Z[24]) Sin( C —D Sin( C+V)：“Y=”：Ans▲：Ifend』Goto 1子程序名JD （输入曲线参数，计算曲线要素）30→Dim Z：Fix 5：“JD”? →Z[1] ：“XJD”? →Z[2] ：“YJD”? →Z[3]：“F0(DMS)”? →F：“A（-+ DMS）”？→Z[4]：“R”? →R：“LH1”? →Z[5]：“LH2”? →Z[6]：√￣(Z[4]2)→A：Int(Z[4] ÷A)→H』Z[5] →S：Prog “PQ”：Q →Z[7]：P→Z[8]：B →Z[9]：R →S：Prog “PQ”：Q →Z[10]：P→Z[11] ：B →Z[12] 』（R+ Z[8]）Tan(A÷2)+ Z[7] —(Z[8] —Z[11]) ÷Sin(A)→Z[13] ：“T1=”：Ans ▲（R+ Z[11]）Tan(A÷2)+ Z[10] —(Z[8] —Z[11])÷Sin(A)→Z[14] ：“T2=”：Ans▲』√￣((Z[13] —Z[7])2+( R+ Z[8])2) —R →Z[15]：“E=”：Ans▲R( A —Z[9] —Z[12] )÷57.2958+ Z[5] + Z[6] →Z[16]：“L=”：Ans▲』Z[1] —Z[13]→Z[17]：Z[2] —Z[13]Cos( F) →Z[18]：Z[3] —Z[13] Sin( F) →Z[19]：If Z[5]＞0 ：then Z[17] +Z[5]→Z[20]：Z[5] →L：Prog “HHXY”：Z[18] +I Cos( （F+ JH）)→Z[21]：Z[19] +I Sin( （F+ JH）)→Z[22]：（F+ WH）→Z[23] ：Else Z[17]→Z[20]：Z[18]→Z[21]：Z[19]→Z[22]：F→Z[23]：Ifend』Z[17] + Z[16]→Z[24]：Z[2] +Z[14] Cos( （F+ Z[4]）)→Z[25]：Z[3] +Z[14] Sin( （F+ Z[4]）)→Z[26]：F+ Z[4] —180→C』Prog “CALXY”』子程序名PQS÷2—S3÷（240 R2）→Q：S2÷（24 R）—S4÷（2384 R3）→P：28.6479S ÷R→B』子程序名HHXYL—L5÷(40S2 R2)+L9÷(3456 R4S4) →X：L3÷（6S R）—L7÷（336S3 R3）+L11÷（42240 R5S5）→Y：28.6479L2÷(S R) →W：Pol（X,Y）』子程序名YUXY57.2958L÷R →W：RSin(W)→X：R（1—Cos(W）)→Y：Pol（X,Y）』CASIO fx—5800P计算器路线坐标计算程序（单个交点）使用说明首先运行子程序“JD”，输入曲线参数，计算曲线要素。
卡西欧5800交点法坐标计算程序
交点法坐标计算JDFZBJS第一种：单一交点法计算任意里程位的坐标。
程序如下:待求段的交点X坐标→V:待求段的交点Y坐标→W:前一段的交点X坐标→M:前一段的交点Y坐标→N:直缓点ZH的里程→Q:缓直点HZ的里程→Z:待求段圆曲线半径→R:待求段缓和曲线长度→U:待求段的切线长度→T:待求段转向方向（左转取-1，右转取+1）→P:待求段转向偏角→A:10→DimZ:Cls:“KM=”?L: 待求点里程“L-1,R+1”?K: 待求点位于前进方向左侧为-1,右侧为+1“PJ=”?S: 待求点到线路设计中心的平距Lbl 0:Pol(V-M,W-N):J→Z[1]:Rec(T,Z[1]+180):V+I→Z[2]:W+J→Z[3]:Lbl 1:If L≤Q:Then Rec(Q-L,Z[1]+180):Else Goto 2:IfEnd:Z[2]+I→Z[4]:Z[3]+J→Z[5]:If K=1:Then Rec(S,Z[1]+90):Else Rec(S,Z[1]+270):IfEnd:Goto 6:Lbl 2:Abs(Q-L)→Z[6]:If U≥Z[6]:Then Pol(Z[6]-Z[6]ˆ(5)÷(40R2U2)+Z[6]^(9)÷(3456(RU)^(4)),Z[6]^(3)÷(6RU)-Z[6]^(7)÷(336(RU)^(3))+Z[6]^(11)÷(42240(RU)^(5))):Else Goto 3:IfEnd:J→Z[7]:Rec(I,Z[1]+Z[7]P):Z[2]+I→Z[4]:Z[3]+J→Z[5]:Z[1]+Z[7]P+60PZ[6]2÷(RUπ)+90→Z[10]:If K=1:Then Rec(S,Z[10]):Else Rec(S,Z[10]+180):IfEnd:Goto 6:Lbl 3:Abs(Q-L)→Z[6]:If L≤Z-U:Then Pol(Rsin(90(2Z[6]-U)÷(Rπ))+U-Rsin(90U÷(Rπ))-U^(3)÷(40R2),R-Rcos(90(2Z[6]-U)÷(Rπ))+U2÷(24R)):Else Goto 4:IfEnd:J→Z[7]:Rec(I,Z[1]+Z[7]P):Z[2]+I→Z[4]:Z[3]+J→Z[5]:Z[1]+90P(2Z[6]-U)÷(Rπ)+90→Z[10]:If K=1:Then Rec(S,Z[10]):Else Rec(S,Z[10]+180):IfEnd:Goto 6:Lbl 4:If L≥Z-U And L≤Z:Then Z[1]+AP→Z[1]:Else Goto 5:IfEnd:Rec(T,Z[1]):V+I→Z[2]:W+J→Z[3]:Z→Q:-P→P:-K→K:Z[1]+180→Z[1]:Goto 2:Lbl 5:If L≥Z:Then Z[1]+AP→Z[1]:IfEnd:Rec(T,Z[1]):V+I→Z[2]:W+J→Z[3]:Rec(L-Z,Z[1]):Z[2]+I→Z[4]:Z[3]+J→Z[5]:If K=1:Then Rec(S,Z[1]+90):Else Rec(S,Z[1]+270):IfEnd:Goto 6:Lbi 6:Z[4]+I→Z[8]:Z[5]+J→Z[9]:Cls:Fix 3:“Xp=”: 计算的X坐标“Yp=”: 计算的Y坐标Locate 7,1,Z[8]: X坐标显示在第一行Locate 7,2,Z[9]◢Y坐标显示在第二行Stop注解:在本程序中考虑了ZH点前和HZ点后的直线情况。
交点法程序
[正确] CASIO fx-5800P综合曲线坐标计算程序说明：该程序适用于计算器CASIO fx-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中、边桩坐标及切线方位角。
主程序：QXZB？LL=0=> Goto0L=1=> Goto1L=-1=> Goto2Lbl 0：？ZIf Z≤缓直：Then 转角→A：半径→R：缓和曲线长度→C：交点里程桩号→D：交点X 坐标→N：交点Y 坐标→E：方位角→F：Prog＂ZHQX＂：Goto0：IfEnd输入下一段交点，与上一致（主线要素）Lbl 1：？ZIf Z≤缓直：Then 转角→A：半径→R：缓和曲线长度→C：交点里程桩号→D：交点X 坐标→N：交点Y 坐标→E：方位角→F：Prog＂ZHQX＂：Goto1：IfEnd输入下一段交点，与上一致（分离式右线要素）Lbl 2：？ZIf Z≤缓直：Then 转角→A：半径→R：缓和曲线长度→C：交点里程桩号→D：交点X 坐标→N：交点Y 坐标→E：方位角→F：Prog＂ZHQX＂：Goto2：IfEnd输入下一段交点，与上一致（分离式左线要素）程序名：ZHQX10→DimZ↙C∧2÷24÷R-C∧（4）÷2688÷R∧（3）→P↙C÷2-C∧（3）÷240÷R∧2→Q↙90×C÷兀÷R→B↙(R+P)tan(Abs(A)÷2)+Q→T(R+P)÷cos(A÷2)-R→W(Abs(A)-2×B)兀R÷180+2×C→LD-T→GG+C→Z[1]G+L÷2→IG+L-C→Z[2]G+L→Z[3]?J↙If A＜0:Then -1→S:Else 1→S:IfEnd↙（……本行中0为数字）F+A÷2+90×S→U↙W+R→V↙N+V×cos(U)→B↙E+V×sin(U)→O↙（……本行中O 为字母）Lbl 1↙If Z≤G:Then T+G-Z→L↙F+180→V↙＂FWJ= ＂:F→U◢Goto 2↙IfEnd↙If Z≤Z[1]:Then Z-G→L↙L-L∧(5)÷(90×R∧2×C∧2)→V↙30×L∧2×S÷(兀RC)→L↙F+180→P↙F+L→Q↙＂FWJ= ＂:F+3×L→U◢Goto 4↙IfEnd↙If Z≤Z[2]:Then F+A÷2+90×S+180+180(Z-I)×S÷R÷兀→L↙＂FWJ= ＂:L+90×S→U◢Goto 5↙IfEnd↙If Z≤Z[3]:Then Z[3]-Z→L↙L-L∧(5)÷(90×R∧2×C∧2)→V↙30×S×L∧2÷(兀RC)→L↙F+A→P↙F+A+180-L→Q↙＂FWJ= ＂:F-3×L+A→U◢Goto 4↙IfEnd↙If Z> Z[3]:Then Z- Z[3]+T→L↙F+A→U↙U→V↙Goto 2↙Lbl 2↙＂X= ＂:N+L×cos(V)→X◢＂Y= ＂:E+L×sin(V)→Y◢Goto 6↙IfEnd↙Lbl 4↙＂X= ＂:N+T×cos(P)+V×cos(Q)→X◢＂Y= ＂:E+T×sin(P)+V×sin(Q)→Y◢Goto 6↙Lbl 5↙＂X= ＂:B+R×cos(L)→X◢＂Y= ＂:O+R×sin(L)→Y◢（……本行中O为字母）Goto 6↙Lbl 6↙J=1=> Prog＂BZ＂↙（……“=>”输入步：Function→下翻↓→下翻↓→3：=>）程序名：BZ＂BZK＂?H:＂L,R＂?K: ＂FWJ＂?M＂XZ=＂:X+HK cos(U+M)→P◢＂YZ=＂:Y+HK sin(U+M)→Q◢注：1、◢为输出指令。
CASIO5800交点法程序
转到我空间分享给好友复制网址隐藏签名档小字体选用该信纸转载自转载于2010年02月01日10:09阅读（2）评论（0）分类:道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通）一、前言本程序是中道路坐标放样计算程序的升级改进版本。
原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。
改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是：1 •使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦；2•坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）；3. 坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）；4. 对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。
程序的特点：1. 可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写；2. 主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐;3. 使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。
二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600。
这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）：三、程序代码注：路线数据库子程序ROA B DATA是根据计算示例项目的直曲表编写，大家使用时应按各自项目的直曲表改写或新建。
四、程序变量清单五、计算流程示例1 .中桩坐标计算示例计算任务：计算HY高速公路K6+100-K6+700段的中桩坐标及切线方位角（桩距20m），并在导线点（，）上架设全站仪，计算各中桩的极坐标放样数据。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
卡西欧5800p三维坐标计算程序(交点法) ROAD-000Deg: Fix 3:20 →DimZ↙ "ZS[1],FS[2]"?JIf J=l: Then Gotoθ:Else Goto 4: IfEnd↙Lblθ↙ "XS"?U:"YS"?V↙ Lbl1↙ "KP"?P↙Prog "ROAD- DATA "↙ M+0→N↙Prog "ROAD- SUB1 "↙Prog "ROAD- SUB2 "↙Cls：＂XP=＂:Locate6,1,F:（X坐标在第一行第六列显示）＂YP=＂:Locate5,2,G:（Y坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate12,3,＂FWJ=＂: （桩号在第三行第四列显示）Z▶DMS◢ Prog＂SQX-JDF＂（方位角在第四行显示）If U=θ:Then Goto 3:Else Pol(F-U,G-V):IfEnd↙Lbl2↙ If J<θ: Then J+360→J: IfEnd↙"A1=":J▶DMS◢ "Dl=":I◢ Lbl3↙"DANGLE"(输入边距夹角)?H:If H=θ:Then Goto1:IfEnd:?D(输入边距)↙"XB=":F+DCos(Z+H)→Z[11]:"YB=":G+DSin(Z+H)→Z[12]:Cls：＂XB=＂:Locate6,1,Z[11]: （X坐标在第一行第六列显示）＂YB=＂:Locate5,2, Z[12]:（Y坐标在第二行第五列显示）＂ZH=＂:Locate4,3,P:Locate9,3,＂BJ=＂:Locate12,3,D: （桩号在第三行第四列显示）Prog＂SQX-JDF＂If U=θ:Then Goto 3:Else Pol(Z[ll]-U,Z[12]-V):IfEnd↙Goto 2↙ Lbl4↙ "XB"?U:"YB"?V:"KP"?P↙Lbl5↙ Prog"ROAD-DATA"↙ M+0→N↙Prog "ROAD-SUB1 "↙ Prog "ROAD-SUB2 "↙Z-90→A↙ (V-G)Cos(A)-(U-F)Sin(A)→H↙If Abs(H)>0.0001:ThenP+H→P:Goto5:IfEnd↙"K=":P◢ "D=":(G-V)÷Sin(A)→D◢ Goto4↙ROAD-SUBlIf O<θ: Then -1→W：Else1→W:IfEnd: WO→A↙B2÷24÷R- B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5)→Z[6]↙C2÷24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5)→Z[7]↙B÷2- B^(3)÷240÷R2+B^(5)÷34560÷R^(4)→Z[8]↙C÷2- C^(3)÷240÷R2+C^(5)÷3456÷R^(4)→Z[9]↙Z[8]+(R+Z[7]-(R+Z[6])Cos(A))÷Sin(A)→Z[18]↙Z[9]+(R+Z[6]-(R+Z[7])Cos(A))÷ Sin(A)→T↙RAπ÷180+(B+C)÷2→L↙ L-B-C→Z[19]↙(R+(Z[6]+Z[7])÷2)÷Cos(A÷2)-R→E↙K-Z[18]→Z[1]↙ Z[1]+B→Z[2]↙ Z[2]+ Z[19]÷2→Z[3]↙Z[1]+L- C→Z[4]↙ Z[4]+C→Z[5]↙ROAD-SUB2X→Z[18]cos(M)→F:Y- Z[18]Sin(M)→G↙If P>Z[1]:Then Goto 1: IfEnd↙X→F:Y→G:P-K→Z[16]:θ→Z(17]:M→A:M→Z:Goto 5↙Lbl1↙ If P>Z[2]: Then Goto2: IfEnd↙P-Z[1]→L:L→Z[14]: B→Z[15]: Prog "ROAD- SUB3"↙WZ[17]→Z[17]:M→A:M+90WL2÷(BRπ)→Z: Goto5↙Lbl2↙ If P>Z[4]: Then Goto 3: IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→A↙RSin(A)+Z[8]→Z[16]:W(R(l-Cos(A))+Z[6])→Z[17]↙M+WA→Z: M→A: Goto 5↙Lbl3↙ If P>Z[5]:Then Goto 4: IfEnd↙Z[5]-P→L:L→Z[14]:C→Z[15]: Prog "ROAD- SUB3"↙X+TCos(N)→F: Y+TSin(N)→G↙-Z[16]→Z[16]:WZ[17]→Z[17]:N→A:N-90WL2÷(CRπ)→Z:Goto5↙Lbl4↙X→F:Y→G:P-Z[5]+T→Z[16]:θ→Z[17]:N→A:N→Z:Goto5↙Lbl5↙F+Z[16]Cos(A)-Z[17]Sin(A)→F↙G+Z[16]sin(A)+Z[17]Cos(A)→G↙If Z<θ: Then Z+360 →Z: IfEnd↙ROAD-SUB3If Z[ 14] =θ:Thenθ→Z[16]:θ→Z[l7]:Else↙Z[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[l4]^(9)÷3456÷(RZ[l5])^(4)→Z[16]↙Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]↙IfEnd↙ROAD-DATA4695.549→D:6239.502→E:If P≦E:Then5065.776 → K:64971.195→X: 4498337.276→Y: 271°38’42.5”→M: -35°33°8.7°→ O: 600→R:80→B:80 → C: Goto 1:IfEnd↙E→D: 6721.764 → E:If P≦E: Then 6490.625 → K: 65936.919→ X: 498586.969→Y: 236°05'33.8"→M: 34° 36' 47.3" → O: 500→ R:120→B: 130→C:Goto 1:IfEnd↙E → D: xxx →E:If P≦E: Then …… Goto l:IfEnd↙Lbl 1:If P<4695.549 Or P>xxx:Then Cls:Locate 5,2,"KPERROR"◢Stop: Ifend: Return↙数据库说明:计算起点或本交点ZH桩号→D:计算终点或下一个交点ZH点桩号→E:If P ≦E:Then本交点桩号→K:交点X坐标→X:交点Y坐标→Y:交点上直线方位角→M:交点转角(左负右正)→O:本交点平曲线半径→R:第一缓和曲线长度→B:第二缓和曲线长度→C:Goto 1: IfEnd↙"使用使用说明：1、以道路中线的前进方向（即站在线路中线面向大里程方向）区分左右。
2、运行时选择计算方式，输入1表示进行由里程、边距计算坐标；输入2表示由坐标反算里程和边距。
出现KP?时，输入计算桩号，先计算中桩坐标，继续按ExE，（第一次需输入结构层厚度和坡度）D=θ，显示中桩高程、桩号、结构层、坡度、边桩（θ）距离。
3、出现DANGLE ?时，输入边桩夹角（一般是输入90°），出现D?时再输入中桩到边桩距离，当边桩位于中线左铡时，D输入负值；当位于中线中线右侧时，D输入正值，显示计算边桩坐标、桩号和边距，继续按ExE，（无需输入任何数字），最后显示中、边桩高程，同时有结构层、坡度、边桩距离、桩号显示，再次出现DANGLE ?。
时，输入θ，按ExE，出现KP?，输入计算桩号循环计算。
4、当线路无转弯半径时，数据库中的R输入0.0000001，5、程序中θ为阿拉伯数字零。
6、坐标计算部分是在王中伟大师的程序上稍作调整而形成的，修改了几个变量，（目的是高程计算不要再重复输入数据），高程计算属本人自己编写的；高程计算程序（带数据库）可单独运行；计算坐标高程可运行“ROAD-000”（主程序），计算高程可单独运行下面的“SQX-JDF”（高程程序），本程序可计算中桩和任意横坡和边桩距离的边桩高程。
7、欢迎大家下载使用并指出不促之处和修改意见，使程序进一步优化，为一线工程人员尽可能提供最大的方便。
5800p竖曲线设计高程计算程序{计算全线竖曲线高程，不分凸凹曲线（自动判断）,带数据库}SQX-JDF（主程序）（文件名，可单独运行）Deg: Fix3: 26→DimZ ↙Lbl 1: "ZH="?P: Prog"SQX-SJK":0.005R Abs(I-L) →T:W-T→A:W+T→B:P-A→C:B-P→Z[21]:P-W→E↙If L >I:Then 1→J:Else -1→J:IfEnd↙If L >I:Then 1→K:Else -1→K:IfEnd↙If P<A:Then θ→C:Else P>B =>θ→Z[21]: IfEnd↙If P≦W:Then I→Z[22]:C→Z[23]:Else P >W=>L→Z[22]:Z[21]→Z[23]: IfEnd↙"JGC="?S: H+0.01JK E Z[22]+J(Z[23])2÷2÷R-S→Z[25]："BJ="?D: "PD="?Q:Cls："H(Z)=" :Locate6,1,Z[25]: （中桩高在第一行显示）"H(B) =":Locate6,2,Z[25] -Abs(D)Q: （边桩高在第二行显示） "JGC=":Locate5,3,S:Locate9,3,"PD=":Locate12,3,Q:（结构层、坡度第三行显示）BJ=":Locate4,4,D:Locate10,4,"m":Locate11,4,P◢（边距、桩号在第四行显示）Return:Goto 1↙ArraySQX-SJK（子程序）If P≦626.81（本竖曲线计算桩号，可在本竖曲线终点，也可在下一个竖曲线起点与本竖曲线终点之间直线内的任意桩号）:Then320→W(变坡点桩号):3000→R:0.769→I（前坡）:2.516→L（后坡）:197.830→H（变坡点高程）:Return:IfEnd ↙（一个变坡点的完整参数）If P≦XXX……(继续添加下一个变坡点参数)说明：↙表示回车，ZH：待求点桩号，用变量P表示，变坡点高程→H,半径→R，前纵坡→I，后纵坡→L，输入方式：坡度2.46%就输入2.46，带正负号，上坡为正、下坡为负，"JGC="结构层高度，"H(Z)"：计算中桩高程，"BJ="为中桩到边桩的距离，"PD"为道路横坡度，"H(B)"：计算边桩高程，程式简单，计算准确，欢迎使用。