1
CASIO FX-5800P 综合曲线坐标计算程序（正确）
陈银 2010-1-19 说明：该程序适用于计算器CASIO FX-5800P，可计算线路中心
的缓和曲线、圆曲线、直线段，中，边桩坐标及切线方位角。
1、A？输入转(偏)角；左转为负，右转为正。 (-7。36’38.7’’) 2、R？输入曲线半径。 (7000) 3、LS？输入缓和曲线长度。 (390)
4、JD（DK）？输入交点里程桩号。 453325.597(ZH直缓点里程+切线长度
D3K4526.94
3+660.654)
5、X（JD）？输入本交点X坐标。 (2781501.2960) 6、Y（JD）？输入本交点Y坐标。 (525226.2870) 7、FWJ？输入直缓(ZH)点切线方位角。 (191。17’7.13’’)
a=arctan( (Y
小) ÷ ( X大-X小))
8、J？输入0程序计算中桩，输入1程序计算边桩。 9、Z？输入里程桩号。 (放样点里程) 主程序名：ZHQX
1．?A：?R：“LS” ?C：“JD（DK）”?D 2．C^(2)÷24÷R- C^((4)) ÷2688÷R^(3) → P 3．C÷2－C^(3)÷240÷R^(2) → Q
大
-Y
4．90×C÷π÷R→B
5．“T=”：（R+P）tan(Abs(A) ÷2)+Q→T◢ 6．“W=”：（R+P）÷cos (A÷2)－R→W◢ 7．“L=”：（ Abs(A)－2×B）πR÷180+2×C → L◢ 8．“ZH=”：D-T→G◢ 9．“HY=”：G+C→H◢ 10．“QZ=”：G+L÷2→I◢ 11．“YH=”：G+L-C→K◢ 12．“HZ=”：G+L→M◢
13．“X（JD）”?N：“Y（JD）”?E：“FWJ”?F：?J
14． If A<0：Then -1→S：Else 1→S：IfEnd (备注:本行中0为数字) 15．F+A÷2+90×S→U 16．W+R→V 17．N+V×cos(U) →B
18．E+V×sin(U) →O (备注:本行中O为字母) 19．Lb1 1 20．?Z
21．If Z≤G：Then T+G-Z→L 22．F+180→V 23．“FWJ=”：F→U◢ 24．Goto 2 25．IfEnd
26．If Z≤H:Then Z-G→L
27．L-L^(5)÷（90×R^（2）×C^（2））→V 28．30×L^(2)×S÷（πRC）→L 29．F+180→P 30．F+L→Q
31．“FWJ=”：F+3×L→U◢ 32．Goto 4 33．IfEnd
34．If Z≤K：Then F+A÷2+90×S+180+180(Z-I)×S÷R÷π→L 35．“FWJ=”：L+90×S→U◢ 36．Goto 5 37．IfEnd
38．If Z≤M：Then M-Z→L
39．L-L^(5)÷（90×R^（2）×C^（2））→V 40．30×S×L^(2)÷（πRC）→L 41．F+A→P 42．F+A+180-L→Q
43．“FWJ=”：F-3×L+A→U◢ 44．Goto 4 45．IfEnd 46．If Z>M：Then Z-M+T→L 47．F+A→U 48．U→V 49．Goto 2
50．Lb1 2
51．“X=”：N+L×cos(V)→X◢ 52．“Y=”：E+L×sin(V)→Y◢ 53．Goto 6 54．IfEnd 55．Lb1 3 56．?W
57．“XL=”：X+W×cos(U-90)→P◢ 58．“YL=”：Y+W×sin(U-90)→Q◢ 59．“XR=”：X+W×cos(U+90)→P◢ 60．“YR=”：Y+W×sin(U+90)→Q◢ 61．Goto 1 62．Lb1 4
63．“X=”：N+T×cos(P)+V×cos(Q)→X◢ ．“Y=”：E+T×sin(P)+V×sin(Q)→Y◢ 65．Goto 6 66．Lb1 5
67．“X=”：B+R×cos(L)→X◢
78．“Y=”：O+R×sin(L)→Y◢ (备注:本行中O为字母) 69．Goto 6 70．Lb1 6 71．J=1=> Goto 3
72．Goto 1
备注：1、括号中（）备注为说明，请不要输入。 2、◢为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上
