fx-5800P_基本型平曲线中边桩坐标计算程序

合集下载

Casio 5800P计算程序3

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

CASIOfx-5800P计算器计算公路中边桩坐标程序

０：Ｂ－＋Ｎ：Ｗ－ ÷ Ｔ：Ｚ＿＋Ｖ：ＩｆＥｎｄ：
（一１）（Ｑ）（Ｌ—Ｏ）一Ｗ：Ｅ＝０＝＞Ｇｏｔｏ１：Ｕ≠２＝＞９０
—
｝Ｇ：
Ⅱ Ｕ＝２：Ｔｈｅｎ“ ＪＪ ” ？Ｇ： “ＫＤ”？Ｈ：Ｇｏｔｏ１：Ｅｌｓｅ“ ＳＧ” ？
一
：Ｎ＋ＪＫ＋１８Ｏ
：
ＩｆＷ ≥ Ｖ：ＴｈｅｎＮ＋ＫＰ－－＊Ｐ：ＥｌｓｅＮ＋３ＪＫＰ：ＩＥｎｆｄ：Ｐｒｏｇ
（２）子程序１ＳＪ（手动输入平曲线数据）
Ｐｒｏｇ“ ＮＥＷＯＲＯＬＤ”：Ｙ＝１＝＞Ｇｏｔｏ１：
曲线的长度、弯道加宽值为变量，解算公路基本型曲线放样所需部位的中边桩坐标。曲线加宽计算公式适合设有缓和曲线的加宽类型。
２．２程序清单
（３）子程序２ＳＪ（自动选择平曲线数据）ＦｒｅｑＯｎ：ＩｆＬ＜ＬｉｓｔＦｒｅｑ［１］：Ｔｈｅｎ“ ＥＲＲＬ＜ＭＩＮ ” ：Ｓｔｏｐ：ＥｌｓｅＩｆＬ＞ＬｉｓｔＦｒｅｑ［１０］：Ｔｈｅｎ“ ＥＲＲＬ＞ＭＡＸ” ：Ｓｔｏｐ：Ｉｆ－
Ｅｎｄ：Ｌｂｌ１
Ⅱｚ［１］＝０：ＴｈｅｎＰｒｏｇ“ ２ＹＳＪＳ ” ：ＥｌｓｅＰｒｏｇ “ ２ＳＪ ” ：／ｆＥｎｄ：
“ Ｘ０—０：ＸＺ一１：ＸＹ一２ ”？Ｅ：

道路中桩边桩计算程序(附件)

附件：道路中桩、边桩计算公式(fx-5800P程序)主程序：“QXZBJS”“QZH”?B: （线路起点桩号，前一个曲线的HZ或YZ,或是）“LS1”?C:“LS2”?I: （第一缓和曲线与第二缓和曲线，可以不等）”JDZH”?N:”JDX”?G:”JDY”?H: (交点桩号与坐标)”XZH”?M: （下一个曲线的ZH或ZY桩号）“T1”?S:”T2”?J: （第一、二切线长）“QXC”?Z: （曲线全长，含缓和曲线长）“JDPJ”?A: （本交点的转向角）“QDFWJ”?O: （起始点到交点的方位角）“R”?R: （本曲线的圆曲线半径）“W”?W: （曲线偏转信息，左为－１，右为＋１）Lbl 0:“K”?K: （所求断面的桩号）If K<B: （比较所求桩号是否小于起点桩号）Then Goto6: （条件为真，转到Lbl 6）IfEnd:If K>N-S:（判定所求桩号是否大于ZH或ZY点，即所求点是否在曲线段）Then Goto 1:（条件为真，转到Lbl 1）IfEnd:(条件为假时运行下例程序，即所求桩号在第一段直线上)G+(N-K)COS(O+180)→X ▲（以上条件都为假是运行该段，所求桩号在直线段，H+(N-K)Sin(O+180)→Y ▲求其中桩坐标）O→T: （起始方位角赋值与T）Prog “ZI-1”Goto 0Lbl 1:If K>N-S+C: （判定所求桩号是否大于HY点）Then Goto 2: (条件为真，转到Lbl 2，即为所求桩在圆曲线或第二缓和曲线上) IfEnd:(条件为假时运行下例程序，即所求桩号在第一缓和曲线上)((K-N+S)2/(6RC))*(180/π) →Q ▲（所求桩中心所占缓和曲线长度的角度）O+3WQ→T:（ZH到所求点的方位角）√(((K-N+S)-(K-N+S)5/(40R2C2))2+(K-N+S)3/(6RC))2)→D:（所求点与ZH点旋长）G+Scos(180+O)+Dcos(O+WQ)→X ▲（根据ZH点坐标和旋长计算中心点坐标）H+Ssin(180+O)+Dsin(O+WQ)→Y ▲Prog “ZI-1”Goto 0Lbl 2:If K>N-S+Z-I:（判定所求桩号是否大于YH点）Then Goto 3: (条件为真，转到Lbl 3，即为所求桩在第二缓和曲线上)IfEnd:(条件为假时运行下例程序，即所求桩号在圆曲线段上)(90(K-N+S-C))/(πR) →Q:（所求占的圆心角的一半，旋的外角）2Rsin(Q) →D:（所求点与HY点之间的旋长）O+W((C/(2R))*(180/π))+2WQ →T:（HY到所求点的方位角）G+Scos(180+O)+ √((C-C5/(40R2C2))2+(C3/(6RC))2)cos(O+W((C2/(6RC))*(180/π)))+Dcos(O+WQ+W((C/(2R))*(180/π)))→X ▲（根据HY点坐标和旋长计算中心点坐标）H+Ssin(180+O)+ √((C-C5/(40R2C2))2+(C3/(6RC))2)sin(O+W((C2/(6RC))*(180/π)))+Dsin(O+WQ+W((C/(2R))*(180/π)))→Y ▲Prog “ZI-1”Goto 0:Lbl 3:If K>N-S+Z:（判定所求桩号是否大于HZ或YZ点）Then Goto 4: (条件为真，转到Lbl 4，即为所求桩在第二段直线上)TfEnd:(条件为假时运行下例程序，即所求桩号在第二缓和曲线段上)((N-S+Z-K)2/(6RI))*(180/π) →Q（所求桩中心所占缓和曲线长度的角度）O+WA-180-3WQ→T（HZ到所求点的方位角）√((N-S+Z-K-( N-S+Z-K)5/(40R2I2))2+( N-S+Z-K)3/(6RI))2) →D（所求点与HZ 点旋长）G+Jcos(O+WA)+Dcos(OWA-180-WQ) →X ▲（根据HZ点坐标和旋长计算中心点坐标）H+Jsin(O+WA)+Dsin(OWA-180-WQ) →Y ▲Prog “ZI-2”:Goto 0:Lbl 4:If K>M:（判定所求桩号是否大于本次计算的桩号范围）Then Goto 6: (条件为真，转到Lbl 6，即为所求桩超出范围)IfEnd:(条件为假时运行下例程序，即所求桩号在第二段直线上)G+Jcos(O+WA)+(K-(N-S+Z))cos(O+WA) →X ▲（中心坐标）H+Jsin(O+WA)+(K-(N-S+Z))sin(O+WA) →Y ▲O+WA→T:Prog “ZI-1”Goto 0:Lbl 6:“END”：子程序“ZI-1”(求边桩坐标)“L”?L:（输入中心至左右边桩的距离L，左为负，右为正）X+Lcos(T+90) →E ▲Y+Lsin(T+90) →F ▲“ZI-2”(求边桩坐标)“L”?L:（输入中心至左右边桩的距离L，左为负，右为正）X+Lcos(T-90) →E ▲Y+Lsin(T-90) →F ▲。

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 ↙。

fx-5800P_直线段中边桩坐标计算程序PM10-9

x B =1316.429， y B =5139.789，路面左半幅宽 wL = 25m，右半幅宽 wR = 20m，整桩间距取 50m。
表 10-12 使用程序 PM10-9 计算直线段任意点中边桩坐标案例
序 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 桩号 A K21+372.446 B K21+953.925 K21+400 K21+450 K21+500 K21+550 K21+600 K21+650 K21+700 K21+750 K21+800 K21+850 K21+900 K21+950 K21+300 K22+000
fx-5800P 程序
直线段中边桩坐标计算程序(PM10-9)
(1) 计算原理在图 10-11 中，已知路线直线段起点 A 的桩号 Z A 及其平面坐标( x A ， y A )，端点的已知数据可以是 B 点的平面坐标( x B ， y B )，也可以是 AB 的方位角 α AB 与平距 D AB 。设直线上任意点 j 的桩号为 Z j ，则 j 点的中桩坐标为
4999.191 5163.767 5006.989 5021.141 5035.292 5049.444 5063.595 5077.747 5091.898 5106.050 5120.201 5134.353 5148.504 5162.656 4978.686 5176.807
y R (m)
4975.213 5139.789 4983.012 4997.163 5011.315 5025.466 5039.618 5053.769 5067.921 5082.072 5096.224 5110.375 5124.527 5138.678 4954.709 5152.830

卡西欧fx-5800 坐标正算程序

卡西欧fx-5800 坐标正算程序“SO”算方位Lbl 0“D”：Pol(X-A，Y-B) →D◢If J≥0:Then J◢Else “J”:J+360◢IfEnd“ZZ”正算直线坐标A+Rec(Abs(P-K),Q) →XB+J→Y“X”：X+Rec(D,Q+N×90) →X◢“Y”:Y+J→Y◢P?所求桩号 A，B：起点x,y K:起点桩号 Q：方位角D：边桩距离 N？左偏“-1”右偏：“+1”X= Y= 所求点坐标“YY”正算圆曲线坐标Q+C×（P-K）÷S×180÷∏→Z“X”：A+C×S×（Sin(Z)-Sin(Q)）+Rec(D,Z+N×90) →X◢“Y”:B-C×S×（Cos(Z)-Cos(Q)）+J→Y◢P:所求点桩号 A，B：起点x,y K：起点桩号Q：方位角 S：曲线半径 D？边桩距离N？左偏“-1”，右偏“+1”X= y= 所算点坐标 C：线路左转“-1”右转“+1”“H1”正算缓和曲线坐标Abs(P-K) →LT2÷L→HL2×180÷∏÷2÷T2→VQ+C×V→ZL-L∧（3）÷40÷H2+L∧（5）÷3456÷H∧（4）-L∧（7）÷H∧（6）÷599040→EL2÷6÷H- L∧（4）÷336÷H∧（3）+ L∧（6）÷42240÷H∧（5）- L∧（8）÷H∧（7）÷（6×1612800）→FIf C<0：Then-F→F：IfEndA+E×Cos(Q)-F×Sin(Q) →X“X”：X+Rec(D,Z+M×N×90) →X◢B+E×Sin(Q)+F×Cos(Q) →Y“Y”：Y+J◢P？所求点桩号 A，B：起点x,y K:起算点里程桩号Q：前切线方位角 T（是圆曲线要素的A1）=√（根号）缓曲总长×半径C=切线线路方向左转“-1”，右转“+1“M=第一缓曲“+1”，第二缓曲”-1“N：算边桩左偏“-1”，右偏“+1”D：边桩距离坐标正算数据库例子“肇兴隧道右线数据库”Lbl 0“P”?P:“N”？N：“D”？DIf P≥16836.5 And P≤17009.624:Then 66881.803→A：14635.782→B：16836.5→K:280032030.50→Q:902.044→T:1→C: 1→M:Prog“H1”：IfEnd (第一缓曲线)If P≥17009.624 And P≤17529.681:Then 66914.52→A：14465.781→B：17009.624→K:281035049.370→Q:4700→S：Prog“YY”:IfEnd （圆曲线）If P≥17539.681 And 17702.805≥P:Then 67102.343→A：13799.117→B：17702.805→K:108059031.50→Q:902.044→T:-1→C: -1→M:Prog“H1”：IfEnd (第二缓曲线)If P≥17702.805 And P≤19550:Then 67102.343→A：13799.17→B：17702.805→K:288059031.50→Q: Prog“ZZ”：IfEnd （直线）。

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左中线坐标。

线元法曲线任意里程中边桩坐标正反算(CASIO_fx-5800P计算器)程序(附带高程)

线元法曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序（附带高程）一、功能及原理说明1. 功能说明：本程序由一个主程序(1-MAIN)和七个子程序——正算子程序(1-SUB-ZS)、反算子程序(1-SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。

本程序在CASIO FX-5800P计算器运行。

2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<=0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出反算结果。

3. 程序输入计算器后，请根据统计串列List X，Y，freq[N]在程序中实际可能被使用的维数，将其统计矩阵串列改为包含相应维数的任意数据的矩阵，即在list列表中随机输入相应维数的数据，保证矩阵大小符合维数要求。

4. 本程序正算速度在1-2秒左右，反算比正算慢点，可根据需要调整精度加快速度。

本程序可建立曲线要素数据库及高程变坡点数据库，一次输入整条线路数据，计算时自动调用数据库，实现全线贯通，也可临时手动输入线元计算要素进行计算。

5. 本程序由小骆在前人的基础上改进而成，经个人测试可用。

学识浅薄，不足之处，在所难免，欢迎提出改进意见。

二、源程序1.主程序(1-MAIN)Deg:fix 320→DimZLbl 0:cls：“INPUT(0),ZX(1),YX(2)”?I (选择手动输入计算参数0，还是调用线路数据1,2）If I=0:Then Prog “1-DAT1”:IfEnd“SZ=>XY(1),XY=>SZ(2)”?N（正算，反算）If N=1 :Then Goto 1Else If N=2 :Then Goto 2Else Goto 3IfEnd:IfEndLbl 1:“KP=”?S（输入待求桩号）If S<0:Then Goto 0:IfEnd“JL(m)=”?Z （输入偏距）If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd （输入斜交右角）If I≠0:Then Prog “1-DAT2”:IfEndS-O→W:If W<0:Then Goto 0:Else If W>H:Then cls:locate 6,2,"KP OUT"◢Goto 0:IfEnd:IfEnd(前半条针对“DAT”情况，后半条针对“INPUT”情况。

5800——PQX程序

zhjd交点桩号a起始方位角xjd交点坐标xb路线转角左为右为yjd交点坐标yl缓和曲线长r曲线半经lzhhz曲线总长t切线长m左边桩距n右边桩距结果显示说明
道路平曲线中、边桩坐标及两侧直线中、边桩坐标计算程序(CASIOfx-5800p)
程序名：PQX
＂ZH(JD)=＂?J:＂X(JD)=＂?O:＂Y(JD)=＂?K:＂R＂?R:＂T＂?T:＂A＂?A:＂B＂?B:＂L＂?L:＂L(ZH-HZ)=＂?D
A+B+180-P*H^2*90/π/R/L+90→I：A+B+180-P*H^2*90/π/R/L-90→S
Goto 7
LbI 5
Cos(A+180)*(J-Q)+O→U：Sin (A+180)*(J-Q)+K→G
A+270→I：A+90→S
Goto 7
LbI 6
Cos(A+B)*(Q-F+T)+O→U：Sin (A+B)*(Q-F+T)+K→G
A+P*90/π/R*(2H+L)-90→I：A+P*90/π/R*(2H+L)+90→S
Goto 7
LbI 4
F-Q→H：H-H^5/40/R^2/L^2→Z：30*H^2/π/R/L→W
Cos(A+B)*T+O+Z/CosW*Cos(A+B+180-P*W)→U
Sin(A+B)*T+K+Z/CosW*Sin(A+B+180-P*W)→G
X(JD)——交点坐标XB——路线转角，左为“-”，右为“+”

道路对称基本型曲线中边桩坐标计算原理【fx-5800P】

计算范围从前一交点曲线终点到下一交点曲线起点间任意桩号里程的中、边桩点坐标。

已知条件（1）交点桩号JD 、坐标),(J JD D Y X ；（2）起始边方位角（第一切线方位角）1A ；（3）曲线转角α、转向参数w （右转取+1，左转取-1）；（4）圆曲线半径为R 、缓和曲线长为s L ；（5）中桩桩号P ；（6）边桩与中桩连线同中桩切线方向的交角γ（与曲线上某点切线前进方向顺时针夹角）；边桩与中桩的左（或右）偏距L D （R D ）。

注：本文中无特别说明角度单位均为度（°）。

计算过程一、曲线要素计算已知条件：曲线转角α；圆曲线半径为R 、缓和曲线长为s L 。

（1）切线增值q 、圆曲线内移值p 的计算①圆曲线内移值p1222178563422)!2()14()1(15482880506880268824--⨯⨯⨯--++-+-=n n s n n s s s s R L n n R L R L R L R L p ),3,2,1( =n 。

计算中考虑取前两项，即56342506880268824R L R L R L p s s s +-= ②切线增值qnn s n ns s s s R L n n R L R L R L L q 212126745232)!12()14()1(8386560345602402++⨯⨯+⨯+-++-+-= ),3,2,1,0( =n 。

计算中考虑取前三项，即4523345602402RL R L L q s s s +-=， ③缓圆（圆缓）点的缓和曲线角R L s 20=β （2）切线长T 的计算2tan )(αp R q T ++=（3）外距E 的计算R p R E -+=2sec)(α（4）圆曲线长度L y 的计算 )()2(0R L R R L s y -=-=αβα （5）曲线长度L 的计算s y L L L 2+=（6）校正值——切曲差J 的计算L T J -=2二、主点里程桩号计算若交点B 的里程桩号为JD ，则直缓（ZH ）点里程桩号T JD ZH -=缓圆（HY ）点里程桩号s L ZH HY +=圆缓（YH ）点里程桩号y L HY YH +=缓直（HZ ）点里程桩号s L YH HZ +=曲中（QZ ）点里程桩号2/L HZ QZ -=交点（检核）里程桩号2/J QZ JD +=三、中桩坐标计算已知条件：曲线转角α；圆曲线半径为R 、缓和曲线长为s L ；切线增值q ，圆曲线内移值p ；切线长T ；交点桩号JD 、坐标),(J JD D Y X ；第一切线方位角1A （ZH →JD 方向）；（一）ZH 、HZ 点坐标（1）ZH 点坐标⎩⎨⎧++=++=)180sin()180cos(1JD P1J P A T Y Y A T X X D （2）HZ 点坐标⎩⎨⎧++=++=)sin()cos(1JD P1J P ααw A T Y Y w A T X X D（二）直线段坐标（1）ZH 点前直线段⎩⎨⎧++-+=++-+=)180sin()()180cos()(1ZH P1ZH P A T P ZH Y Y A T P ZH X X 。

fx-5800P_基本型平曲线中边桩坐标计算程序PM5-3

为
α HZ − j = α I + δ ′j′
x j = x HZ + c ′j′ cos α HZ − j ⎫ ⎬ y j = y HZ + c ′j′ sin α HZ − j ⎭
缓和曲线在 j 点的切线方位角为
(5-36) (5-37)
α j = αI m
90l 2 j
πRLh 2
(5-38)
左边桩坐标为
(5-28)
x HZL = x HZ + wR cos(α I + 90)⎫ ⎬ y HZL = y HZ + wR sin(α I + 90) ⎭
右边桩坐标为
(5-29)
x ZHR = x ZH + wR cos(α I − 90)⎫ (5-30) ⎬ y ZHR = y ZH + wR sin(α I − 90) ⎭ 式中， wL 为路面左幅半宽， wR 为路面右幅半宽。 1) 逐桩点位于 ZH ~ HY 第一缓和曲线段 ′ 以 ZH 点为基点计算 j 点的坐标，弦切角 δ ′ j 与弦长 c j 按式(5-22)计算，弦长 ZH − j 的方位角
fx-5800P 程序
Abs(Q) D 计算转角绝对值 "Lh1(m)="?S 输入第一缓和曲线长 "R(m)="?R 输入圆曲线半径 "Lh2(m)="?T 输入第二缓和曲线长 Pol(A-U,B-V):Cls 计算 ZD→JD 的方位角 Z[11] If J<0:Then J+360 Z[11]:Else J Z[11]:IfEnd Z[11]+Q+180 Z[16] 计算 HZ→JD 的方位角 Z[12] If Z[16]>360:Then Z[16]-360 Z[12]:Else Z[16] Z[12]:IfEnd 计算第一缓和曲线内移值 Z[1] S2÷(24R)-S^(4)÷(2688R^(3)) Z[1] 0.5S-S^(3)÷(240R2)+S^(5)÷(34560R^(4)) Z[2] 计算第一缓和曲线切线增量 Z[2] 2 T ÷(24R)-T^(4)÷(2688R^(3)) Z[3] 计算第二缓和曲线内移值 Z[3] 0.5T-T^(3)÷(240R2)+T^(5)÷(34560R^(4)) Z[4] 计算第二缓和曲线切线增量 Z[4] (R+Z[3])÷sin(D)-(R+Z[1])÷tan(D)+Z[2] Z[5] 计算第一切线长 Z[5] (R+Z[1])÷sin(D)-(R+Z[3])÷tan(D)+Z[4] Z[6] 计算第二切线长 Z[6] 90S÷(πR) Z[7] 计算第一缓和曲线偏角 Z[7] 90T÷(πR) Z[8] 计算第二缓和曲线偏角 Z[8] πR(D-Z[7]-Z[8])÷180 Z[9] 计算圆曲线长 Z[9] S+T+Z[9] Z[10] 计算曲线长 Z[10] Z[5]+Z[6]-Z[10] J 计算切曲差 "T1(m)=":Z[5] 显示第一切线长 "T2(m)=":Z[6] 显示第二切线长 "LY(m)=":Z[9] 显示圆曲线长 "L(m)=":Z[10] 显示总曲线长 "J(m)=":J 显示切曲差 Z-Z[5] List X[1] 计算 ZH 点桩号 List X[1]+S List X[2] 计算 HY 点桩号 List X[1]+0.5Z[10] List X[3] 计算 QZ 点桩号 List X[2]+Z[9] List X[4] 计算 YH 点桩号 List X[1]+Z[10] List X[5] 计算 HZ 点桩号 A-Z[5]cos(Z[11]) List Y[1] 计算 ZH 点的中桩坐标 B-Z[5]sin(Z[11]) List Freq[1] 显示 ZH 点桩号及中桩坐标 "ZH PEG(m)=":List X[1] "ZH X(m)=":List Y[1] "ZH Y(m)=":List Freq[1] 1 K:Z[11] Z[13] 调子程序计算并显示 ZH 点左、右边桩坐标 Prog "SUB5-33" 2 K:Prog "SUB5-31" 调子程序计算并显示 HY 点中、左、右桩坐标 3 K:Prog "SUB5-32" 调子程序计算并显示 QZ 点中、左、右桩点坐标 4 K:Prog "SUB5-32" 调子程序计算并显示 YH 点中、左、右桩点坐标 A-Z[6]cos(Z[12]) List Y[5] 计算 HZ 点的测量坐标 B-Z[6]sin(Z[12]) List Freq[5] 显示 HZ 点桩号及坐标 "HZ PEG(m)=":List X[5] "HZ X(m)=":List Y[5] "HZ Y(m)=":List Freq[5] 5 K:Z[12] Z[13] 调子程序计算并显示 HZ 点的左、右边桩坐标 Prog "SUB5-33" If R<30:Then 5 I:Else If R<60:Then 10 I:Else 20 I:IfEnd:IfEnd 确定整桩间距 "INT DIST(m)="?O 输入整桩间距

fx-5800P道路中边桩坐标放样正反算程序ROAD-2（修订版）

fx-5800P道路中边桩坐标放样正反算程序ROAD-2（修订版）道路中边桩坐标放样正反算程序主程序 ROAD-2主程序：ROAD-2Deg:Fix 3:20→DimZ↓"ZS[1],FS[2]"?J↓If J=1:Then Goto 0:Else Goto 4:IfEnd↓Lb10↓"Z -1,Y +1"? I↓"LC"?P:"PJ"?D↓If I<0:Then Prog“ROAD-DATAZ” :Else Prog“ROAD-DATAY” :IfEnd↓M+O→N↓Prog"ROAD-SUB1"↓Prog"ROAD-SUB2"↓"X=":F+Dcos(Z+90)→Z[11]◢"Y=":G+Dsin(Z+90)→Z[12]◢"α=":Z DMS◢Goto 0↓Lbl 4↓"Z -1,Y +1"? I↓"X"?U:"Y"?V:"GSLC"?P↓Lbl 5↓If I<0:Then Prop“ROAD-DATAZ” :Else Prop“ROAD-DATAY” :IfEnd↓M+O→N↓Prog"ROAD-SUB1"↓Prog"ROAD-SUB2"↓Z-90→A↓(V-G)cos(A)-(U-F)sin(A)→H↓If Abs(H)>0.0001:Then P+H→P:Goto 5:IfEnd↓"LC=":P◢"PJ=":(G-V)÷sin(A)→D◢Goto 4↓平曲线要素及主点桩号计算子程序： ROAD-SUB1If O<0:Then -1→W:Else 1→W:IfEnd:WO→A↓B^(2)÷24÷R-B^(4)÷2688÷R^(3)→Z[6]↓C^(2)÷24÷R-C^(4)÷2688÷R^(3)→Z[7]↓B÷2-B^(3)÷240÷R^(2)+B^(5)÷34560÷R^(4)→Z[8]↓C÷2-C^(3)÷240÷R^(2)+C^(5)÷34560÷R^(4)→Z[9]↓Z[8]+(Z[7]-Z[6])÷(2×tg(A÷2))+(Z[7]+Z[6]+2×R)×tg(A÷2)÷2→S↓Z[9]+(Z[6]-Z[7])÷(2×tg(A÷2))+(Z[7]+Z[6]+2×R)×tg(A÷2)÷2→T↓RAπ÷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[2]+Q÷2→Z[3]↓Z[1]+L-C→Z[4]↓Z[4]+C→Z[5]↓中线坐标计算子程序： ROAD-SUB2X-Scos(M)→F:Y-Ssin(M)→G↓If P>Z[1]:Then Goto 1:IfEnd↓X→F:Y→G:P-K→Z[16]:0→Z[17]:M→A:M→Z:Goto 5↓Lbl 1↓If p>Z[2]:Then Goto 2:IfEnd↓P-Z[1]→L:L→Z[14]:B→Z[15]:Prog"ROAD-SUB3"↓WZ[17]→Z[17]:M→A:M+90WL^(2)÷(BRπ)→Z:Goto 5↓Lbl 2↓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(1-cos(A))+Z[6]→Z[17]↓M+WA→Z:M→A:Goto 5↓Lbl 3↓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-90WL^(2)÷(CRπ→Z:Goto 5↓Lbl4↓X→F:Y→G:P-Z[5]+T→Z[16]:0→Z[17]:N→A:N→Z:Goto 5↓Lbl 5↓F+Z[16]cos(A)-Z[17]sin(A)→F↓G+Z[16]sin(A)+Z[17]cos(A)→G↓If Z<0:Then Z+360→Z:IfEnd↓缓和曲线局部坐标计算子程序 ROAD-SUB3If Z[14]=0:Then 0→Z[16]:0→Z[17]:Else↓Z[14]-Z[14]^(5)÷40÷(RZ[15])^(2)+Z[14]^(9)÷3456÷(RZ[15])^(4)→Z[1 6]↓Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]↓IfEnd↓路线数据库子程序 ROAD-DATAZ12200.836→Z[18]:13481.073→Z[19]:If PZ[19]→Z[18]:14682.846→Z[19]:If PZ[19]→Z[18]:16353.635→Z[19]:If PZ[19]→Z[18]:17328.058→Z[19]:If PZ[19]→Z[18]:18555.915→Z[19]:If PZ[19]→Z[18]:19690.214→Z[19]:If PLbl 1:IfP<12200.836 Or P>19690.214:Then Cls:Locate 5,2,"LC ERROR"◢Stop:Ifend:Return路线数据库子程序 ROAD-DATAY17157.391→Z[18]:18529.883→Z[19]:If PZ[19]→Z[18]:19680.759→Z[19]:If PLbl 1:IfP<17157.391 Or P>19680.759:Then Cls:Locate 5,2,"LC ERROR"◢Stop:Ifend:Return。

卡西欧5800P计算器-道路中桩及边桩计算程序

卡西欧5800p计算器道路中桩及边桩计算程序程序边桩计算卡西欧中边桩道路中边桩casio计算程序5800p道路中
卡西欧 5800P 计算器-道路中桩及边桩计算程序 Lbl 4:“1：KD￫ XY,2：XY￫ KD” ？N:?K If k<270.348:(第一段的终点桩号）Then0（0 是零，起点桩号）￫ O（字母符）:355933.039(起点 x 坐标）￫ U:467305.867(起点 y 坐标）￫ V:0°15′46″（第一段的方位角）￫ G:270.348(第一段的距离）￫ H:10^（45）（直线）￫ P:3000(曲线半径）￫ R:0（数字）￫ Q:Goto 0（数字）:Ifend If k<759.748：(第二段的终点桩号）Then270.348(第一段的终点桩号）￫O(字母）：3559603.384(第一￫U:467307.108 段终点 x 坐标）（第一段终点 y 坐标）￫V:0°15′46″ （第二段起点方位角）￫ G:489.4(第二段距离）￫H:3000(第￫P:3000(第二段曲线半径）￫Q:Goto 二段曲线半径）￫ R:1(右转） 0IfEen
￫Q:Goto 0(数字）：IfEnd Lbl 0(数字）：1÷P￫C:(P-R)÷(2HPR)￫D:180÷π￫E N=1Goto 1：Goto 2 Lbl 1:?Z:K￫S:Abs(S-O)￫W:Prog“SUB1”:“X=”:X◢（s-o,o 是字母符） “Y=”:Y◢ “FWJ=”:F-90￫F◢ Goto4 Lbl 2:?X:?Y:X￫I:Y￫J:Prog“SUB2”:O+：线性是直线或圆曲线，缓和曲线不能用此程序。 “SUB1，SUB2” 是两个子程序。 “SUB1” 0.1739274226￫ A:0.3260725774￫ B:0.0694318442￫ P:0.3300094782￫ L:1-L￫ F:1-P￫ M:U+W(ACos （G+QEPW(C+PWD))+BCos(G+QELW(C+LWD))+BCos(G+QEFW(C+FWD))+AC os(G+QEMW(C+MWD)))￫ X:V+W(ASin(G+QEPW(C+PWD))+BSin(G+QELW(C+LWD))+BSin(G+QEFW(C +FWD））+ASin（G+QEMW(C+MWD)))￫ Y:G+QEW(C+WD)+90￫ F:X+ZCos(F) ￫ X:Y+ZSin(F)￫ Y “SUB2”程序

FX5800P计算器曲线任意里程中边桩坐标正反算

卡西欧fx5800P计算器曲线任意里程中边桩坐标正反算一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

二、源程序增加变量16→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"："XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1:Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"："S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 22. 正算子程序(SUB1)0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L： (1-L) →F： (1-K)→M：U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X：V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y：G+QEW(C+WD)+90→F：X+ZcosF→X：Y+ZsinF→Y3. 反算子程序(SUB2)G-90 →Z[2]： Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W：0→Z：Lbl 0：Prog "SUB1"：Z[2]+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL→Z：If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEndLbl 1：0→Z：Prog "SUB1"： (J-Y)÷sinF→Z4. 数据库(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:IfEnd …………If S>236005.651:Then Cls:Stop: IfEndLbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E：5. 算方位角程序(FA)LbI0：“XC=”? A : “YC=”? T :X：Y0→J： POI（X-A，Y-T）→I：“BC=”：I◢If J＜0 Then 360+J→J：ElseJ→J :IfEnd “FW=”：J►DMS◢ Goto06. 使用方位角算坐标(NE)LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F：L×Cos（F）+X→N: “N=”N◢L×Sin（F）+Y→E: “E=”E◢Goto07. 边坡放样程序(BIANPO)“QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]：2→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[11] ◢Else“W=”：Z[11] ◢IfEndZ[11]÷Z[5] →Z[12]：If Z[12]〈1 Then Z[8]×Z[11] →Z[13]：ElseZ[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd: AbsZ-（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=” ………………边坡超欠挖宽度（+表超，-表欠）8. 隧道圆心放样程序（SDYX）IF S<229000:THEN 243.997+0.0205×(S-226520)-(S-227318)^2/2/16000+1.503 →Z[10]:“NGC=”：Z[10] ◢ELSE 286.385-0.023×(S-230500)-(S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEndZ[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]: “R=”:Z[16] ◢三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

5800中边桩

CASIO FX—5800P 交点法计算中边桩坐标1、[JDFY] 主程序Lbl 0 ：90→C: "ZH‖ ? Q：提示输入桩号Prog―JDSJ‖ ：运行数据库―JDSJ‖―JL‖ ? W：提示输入距中桩距离Goto 1：跳转到标记1Lbl 1：R= 0 => Goto 3：如果圆曲线为0直接进入标记3Abs(B) πR÷180-(L+M) ÷2→G：计算圆曲线长M→S: 1→Z：将M(LS1)值赋予S以计算p2和q2Lbl 2：S^2÷24÷R- S^(4)÷2688÷R^(3) →P: S÷2 - S^(3)÷240÷R^2→O：计算内移值和切线增值If Z= 1: Then 0 →Z: L→S: P→U: O→V: Goto 2: IfEnd：将p2和q2分别存入U、V并计算p1和q1(R+U-(R+P)cos(Abs(B)))÷sin(Abs(B))+O →T：计算第一切线长T(T1)(R+P- (R+U)cos(Abs(B)))÷sin(Abs(B))+V→S：计算第一切线长S(T2)F-T→D：计算直缓点(ZH)桩号Q ≤ D => Goto 3：计算里程小于直缓进入标记3If Q ≤ D+L: Then Q - D →J : L →U: Goto 4: IfEnd：计算桩号在第一缓和段进入标记4 If Q ≤ D+L+G: Then 1 →J: Goto 5: IfEnd：计算桩号在圆曲线内进入标记5If Q ≤ D+M+L+G: Then Q - D- L- M- G →J: M →U: Goto 4: IfEnd：计算桩号在第二缓和段进入标记4Q > D+M+L+G => Goto 0：计算桩号超出缓直点后重新开始计算Lbl 3：N+(Q - F)cos(A) →X：计算ZH点前桩号的X坐标E+(Q - F)sin(A) →Y：计算ZH点前桩号的Y坐标A+C →S：计算ZH点前桩号的法线方位角Goto 9：Lbl 4：RU →KJ - J^(5)÷40÷K^2 + J^(9)÷3456÷K^(4) →H：计算缓和段切线横支距J^(3)÷6÷K - J^(7)÷336÷K^(3)+J^(11)÷42240÷K^(5) →I :计算缓和段切线纵支距J = Q - D => Goto 6：如果桩号在第一缓和段进入标记6Goto 7：如果桩号在第二缓和段进入标记7Lbl 5：90(2Q - 2D- L)÷π÷R →U：计算圆曲线段到HZ点的切线横支距Rsin(U)+O →H: R( 1 - cos(U)) + P →I ：计算圆曲线段到HZ点的切线纵支距Lbl 6：If B< 0: Then - I→I: IfEnd：如果曲线左偏则令纵支距为负N -Tcos(A)+Hcos(A) - Isin(A) →X：计算第一缓和段的X坐标E-Tsin(A) + Hsin(A) +Icos(A) →Y：计算第一缓和段的Y坐标Goto 8：Lbl 7：If B> 0: Then –I →I: IfEnd：N+Scos(A+B)+Hcos(A+B)-Isin(A+B) →X：计算第二缓和段的X坐标E+Ssin(A+B)+Hsin(A+B)+Icos(A+B) →Y：计算第二缓和段的Y坐标Lbl 8：R →U：If B< 0: Then –R →U: IfEnd：If J=Q-D: Then C+A+90J^2÷π÷U÷L→S: IfEnd：计算第一缓和段的法线方位角If J= Q – D – L - M- G: Then C+A+B - 90J^2÷π÷U÷M →S: IfEnd：计算第二缓和段的法线方位角If J=1: Then C+A+180(Q-D-L÷2)÷π÷U→S: IfEnd：计算圆曲线段的法线方位角Lbl 9：X+Wcos(S) →X: Y+Wsin(S) →Y：计算边桩坐标―X=‖: X◢―Y=‖: Y◢Goto 02、[JDSJ] 数据库子程序Q >760.808 => Goto 1：Q < 0 => Goto 1：If Q ≤ 760.808: Then 710.265 →F: 7147.931→N: 6983.659 →E: 254°49°42.8° →A: 38°38°06.6° →B: 95 →R: 40 →L: 40 →M:Goto 3: IfEnd：Lbl 1：―JD‖ ? F: ―JDX‖ ? N: ―JDY‖ ? E: ―FWJ‖ ? A: ―PJ‖: ? B ―R‖ ? R: ―LS1‖ ? L:―LS2‖ ? M: ―XJ‖ ? C ：Lbl 2：程序中各变量含义：JD ── 交点桩号 FJDX ── 交点X坐标 NJDY ── 交点Y坐标 EFWJ ── 起始方位角 APJ ──偏角（左-- 右+）BR ── 圆曲线半径 RLS1 ── 第一缓和曲线长 LLS2 ── 第二缓和曲线长 MXJ ── 边桩和线路切线的右夹角(度分秒) C。

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”，输入曲线参数，计算曲线要素。

CASIOfx-5800P计算线路中边桩坐标的通用程序

市政・交通・水￣ｌＪ＇１－程设计ｌ
肘廊 ‘ 够ｃ・疵ｒＲｅｓｏｕｒｃｅｓ・ｌＭｅ凸ｓｉ軎，ｌｌ
ＣＡＳＩＯｆｘ一５８００Ｐ计算线路中边桩坐标的通用程序
ＣＡＳＩＯｆｘ．５８００ＰＣａｌｃｕｌａｔｅｄＬｉｎｅＳｉｄｅＣｏｏｒｄｉｎａｔｅｓＧｅｎｅｒａｌＰｒｏｇｒａｍ
张冬菊，彭华
（湖南工程职业技术学院，长沙４１０１５１）
ＺＨＡＮＧＤｏｎｇ－ｊｕ，ＰＥＮＧＨｕａ
（ＨｕｎａｎＶｏｃａｔｉｏｎａｌａｎｄＴｅｃｈｎｉｃａｌＣｏｌｌｅｇｅ，Ｃｈａｎｇｓｈａ４１０１５１，Ｃｈｉｎａ）
右边桩坐标为：｛
２．３用复化辛普森公式对坐标进行数值积分［１］
¨
＋Ｊ。ＣＯＳｍ
，
＋ｊ。ｓｉ溉‘
图１曲线兀坐标系
将积分区间【Ｏ，ｆｉ］分为等分，则步长为－２，则各分点里
程为
则为
【中图分类号】ｕ４ｌ２．２４【文献标志码】Ａ【文章编号】１００７．９４６７（２０１３）１１－００９７．０４
１引言
随着全站仪的技术日益更新，坐标放样在工程中应用更
编程，可是这些程序有局限性，往往计算公式复杂，需要进行坐标转换，而且只是针对某个线型的，而不能解决所有的线型