一般圆曲线计算程序(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返回继续计算下一点，输入其他值退出程序）。

fx-5800P平曲线超高、加宽计算程序(实用!!!)

5800平曲线超高、加宽计算程序5800CG JK JSLbI 0:Cls:“Z H”?C:“H Z”?E:“L B K”?A:“H P”?B:“Z-,Y+”?Z:“L S”?G:“C G”?P:“J K”?X←∣P+B→O: 0.04G÷O→N:Goto 1←∣LbI 1:Cls:D o：“C D，<0=﹥R e t u r n!”?S:I f S<0:T h e n G o t o0:I f E n d←∣S＜C=﹥Goto5←∣S>E=﹥Goto5←∣S＞C+G=﹥Goto2←∣N+C→H:(S-C)/G→L:L O-B→I:L X+A→J←∣I f S＜H:T h e n-B J→D:A I→F:E l s e-I J→D:A I→F:IfEnd←∣Goto4←∣LbI 2:S＞E-G=﹥Goto3←∣X+A→J:-P(A+X)→D:A P→F: Goto4←∣LbI 3:E-N→K:(E-S)/G→L:(4L3-3L4)X+A→J:L O-B→I←∣I f S＜K:T h e n-I J→D:A I→F:E l s e-B J→D:A I→F:IfEnd←∣Goto4←∣LbI 4:If:Z＜0: J→H:A→K:D→L:F→M:Goto6:IfEnd←∣If Z≥0:T h e n A→H:J→K:F→L:D→M:Goto6:IfEnd←∣LbI 5:A→H:A→K:-BA→L:-BA→M:Goto6←∣Lbl 6:C l s←∣“Z K=”:L o c a t e4,1,H←∣“Y K=”:L o c a t e4,2,K←∣“Z-H=”:L o c a t e5,3,L←∣“Y-H=”:L o c a t e5,4,M▲Goto1←∣Lbl 0:C l s:“R e t u r n”：S t o p←∣说明：该程序适用于绕中轴旋转的一、二级公路，在三、四级公路上，有的设计也采用Ⅰ类加宽（本程序），有的则采用Ⅱ类加宽，只需将Lbi3中的=(4L3-3L4)X+A→J 改为L X+A→J即可。

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注：◢为输出指令，只要在后面加上，即把前面的结果输出在屏幕上。

卡西欧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计算器公式

]一、曲线程序5800“Q”?Q:“W”?W:“K”?K:“R”?R:“F”?F:“N”?N:“V”?V:“G”?G◢“M=”:V÷2-V∧(3) ÷(240R2) →M◢“P=”:V2÷(24R)-V∧(4) ÷(2688R∧(3)) →P◢“L=”: ΠRN÷180+V→L◢“T=”:（R+P）tan(N÷2)+M→T◢“A=”:Q-T→A◢“B=”:A+V→B◢“D=”:A+L→D◢“C=”:D-V→C◢Rec(T,F+180)回车键“Z[1]= ”:W+I→Z[1] ◢“Z[2]= ”:K+J→Z[2] ◢Rec(T,F+GN) 回车键“Z[3]= ”:W+I→Z[3] ◢“Z[4]= ”:K+J→Z[4] ◢Lbl 零回车键“S”?S:“H”?H:“E”?E 回车键S÷(Abs(S+10×10-9))→U:Abs(S)→S回车键If H＜A:Then Goto1:Else If H＜B:Then Goto 2：Else If H ＜C:Then Goto 3: Else If H＜D:Then Goto 4: Else Goto 5:If End If End If End If End If End回车键Rec(Q-H,F+180)回车键W+I→X:K+J→Y回车键Rec(S,F+180-(180-E)U)回车键X+I→X◢Y+J→Y◢SU→S回车键Goto 零回车键Lbl 2回车键H-A→Z◢90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3)+ Z∧(11)÷42240 R∧(5)V∧(5)→Z回Lbl 6回车键Rec(X,F) 回车键Z[1]+I→X:Z[2]+J→Y回车键Rec(Z,F+90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+OG+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 3回车键H-A-V→Z回车键180V÷(2RΠ)→T回车键180Z÷(RΠ)+T→O回车键“X=”:Rsin(o)+M→X回车键R(1-cos(O))+P→Z回车键Goto 6 回车键Lbl 4回车键D-H→Z回车键90Z2÷(ΠRV)→O回车键“X=”:Z-Z∧(5)÷(40R2V2)+ Z∧(9)÷(3456R∧(4)V∧(4))→X回车键Z∧(3)÷(6RV)- Z∧(7)÷(336R∧(3)V∧(3))+ Z∧(11)÷(42240 R∧(5)V∧(5))→Z回车键Rec(X,F+GN+180) 回车键Z[3]+I→X:Z[4]+J→Y回车键Rec(Z,F+GN+180-90G) 回车键X+I→X:Y+J→Y回车键Rec(S,F+GN+180-OG-(180-E)U) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零回车键Lbl 5回车键Rec(H-D+T，F+GN) 回车键W+I→X:K+J→Y回车键Rec(S，F+GN+EU) 回车键“X=”:X+I→X◢“Y=”:Y+J→Y◢SU→S回车键Goto 零Q说明：1、Q?交点桩号列37+549、输37549，W?交点X坐标，K?交点Y坐标，R半径，F？方位角，N转角值，V?缓和曲线，G?左右转角列-1左、1右，S?左右边桩距离左负右正，H?所求点桩号，E?公路角度。

5800P计算器程序及使用说明 (1)

1．公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛QQ：25425579一、线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路。

一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线。

在特殊的情况下（公路立交匝道），截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线。

所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种。

那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元。

即直线单元，圆曲线单元，完全缓和曲线单元和不完全缓和曲线单元。

各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型。

圆曲线单元是始终保持某一半径和相应曲率不变的线型。

缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化。

完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。

于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元。

LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZBN(X)=”?R:”CZD ZB E(Y)=”?S:”DY QD ZBN(X)=”?A:”DY QD ZB E(Y)=”?B:”DY QDBJ(R1)=”?T:”DY QD LC(L1)=”?D:”DY QD QX FWJ=”?E:”DY ZD BJ(R2)=”?U:”DY ZD LC(L2)=”?G:”DYQD—ZD QXZX(Z=-1,Y=+1)=”?WWT→C:WU→F:0→I:0→J:(C-F)÷(2CF(G-D))→HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If O＜D:Then Goto B:IfEndIF O＞G:Then Goto B:IfEnd“ZZ-BZ FXJ(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+((O-D)÷C+H(O-D)2)r→V:If V＜0:Then V+360→V:IfEndIf V≥360:Then V-360→V:IfEnd“ZZD QX FWJ=”:V▶DMS◢Rad:A+∫(cos(E。

圆曲线缓和曲线坐标计算CASIO5800P程序包含断链

圆曲线缓和曲线坐标计算CASIO5800P 程序时间:2010-03-14 14:21:45 来源:本站作者:李强善我要投稿我要收藏投稿指南〝XY〞Lb1 1↙Cls：Fix4：10→DimZ↙〝K=〞?K↙If K≤本段终点里程And K≥上段终点里程：Then 本段终点里程→Z[25]:本段曲线终点里程→Z[1]:上段终点里程→Z[2]:曲线偏角→A:±1→I(左负右正):曲线半径→R:第一缓和曲线→Z[6]:第二缓和曲线→Z[7]:第一切线→Z[12]:第二切线→Z[13]:交点X→B:交点Y→C：小里程向交点方位角→E:交点向大里程方位角→F: Goto 2:IfEnd↙Lb1 2↙Z[6]÷2-Z[6]＾(3)÷(240×R2)+Z[6]＾(5)÷(34560×R＾(4)) →Z[8] ↙Z[7]÷2-Z[7]＾(3)÷(240×R2)+Z[7]＾(5)÷(34560×R＾(4)) →Z[9] ↙切垂距mZ[6]2÷(24×R)-Z[6]＾(4)÷(2688×R＾(3)) →Z[10] ↙内移距PZ[7]2÷(24×R)-Z[7]＾(4)÷(2688×R＾(3)) →Z[11] ↙π×A×R÷180+0.5×(Z[6]+Z[7])→S↙曲线长90×Z[6]÷(R×π) →Z[14] ↙缓和曲线切线角90×Z[7]÷(R×π) →Z[15] ↙B+Z[12]×cos(E+180)→Z[16] ↙ ZH点X坐标C+Z[12]×sin(E+180) →Z[17] ↙ ZH点Y坐标B+Z[13]×cos(F) →Z[22] ↙ HZ点X坐标C+Z[13]×sin(F) →Z[23] ↙ HZ点Y坐标Z[1]-S→Z[3] ↙ ZH 点里程Z[1]-S+Z[6] →Z[4] ↙ HY 点里程Z[1]-Z[7] →Z[5] ↙ YH 点里程Goto 3↙Lb1 3↙If K≤Z[3] And K＞Z[2]:Then Goto 4:IfEnd↙If K≤Z[4] And K＞Z[3]:Then Goto 5:IfEnd↙If K≤Z[5] And K＞Z[4]:Then Goto 6:IfEnd↙If K≤Z[1] And K＞Z[5]:Then Goto 7:IfEnd↙If K≤Z[25] And K＞Z[1]:Then Goto 8:IfEnd↙Lb1 4↙第一直线K-Z[3] →X:0→Y:E→T: Prog〝XY-1〞:Goto 1↙Lb1 5↙第一缓和曲线K-Z[3] →H↙H-H＾(5)÷(40×R2×Z[6]2)+H＾(9)÷(3456×R＾(4)×Z[6]＾(4)) →X↙H＾(3)÷(6×R×Z[6])-H＾(7)÷(336×R＾(3)×Z[6]＾(3))→Y↙90×H2÷(R×π×z[6])→T↙If I＞0: Then T+E→T: Else: E-T→T: T＜0 ＝＞360+T→T: IfEnd↙Prog 〝XY-1〞:Goto 1↙Lb1 7↙第二缓和曲线Z[1]-K→H↙H-H＾(5)÷(40×R2×Z)[7]2)+H＾(9)÷(3456×R＾(7)×Z[7]＾(4))→U↙H＾(3)÷(6×R×Z[7])-H＾(7)÷(336×R＾(3)×Z[7]＾(3))→V↙90×H2÷(R×π×Z[7])→T↙Z[13]×cos(A)+Z[12]-U×cos(A)-V×sin(A)→X↙Z[13]×sin(A) -U×sin(A)+V×cos(A)→Y↙If I＞0:Then F-T→T: T＜0 ＝＞360+T→T: Else F+T→T: IfEnd↙Prog 〝XY-1〞:Goto 1↙Lb18↙第二直线K-Z[1]→X: 0→Y: Prog 〝XY-2〞: Goto 1↙程序说明：Z[25]为断链前里程，下一段的Z[2]为断后里程（长链相反），如果没有断链，Z[25]这一步可省略。

圆曲线正反算(线元法5800)

ZBJS(线元法) (坐标计算主程序)“1.ZX,2.YX”?C:“1.ZS,2.FS”?I:I=2=>Goto 2/Lbl“4.YS”:Abs(K-O) →W:Prog“4.SUB1”:“X=”:X▲“Y=”:Y▲Goto 1Lbl 2:“XP”?A:“YP”?B:“HP”?S:S→Z[4]:A→I:B→J:Prog“4.YS”:Prog “4.SUB2”:“K=”:O+W→K▲Goto 24.SUB1 (正算子程序)0.1739274226→Z[1]： 0.3260725774→Z[2]： 0.0694318442→Z[3]：0.3300094782→L： 1-L→F：1-Z[3] →M： U+W(Z[1]cos(G+QEZ[3]W(N+ Z[3]WD))+ Z[2]cos(G+QELW(N+LWD))+ Z[2]cos(G+QEFW(N+FWD))+ Z[1]cos(G+QEMW(N+MWD))) →X： V+W(Z[1]sin(G+QEZ[3]W(N+ Z[3]WD))+ Z[2]sin(G+QELW(N+LWD))+ Z[2]sin(G+QEFW(N+FWD))+Z[1]sin(G+QEMW(N+MWD))) →Y:G+QEW(N+WD)+90→F： X+ZcosF→X：Y+ZsinF→Y4.SUB2 (反算子程序)G-90→T： Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z/Lbl 0：Prog "4.SUB1"： T+QEW(N+WD) →L： (J-Y)cos(L)-(I-X)sin(L)→Z：Abs(Z)<(小于等于）0.001=>Goto1： W+Z→W：Goto 0Lbl 1： 0→Z：Prog "4.SUB1"： (J-Y)÷sinF→Z/4.YS (曲线要素子程序)If C=1:Then 87765.503→U:85149.390→V:12937.961→O:6’27’00’→G:407.215→H:1000→P:1000→R:1→Q:Goto 1:IfEnd/If C=2:Then 87926.200→U:85174.034→V:13100→O: 15°44′03.3″→G:246.829→H:1006.750→P:1006.750→R:1→Lbl 1:1÷P→N(P-R)÷(2HPR) →D:180÷π→E说明：左线 If C=1:Then 2392.599→U(起点X):2072.851→V(起点Y):52434.77→O（起点桩号）: 96°52′15.4″→G(起点方位角):200→H(线元长度):1650→P（起点半径）:1900→R（终点半径）:-1→Q(左右转标志):Goto 1:IfEnd右线 If C=2:Then 2377.371→U:2074.985→V:52444.388→O: 96°55′29.2″→G:200→H:1600→P:1900→R:-1→Q:Goto 1:IfEndLbl 1:1÷P→N(P-R)÷(2HPR) →D180÷π→E2.GC(高程子程序)Prog “2.YS”V>U=>1→G:V<U=>-1→GIf K≤D-T:Then D-K→L:H-LU÷100→H:Return:IfEndIf K≤D:Then K+T-D→L:H-U(D-K) ÷100+GL2 ÷(2R) →H:Return:IfEnd If K≤D+T:Then D+T-K→L:H+V(K-D)÷100+GL2 ÷(2R) →H:Return:IfEnd If K>D+T:Then K-D→L:H+LV÷100→H: Return:IfEnd2.YS(高程曲线要素子程序)If C=1:Then If K≤52160:Then 52000→R:260→T:51900→D:901.506→H:2.5→U:3.5→V:Return:IfEnd :If K≤52560:Then 40000→R:200→T:52360→D:917.606→H:3.5→U:2.5→V:Return:IfEnd:If K≤52960:Then 40000→R:200→T:52760→D:927.606→H:2.5→U:3.5→fEndIf C=2:Then If K≤51115.002:Then 70000→R:175.002→T:50940→D:878.212→H:3→U:2.5→V:Return:IfEnd:If K≤52210:Then 62000→R:310→T:51900→D:901.506→H:2.5→U:3.5→V:Return:Else35000→R:192.5→T:53550→D:955.256→H:3.5→U:2.4→V:Return:IfEnd:IfEnd3.R(半径子程序)If Z[4]-H≥5.977:Then “R=”:√(Z2+(Z[4]-H+0.824)2)-8.878-I▲Return:IfEndIf Z[4]-H≥0:Then“R=”: √((Abs(Z)-4.215÷2)2+(Z[4]-H-1.687)2)-5.6-I▲Return:IfEndIf H≥Z[4]:Then “R=”: √(Z2+(H-Z[4]+21.2)2)-23.0-I▲2.HP(横坡子程序)If C=1:Then If K≥50475 And K≤50917.72:Then 0.03→I:Return:IfEnd:If K≥51060.22 And K≤50946.22:Then0.03-(K-50917.72)÷28.5×0.01→I: Return:IfEnd:If K≥:Then 0.04→I:Return:IfEnd:IfEndIf C=2:Then If K≥52268 And K≤52845.756:Then 0.02→I:Return:IfEnd:If K≤52959.756Then (52959.756-K)÷114→I:(-0.04)×(1-3I2+2I^(3))+0.02→I: Return:IfEnd:If K≤53338.33:Then -0.02→I: Return:IfEnd:If K≤53395.33:Then -0.02÷57×(K-53338.33)-0.02→I:Return:Else -0.04→I:IfEnd:IfEnd。

CASIOfx-5800PCYT综合曲线坐标计算程序.

CASIO fx-5800P CYT 综合曲线坐标计算程序本篇文章来源于:-Blog‖/blog 原文链接: /blog/post/CASIO-fx-5800P-CYT.html说明:本程序适用于计算器CASIO fx-5800P,可计算:第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角,反算里程和偏距。

数据库名:YTGoto 1Lbl 1:If Z<10000:Then3378226.731→U:456053.721→V:3373351.385→N:458628.379→E:9557.84→D:2040→R:260→S:280→T:-14°18ˊ10″→A:Return:IfEndLbl 1:If Z<………………………………………………………………………………………………………………Lbl 1:If Z<本交点HZ里程或下个交点ZH里程:Then 前交点坐标X→U:前交点坐标Y →V:本交点坐标X→N:本交点坐标Y→E:交点里程→D:曲线半径→R:第一缓和曲线长→S:第二缓和曲线长→T:转角→A:Return:IfEndLbl 1每增加一行则为增加一个交点要素,……表示下一个交点要素。

注:1、◢为显示指令。

2、↙为回车(EXE标识。

3、(括号内为注解不用输入。

计算参数:1=>XY2=>DKJ? 2(输入1表示调用数据库,输入2表示手动输入数据1、QJD(X=? 3378226.731(前交点坐标X2、QJD(Y=? 456053.721(前交点坐标Y3、JD(X=? 3373351.385(本交点坐标X4、JD(Y=? 458628.379(本交点坐标Y5、JD(DK=? 9557.84(本交点里程6、R=? 2040(曲线半径7、LS1?= 260(第一缓和曲线长8、LS2?= 280(第二缓和曲线长9、α?= -14°18ˊ10″(转角10、JSDK?= 9500(计算里程11、W?= 10(偏距:左为负,有为正数12、α?= 90(偏角………………………………13、FWJ=146°34ˊ4.38″(切线方位角14、X= 3373402.498(计算结果坐标X15、Y= 458602.6783(计算结果坐标Y16、ZH=09+170.838,X=3373693.598,Y=458447.6569,FWJ=152°9′41.68″17、HY=09+430.838,X=3373466.361,Y=458573.9060,FWJ=148°30′37.36″18、QZ=09+550.461,X=3373366.244,Y=458639.3431,FWJ=145°9′2.25″19、HY=09+670.084,X=3373270.134,Y=458710.5365,FWJ=141°47′27.15″20、HZ=09+950.084,X=3373058.317,Y=458893.5689,FWJ=137°51′31.68″下载地址:本篇文章来源于:-Blog‖/blog 原文链接: /blog/post/CASIO-fx-5800P-CYT.html。

一般圆曲线计算程序(5800P)

CASIO 5800P研究心得（五）圆曲线坐标计算程序(2010-03-25 19: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→D10.“Xi=”:X+Dcos (A+GB)→P◢11. “Yi=”:Y+Dsin (A+GB)→Q◢12.A+180G(Z-K)÷（πR）→O13.“ZBJ”?E14. “XiL=”:P+Ecos(O-90)◢15. “YiL=”:Q+Esin(O-90)◢16.“YBJ”?F17. “XiR=”:P+Fcos(O+90)◢18. “YiR=”:Q+Fsin(O+90)◢19. Goto 020. Lbl 121.“XC”?U:“YC”?V22．X+Rcos(A+90G)→M23．Y+Rsin(A+90G)→N24. Pol(U-M,V-N)→H25.J＜0 =＞J+360→J26.“PJ=”:R-H→L◢27.“XCCZ=”:M+Rcos(J)→T◢28.“YCCZ=”:N+Rsin(J)→W◢29 .Pol(T-X,W-Y)→Z30.“CZZH=”: K+sin-1(Z÷2÷R)πR÷90◢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。

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. 本程序由小骆在前人的基础上改进而成，经个人测试可用。

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

交流邮箱：716118673@二、源程序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”情况。

fx-5800p 部分程序

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：待求点里程。