CASIO fx5800P单交点单圆曲线中边、桩坐标计算程序
CASIO fx-5800P YQX圆曲线坐标计算程序
CASIO fx-5800P YQX圆曲线坐标计算程序原理：采用长弦偏角法进行单元坐标计算。
公式：αi=li÷R×180°÷π、xi=R×sinαi、yi=R×(1-cosαi)、ci=√(xi^2+yi^2)、δi=arctan(yi÷xi)、Xi=YZx+ci*cos(A+δi×cc)、Yi=YZy+ci*sin(A+δi×cc)。
方位：(li÷R×180°÷π)×cc +A注解：li=计算点至直圆点之间的弧长、δi偏角、ci=弦长、A=第一切线方位角、cc曲线转向偏左=-1，偏右=1。
说明：该程序适用于计算器 CASIO fx-5800P，针对圆曲线线形设计，可计算圆曲线线路中、边桩坐标、切线方位角及斜交。
1、JD(DK)=? 输入交点里程2、JD(X)=? 输入交点坐标X3、JD(Y)=? 输入交点坐标Y4、α=? 输入转角(左为-、右为+)5、R=? 输入曲线半径6、FWJ=? 输入第一切线方位角7、JSDK=? 输入计算桩号9、PJ=? 输入偏距10、PA=? 输入偏角主程序名：YQXLb1 0＂JD(DK)=＂?A：＂JD(X)=＂?B：＂JD(Y)=＂？C：＂α=＂？D：＂R=＂？R：＂FWJ=＂?F↙If D<0：Then -1→G：Else 1→G：IfEnd↙＂T=＂：R×tan(G×D÷2)→T◢＂L=＂：R×G×D×π÷180°→L◢＂E=＂：R×(1÷cos(G×D÷2)-1)→E◢＂ZY=＂：A-T→H◢＂QZ=＂：H+L÷2→I◢＂YZ=＂：H+L→J◢B+T×cos(F+180°)→U↙C+T×sin(F+180°)→V↙Lb1 1↙＂JSDK=＂?K↙K-H→M↙M÷R×180°÷π→N↙R×sin(N)→O↙R×(1-cos(N))→P↙√(O^2+P^2)→Q↙tan-1(P÷O)→S↙M÷R×180°÷π→W↙＂FWJ=＂：F+G×W→Z◢Lb1 2↙＂X=＂：U+Q×cos(F+S×G)→X◢＂Y=＂：V+Q×sin(F+S×G)→Y◢＂PJ=＂?I↙＂PA=＂?J↙＂X=＂：X+I×cos(Z+J)→E◢＂Y=＂：Y+I×sin(Z+J)→L◢Goto 1注：1、◢为显示指令。
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。
CASIO5800计算器中边桩坐标计算程序
CASIO5800计算器中边桩坐标计算程序一．GSGL（主程序）1.“K0”? W:“X0”? U:“Y0”? V:“R”?R: “LH”?L:“A0”?A:“B”?B:“R=1,L=-1”?N:“S-BACK"?E:“T-BACK"?F:2.Lb1 0:3.“KI”? K: E-F S:4.(R+L2÷(24R)-L^(4)÷(2688R^(3)))×tan(B÷2)+L÷2-L^(3)÷(240R2)T:5.S-T H:K-W J:J＜0 =〉Goto 0:6.If H>J: Then U+Jcos(A)X:V+Jsin(A)Y:7.“XI=”:X “YI=”:Y8.A G:Prog “SUB”: Goto 0: IfEnd:9.L=0 =〉Goto 1:10.K-H-W Z: Z-Z^(5)÷(90R2L2)C:11.30 Z2÷(πLR)D: Z＞L =〉Goto 1:12.U+Hcos(A)+Ccos(A+ND)X:V+Hsin(A)+Csin(A+ND)Y:13.“XI=”:X“YI=”:Y14.A+180NZ2÷(2πLR)G:Prog “SUB”: Goto 0:15.Lb1 1:16.πRB÷180-L C: K-H-W-L M: 90M÷(πR)I: 2Rsin(I)O:17.L-L^(3)÷(90R2)P:30LN÷(πR)Q:A+3Q+NI D: M>C =〉Goto 2:18.U+Hcos(A)+Pcos(A+Q)+Ocos(D)X: V+Hsin(A)+Psin(A+Q)+Osin(D)Y:19.“XI=”:X “YI=”:Y20.A+N(180L÷2÷π÷R+180M÷(πR))G: Prog “SUB”: Goto 0:21.Lb1 2:22.L=0 =〉Goto 0:23.A+NB G:24.H-J+L+πRB÷180P:P<-.003 =〉Goto 0:25.P-P^(5)÷(90R2L2)C: 30P2÷(πRL)D:A+NB-180-ND Q:26.U+Scos(A)+Tcos(G)+Ccos(Q)X: V+Ssin(A)+Tsin(G)+Csin(Q)Y:27.“XI=”:X “YI=”:Y28.A+NB-180NP2÷(2πRL)G: Prog “SUB” :Goto 0:二．SUB（子程序）1．Lb1 0:2. 0I：0O：0M:3. “Y=1，N=0”? I：I≠1 =〉Goto 2：4. G+90C：G-90D：“R=1，L=-1”? O：“S-LONG”? M：5. If O=1：Then X+Mcos(C)P : Y+Msin(C)Q：6. “XR=”：P “YR=”：Q7. Else X+Mcos(D)P: Y+Msin(D)Q：8. “XL=”：P “YL=”：Q IfEnd:9. Goto 0：10. Lb1 2说明1）K0：起点的桩号2）X0：起点的X坐标3）Y0：起点的Y坐标4）KI：需计算的桩号5）R：圆曲线半径6）LH：缓和曲线段长度7）A0：起点方位角（角度）8）B：偏角（角度）9）R=1，L=-1：表示路线左右偏，右1，左-110）S-BACK：起点至交点长度11）T-BACK：一般取012）Y=1，N=0：是否计算边桩，是1，否013）R=1，L=-1：左右边桩，右1，左-114）S-LONG：表示中桩至边桩距离。
卡西欧5800P计算器-道路中桩及边桩计算程序
If K<3269.093(第三段终点桩号） ：Then759.748(第二段终点桩号)￫ O:35349.174(第三段起点 y 坐标）￫V:9°36′35″（第三段起点方位角）￫G：2509.345(第三段 的距离） ￫H:3000(第二段的曲线半径） ￫P:10^(45)(直线） ￫R:0(数字）
卡西欧 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+W￫K:“K=”:K◢（o 是字母） Z￫D:“D=”:D◢ Goto 4 注：线性是直线或圆曲线，缓和曲线不能用此程序。 “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”程序
CASIOfx-5800P计算器计算公路中边桩坐标程序
（一１ ） （ Ｑ） （ Ｌ—Ｏ） 一Ｗ ： Ｅ＝ ０＝ ＞Ｇ ｏ ｔ ｏ １ ： Ｕ≠２＝＞ ９ ０
—
｝ Ｇ：
Ⅱ Ｕ ＝２： Ｔ ｈ ｅ ｎ“ Ｊ Ｊ ” ？ Ｇ： “ＫＤ”？ Ｈ： Ｇｏ ｔ ｏ １ ：Ｅ ｌ ｓ ｅ“ Ｓ Ｇ” ？
一
： Ｎ＋ Ｊ Ｋ＋ １ ８ Ｏ
：
Ｉ ｆ Ｗ ≥ Ｖ： Ｔ ｈ ｅ ｎ Ｎ ＋Ｋ Ｐ－ － ＊ Ｐ： Ｅ ｌ ｓ ｅ Ｎ ＋３ Ｊ Ｋ Ｐ： Ｉ Ｅｎ ｆ ｄ ：Ｐ ｒ ｏ ｇ
（ ２ ） 子程序 １ Ｓ Ｊ （ 手动输入平 曲线数据 ）
Ｐ ｒ ｏ ｇ“ ＮＥ Ｗ ＯＲ ＯＬ Ｄ”： Ｙ ＝１＝ ＞Ｇｏ ｔ ｏ １ ：
曲线 的长度 、 弯道加宽值为 变量 ， 解算 公路 基本 型 曲线 放样 所需部位 的中边桩坐 标。 曲线 加宽计 算公 式适合 设有 缓和 曲线 的加宽类型 。
２ ． ２ 程序 清 单
（ ３ ） 子程序 ２ Ｓ Ｊ （ 自动选择平 曲线数据 ） Ｆ ｒ ｅ ｑ Ｏ ｎ： Ｉ ｆ Ｌ＜Ｌ ｉ ｓ ｔ Ｆ ｒ ｅ ｑ ［ １ ］ ： Ｔ ｈ ｅ ｎ“ Ｅ Ｒ Ｒ Ｌ＜ＭＩ Ｎ ” ： Ｓ ｔ ｏ ｐ ： Ｅ ｌ ｓ ｅ Ｉ ｆ Ｌ＞Ｌ ｉ ｓ ｔ Ｆ ｒ ｅ ｑ ［ １ ０ ］ ： Ｔ ｈ ｅ ｎ“ Ｅ Ｒ Ｒ Ｌ＞ＭＡ Ｘ” ： Ｓ ｔ ｏ ｐ ： Ｉ ｆ －
Ｅｎ ｄ： Ｌｂｌ １
Ⅱｚ ［ １ ］＝ ０ ： Ｔ ｈ ｅ ｎ Ｐ ｒ ｏ ｇ“ ２ Ｙ Ｓ Ｊ Ｓ ” ： Ｅ ｌ ｓ ｅ Ｐ ｒ ｏ ｇ “ ２ Ｓ Ｊ ” ： ／ ｆ Ｅ ｎ ｄ ：
“ Ｘ ０—０： Ｘ Ｚ 一１ ： ＸＹ 一２ ”？ Ｅ：
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 ↙。
《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理
算程序》班刚立：整理2013.03.16《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16算程序》班刚立：整理2013.03.16简介：卡西欧CASIO fx-5800P编程计算器，语言简单易懂，使用范围广泛，是工程测量技术人员的一项重要指标。
适用：卡西欧CASIO fx-5800P计算器使用。
《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立：整理2013.03.16算程序》班刚立：整理2013.03.16NO.1：CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.0说明：本程序适用于计算器 CASIO fx-5800P，可计算：第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角和坐标正反算、竖曲线高程。
下载：点击下载NO.2：CASIO fx-5800P ZXZFS 直线正反算坐标计算程序说明：该程序适用于计算器 CASIO fx-5800P，针对直线正反算设计，正算可算直线中边桩坐标及其斜交、反算可推算直线距线路中心的里程偏距。
下载：点击下载NO.3：CASIO fx-5800P QXZF隧道超欠挖坐标计算程序Beta1.21说明：适用于铁路隧道三圆心，超欠挖检测和轮廓线放样。
下载：点击下载NO.4：CASIO fx-5800P线元法坐标计算程序说明：该程序适用于CASIO fx5800P计算器，坐标正算、反算一体程序，适用性广（包括：复曲线、S型曲线、匝道）等。
下载：点击下载NO.5：CASIO fx-5800P FWJ方位角和距离计算程序说明：本程序可计算两坐标点之间距离和方位角。
下载：点击下载NO.6：CASIO fx-5800P多边形面积计算程序说明：适用于地形测量计算特征点多边形面积。
单交点基本型曲线坐标正反算程序 (For Casio fx-5800P)
单交点基本型曲线坐标正反算程序 (For Casio fx-5800P)正算主程序：ZS1.Prog“SJ K”2.Lbl 0:?Z:?S:?O:Abs(S)→S Z要计算的桩号;S要计算的点的偏距，输正值;O偏角，正交时输入+90（右偏）或-90（左偏）3.If Z<A:Then Rec(Q-Z,F+180):N+I→X:E+J→Y:F→W:Goto 2:IfEnd 第一直线4.If Z<B:Then Z-A→L:F+90GL2÷(πRU)→W:U→H:Z[5]→M:Z[6]→P:F→T:1→Z[1]:Goto 1:IfEnd (L S1)5.If Z<C:Then Z-B→L:F+G((90U+180L)÷π÷R)→W6.Rec(R,W-90G):Z[9]+I→X:Z[10]+J→Y7.Goto 2:IfEnd 圆曲线8.If Z<D:Then D-Z→L:F+G(K-90L2÷(πRV))→W:V→H:Z[7]→M:Z[8]→P:F+GK+180→T:-1→Z[1]:Goto 1:IfEnd (L S2)9.If Z>D:Then F+GK→W:Rec(Z-D+Z[4],W):N+I→X:E+J→Y:Goto 2:IfEnd 第二直线10.Lbl 1:L-L^(5)÷(40R2H2)+L^(9)÷(3456R^(4)H^(4))→X11.L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3))+L^(11)÷(42240R^(5)H^(5))→Y12.Rec(sqrt(X2+Y2),T+Z[1]Gtan-1(Y÷X)):M+I→X:P+J→Y:Goto 213.Lbl 2:Rec(S,W+O):X+I→X:Y+J→Y14.“X=”:Locate3,1,X:”Y=”:Locate 3,2,Y:”FWJ=”:W►DMS◢15.Goto 0反算主程序：FS1.Prog"SJK"2.90U÷π÷R→H第一回旋线所对应圆心角β013.90V÷π÷R→T第二回旋线所对应圆心角β024.Rec((Z[3]+Z[4]÷cosK)÷tanK,F+90G):Z[5]+I→Z[11]:Z[6]+J→Z[12]ZH、HZ点垂线交点坐标5.F-90G→Z[13]ZH点与ZH、HZ点垂线交点连线方位角6.Z[13]+GH→Z[14] HY点与圆心连线方位角7.Z[13]+G(K-T)→Z[15] YH点与圆心连线方位角8.Z[15]+GT→Z[16]HZ点与ZH、HZ点垂线交点连线方位角9.Lbl 0:?X:?Y 运行时输入所要算的点坐标XY10.Pol(X-Z[11],Y-Z[12])11.If GIsin(J-Z[13])<0:Then Pol(N-X,E-Y):Rec(I,F-J)12.Q-I→Z: J→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢13.Goto 0:IfEnd 第一直线14.If GIsin(J-Z[16])>0:Then Pol(X-N,Y-E):Rec(I,J-F-GK)15.I-Z[4]+D→Z: J→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢16.Goto 0:IfEnd 第二直线17.If GIsin(J-Z[13])>0:Then Pol(X-Z[9],Y-Z[10]):J<0⇒J+360→J18.If GIsin(J-Z[14])<0:Then Z[13]→P:U→H:A→M:1→T:Z[5]→Z[17]:Z[6]→Z[18]:F→Z[19]:Goto 1:IfEnd L S119.If GIsin(J-Z[15])<0:Then Abs(J-Z[14])→Z[20]:Z[20]>360⇒Z[20]-360→Z[20]20.B+πRZ[20]÷180→Z: G(R-I)→S:Cls:“Z=”:Locate3,1,Z:”S=”:Locate 3,2,S◢21.Goto 0:IfEnd 圆曲线22.If GIsin(J-Z[15])>0:Then Z[16]→P:V→H:D→M:-1→T:Z[7]→Z[17]:Z[8]→Z[18]:F+GK+180→Z[19]:Goto 1:IfEnd L S223.Lbl 1:Pol(X-Z[11],Y-Z[12]): Abs(J-P)→J:J>180⇒J-360→J:JπR÷180→L L=以R为半径,以所求点－(Z[11],Z[12])连线与P的角度差计算得的弧长，作为近似桩号。
卡西欧fx-5800p计算器”单圆曲线计算“程序以及程序说明
单圆曲线(YQXJS)“KO”?O: “X0”?A:“Y0”?B：“JDX”?X：“JDY”？Y：“FWJ”？J：“FO”？F：?N：?R：6→DimZ←┘（K0为输入起算点桩号），（X0为输入起算点X坐标），（Y0为输入起算点Y坐标），（JDX输入曲线所在交点X坐标，无输入0），（JDY为输入曲线所在的Y坐标，无输入0），（FWJ为输入起算点的方位角），（F0为输入交点处的转角，带正负号，当左转时在转角前加-；右转时在转角前加+），（N为转角方向，正输入+1，负输入-1），（R为输入曲线半径）Abs(F)÷2→G◢“T=”：Rtan(G)→T◢（计算切线长）“L=”：GRπ÷90→L◢（计算圆曲线长）“E=”：R÷cos(G)-R→E◢（计算外距，即交点到QZ点的距离）LbI 1←┘?K：180N（K-O）÷(πR)→V：2Rsin(0.5NV)→M←┘（K为输入待求点的桩号）V为带求点与起算点间的弦长说对应的圆心角“XZ=”:A+Mcos(J+0.5V)→Z[1]◢（计算出的中桩X坐标）“YZ=”:B+Msin(J+0.5V)→Z[2]◢（计算出的中桩Y坐标）tan-1（（Z[2]-Y）÷（Z[1]-X））→U←┘If U＜0:Then U+360→U:Else U→U:If End←┘“FW=”?U :U DMS◢（计算出的中桩与交点的方位角）?W:“XL=”：Z[1]-NWcos（J+V+90）→Z[3]◢（W为输入路半宽，计算出的左边桩X坐标）“YL=”：Z[2]-NWsin（J+V+90）→Z[4]◢（计算出的左边桩Y坐标）“XR=”: Z [1]+NWcos（J+V+90）→Z[5]◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）特别注意：1.进行反向计算（大桩号往小桩号计算）时，起算点桩号应设为0；待求桩号与起算点距离多远桩号就为多少；3.起算点方位角应与起算点之前的线形所对应的方位角一致。
卡西欧fx-5800P直线圆曲线坐标正反算程序
[精] fx 5800 直线圆曲线坐标正反算程序(2010-07-01 21:50:11)标签：杂谈直线计算程序0→I:0→J:”X 0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:If A<0: Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd: D+Scos(A) →X:”X=”:X◢E+Ssin(A) →Y:”Y=”:Y◢Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X◢E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y◢Goto 0输入程序时注意区别字母O与数字0程序运行时符号说明X0? Y0?分别输入直线起点的XY坐标值X1? Y1?分别输入直线终点的XY坐标值O? 输入边桩与中桩的距离(左边桩为负值,右边桩为正值),如计算中桩坐标输入0S? 输入所求点到直线起点的距离圆曲线计算程序0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A→A:IfEnd: sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G)→H:C+Hcos(A-KN+GN) →X:”X=”:X◢D+Hsin(A-KN+GN) →Y:”Y=”:Y◢R-0.5√(4R2-H2) →Q:”Q=”:Q◢“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X◢Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y◢Goto 0输入程序时注意区别字母O与数字0程序运行时符号说明X0? Y0?分别输入直线起点的XY坐标值X1? Y1?分别输入直线终点的XY坐标值R? 输入圆曲线半径L:-1 R:1?圆曲线向左转弯时输入-1,向右转弯时输入1ZY? 输入起点桩号LN? 输入所求点桩号(按下exe键后显示中桩坐标)S? 输入所要求的边桩与中桩的距离L:-90 R:90要求左边边桩输入-90,右边边桩输入90(按下exe键后显示边桩坐标)。
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。
打桩程序CASIO-fx4850P(5800P)
10,Y=? 桩中心计算Y坐标, 11,T=? 桩的平面扭角 12,V=? 桩的斜率,直桩为0,斜桩输入设计值 13,H=? 桩的提高量,无提高输入0
第5页 共7页
Casio fx5800P计算器程序 (打桩程序)
计算结果如下: NA: 测站A点瞄准B点置角度0后的拨角值 1,W1=? 2,W2=? 3,W3=? NB: 4,W1=? 5,W2=? 6,W3=? NC: 7,W1=? 8,W2=? 9,W3=? 测站点A的左瞄准角 测站点A的右瞄准角 测站点A的船尾瞄准角 测站点B的左瞄准角 测站点B的右瞄准角 测站点B的船尾瞄准角 测站点C的左瞄准角 测站点C的右瞄准角 测站点C的船尾瞄准角
★
: -> ? S ? ? G
Z
P B B " C E
G
r : : : : :
★
o " " X " "
★
g X < -> Y Y A B C B C
Y g X X L
> : = " = = "
" Y " S " " ?
圆桩定位角[5800P] " S S " : = " ? A : > " : P r : Y -> D : = " ? D : = " ? F :
4
R : + ( i ) > t > :
->
S c W K
->
( o ) + G
->
) + ( S 7 0 l N
R s s W K o K
X
S : o ) ) : : T e G
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。
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、宁可辛苦一阵子，不要苦一辈子。
CASIO fx-5800P线元法坐标正反算程序
CASIO fx-5800P线元法坐标正反算程序说明：本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。
该程序可计算任意线型，包含（直线、圆曲线、缓和曲线、卵形曲线）等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。
主程序名：ABCYT第1步Deg：Fix 3：10→DimZ第2步Lbl 3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂DK＂?S：Prog＂ABCYTSJ＂：If P=0：Then 10^(45)→P：IfEnd：If R=0：Then 10^(45)→R：IfEnd第3步1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：If W=1：Then Goto 1：Else Goto2：IfEnd第4步Lbl 1：＂W＂?Z：＂α＂?N：Abs(S-O)→W：Prog ＂ABCYTZ＂第5步Cls：＂F=＂：Locate 3,1,F°：＂X=＂：Locate 3,2,X：＂Y=＂：Locate 3,3,Y◢第6步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate 3,1,H◢第7步1→W：90→N：Goto 3第8步Lbl 2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S第9步Cls：＂K=＂：Locate 3,1,S：＂S=＂：Locate 3,2,Z◢第10步2→W：Goto 3正算子程序名：ABCYTZ第1步0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L第2步1-L→F：1-K→M第3步U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W×D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X第4步V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W×D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y第5步G+Q×E×W×(C+W×D)→F：F+ N→Z[1]第6步X+Z×cos（Z[1]）→X：Y+Z×sin（Z[1]）→Y反算子程序名：ABCYTF第1步Lbl 2：（S-O）→W：0→Z：Prog ＂ABCYTZ＂：F-90→Z[9]：(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10]第2步If Abs(Z[10])>0.001：Then S+Z[10]→S：Goto 2：Else Goto 1：IfEnd第3步Lbl 1：(Y-J)÷sin(Z[9])→Z第4步Pol(X-I，Y-J)：If Z<0：Then -1×I→Z：Else 1×I→Z：IfEnd数据库名：ABCYTSJ第1步Goto1第2步Lbl 1：If S<7586.707 Or S>13346.96：Then Cls：Locate 2,2,＂PQX＂：Locate 4,3,＂CHAOXIAN＂：Locate 10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl 1：IF S<7946.707：Then 98°56′56″→G：7586.707→o：3378605.445→U：453648.704→V：0→P：4500→R：360→H：1→Q：Return：IfEnd第5步Lbl 1：IF S<11766.03：Then 101°14′26″→G：7946.707→o：3378544.714→U：454003.518→V：4500→P：4500→R：3819.323→H：1→Q：Return：IfEnd第6步Lbl 1：IF S<12126.03：Then 149°52′11″→G：11766.03→o：3376389.890→U：457018.324→V：4500→P：0→R：360→H：1→Q：Return：IfEnd第7步Lbl 1：IF S<13346.96：Then 152°09′41.68″→G：12126.03→o：3376073.846→U：457190.654→V：0→P：0→R：1220.93→H：0→Q：Return：IfEnd第n步……………………………………………………数据输入说明：第1步Goto1第2步Lbl 1：If S<本条线路起点里程S>本条线路止点里程Cls：Locate 2,2,＂PQX＂：Locate 4,3,＂CHAOXIAN＂：Locate 10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl 1：If S<本线元止点里程：Then线元起点切线方位角→G：线元起点桩号→O：线元起点坐标X→U：线元起点坐标Y→V：线元起点半径（直线为0、曲线为半径）→P：线元止点半径（直线为0、曲线为半径）→R：线元长度→H：线元转向（左转为-1、右转为1、直线为0）→Q：Return：IfEnd第n步Lbl 1：每增加一行则为增加一个线元要素。
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”，输入曲线参数，计算曲线要素。
卡西欧fx5800p计算器 坐标正反算程序
(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。
)卡西欧fx5800p计算器坐标正反算程序一、程序功能本程序由 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]:G oto 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 3 LbI 2: Ｘ：Ｙ：Ｘ→I ：Ｙ→J ： Prog ＂Ｂ＂：Ｏ＋Ｗ→Z ：Ｄ→ Ｄ：Ｇ oto 3LbI 3:IF Ｆ＝１ Then Ｘ：Ｙ： Else Ｚ：Ｄ8. 正算子程序 ( Ａ )程序名： A0.→A ：0.→B ：0.→N 0.→K ：0.→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)÷sin( Ｚ［２］) →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 ）程序名： IPr og”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 。
卡西欧fx5800p计算器 坐标正反算程序
(以下程序是专业人士编写，本店铺不对程序负责，仅供您参考使用。
)卡西欧fx5800p计算器坐标正反算程序一、程序功能本程序由 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]:G oto 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 3 LbI 2: Ｘ：Ｙ：Ｘ→I ：Ｙ→J ： Prog ＂Ｂ＂：Ｏ＋Ｗ→Z ：Ｄ→ Ｄ：Ｇ oto 3LbI 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←┘L bl 1:0→D ： Prog " Ａ " ： (J-Y)÷sin( Ｚ［２］) →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 。
CASIOfx-5800P计算线路中边桩坐标的通用程序
肘 廊 ‘ 够 ｃ ・ 疵ｒ Ｒ ｅ ｓ ｏ ｕ ｒ ｃ ｅ ｓ ・ ｌ Ｍ ｅ 凸 ｓ ｉ 軎 ， ｌ ｌ
Ｃ ＡＳ Ｉ Ｏ ｆ ｘ 一 ５ ８ ０ ０ Ｐ计 算线路 中边桩坐标 的通用程序
ＣＡＳ Ｉ Ｏｆ ｘ ． ５ ８ ０ ０ Ｐ Ｃａ ｌ ｃ ｕ ｌ ａ ｔ ｅ ｄ Ｌｉ ｎｅ Ｓ ｉ ｄ ｅ Ｃｏ ｏ ｒ ｄ ｉ ｎ ａ ｔ ｅ ｓ Ｇｅ ｎ ｅ ｒ ａ ｌ Ｐ ｒ ｏ ｇ ｒ ａ ｍ
张冬菊， 彭华
（ 湖南工程职业技术学院 ， 长沙 ４ １ ０ １ ５ １ ）
Ｚ ＨＡ ＮＧＤｏ ｎ ｇ － ｊ ｕ ， Ｐ Ｅ ＮＧ Ｈｕ ａ
（ Ｈｕ ｎ ａ ｎ Ｖｏ ｃ ａ ｔ ｉ ｏ ｎ ａ ｌ ａ ｎ ｄ Ｔ ｅ ｃ ｈ ｎ ｉ ｃ ａ ｌ Ｃ ｏ ｌ ｌ ｅ ｇ ｅ ， Ｃ ｈ ａ ｎ ｇ ｓ ｈ ａ ４ １ ０ １ ５ １ ， Ｃ ｈ ｉ ｎ ａ ）
右边桩坐标为 ： ｛
２ ． ３用 复化 辛普森 公 式对 坐标进 行数 值积 分 ［ １ ］
¨
＋ Ｊ 。 Ｃ Ｏ Ｓ ｍ
，
＋ ｊ 。 ｓ ｉ 溉‘
图 １ 曲线 兀 坐标 系
将积分 区间【 Ｏ ， ｆ ｉ ］ 分 为等分 ， 则 步长为 － ２ ， 则各分点里
程 为
则为
【 中图分类 号】 ｕ ４ ｌ ２ ． ２ ４ 【 文献标志码】 Ａ 【 文章编号】 １ ０ ０ ７ ． ９ ４ ６ ７ （ ２ ０ １ ３ ） １ １ － ０ ０ ９ ７ ． ０ ４
１引言
随着全站仪 的技术 日益更新 ，坐 标放样在 工程 中应用 更
编程 ， 可是这些程 序有局 限性 ， 往往 计算公式 复杂 ， 需要进行 坐标 转换 ， 而且只是针对某个线型 的， 而不能解决所 有的线 型
5800曲线任意里程中边桩坐标正反算(线元法)
曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序一、程序功能及原理1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。
本程序在CASIO fx-5800P计算器运行。
2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。
二、源程序1.主程序(TYQXJS)Deg:fix 3119→DimZ“INPUT(0) Or DATA(Else)”?ILbl 0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?NIf N=1 Or N=5:Then Goto 1Else If N=2 Or N=3 Or N=4:Then Goto 2Else Goto 3IfEnd:IfEndLbl 1:“K(m)=”?SIf S<0:Then Goto 0:IfEnd“JL(m)=”?ZIf Z≠0:Then “ANGLE→R(Deg)=”?M:IfEndIf I=0:Then Prog “DAT1”:Else Prog “DAT2”:IfEndS-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEndProg “SUB-ZS”:Prog “SUB-GC”If Z<0:Then“XL(m)=”:X◢“YL(m)=”:Y◢If N=5:Then Prog “SUB-TW”:IfEndElse If Z>0:Then “XR(m)=”:X◢“YR(m)=”:Y◢If N=5:Then Prog “SUB-TW”:IfEndElse “X(m)=”:X◢“Y(m)=”:Y◢“Hs(m)=”:L◢“FWJ=”: F►DMS◢IfEnd:IfEndGoto 1Lbl 2:“X(m)=”?X:If X<0:Then Goto 0:IfEnd“Y(m)=”?YIf N=3 Or N=4:Then “H(m)=”?→Z[2]:IfEndX→Z[4]:Y→Z[5]:90→MIf I=0:Then Prog “DAT1”G+QEH(C+HD)→F:1→J:U→Z[8J]:V→Z[8J+1]G-M→A:F-M→B:Prog “SUB-ZX1”:Goto BG+M→A:F+M→B:Prog “SUB-ZX1”:Goto B:IfEnd0→J:Lbl A: Isz JZ[8J+3]-M→A:Z[8(J+1)+3]-M→B:Prog “SUB-ZX1”If Z[6]Z[7]<0:Then J→J:Prog“DAT1” :Goto B:IfEndZ[8J+3]+M→A:Z[8(J+1)+3]+M→B:Prog “SUB-ZX1”If Z[6]Z[7]<0:Then J→J:Prog “DAT1” :Goto B:Else Goto A:IfEndLbl B:Prog“SUB-FS”O+W→S:Prog “SUB-GC”“K(m)=”:S◢“Hs(m)=”:L◢“JL(m)=”:Z◢If N=3:Then Prog “WIDE”:IfEndIf N=4:Then Prog “SDFY”:IfEndGoto 2Lbl 3:“TYQXJS→END”2. 正算子程序(SUB-ZS)0.1184634425→A: 0.2393143352→B:0.2844444444→Z[1]:0.0469100770→K:0.2307653449→L:0.5→Z[3]U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Z[1]cos(G+QEZ[3]W(C+Z[3]WD))+Bcos(G+QE(1 -L)W(C+(1-L)WD))+Acos(G+QE(1-K)W(C+(1-K)WD)))→XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Z[1]sin(G+QEZ[3]W(C+Z[3]WD))+Bsin(G+QE(1-L)W(C+(1-L)WD))+Asin(G+QE(1-K)W(C+(1-K)WD)))→YG+QEW(C+WD)+M→FX+Zcos(F)→X:Y+Zsin(F)→YF-M→F:If F<0:Then F+360→F:IfEndReturn3. 反算子程序(SUB-FS)G-M→T:Abs((Y-V)cos(T)-(X-U)sin(T))→W:0→ZLbl C:Prog “SUB-ZS”T+QEW(C+WD)→L:(Z[5]-Y)cos(L)-(Z[4]-X)sin(L)→ZIf Abs（Z）<10-6:Then Goto D:Else W+Z→W：Goto C:IfEndLbl D:0→Z:Prog “SUB-ZS”:(Z[5]-Y)÷cos(F)→Z:Return4．高程计算子程序（SUB-GC）Prog “DAT3”0．5RAbs(0.01(E-D))→TIf E>D:Then 1→C:Else -1→C:IfEndIf S<A:Then -0.01D→W:Else 0.01E→W:IfEndAbs(A-S)→LIf L>T:Then B+WL→L:Else B+WL+C(T-L)2÷2÷R→L:IfEndReturn5. 垂距计算子程序(SUB-ZX1)(Z[5]-Z[8J+1])cos(A)-(Z[4]-Z[8J])sin(A)→Z[6](Z[5]-Z[8(J+1)+1])cos(B)-(Z[4]-Z[8(J+1)])sin(B)→Z[7]Return6.曲线元要素数据库：DAT1(两条线路，可扩充为多条线路)If I=0:Then Goto E: Else If I=2:Then Goto F:IfEnd:IfEndJ=1=>***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:***→Z[13]:***→Z[14]:*** →Z[15]：IfEndJ=2=>***→Z[16]:***→Z[17]:***→Z[18]:***→Z[19]:***→Z[20]:***→Z[21]:***→Z[22]:***→Z[23]:IfEndJ=3=>***→Z[24]***→Z[25]:***→Z[26]:***→Z[27]:***→Z[28]:***→Z[29]:***→Z[30]:***→[31]:IfEnd………………………………………………..Goto HLbl F: J=1=>***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:***→Z[13]:***→Z[14]:*** →Z[15]：IfEndJ=2=>***→Z[16]:***→Z[17]:***→Z[18]:***→Z[19]:***→Z[20]:***→Z[21]:***→Z[22]:***→Z[23]:IfEndJ=3=>***→Z[24]***→Z[25]:***→Z[26]:***→Z[27]:***→Z[28]:***→Z[29]:***→Z[30]:***→[31]:IfEnd(注：如有多个曲线元要素继续添加入数据库DAT1中)Goto GLbl E:“X0=”?U:“Y0=”?V:“S0=”?O:“F0=”?G:“LS=”?H:“R0=”?P:“RN=”?R:“Q=”?Q Lbl G:1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:Return7．隧道放样子程序：SDFY5.5→A:8.5→B:L+1.5→CIf I=1:Then -1→K:Else 1→K:IfEnd 给左右隧道符号赋值1.25K→F:4.25K→L:7.25K→K 给各圆心距路线的偏距赋值Z[2]-C→D 计算测点至圆心的高差D，If D>A:Then Goto 1:Else If D<0:Then Goto 2:IfEnd:IfEndZ-L→E:Abs(E)→E:√(D2+E2)→W:W-A→T: 计算测点至圆心的平距E，实测半径W “R(m)=”:W◢“DR(m)=”:T◢If E≤A:Then D-√(A2-E2)→C:E-√(A2-D2)→L 计算测点水平偏移量L、垂直偏移量C “Dh(m)=”:C◢显示测点垂直偏移量C“DL(m)=”:L◢显示测点水平偏移量LElse E-√(A2-D2)→L“DL(m)=”:L◢IfEnd:ReturnLbl 1Z-L→E:Abs(E)→E:√(D2+E2)→W:W-A→T: 计算测点至圆心的平距E，实测半径W “R(m)=”:W◢“DR(m)=”:T◢If E≤A:Then D-√(A2-E2)→C“Dh(m)=”:C◢IfEnd:ReturnLbl 2:Abs(D)→D:Abs(Z)→Z:Abs(K)→K:Abs(F)→FIf Z>K:Then Z-F→E:Else Z+K→E:IfEnd√(D2+E2)→W:W-B→T“R(m)=”:W◢“Rc(m)=”:T◢If E≤B:Then D-√(B2-E2)→C:E-√(B2-D2)→L 计算测点水平偏移量L、垂直偏移量C “Dh(m)=”:C◢显示测点垂直偏移量C“DL(m)=”:L◢显示测点水平偏移量LElse E-√(B2-D2)→L“DL(m)=”:L◢显示测点水平偏移量LIfEnd:Return8．曲线元要素判断数据库：DAT2(两条线路，可扩充为多条线路)If I=2:Then Goto A:IfEndIf S<第一线元终点里程:Then 1→J:Prog “DAT1”:ReturnElse If S<第二线元终点里程:Then 2→J:Prog “DAT1”:ReturnElse If S<第三线元终点里程:Then 3→J:Prog “DAT1”:ReturnElse If S<第四线元终点里程:Then 4→J:Prog “DAT1”:ReturnIfEnd:IfEnd:IfEnd:IfEndIf S≥第四线元起点里程And S<第五线元终点里程：Then 5→J：Prog “DAT1”：Return .................................Else If S<第n线元里程：Then n→J：Prog “DAT1”：ReturnIfEnd:IfEnd:IfEnd:IfEndLbl AIf S<第一线元终点里程:Then 1→J:Prog “DAT1”:ReturnElse If S<第二线元终点里程:Then 2→J:Prog “DAT1”:ReturnElse If S<第三线元终点里程:Then 3→J:Prog “DAT1”:ReturnElse If S<第四线元终点里程:Then 4→J:Prog “DAT1”:ReturnIfEnd:IfEnd:IfEnd:IfEndIf S≥第四线元起点里程And S<第五线元终点里程：Then 5→J：Prog “DAT1”：Return Else If S<第n线元里程：Then n→J：Prog “DAT1”：ReturnIfEnd:IfEnd:IfEnd:IfEnd .................................9．高程数据库子程序：DAT3（两条线路，可扩充为多条线路）If I=0:Then Goto A:Else If I=2:Then Goto B:IfEnd:IfEndIf S≤46500:Then 46150→A:361.26→B:40000→R:-0.3→D:-1.2→E:ReturnElse If S≤47200:Then 46800→A:353.46→B:20000→R:-1.2→D:1→E:ReturnElse If S≤48400:Then 47500→A:360.46→B:20000→R:1→D:-1.6→E:ReturnElse If S≤49600:Then 48700→A:341.26→B:10000→R:-1.6→D:2.45→E:Return IfEnd:IfEnd:IfEnd:IfEndIf S>49600 And S≤50300:Then 49840→A:369.19→B:100000→R:2.45→D:2.8→E:Return Else If I=2:Then49800→A:368.21→B:150000→R:2.45→D:2.7→E:ReturnIfEnd:IfEndLbl A:“C PEG(m)=”?→A“C H(m)=”?→B“R(m)=”?→R“I1=”?→D“I2=”?→EReturnLbl B49800→A:368.21→B:150000→K:2.45→D:2.7→E:Return10.填方路基宽度检查子程序（WIDE）“WIDTH CHECK”◢“H→MID(m)=”?→A 起坡点与中桩高差常数“DIST→MID(m)=”?→B 起坡点与中桩距离常数“i=”?→C 路基填筑坡度CAbs(Z[2]-L+A)→DAbs(Z)-B-D→E“DL(m)=”:E◢显示实有宽度与应有宽度之差值Return11.坡口坡脚线坐标计算子程序:SUB-TW“TIANWA LINE”◢“DIST→MID(m)=”?A 起坡点与中桩距离常数“H→MID(m)=”?B 起坡点与中桩高差常数“T(1) Or W(Else)=”?C 填方边坡为1，其它为挖方边坡“i=”?E 填方或挖方边坡坡度Abs(Z)-A→D: DE→KIf C=1:Then L-B-K→W:Else L+B+K→W:IfEnd“JS H(m)=”:W◢计算出应有高程“SC H(m)=”？→D 输入实测高程D-W→T“GC(m)=”:T◢显示实测高程与计算高程的差异Return三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
单交点单圆曲线中边桩坐标计算程序(PM4-3)(2) 主程序——PM4-3，占用内存1070字节。
"SINGLE CIRCLE CURVE"显示程序标题1"METHOD OF COORDINATE PM4-3"显示坐标法标题2Deg:ClrStat:FreqOn:Fix 3基本设置14DimZ定义额外变量"JD MILEAGE PEG(m)="?Z输入以m为单位的交点桩号"JD X(m)="?U输入交点x坐标"JD Y(m)="?V输入交点y坐标"ZD X(m)="?M输入转点x坐标"ZD Y(m)="?N输入转点y坐标Pol(U-M,V-N):Cls计算ZD JD的边长与方位角If J<0:Then J+360A:Else J A:IfEnd判断ZD JD的方位角A"TURNING ANGLE -L,+R(Deg)="?Q输入交点路线转角,左偏为负,右偏为正If Q<0:Then -1Z[10]:Else 1Z[10]:IfEnd确定转角数值Q Z[4]:Abs(Q)D保存转角及符号"R(m)="?R输入圆曲线半径Rtan(0.5D)T计算切线长RDπ÷180L计算曲线长R(cos(0.5D)-1-1)E计算外距2T-L J计算切曲差"T(m)=":T显示切线长"L(m)=":L显示曲线长"E(m)=":E显示外距"J(m)=":J显示切曲差Z-T Z[1]:Z[1]+0.5L Z[2]:Z[2]+0.5L Z[3]计算ZY，QZ，YZ点桩号Z[1]List X[1]存储ZY点的桩号到统计串列U-Tcos(A)List Y[1]:V-Tsin(A)List Freq[1]计算并存储ZY点的测量坐标到统计串列"ZY PEG(m)=":List X[1]显示ZY点桩号及坐标"ZY-X(m)=":List Y[1]"ZY-Y(m)=":List Freq[1]"WL(m),0 NO="?B输入路面左半幅宽度If B>0:Then List Y[1]+Bcos(A-90)Z[11]计算并显示ZY点的左边桩坐标List Freq[1]+Bsin(A-90)Z[12]"XL(m)=":Z[11]"YL(m)=":Z[12]IfEnd"WR(m),0 NO="?C输入路面右半幅宽度If C>0:Then List Y[1]+Ccos(A+90)Z[13]计算并显示ZY点的右边桩坐标List Freq[1]+Csin(A+90)Z[14]"XR(m)=":Z[13]"YR(m)=":Z[14]IfEndZ[2]List X[2]:2K存储ZY点的桩号到统计串列Prog "SUB4-31"调子程序计算并显示QZ点坐标Z[3]List X[3]:3K存储YZ点桩号Prog "SUB4-31"调子程序计算并显示YZ点坐标If R<30:Then 5I:Else If R<60:Then 10I:Else 20I:IfEnd:IfEnd确定整桩间距"INT DIST(m)="?O输入整桩间距If O>0:Then O I:IfEnd输入的整桩间距大于零时，使用输入值"ONLY CALC +PEG(1)"?G输入1为只计算加桩点的坐标If G=1:Then Goto 1:IfEndK+1K计数变量计数Int(Z[1]÷I)I+I List X[K]计算并存储从ZY点开始的第一个整桩号Prog "SUB4-31"调子程序计算并显示坐标Do计算ZY点至YZ点K+1K计数变量计数List X[K-1]+I List X[K]计算并存储整桩号Prog "SUB4-31"调子程序计算并显示坐标LpWhile List X[K]+I<Z[3]没计算到YZ点时继续循环Lbl 1Do"+PEG(m)="?F输入加桩号If F List X[1]:Then Break:IfEnd加桩号小于ZH点桩号时结束程序运行If F List X[3]:Then Break:IfEnd加桩号大于HZ点桩号时结束程序运行K+1K计数变量计数F List X[K]存储加桩号到统计串列Prog "SUB4-31"调子程序计算并显示偏角弦长LpWhile F>0没有计算到YZ点时继续循环"PM4-3END"(3) 子程序——SUB4-31，占用内存498字节。
根据存储在List X[K]中的逐桩点桩号，计算中、左、右桩点坐标。
List X[K]-Z[1]Z[5]计算ZY点至逐桩点的弧长90Z[5]÷(Rπ)Z[6]计算ZY点至逐桩点的弦切角2Rsin(Z[6])Z[7]计算ZY点至逐桩点的弦长A+Z[10]Z[6]Z[8]计算ZY点至逐桩点的方位角A+2Z[10]Z[6]Z[9]计算j点切线方位角List Y[1]+Z[7]cos(Z[8])List Y[K]存储X坐标到统计串列List Freq[1]+Z[7]sin(Z[8])List Freq[K]存储Y坐标到统计串列If List X[K]=Z[2]:Then "QZ PEG(m)="判断桩号提示字符Else If List X[K]=Z[3]:Then "YZ PEG(m)="Else "INT PEG(m)=":IfEnd:IfEndList X[K]显示桩号"X(m)=":List Y[K]"Y(m)=":List Freq[K]"WL(m),0 NO="?BIf B>0:Then List Y[K]+Bcos(Z[9]-90)Z[11]计算左边桩坐标List Freq[K]+Bsin(Z[9]-90)Z[12]"XL(m)=":Z[11]"YL(m)=":Z[12]IfEnd"WR(m),0 NO="?CIf C>0:Then List Y[K]+Ccos(Z[9]+90)Z[13]计算右边桩坐标List Freq[K]+Csin(Z[9]+90)Z[14]"XR(m)=":Z[13]"YR(m)=":Z[14]Return(4) 程序说明1) 程序能计算单交点单圆曲线的中边桩坐标，其中三个主点ZY ，QZ ，YZ 的桩号顺序存储在统计串列List X[1]~List X[3]中，其中桩的x 坐标顺序存储在统计串列List Y[1]~List Y[3]中，y 坐标顺序存储在统计串列List Freq[1]~List Freq[3]中，其后紧接着存储整桩点及加桩点的桩号及其x ，y 坐标。
2) 每计算并显示完一个中桩点的坐标后，屏幕提示输入该中桩点的左、右幅半宽如下： WL(m),0 NO=? WR(m),0 NO=?只有当用户输入的左幅半宽>0时，程序才计算并显示左边桩点坐标；用户输入的右幅半宽>0时，程序才计算并显示右边桩点坐标。
程序计算出的左、右边桩点坐标只通过屏幕显示，没有存储到统计串列中，所以，运行程序时，请用户及时抄录计算程序结果。
3) 程序不能计算路面加宽的情形，如需要计算路面加宽的渐变值，请先使用程序PM10-3计算，求出逐桩点的加宽值后，在执行本程序。
4) 程序显示完计算标题后，顺序提示用户输入的已知数据分别为：交点桩号及其x ，y 坐标、转点桩号及其x ，y 坐标，路线转角(左转输入负数，右转输入正数)与圆曲线半径。
完成已知数据输入后，屏幕先显示曲线要素：切线长、曲线长、外距、切曲差及ZY ，QZ ，YZ 三个主点的桩号；然后按桩号大小顺序显示主点与逐桩点的桩号及其x ，y 坐标。
表4-3为左转角坐标计算案例，路面左半幅宽==R L w w 5m 。
如要计算超高加宽缓和段的加宽值，需要先执行程序PM10-3计算加宽值。
表4-3 使用程序PM4-3进行单交点单圆曲线左转角中边桩坐标计算案例序 桩号 x (m)y (m) L x (m) L y (m) R y (m) R y (m) 已知数据与要素 1 ZY K62+24.764 7639.376 3185.731 7644.3123186.5287634.4393184.934 JD=K62+118.742 QZ K62+117.656 7633.146 3278.281 7638.1443278.1537628.1483278.410 △=-21°17′22″3 YZ K62+210.549 7644.119 3370.389 7649.0083369.3397639.2313371.438 R=500m 4 40 7637.176 3200.808 7642.1343201.4547632.2183200.161 T=93.976m 5 60 7634.988 3220.686 7639.9683221.1347630.0083220.239 L=185.785m 6 80 7633.597 3240.636 7638.5913240.8857628.6033240.388 E=8.755m 7 100 7633.004 3260.626 7638.0043260.6757628.0053260.578 J=2.167m 8 120 7633.212 3280.624 7638.2093280.4727628.2143280.776 ZY=62024.764m 9 140 7634.219 3300.597 7639.2063300.2467629.2313300.949 QZ=62117.656m 10 160 7636.024 3320.514 7640.9933319.9647631.0543321.065 YZ=62210.549m11 180 7638.623 3340.343 7643.5673339.5947633.6803341.092JD x =7624.39412 200 7642.014 3360.052 7646.9243359.1067637.1053360.999JD y =3278.50613 70 7634.193 3230.654 7639.1813231.0027629.2053230.307ZD x =7643.25114190 7640.220 3350.215 7645.1483349.3677635.2933351.063ZD y =3161.732执行程序PM4-3，计算表4-3数据的屏幕提示与用户操作过程如下：屏幕提示 按键说明SINGLE CIRCLE CURVE 显示程序标题1METHOD OF COORDINATE PM4-3 显示程序标题2JD MILEAGE PEG(m)=? 62118.74输入以m 为单位的交点桩号 JD X(m)=? 7624.394输入交点的x 坐标 JD Y(m)=? 3278.506输入交点的y 坐标 ZD X(m)=? 7643.251输入转点的x 坐标 ZD Y(m)=? 3161.732输入转点的y 坐标 TURNING ANGLE -L,+R(Deg)=? -211722输入交点转角R(m)? 500 输入圆曲线半径 T(m)=93.976显示切线长L(m)=185.785 显示圆曲线长E(m)=8.755 显示圆曲线外距J(m)=2.167 显示切曲差ZY PEG(m)=62024.764 显示ZY点桩号ZY-X(m)=7639.376 显示ZY点的中桩坐标ZY-Y(m)=3185.731WL(m),0 NO=? 5输入左半幅路宽XL(m)=7644.312 显示ZY点的左边桩坐标YL(m)=3186.528WR(m),0 NO=? 5输入右半幅路宽XR(m)=7634.439 显示ZY点的右边桩坐标YR(m)=3184.934QZ PEG(m)=62117.656 显示QZ点桩号X(m)=7633.146 显示QZ点的中桩坐标Y(m)=3278.281WL(m),0 NO=?5按键使用原值XL(m)=7638.144 显示QZ点的左边桩坐标YL(m)=3278.153WR(m),0 NO=?5按键使用原值XR(m)=7628.148 显示QZ点的右边桩坐标YR(m)=3278.410YZ PEG(m)=62210.549 显示YZ点桩号X(m)=7644.119 显示YZ点的中桩坐标Y(m)=3370.389WL(m),0 NO=?5按键使用原值XL(m)=7649.008 显示YZ点的左边桩坐标YL(m)=3369.339WR(m),0 NO=?5按键使用原值XR(m)=7639.231 显示YZ点的右边桩坐标YR(m)=3371.438INT DIST(m)=? 0输入整桩间距0，程序自动选择ONLY CALC +PEG(1)? 0输入0为先计算整桩点INT PEG(m)=62040 显示ZY点开始的第1个整桩号X(m)=7637.176 显示第1个整桩号的中桩坐标Y(m)=3200.808WL(m),0 NO=?5按键使用原值XL(m)=7649.008 显示第1个整桩号的左边桩坐标YL(m)=3369.339WR(m),0 NO=?5按键使用原值XR(m)=7639.231 显示第1个整桩号的右边桩坐标YR(m)=3371.438………………INT PEG(m)=62200 显示ZY点开始的第9个整桩号X(m)=7642.014 显示第9个整桩号的中桩坐标Y(m)=3360.052WL(m),0 NO=?5按键使用原值XL(m)=7646.924 显示第9个整桩号的左边桩坐标YL(m)=3359.106WR(m),0 NO=?5按键使用原值XR(m)=7637.105 显示第9个整桩号的右边桩坐标YR(m)=3360.999+PEG(m)? 62070输入第1个加桩号X(m)=7634.193 显示第1个加桩号的中桩坐标Y(m)=3230.654WL(m),0 NO=?5按键使用原值XL(m)=7639.181 显示第1个加桩的左边桩坐标YL(m)=3231.002WR(m),0 NO=?5按键使用原值XR(m)=7629.205 显示第1个加桩的右边桩坐标YR(m)=3230.307+PEG(m)? 62190输入第2个加桩号X(m)=7640.220 显示第2个加桩号的坐标Y(m)=3350.215WL(m),0 NO=?5按键使用原值XL(m)=7645.148 显示第2个加桩的左边桩坐标YL(m)=3349.367WR(m),0 NO=?5按键使用原值XR(m)=7635.293 显示第2个加桩的右边桩坐标YR(m)=3351.063+PEG(m)? -2输入负数结束程序PM4-3END 程序运行结束显示完成计算后，切线长、曲线长、外距、切曲差分别存储在字母变量T，L，E，J中，主点与逐桩点的桩号及其中桩坐标分别存储在List X，List Y，List Freq中，左、右边桩坐标没有保存，可按(REG)键进入双变量统计与回归模式查看中桩坐标。