CASIOFX-5800P综合曲线坐标计算程序.docVIP

? 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直缓点里程+切线长度 D3K452664.943+660.654)? 5、X（JD）？输入本交点X坐标。????????? ??(2781501.2960) 6、Y（JD）？输入本交点Y坐标。????????? ??(525226.2870) 7、FWJ？输入直缓(ZH)点切线方位角。????? ??(191。17’7.13’’)?? a=arctan(?(Y大-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 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?A0：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?ZM：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◢ 64．“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、◢为输出指令，若在后面加上，即可显