一般圆曲线计算程序(5800P)
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、◢为显示指令。
5800P曲线元计算word精品文档19页
FX-5800P线元计算F[SIPSON]（主程序）Lbl 0（全局变量初始化）“F0:KZ=>XY”:“F1:XY=>KZ”?→MCls:90→C:“ANG=”?CIf M=0:Then Goto 1:ElseIf M=1:Then Goto 2:Else Goto 0:IfEnd: IfEnd Lbl 1（正算模式）Norm 1:DegCls:“Kp=”?SCls:“Zp=”?ZProg”DATP[XX]”Prog”TURN[YS]”Prog”HHB1”Cls:Fix 3“X[K]=”:Locate 6,2,XLocate 1,3,X “Y[K]=”:Locate 6,4,Y◄Goto 1Lbl 2（反算模式）Norm 1:Deg“Xp=”?N: Cls:“Yp=”?E线路起点桩号如10660→SProg”DATP[XX]”Prog”TURN[YS]”Prog”HHB2”Cls:Fix 3“Kp=”:Locate 6,2,SLocate 1,3,“Zp=”:Locate 6,4,Z◄Goto 2HHB1（四等分复化辛卜生坐标正算子程序）Lbl 0（循环计算各节点值）For 1→M To 8G+180Q(M(S-O)÷(8P)+M^2(P-R)(S-O)^2÷(128PR(H-O)))÷π→ListX[M]Next List X [8]→T360(Frac((T+360)÷360)→TLbl 1（中边桩坐标计算）U+(S-O)(Cos(G)+4∑(Cos(ListX[2M+1]),M,0,3)+2∑(Cos(ListX[2M+2]),M,0,3)-Cos(Lis t X[8]))÷24→XV+(S-O)(Sin(G)+4∑(Sin(ListX[2M+1]),M,0,3)+2∑(Sin(ListX[2M+2]),M,0,3)-Sin(List X[8]))÷24→YX+ZCos(T+C)→XY+ZSin(T+C)→YReturnHHB2（四等分复化辛卜生坐标反算子程序）Lbl 0（反算数据初始化）G-(180-C)→FO+Abs((E-V)Cos(F)-(N-U)Sin(F))→S0→Z(置零)Lbl 1（反算桩号偏距）Prog”HHB1”180(T-(180-C))÷π→L(E-Y)Cos(L)-(N-X)Sin(L))→ZIf Z＜10^(-5):Then Goto 2:ElseS+Z→S:Prog”DATP[XX]”:Prog”TURN[YS]”:Goto 1IfEndLbl 2（计算偏距）(N-Y)÷Sin(T+C)→ZReturnDATP[XX]（平面数据库子程序）If S≤K ei:Then [ [ K si,X Si, Y Si , T Si , R Si ,R ei,K ei,Q i] ]→Mat A :Return:IfEndIf S≤K e i+1:Then [ [ K si+1,X si+1, Y si+1 , T si+1, R si+1 ,R ei+1,K ei+1,Q i+1] ]→Mat A Retur n:IfEnd.............TURN[YS]（将存在矩阵中的线元数据赋给正算标准变量）Mat A[1,1]→OMat A[1,2]→UMat A[1,3]→VMat A[1,4]→GMat A[1,5]→PMat A[1,6]→RMat A[1,7]→HMat A[1,8]→QReturn关于程序的一些说明：1.程序的功能：实现线路全线任意角度正反算，反算无需输入近似桩号。
CASIO 5800 QXZB 曲线放样程序
[正确] CASIO fx-5800P QXZB曲线坐标计算CASIO fx-5800P QXZB程序可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：该程序适用于计算器 CASIO fx-5800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。
1、DK(JD)？输入交点桩号2、X(JD)？输入交点坐标X3、Y(JD)？输入交点坐标Y4、T1？输入第一切线长(如果只有一条切线两者都输入一致)5、T2？输入第二切线长(如果只有一条切线两者都输入一致)6、FWJ？输入直线方位角(ZH→JD)7、A？输入转角：左转为负，右转为正8、R？输入圆曲线半径9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)10、LY？输入圆曲线长(L-LS1-LS2)11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)12、X(ZJD)？输入置镜点坐标X13、Y(ZJD)？输入置镜点坐标Y14、JSDK？输入前视点里程15、PL？输入偏距16、PA？输入偏角程序名称：QXZB＂DK(JD)＂?R：＂X(JD)＂?S：＂Y(JD)＂?T：＂T1＂?U：＂T2＂?V：＂FWJ＂?F：＂A＂?W：＂R＂?H：＂LS1＂?I：＂LY＂?J：＂LS2＂?K：＂X(ZJD)＂?D：＂Y(ZJD)＂?EF+W→GIf W>0： Then -1→L ：IfEnd(式中为数字0…括号内不输入)If W<0： Then 1→L ：IfEnd (式中为数字0…括号内不输入)If W=0： Then 0→L ：IfEnd (式中为数字0…括号内不输入)R-U→AS-Ucos( F) →BT-Usin( F) →CS+Vcos( G) →Z[1]T+Vsin( G) →Z[2]180÷π→O(式中为字母0…括号内不输入)Lb1 A＂JSDK＂?MM-A→PIf M<A： Then Goto A ：IfEndIf M>(A+I+J+K)： Then Goto A ：IfEnd＂PL＂?NIf M>(A+I+J) ：Then Goto D：IfEndIf M>(A+I) ：Then Goto C：IfEndLb1 BB+(P-(P^(5)÷40÷H^2÷I^2))cos( F)+(P^(3)÷6÷H÷I-P^(7)÷336÷H^(3)÷I^(3))Lsin( F)→XC+(P-(P^(5)÷40÷H^2÷I^2))sin( F)-(P^(3)÷6÷H÷I-P^(7)÷336÷H^(3)÷I^(3))Lcos( F)→Y“X=”：X+Ncos(F-(P^2÷2÷H÷I)OL+Z) →X ◢(式中OL为字母O…括号内不输入)“Y=”：Y+Nsin(F-(P^2÷2÷H÷I)OL+Z) →Y ◢(式中OL为字母O…括号内不输入)Prog＂ZBFS＂(此处为调用直线程序…括号内不输入)Goto ALb1 CB+(Hsin(((P-I)÷H+I÷2÷H)O)+(I÷2-I^(3)÷240÷H^2))cos(F)-(H(1-cos(((P-I)÷H+I÷2÷H)O))+I^2÷24÷H)(-1)Lsin( F)→X(中间O为字母O)C+(Hsin(((P-I)÷H+I÷2÷H)O)+(I÷2-I^(3)÷240÷H^2))sin(F)+(H(1-cos(((P-I)÷H+I÷2÷H)O))+I^2÷24÷H)(-1)Lcos( F)→Y(式中为字母0…括号内不输入)“X=”：X+Ncos(F-((P-I)÷H+I÷2÷H)OL+Z) →X ◢(式中OL为字母O…括号内不输入)“Y=”：Y+Nsin(F-((P-I)÷H+I÷2÷H)OL+Z) →Y ◢(式中OL为字母O…括号内不输入)Prog ＂ZBFS＂(此处为调用直线程序…括号内不输入)Goto ALb1 D(A+I+J+K-M) →QZ[1]-(Q-Q^(5)÷40÷H^2÷K^2)cos( G)+(Q^(3)÷6÷H÷K-Q^(7)÷336÷H^(3)÷K^(3))Lsin( G)→XZ[2]-(Q-Q^(5)÷40÷H^2÷K^2)sin( G)+(Q^(3)÷6÷H÷K-Q^(7)÷336÷H^(3)÷K^(3))Lcos( G)→Y “X=”：X+Ncos(F-(I÷2÷H+J÷H+K÷2÷H-Q^2÷2÷H÷K)OL+Z) →X ◢(OL为字母O…括号内不输入) “Y=”：Y+Nsin(F-(I÷2÷H+J÷H+K÷2÷H-Q^2÷2÷H÷K)OL+Z) →Y ◢(OL为字母O…括号内不输入) Prog＂ZBFS＂(调用直线程序…括号内不输入)Goto A--------------------------------------------------------------------------------说明：本程序需要扩展变量，方法：20→DimZ附件：本程序附曲线要素坐标计算核对表。
5800直线、圆曲线缓和曲线、坐标计算程序
5800直线、圆曲线缓和曲线、坐标计算CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?JX+ICos(J)→U:Y+ISin(J)→V＂X=″:U （待求点的X坐标）＂Y=″:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl 0＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?VPol(U-X,V-Y):J<0 J+360→J＂I=″:I＂J=″:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1＂DQHAO=″?LL<G Or L＞C GOTO 2＂PY=″?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls＂X=″:X+I+KCos(D+E+90) →A＂Y=″:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o＂FWJ=″:o DMSGoto 1Lbl 2＂END″说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量4、竖曲线＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S＂T″:SJ-T→XJ＋T→YLbl 0＂DQ=″?LIf L<X:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1＂END″说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。
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曲线正算万能程序
fx-5800P曲线正算万能程序主程序文件名：QXZS-WNLbl 1:“QDX”？A：“QDY”？B：“QDLC”？G：“QDFWJ”？Q：“QDR”？R：“ZDR”？O：“ZDLC”？ELbl 2: ?L:“JJ°”?J:?K :Prog“ZO1ZS”Lbl 3:“CFJS”？Z：If Z=1：Then Goto 2 ：Else X→A:Y→B:W→Q:E→G:O→R:Goto 1：Ifend说明：输入:“QDX”？、“QDY”？起点坐标“QDLC”？起点里程“QDFWJ”？Q起点切线方位角“QDR”？起点半径，左转弯输入“-1÷R”，右转弯输入“1÷R”,直线输入0“ZDR”？终点半径，左转弯输入“-1÷R”，右转弯输入“1÷R”,直线输入0“ZDLC”？终点里程L？待求点里程“JJ°”？与待求点里程中线的切线方向的交角0~180,一般为正交90“K”？距中线距离，右正左负，计算中线输入0“CFJS”？输入1重复该段计算，输入其他重新输入要素计算显示：CXFWJ=待求点切线方位角X= 、Y=待求点坐标子程序文件名：ZO1ZS6→N:(L-G)÷N→H:(O-R)÷(E-G)→U:NUH+R→P:90H÷л→S:“CXFWJ=”:Q+(P+R)×N×S→W:If W﹥36Ø:Then W°-36Ø°→W◢Else W°→W◢If End1→TA+H÷6×(cos(Q)+cos(W)+4×∑(cos(Q+((T+Ø.5)HU+2R)×(T+Ø.5)S),T,Ø,(N-1))+2×∑(cos(Q+(UHT+2R)TS),T,1,(N-1)))+K cos(W+J) →XB+H÷6×(sin(Q)+sin(W)+4×∑(sin(Q+((T+Ø.5)HU+2R)×(T+Ø.5)S),T,Ø,(N-1))+2×∑(sin(Q+(UHT+2R)TS),T,1,(N-1)))+K sin(W+J)→Y“X=”: X◢“Y=”: Y◢文件名：根据工程名称自己设定Lbl Ø:？L:“JJ°”?J:?KLbl 1:If L≤终点里程：Then起点X坐标→A:起点X坐标→B:起点里程→G:起点方位角→Q:1÷起点半径→R：1÷终点半径→O:终点里程→E: Prog“ZØ1ZS”:Else Goto 2：Ifend:Goto ØLbl 2:······说明：单项工程全线贯通编程，按设计图纸的平曲线要素，按直线、圆曲线、缓和曲线分段输入。
CASIO5800程序编辑说明
CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。
CASIO fx5800P实用程序-圆曲线放样
3．单圆曲线(YQX)“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=”[1]+NWcos（J+V+90）→Z[5]：Z◢（计算出的右边桩X坐标）“YR=”：Z[2]+NWsin（J+V+90）→Z[6]◢（计算出的右边桩Y坐标）“OK”？S：If S=1：Then Goto 1：Else“STOP”:Stop（S输入1返回继续计算下一点，输入其他值退出程序）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一般圆曲线计算程序(5800P)
（五）圆曲线坐标计算程序(xx-03-2519:27:05)转载▼标签：杂谈
五、圆曲线坐标计算程序：1、Deg:Fix
32、Lbl 0:3、“K0=”?K:?X:?Y:?A:?R4、“L=-
1,R=+1”：?G5、“ZS=0，FS≠0”：?S6、S≠0 =＞Goto
17、“Ki”?Z8、90(Z-K)（πR）→B9、2R sin B→D
10、“Xi=”:X+Dcos (A+GB)→P◢
11、“Yi=”:Y+Dsin (A+GB)→Q◢
12、A+180G(Z-K)（πR）→O
13、“ZBJ”?E
14、“XiL=”:P+Ecos(O-90)◢
15、“YiL=”:Q+Esin(O-90)◢
16、“YBJ”?F
17、“XiR=”:P+Fcos(O+90)◢
18、“YiR=”:Q+Fsin(O+90)◢
19、 Goto 0
20、 Lbl1
21、
“XC”?U:“YC”?V22．X+Rcos(A+90G)→M23．Y+Rsin(A+90G)→N
24、Pol(U-M,V-N)→H
25、J＜0 =＞J+360→J
26、“PJ=”:R-H→L◢
27、“XCCZ=”:M+Rcos(J)→T◢
28、“YCCZ=”:N+Rsin(J)→W◢29 、Pol(T-X,W-Y)→Z
30、“CZZH=”: K+sin-1(Z2R)πR90◢
31、 Goto 0说明：1、设置小数保留三位。
2、程序03、赋值起点桩号K0，赋值起点坐标X、Y，赋值半径R,赋值起点走向方位角A。
4、赋值曲线转向，左转为-1，右转为+1。
5、选择正算S=0，或反算S≠0、6、如果S≠0，进入反算程序。
7、正算程序：输入所求桩号Ki。
8、计算弦切角B。
9、计算弦长D。
10、计算中桩坐标Xi并显示。
11、计算中桩坐标Yi并显示。
12、计算i点走向方位角O。
13、输入左边桩距中桩的距离E。
14、计算左边桩坐标XiL并显示。
15、计算左边桩坐标YiL并显示。
16、输入右边桩距中桩的距离F。
17、计算右边桩坐标XiR并显示。
18、计算右边桩坐标YiR并显示。
19、到程序0。
20、反算程序1。
21、输入测量坐标X
C、YC。
22、计算圆心X坐标M。
23、计算圆心Y坐标N。
24、计算圆心与测点距离H。
25、计算圆心到测点的走向方位角。
26、计算偏距PJ并显示，正值说明测点在圆内，负值说明测点在圆外。
27、计算垂足坐标XCCZ并显示
28、计算垂足坐标YCCZ并显示。
29、计算垂足到起点弦长Z。
30、计算垂足桩号CZZH并显示
31、到程序0。